Return to wavy CVS log

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

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

1.1     ! root        1: .IS
        !             2: wavy {
        !             3:        var start, end, perp, pt1, pt2, ht;
        !             4:        perp = (0,1)*(start - end)/abs(start - end);
        !             5:        pt1 = 0.25[start,end] + perp*ht;
        !             6:        pt2 = 0.75[start,end] - perp*ht;
        !             7:        conn start to pt1 to pt2 to end;
        !             8: }
        !             9: .IE

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