Return to howsliced CVS log

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

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

1.1       root        1: x {
                      2:        int a, dy;
                      3:        array ddy[X];
                      4:        for (dy = 1; dy < X; dy++)
                      5:                ddy[dy] = ddy[dy-1]+rand()%4-2
                      6:        for (dy = 0; dy < Y; dy++)
                      7:        {       a = (dy/51)%4
                      8:                for (x = 0; x < X; x++)
                      9:                {       y = clamp(ddy[x]+dy-sin(2*x)/(x+50)) 
                     10:                        if (a == 0)
                     11:                        new[x,y]=$1[x,y]
                     12:                        if (a == 1)
                     13:                        new[x,y]=$2[x,y]
                     14:                        if (a == 2)
                     15:                        new[x,y]=$5[x,y]
                     16:                        if (a == 3)
                     17:                        new[x,y]=$4[x,y]
                     18:                }
                     19:        }       
                     20: }

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