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

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.