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

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.