Return to how CVS log

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

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

1.1     ! root        1: Andrew/Howard:
        !             2: x new =
        !             3: old[x_cart((r=r_polar(x,y)-(sin(a_polar(x,y)))/300),(a=a_polar(x,y))), y_cart(r,a)]
        !             4: 
        !             5: Pjw:
        !             6: x new=(x<X/3)?$pjw:(x>X*2/3)?$melted:3*((x-X/3)*$melted+(X*2/3-x)*$pjw)/X
        !             7: 
        !             8: Dennis -streams- Ritchie:
        !             9: x new = $dmr[clamp(x+sin(y)/(y+50)), y]
        !            10: 
        !            11: Doug McIlroy:
        !            12: x new=$doug[xclamp((x*x)/X + 95), yclamp((y*y)/Y + 25)]
        !            13: 
        !            14: Gerard:
        !            15: x new[x,yclamp(y+121-(6*r_polar(x,y))/9)]=$gerard
        !            16: 
        !            17: Bart:
        !            18: x new = $bart[sqrt(x*512),clamp(y+sin(x)/(x+50))]
        !            19: 
        !            20: Bwk (C):
        !            21: x new=$1[xclamp(a_polar(x,y)*5/2), yclamp(r_polar(x,y)*5/2)]
        !            22: 
        !            23: Pg:
        !            24: x new=$pg[X_cart(r=r_polar(x,y), a=(y*x)/4+A_polar(x,y)), Y_cart(r,a)]
        !            25: 
        !            26: Rob:
        !            27: x new = $rob[x+(X*cos(((x-X)*360)*2/X))/6,y]

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