Return to 2bit.c CVS log

Up to [Research Unix] / researchv10no / cmd / pico

Annotation of researchv10no/cmd/pico/2bit.c, revision 1.1

1.1     ! root        1: ulong floyd[FSIZE+1][FSIZE+1];
        !             2: ulong contab[RES+1];
        !             3: Bitmap *icon;
        !             4: 
        !             5: drawface(lo, hi, facep)
        !             6:        Point facep;
        !             7: {
        !             8: 
        !             9:        ulong *p, *f;
        !            10:        char *sq;
        !            11:        int v, h, s, e, t, i;
        !            12:        if (!icon)
        !            13:                icon=balloc(Rect(0, 0, FSIZE, FSIZE), 1);
        !            14:        if (!icon)
        !            15:                return;
        !            16:        if (hi<lo){e=hi; hi=lo; lo=e;}
        !            17:        if (lo<0) lo=0; else if (RES<lo) lo=RES;
        !            18:        if (hi<0) hi=0; else if (RES<hi) hi=RES;
        !            19:        t = hi-lo;
        !            20:        p = contab;
        !            21:        for (v = 0;v !=lo; v++)
        !            22:                *p++ = 0;
        !            23:        for (;v !=hi; v++)
        !            24:                *p++ = (v-lo)*RES/t;
        !            25:        for (;v <= RES;v++)
        !            26:                *p++ = RES;
        !            27:        sq=squash[0];
        !            28:        for (v=0;v!=FSIZE;v++) for(h=0,f=floyd[v];h!=FSIZE;h++)
        !            29:                *f++ = contab[*sq++&0xFF];
        !            30:        for (v = 0;v != FSIZE; v++)
        !            31:        {       f = floyd[v];
        !            32:                for (h=0,p=addr(icon, Pt(0, v));h<FSIZE;h+=16,p++)
        !            33:                {       *p=0;
        !            34:                        for(s=0;s!=16 && s+h!=FSIZE;s++,f++)
        !            35:                        {       e=f[0];
        !            36:                                e+=dithmat[s&7][v&7];
        !            37:                                i=e/72;
        !            38:                                if (i<0)
        !            39:                                        i=0;
        !            40:                                else if (i>3)
        !            41:                                        i=3;
        !            42:                                e-=(i*RES)/3;
        !            43:                                *p|=(3-i)<<(30-2*s);
        !            44: #ifndef THRESH
        !            45:                                t=3*e/8;
        !            46:                                f[FSIZE+1]+=t;
        !            47:                                f[FSIZE+2]+=e-2*t;
        !            48:                                f[1]+=t;
        !            49: #endif
        !            50:                        }
        !            51:                }
        !            52:        }
        !            53:        bitblt(&display, facep, icon, icon->rect, S);
        !            54: }
        !            55: 

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