Return to knob.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / pot

Annotation of researchv9/jerq/src/lib/pot/knob.c, revision 1.1.1.1

1.1       root        1: #include       <CC/jerq.h>
                      2: 
                      3: #define                N               24
                      4: #define                R               20
                      5: #define        ray(x,r)        Pt(muldiv(cos(360*x/N),r,1024), muldiv(sin(360*x/N),r,1024))
                      6: #define        disp(i,r)               disc(&display,add(p,ray(i,R-r/2+1)),r,F_OR)
                      7: main()
                      8: {
                      9:        Point p;
                     10:        register i;
                     11: 
                     12:        request(KBD);
                     13:        p = div(add(Drect.origin, Drect.corner), 2);
                     14:        circle(&display, p, R, F_OR);
                     15:        for(i = 0; i < N; i++)
                     16:                segment(&display, p, add(p, ray(i,R+1)), F_OR);
                     17:        disp(9,4);
                     18:        disc(&display, p, 10, F_CLR);
                     19:        circle(&display, p, 10, F_OR);
                     20:        circle(&display, p, 8, F_OR);
                     21:        wait(KBD);
                     22: }

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