Return to how CVS log

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

Annotation of researchv10dc/vol2/Faces/pg/how, revision 1.1

1.1     ! root        1: left ear:
        !             2: x new=(x>80 && x<160 && y>185 && y<300)?$2[xclamp(x-80), yclamp(y-185)]:$1
        !             3: right ear
        !             4: x new=(x>405 && x<470 && y>195 && y<305)?$3[xclamp(x-405), yclamp(y-195)]:old
        !             5: 
        !             6: x { int r, a;
        !             7:        for (y = 0; y < Y; y++)
        !             8:        for (x = 0; x < X; x++)
        !             9:        {       r = r_polar(x,y)
        !            10:                a = A_polar(x,y)
        !            11:                a = a + (y*x)/4
        !            12:                a = a%36000
        !            13:                new[x,y] = $Pg[xclamp(X_cart(r, a)), yclamp(Y_cart(r,a))]
        !            14:        }
        !            15: }

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