Return to photo.ms CVS log

Up to [Research Unix] / researchv10dc / vol2 / contents

Annotation of researchv10dc/vol2/contents/photo.ms, revision 1.1.1.1

1.1       root        1: .so ../ADM/mac
                      2: .XX \& \& Pico-Portrait
                      3: .de X1
                      4: .nr %# \\$1
                      5: .ds ZX \\$3
                      6: .ds ZY \\$2
                      7: .BP
                      8: .KS
                      9: .so photo1.pic.o
                     10: .KE
                     11: .BP
                     12: filler
                     13: ..
                     14: .de Y1
                     15: .nr %# \\$1
                     16: .ds ZX \\$3
                     17: .ds ZY \\$2
                     18: .ds ZZ \\$4
                     19: .BP
                     20: .KS
                     21: .so pho11.pic.o
                     22: .KE
                     23: .BP
                     24: filler
                     25: ..
                     26: .de X2
                     27: .nr %# \\$1
                     28: .ds ZX \\$4
                     29: .ds ZY \\$3
                     30: .ds ZZ \\$2
                     31: .BP
                     32: .KS
                     33: .so photo2.pic.o
                     34: .KE
                     35: .BP
                     36: filler
                     37: ..
                     38: .de Y2
                     39: .nr %# \\$1
                     40: .ds ZX \\$4
                     41: .ds ZY \\$3
                     42: .ds ZZ \\$2
                     43: .ds YZ \\$5
                     44: .BP
                     45: .KS
                     46: .so pho22.pic.o
                     47: .KE
                     48: .BP
                     49: filler
                     50: ..
                     51: .TL
                     52: photo pages - part 1
                     53: .LP
                     54: .X2 4 "Dennis Ritchie" "Ken Thompson" "new = old[x_cart(r=16*sqrt(r_polar(x,y)),a=a_polar(x,y)), y_cart(r,a)]"
                     55: .X1 52 "Bart Locanthi" "new = $bart[sqrt(x*512),y+sin(x)/(x+50)]"
                     56: .X2 78 "Judy Paone" "Kam Montgomery" "new = old[x_cart(r=16*sqrt(r_polar(x,y)),a=a_polar(x,y)), y_cart(r,a)]"
                     57: .X1 108 "Doug McIlroy" "new = $doug[(x*x)/X+95, (y*y)/Y+25]"
                     58: .X1 222 "Brian Kernighan" "new = $bwk[a_polar(x,y)*5/2, r_polar(x,y)*5/2]"
                     59: .Y1 282 "Howard Trickey" "new = old[x_cart((r-(sin(a))/300),a), y_cart(r,a)]" "with r=r_polar(x,y) and a=a_polar(x,y)"
                     60: .Y1 310 "Peter Weinberger" "new = (x<L)?$pjw:(x>R)?$melt:3*((x-L)*$melt+(R-x)*$pjw)/X" "with L=X/3 and R= 2*X/3"
                     61: .Y2 324 "Ed Sitar" "Andrew Hume" "new = (y<T)?$ejs:(y>B)?$andrew:6*((y-T)*$andrew+(B-y)*$ejs)/Y" "with T=Y/6 and B= Y/3"
                     62: .X1 344 "Bill Marshall" "Seurat Transformation (program by Rodian Paul, 1988)"
                     63: .X1 388 "Lorinda Cherry" "new = ((x+sin((4*y))/1000)%31<rand()%31)?$llc:$llc[X-x,y]"
                     64: .X1 398 "Rob Pike" "new = $rob[x+(X*cos(((x-X)*360)*2/X))/6, y]"
                     65: .X1 422 "Gerard Holzmann" "new[x,y+121-(6*r_polar(x,y))/9] = $gerard"
                     66: .X1 476 "Ken Thompson" "Picture Map (produced by a pico function)"
                     67: .X1 482 "Tom Duff" "Manual Pico-Edit (including new = (x<Y/2)?$td:$td[x,Y-y])"
                     68: .X1 494 "Jim McKie" "new = $jmk[r=r_polar(x,y), a_polar(x,y)+r/3]"
                     69: .BP
                     70: we are not done

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