Return to macarith.g CVS log

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

Annotation of researchv10dc/vol2/grap/macarith.g, revision 1.1.1.1

1.1       root        1: .G1
                      2: frame ht 1.5 wid 1.5
                      3: define square { ($1)*($1) }
                      4: define root { ($1^0.5) }
                      5: define P {
                      6:        times at i, square(i); i = i+1
                      7:        circle at j, root(j); j = j+5
                      8: }
                      9: i = 1; j = 5
                     10: P; P; P; P; P
                     11: .G2

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