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