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