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

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.