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