Return to rect CVS log

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

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

1.1       root        1: .IS
                      2: rect {
                      3:        var ne, nw, sw, se,
                      4:        n, e, w, s, c,
                      5:        ht, wd;
                      6:        ne = se + (0,1)*ht;
                      7:        nw = sw + (0,1)*ht;
                      8:        ne = nw + wd;
                      9:        n = (ne+nw)/2;
                     10:        s = (se+sw)/2;
                     11:        e = (ne+se)/2;
                     12:        w = (nw+sw)/2;
                     13:        c = (ne+sw)/2;
                     14:        ht ~ 1;
                     15:        wd ~ 1.5;
                     16:        bdlist = ne, nw, sw, se;
                     17:        conn ne to nw to sw to se to ne;
                     18: }
                     19: .IE

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