Return to dragfile CVS log

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

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

1.1     ! root        1: To: cvw
        !             2: Subject: ideal library
        !             3: 
        !             4: There's also a library file that drag expects to be present,
        !             5: called "drag".  Do you mind if I install it in various ideal
        !             6: libraries (various as in the machines I use)?  Or perhaps
        !             7: you'd like to look at it and install it yourself.  Here it is:
        !             8: 
        !             9: 
        !            10: .IS
        !            11: ...libfile dash
        !            12: idaline { # line p1 to p2, for use in arrowhead (p3 unused)
        !            13:        var p1, p2, p3;
        !            14:        conn p1 to p2;
        !            15: }
        !            16: 
        !            17: arrowhead {
        !            18:        var tl, hd, perp, strokes;
        !            19:        perp = 0.1*(tl-hd)/abs(tl-hd);
        !            20:        conn hd+cis(25)*perp to hd+cis(-25)*perp
        !            21:                using strokes-1 idaline { p2=hd; }<p1,p3>;
        !            22:        conn hd+cis(-25)*perp to hd;
        !            23: }
        !            24: 
        !            25: thickline {
        !            26:        var tl, hd, perp;
        !            27:        perp = .01*cis(90)*(tl-hd)/abs(tl-hd);
        !            28:        conn tl-perp to tl+perp
        !            29:                using 4 idaline { p2=p1+hd-tl; }<p1,p3>;
        !            30: }
        !            31: 
        !            32: dashline {
        !            33:        var tl, hd;
        !            34:        conn tl to hd
        !            35:                using int(abs(hd-tl)/.1 + .99) dash{}<start,end>;
        !            36: }
        !            37: 
        !            38: selfloop { # loop from c to itself, passing through e, with arrowhead
        !            39:        var c, e, h, i, c1, c2, c3, c4, s;
        !            40:        var B, C, D;
        !            41:        B ~ .6; C ~ .6; D ~ .2;
        !            42:        h = e + B*(e-c)*cis(90);
        !            43:        i = e + B*(e-c)*cis(-90);
        !            44:        c1 = C[c,h];
        !            45:        c4 = C[c,i];
        !            46:        c2 = D[e,h];
        !            47:        c3 = D[e,i];
        !            48:        spline c to c1 to c2 to c3 to c4 to c;
        !            49:        put arrowhead { hd=c; tl=c4; strokes=s; };
        !            50: }
        !            51: 
        !            52: selfloopc { # loop from a to b, passing through e, with arrowhead at b
        !            53:            # c is "center": ce is perpendicular to tangent at e
        !            54:        var a, b, c, d, e, h, c1, c2, c3, c4, s;
        !            55:        var A, C, D;
        !            56:        A ~ .8; C ~ .2; D ~ .4;
        !            57:        d = c - A*(e-c);
        !            58:        c1 = a + C*(a-d);
        !            59:        c4 = b + C*(b-d);
        !            60:        h = d + (c1-d)*abs(e-d)/abs((c1+c4)/2-d);
        !            61:        c2 = D[e,h];
        !            62:        c3 = e-(c2-e);
        !            63:        spline a to c1 to c2 to c3 to c4 to b;
        !            64:        put arrowhead { hd=b; tl=c4; strokes=s; };
        !            65: }
        !            66: .IE

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