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

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.