Return to photo1.ms CVS log

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

Annotation of researchv10dc/vol2/contents/photo1.ms, revision 1.1

1.1     ! root        1: .nr LL 6.5i
        !             2: .nr LT 6.5i
        !             3: .de XX
        !             4: .nr %# \\$2
        !             5: .ds %e .tl |\\$3||\\f(NI\\$1\\fP|
        !             6: .ds %o .tl |\\f(NI\\$1\\fP||\\$3|
        !             7: .ds %E .tl |\\\\n(PN||UNIX Papers|
        !             8: .ds %O .tl |Research Tenth Edition||\\\\n(PN|
        !             9: ..
        !            10: .ds cr \h'3p'\s+3\fS\N'191'\fP\s-3
        !            11: .br
        !            12: .pn 1
        !            13: .XX \& \& Pico-Portrait
        !            14: .de X1
        !            15: .ds ZX \\$3
        !            16: .ds ZY \\$2
        !            17: .BP
        !            18: ...KS
        !            19: .nr %# \\$1
        !            20: .so photo1.pic.o
        !            21: ...KE
        !            22: .nr %# \\$1
        !            23: ..
        !            24: .de Y1
        !            25: .ds ZX \\$3
        !            26: .ds ZY \\$2
        !            27: .ds ZZ \\$4
        !            28: .BP
        !            29: ...KS
        !            30: .nr %# \\$1
        !            31: .so pho11.pic.o
        !            32: ...KE
        !            33: .nr %# \\$1
        !            34: ..
        !            35: .de X2
        !            36: .ds ZX \\$4
        !            37: .ds ZY \\$3
        !            38: .ds ZZ \\$2
        !            39: .BP
        !            40: ...KS
        !            41: .nr %# \\$1
        !            42: .af PN i
        !            43: .so photo2.pic.o
        !            44: ...KE
        !            45: .nr %# \\$1
        !            46: .af PN 1
        !            47: ..
        !            48: .de Y2
        !            49: .ds ZX \\$4
        !            50: .ds ZY \\$3
        !            51: .ds ZZ \\$2
        !            52: .ds YZ \\$5
        !            53: .BP
        !            54: ...KS
        !            55: .nr %# \\$1
        !            56: .so pho22.pic.o
        !            57: ...KE
        !            58: ..
        !            59: .TL
        !            60: photo pages - part 1
        !            61: .LP
        !            62: .X2 6 "Dennis Ritchie" "Ken Thompson" "new = old[x_cart(r=16*sqrt(r_polar(x,y)),a=a_polar(x,y)), y_cart(r,a)]"
        !            63: .X1 4 "Judy Paone" "new = old[x_cart(r=16*sqrt(r_polar(x,y)),a=a_polar(x,y)), y_cart(r,a)]"
        !            64: .X1 52 "Brian Kernighan" "new = $bwk[a_polar(x,y)*5/2, r_polar(x,y)*5/2]"
        !            65: .X1 78 "Kam Montgomery" "new = old[x_cart(r=16*sqrt(r_polar(x,y)),a=a_polar(x,y)), y_cart(r,a)]"
        !            66: .X1 108 "Bart Locanthi" "new = $bart[sqrt(x*512),y+sin(x)/(x+50)]"
        !            67: .X1 222 "Doug McIlroy" "new = $doug[(x*x)/X+95, (y*y)/Y+25]"
        !            68: .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)"
        !            69: .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"
        !            70: .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"
        !            71: .X1 344 "Bill Marshall" "Seurat Transformation (program by Rodian Paul, 1988)"
        !            72: .X1 388 "Lorinda Cherry" "new = ((x+sin((4*y))/1000)%31<rand()%31)?$llc:$llc[X-x,y]"
        !            73: .X1 398 "Rob Pike" "new = $rob[x+(X*cos(((x-X)*360)*2/X))/6, y]"
        !            74: .X1 422 "Gerard Holzmann" "new[x,y+121-(6*r_polar(x,y))/9] = $gerard"
        !            75: .X1 476 "Ken Thompson" "Picture Map (produced by a pico function)"
        !            76: .X1 482 "Tom Duff" "Manual Pico-Edit (including new = (x<Y/2)?$td:$td[x,Y-y])"
        !            77: .X1 494 "Jim McKie" "new = $jmk[r=r_polar(x,y), a_polar(x,y)+r/3]"
        !            78: .BP
        !            79: we are not done

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