Return to norm.i CVS log

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

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

1.1       root        1: norm
                      2: .nf
                      3: .IS
                      4: ...minx -1.5
                      5: ...maxy 1.5
                      6: ...maxx 1.5
                      7: ...miny -1.5
                      8: ...libfile hole
                      9: gridline {
                     10:        var a,b;
                     11:        var neg, pos;
                     12:        conn 0.5*(a+b) - neg to 0.5*(a+b) + pos;
                     13: }
                     14: main{
                     15:        conn (1,0) to (1,-1) using 10 gridline {neg = 1; pos = 0;} <a,b>;
                     16:        conn (0,-1) to (1,-1) using 10 gridline {neg = 0; pos = (0,1);} <a,b>;
                     17:        put hole{
                     18:                radius = 1;
                     19:                center = (0,0);
                     20:                opaque exterior;
                     21:        };
                     22: }
                     23: .IE
                     24: .IS
                     25: ...forget gridline
                     26: .IE

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