Return to arrow CVS log

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

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

1.1     ! root        1: .IS
        !             2: arrow {
        !             3:        var tl, hd, head, perp, headang;
        !             4:        conn tl to hd;
        !             5:        perp = head*(tl-hd)/abs(tl-hd);
        !             6:        conn hd + cis(headang)*perp to hd to hd + cis(-headang)*perp;
        !             7:        head ~ 0.1;
        !             8:         headang ~ 25;
        !             9: }
        !            10: .IE

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