Return to macarith.g CVS log

Up to [Research Unix] / researchv10dc / vol2 / grap

researchv10 Dan Cross

.G1
frame ht 1.5 wid 1.5
define square { ($1)*($1) }
define root { ($1^0.5) }
define P {
	times at i, square(i); i = i+1
	circle at j, root(j); j = j+5
}
i = 1; j = 5
P; P; P; P; P
.G2

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.