Return to rotsq.i CVS log

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

Annotation of researchv10no/cmd/ideal/tests/rotsq.i, revision 1.1.1.1

1.1       root        1: rotsq
                      2: .nf
                      3: .IS
                      4: box square{var ne, nw, se, sw;
                      5: ne = nw + size;
                      6: se = sw + size;
                      7: ne = se + (0,1)*size;
                      8: conn ne to se;
                      9: conn se to sw;
                     10: conn sw to nw;
                     11: conn nw to ne;
                     12: }
                     13: 
                     14: box main{var anchor;
                     15: anchor = (1.5,-3);
                     16: put square{var size;nw=anchor;size = (1,1);conn (nw + ne)/2 to 0.5*(sw + se);};
                     17: }
                     18: .IE
                     19: .IS
                     20: ...forget square
                     21: .IE

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