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     ! 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.