Return to pents.i CVS log

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

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

1.1       root        1: pents
                      2: .nf
                      3: .IS
                      4: ...degrees
                      5: box pentagon
                      6: {
                      7:        var pt1, pt2, pt3, pt4, pt5;
                      8:        var radius, center;
                      9:        pt1 = center + radius;
                     10:        pt2 = center + cis (72)*radius;
                     11:        pt3 = center + cis (144)*radius;
                     12:        pt4 = center + cis (-144)*radius;
                     13:        pt5 = center + cis (-72)*radius;
                     14:        conn pt1 to pt2;
                     15:        conn pt2 to pt3;
                     16:        conn pt3 to pt4;
                     17:        conn pt4 to pt5;
                     18:        conn pt5 to pt1;
                     19:        bdlist = 1.1[center, pt1],
                     20:                1.1[center, pt2],
                     21:                1.1[center, pt3],
                     22:                1.1[center, pt4],
                     23:                1.1[center, pt5]
                     24:        ;
                     25: }
                     26: main
                     27: {
                     28:        put P1:pentagon{center = (1,0); radius = (0,0.25);};
                     29:        put P2:pentagon{pt3 = P1.pt4; radius = (0,0.5);opaque;};
                     30:        put P3:pentagon{pt3 = P2.pt4; radius = (0,0.75);opaque;};
                     31:        put P4:pentagon{pt3 = P3.pt4; radius = (0,1.0);opaque;};
                     32: }
                     33: .IE
                     34: .IS
                     35: ...forget pentagon
                     36: .IE

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