Return to pen.i CVS log

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

Annotation of researchv10no/cmd/ideal/tests/pen.i, revision 1.1

1.1     ! root        1: pen
        !             2: .nf
        !             3: .IS
        !             4: box wavy{
        !             5:     /* perp is a unit vector normal
        !             6:        to (end - start) */
        !             7:     var start, end,
        !             8:         ht, perp, pt1, pt2;
        !             9:     pt1 = start + (end - start)/4 + ht*perp;
        !            10:     pt2 = start + 3/4*(end - start) - ht*perp;
        !            11:     perp = (0,1)*(end - start)/abs(diff);
        !            12:        var diff;
        !            13:        diff = end - start;
        !            14:     conn start to pt1;
        !            15:     conn pt1 to pt2;
        !            16:     conn pt2 to end;
        !            17:     }
        !            18: 
        !            19: box main{
        !            20:     var a,b,c,d;
        !            21:     a = (0.0,-4.5);
        !            22:     b = a + 1;
        !            23:     c = b + (1,1);
        !            24:     d = c + 1;
        !            25:     conn a to b;
        !            26:     conn b to c using 5*int(abs(b-c)) wavy {ht = 0.05;} <start,end>;
        !            27:     conn c to d;
        !            28:     }
        !            29: .IE
        !            30: .IS
        !            31: ...forget wavy
        !            32: .IE

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