Return to rect.i CVS log

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

Annotation of researchv10no/cmd/ideal/tests/rect.i, revision 1.1

1.1     ! root        1: rect
        !             2: .nf
        !             3: .IS
        !             4: box rectangle{
        !             5:     var se, sw,
        !             6:         ne, nw,
        !             7:         width, height;
        !             8:     se = sw + width;
        !             9:     nw = sw + (0,1)*height;
        !            10:     ne = nw + width;
        !            11:     conn sw to se;
        !            12:     conn se to ne;
        !            13:     conn ne to nw;
        !            14:     conn nw to sw;
        !            15:     }
        !            16: 
        !            17: box main{
        !            18:     A:put rectangle{
        !            19:        height = 1.75;
        !            20:        width = 1.25;
        !            21:        sw = (4.1, -1.5);
        !            22:        };
        !            23:     B:put rectangle{
        !            24:        height = 1;
        !            25:        width = 1.5;
        !            26:        sw = (4,-1);
        !            27:        opaque ;
        !            28:        bdlist = sw, nw, ne, se;
        !            29:        };
        !            30:     spline A.nw to B.nw to A.ne to B.ne to A.sw to B.sw to A.se to B.se;
        !            31:     }
        !            32: .IE

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