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

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.