Return to worm.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / cmd

Annotation of 43BSD/contrib/icon/src/cmd/worm.icn, revision 1.1

1.1     ! root        1: #      WORM(6)
        !             2: #
        !             3: #      Random worm
        !             4: #
        !             5: #      Stephen B. Wampler
        !             6: #
        !             7: #      Last modified 8/14/84
        !             8: #
        !             9: 
        !            10: #      NOTE:  This program requires the procedures in gpack.2.  It
        !            11: #      should be translated as follows:
        !            12: #
        !            13: #      icont worm.icn /usr/icon/ilib/gpack.u1
        !            14: #
        !            15: global BLUE, WHITE
        !            16: global VECTOR
        !            17: 
        !            18: procedure main(args)
        !            19:    local colpt, bkcolr, count, length, r, arg, a, pt1, pt2
        !            20:    ginit()
        !            21:    colpt := WHITE
        !            22:    bkcolr := BLUE
        !            23:    count := 1000
        !            24:    length := 10
        !            25:    r := 0
        !            26:    every arg := !args do case arg[1+:2] of {
        !            27:       "-f" : colpt := integer(arg[3])           # foreground color
        !            28:       "-b" : bkcolr := integer(arg[3])          # background color
        !            29:       "-c" : count := integer(arg[3:0])         # duration of worm
        !            30:       "-l" : length := integer(arg[3:0])        # length of worm
        !            31:       "-r" : r := integer(arg[3:0])             # random number seed
        !            32:       "-h" : stop("usage: worm [-fn] [-bn] [-cn] [-ln] [-rn]")
        !            33:       }
        !            34: 
        !            35:    if colpt == bkcolr then {
        !            36:       colpt := WHITE
        !            37:       bkcolr := BLUE
        !            38:       }
        !            39: 
        !            40:    a := point(XMAX/2,YMAX/2)                # start in screen center
        !            41: 
        !            42:    every (pt1|pt2) := create                # two sequences of the same lines
        !            43:       2(&random :=: r,|draw(line(.a,a := nextpt(a))),&random <-> r)
        !            44: 
        !            45:    bckgrnd(bkcolr)
        !            46:    erase()
        !            47: 
        !            48:    every _noroll() & _plot() do {
        !            49:       mode(VECTOR)
        !            50:       color(colpt)
        !            51:       every 1 to length do @pt1
        !            52:       every 1 to count do {color(colpt);@pt1;color(bkcolr);@pt2}
        !            53:       color(bkcolr)
        !            54:       every 1 to length do @pt2
        !            55:       movcur(20,20)
        !            56:       color(colpt)
        !            57:       }
        !            58: 
        !            59: end
        !            60: 
        !            61: procedure nextpt(pt)
        !            62: local x,y
        !            63: 
        !            64:    repeat {
        !            65:       x := pt.x + (?32767\1)%21 - 10
        !            66:       if 0 < x < XMAX then break
        !            67:       }
        !            68: 
        !            69:    repeat {
        !            70:       y := pt.y + (?32767\1)%21 - 10
        !            71:       if 0 < y < YMAX then break
        !            72:       }
        !            73: 
        !            74:    return point(x,y)
        !            75: end

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