Return to arrow.i CVS log

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

Annotation of researchv10no/cmd/ideal/tests/arrow.i, revision 1.1.1.1

1.1       root        1: arrow
                      2: .nf
                      3: .IS
                      4: ...radians
                      5: box arrow{var start, end, headvec, head;
                      6: headvec = end + head*(start - end)/abs(start - end);
                      7: conn start to end;
                      8: conn end to end + cis(3.14159/8)*(headvec - end);
                      9: conn end to end + cis(-3.14159/8)*(headvec - end);
                     10: }
                     11: 
                     12: box main{
                     13: put arrow{head = 0.25;start = 0; end = (1,-1);};
                     14: put arrow{head = 0.5; start = (0,-2); end = (1,-1.2);};
                     15: put arrow{head = 0.2; start = (2,-2); end = (0.1,-2.3);};
                     16: }
                     17: .IE
                     18: .IS
                     19: ...forget arrow
                     20: .IE

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