Return to point.c CVS log

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

Annotation of researchv9/jerq/src/lib/j/point.c, revision 1.1.1.1

1.1       root        1: #include <jerq.h>
                      2: point(b, pt, f)
                      3:        register Bitmap *b;
                      4:        Point pt;
                      5:        register f;
                      6: {
                      7:        register bit;
                      8:        register Word *p=addr(b, pt);
                      9:        if(ptinrect(pt, b->rect)==0)
                     10:                return;
                     11:        bit=1<<(WORDSIZE-1)-(pt.x&WORDMASK);
                     12:        if (f == F_XOR)
                     13:                *p ^= bit;
                     14:        else
                     15:                if (f == F_CLR)
                     16:                        *p &= ~bit;
                     17:                else
                     18:                        *p |= bit;
                     19: }

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