Return to stretch2 CVS log

Up to [Research Unix] / researchv10dc / vol2 / Faces / How

Annotation of researchv10dc/vol2/Faces/How/stretch2, revision 1.1.1.1

1.1       root        1: window 0 0 680 680
                      2: def zclamp(n) {
                      3:        return (n>0)?(n<Z)?n:Z:0;
                      4: }
                      5: def init() {
                      6:        for (y = 0; y < Y; y++)
                      7:        for (x = 0; x < X; x++)
                      8:                new[x,y]=y*Z/(Y-1)
                      9: }
                     10: def refresh() {
                     11:        for (y = 0; y < Y; y++)
                     12:        for (x = 0; x < X; x++)
                     13:                new[x,y]=old[x,y]
                     14: }
                     15: def mapper(t0, t1, f0, f1, h) {
                     16:        int dy, blah
                     17:        if (abs(t0-t1)>1)
                     18:        {       mapper((t0+t1)/2, t1, (f0+f1)/2, f1, h)
                     19:                mapper(t0, (t0+t1)/2, f0, (f0+f1)/2, h)
                     20:        } else
                     21:                new[t0, h] = ($M1[t0,h])?$P2[f0, h]:old[t0,h]
                     22: }
                     23: def Mapp() {
                     24:        int start1, start2, end1, end2, dy;
                     25:        init()
                     26:        for (y = 0; y < Y; y++)
                     27:        {       x = 10;
                     28:                while ($M1[x,y] < 128 && x < X)
                     29:                        x++;
                     30:                start1 = x;
                     31:                x = X-10;
                     32:                while ($M1[x,y] < 128 && x > 0)
                     33:                        x--;
                     34:                end1 = x;
                     35:                x = 10;
                     36:                while ($M2[x,y] < 128 && x < X)
                     37:                        x++;
                     38:                start2 = x;
                     39:                x = X-10
                     40:                while ($M2[x,y] < 128 && x > 0)
                     41:                        x--;
                     42:                end2 = x;
                     43:                if (start1 < end1 && start2 < end2)
                     44:                        mapper(start1, end1, start2, end2, y)
                     45:                else
                     46:                {       for (x = 0; x < X; x++)
                     47:                                new[x,y] = old[x,y]
                     48:                }
                     49:        }
                     50: }
                     51: x { init(); }
                     52: x new=old
                     53: x { Mapp(); }
                     54: x new=old

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