Return to circle CVS log

Up to [Research Unix] / researchv10no / cmd / ideal / lib

Annotation of researchv10no/cmd/ideal/lib/circle, revision 1.1.1.1

1.1       root        1: .IS
                      2: ...libfile CIRCLE
                      3: circle {
                      4:        var radius, center,
                      5:        z1, z2, z3;
                      6:        put CIRCLE {
                      7:        };
                      8:        boundary = center + radius,
                      9:                ^ center + (0,1)*radius,
                     10:                center - radius,
                     11:                ^ center - (0,1)*radius
                     12:        ;
                     13: }
                     14: .IE

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