Return to bar CVS log

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

Annotation of researchv10no/cmd/ideal/lib/bar, revision 1.1

1.1     ! root        1: .IS
        !             2: gridline
        !             3: {
        !             4:        var a, b, pos, neg;
        !             5:        conn a - neg to a + pos;
        !             6: }
        !             7: barrect
        !             8: {
        !             9:        ne = se + (0,1)*ht;
        !            10:        nw = sw + (0,1)*ht;
        !            11:        ne = nw + wd;
        !            12:        n = (ne+nw)/2;
        !            13:        s = (se+sw)/2;
        !            14:        e = (ne+se)/2;
        !            15:        w = (nw+sw)/2;
        !            16:        c = (ne+sw)/2;
        !            17:        ht ~ 1;
        !            18:        wd ~ 1.5;
        !            19:        bdlist = ne, nw, sw, se;
        !            20:        conn ne to nw to sw to se to ne;
        !            21: }
        !            22: bar
        !            23: {
        !            24:        var ne, nw, sw, se,
        !            25:        n, e, w, s, c,
        !            26:        ht, wd;
        !            27:        var slant;
        !            28:        conn w - abs(wd) to e + abs(wd)
        !            29:                using int(30*abs(wd)) gridline {
        !            30:                        pos = neg = (ht+wd)*cis(slant);
        !            31:                }<a,b>;
        !            32:        put barrect {
        !            33:                opaque exterior;
        !            34:        }
        !            35: }
        !            36: .IE

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