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     ! 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.