home *** CD-ROM | disk | FTP | other *** search
- demo
- setbg 0 twist wait 237 clearscreen
- setbg 1 tree 30 5 wait 237 clearscreen
- setbg 0 triframe 60 4 wait 237 clearscreen
- setbg 1 ferris 126 wait 91 clearscreen
- setbg 1 ferris 70 wait 91 clearscreen
- setbg 1 ferris 28 wait 91 clearscreen
- setbg 0 blast 90 wait 237 clearscreen
- setbg 0 stars 60 wait 237 clearscreen
- setbg 0 jumpingjacks 75 wait 237 clearscreen
- setbg 0 waves 25 75 wait 237 clearscreen
- setbg 0 wipers 100 clearscreen
- setbg 0 drillteam 12 wait 237 clearscreen
- setbg 4 outblast 90 1 2 wait 255 clearscreen
- setbg 1 four 50 3 wait 237 clearscreen
- setbg 0 boom 30 wait 237 clearscreen
- setbg 0 spider 45 2 wait 237 clearscreen
- setbg 0 kaleid 60 wait 237 clearscreen
- setbg 0 twosheets 120 wait 300 clearscreen
- setbg 0 obthree 1 2 3 wait 300 clearscreen
- setbg 0 wave 30 100 wait 237 clearscreen
- setbg 0 threesaws wait 237 clearscreen
- setbg 4 box 50 1 2 wait 400 clearscreen
- setbg 7 fish 15 110 wait 237 clearscreen
- setbg 6 squareandstar wait 360 clearscreen
- setbg 9 wave2 22 80 wait 237 clearscreen
- setbg 1 twins wait 237 clearscreen
- setbg 1 build 150 wait 30 clearscreen
- setbg 1 gears wait 237 clearscreen
- end
- twist
- make x 0
- repeat 15
- make x x + 10
- setcolor 14
- setxy x - 140 0
- setheading ( x / 10 ) * 3
- forward x spin 1
- setcolor 13
- forward 160 - x
- spin - 2
- end
- tree size number
- setcolor lightgreen
- make r 0
- make y 100
- repeat number
- make r r + 1
- make x - r * size / 2
- make y y - size
- repeat r
- sh 60
- setxy x y
- forward size spin 4
- right 120 forward size
- right 120 forward size
- make x x + size
- end
- triframe size rate
- make heading 0
- repeat 6
- make rate - rate
- forward size spin rate
- wait 60 / rate
- make rate - rate
- right 180 forward size spin rate
- end
- ferris radius
- make heading 0
- make color 8
- repeat 6
- make color color + 1
- setxy 0 0
- setheading heading
- setcolor red
- forward radius spin 1
- right 120 forward radius
- setcolor color
- ferriscar radius / 7
- make heading heading + 60
- end
- ferriscar carsize
- setheading 180
- forward carsize spin 0
- right 90 forward carsize / 2
- left 90 forward carsize
- left 90 forward carsize
- left 90 forward carsize
- left 90 forward carsize / 2
- end
- blast size
- make color yellow
- repeat 12
- setcolor color blastleg size
- make color color - 1
- end
- blastleg size
- setxy 0 0
- right 30
- forward size spin 2 forward size spin 1
- end
- stars size
- make color white
- make x - 2 * size
- repeat 3
- make x x + size
- make y - 2 * size
- repeat 3
- make color color - 1
- make y y + size
- make heading 0
- repeat 4
- make heading heading + 90
- setxy x y
- setheading heading
- setcolor color
- forward size spin 2
- end
- jumpingjacks size
- make x - 3 * size
- repeat 2
- make x x + 2 * size
- make y - 3 * size
- repeat 2
- make y y + 2 * size
- setcolor lightcyan
- setxy x y
- setheading 0
- forward size spin 5
- setxy x y
- setheading 0
- forward size spin - 5
- setcolor yellow
- setxy x y
- setheading 180
- forward size spin 3
- setxy x y
- setheading 180
- forward size spin - 3
- end
- waves nlines length
- make x 0
- repeat nlines
- make x x + 1
- setx - 220 + 14 * x
- setheading 6 * x
- setcolor ( x % 15 ) + 1
- forward length spin 5
- end
- wipers length
- repeat 3
- setcolor yellow
- setx - length
- setheading 60
- forward length spin - 4
- setx length
- forward length spin - 4
- wait 30
- clearscreen
- setcolor yellow
- setx - 100
- setheading 300
- forward 100 spin 4
- setx 100
- forward 100 spin 4
- wait 30
- clearscreen
- end
- drillteam ntimes
- make y 50
- repeat ntimes
- make y y - 9
- setxy 2 * y y
- setheading 0
- setcolor 4 forward 40 spin - 1
- setcolor 9 forward 50 spin - 2
- setcolor 10 forward 30 spin 3
- setcolor 14 forward 20 spin - 4
- wait 3
- end
- outblast size rate1 rate2
- repeat 12 oleg size rate1 rate2
- end
- oleg size rate1 rate2
- setxy 0 0
- right 30 setcolor black forward size spin rate1
- setcolor white forward size spin rate2
- end
- four size rate
- make y - 2 * size - 40
- make z 5
- repeat 2
- make y y + 2 * size
- make x - 2 * size - 40
- repeat 2
- make x x + 2 * size
- make z z + 1
- setcolor z setxy x y squarespin size rate
- end
- squarespin size rate
- repeat 4
- forward size spin rate forward size spin - rate right 90
- end
- boom size
- make color yellow
- repeat 6
- right 60
- penup
- forward 2 * size spin 4
- pendown
- setcolor color
- trianglespin size
- make color color - 1
- end
- trianglespin size
- repeat 3
- forward size spin 2
- forward size spin - 2
- right 120
- end
- spider size rate
- make heading 0
- make color yellow
- repeat 6
- setxy 0 0
- setheading heading
- setcolor color
- leg size rate
- make color color - 1
- make heading heading + 60
- end
- leg size rate
- segment size rate segment size rate
- end
- segment size rate
- forward size spin rate forward size spin - rate
- end
- kaleid size
- make color 8
- repeat 6
- make color color + 1
- setcolor color right 60 ksp size
- end
- ksp size
- repeat 4
- forward size spin 1
- forward size spin - 1
- right 90
- end
- twosheets size
- make x 165
- repeat 29
- make x x - 11
- make size size - 8
- setxy x ( - 10 )
- setcolor lightcyan
- forward size spin 1
- setcolor lightred
- forward ( 2 * size ) / 3 spin 2
- end
- obthree firstrate secondrate thirdrate
- repeat 12 obthreeleg firstrate secondrate thirdrate
- end
- obthreeleg firstrate secondrate thirdrate
- setxy 0 0
- right 30
- setcolor red forward 40 spin firstrate
- setcolor black forward 40 spin 0
- setcolor green forward 40 spin secondrate
- setcolor black forward 40 spin 0
- setcolor yellow forward 40 spin thirdrate
- end
- wave nlines length
- setcolor green
- make heading - 12
- make x 180
- repeat nlines
- make x x - 12
- setx x
- setheading heading
- forward length
- spin 4
- make heading heading + 12
- end
- threesaws
- setcolor 14 right 120 sawblade
- setcolor 13 right 120 sawblade
- setcolor 12 right 120 sawblade
- end
- sawblade
- repeat 12 forward 35 spin 1 forward 10 spin 3 right 30
- end
- box size spin1 spin2
- forward size spin spin1
- right 90 forward size spin spin2
- pu back size pd lt 90
- right 45 forward size spin spin1
- right 45 forward size spin spin2
- pu back size pd right 90
- forward size spin spin1
- lt 90 forward size spin spin2
- pu back size pd right 135
- forward size spin spin1
- lt 135 forward size spin spin2
- lt 90 forward size spin spin1
- right 45 forward size
- right 135 forward size
- right 45 forward size
- end
- fish nlines length
- setcolor lightblue
- make y - 50
- make heading 0
- repeat nlines
- sety y
- setheading heading
- spin 1
- forward length
- sety y
- setheading - heading
- spin - 1
- forward length
- make y y + 10
- make heading heading + 6
- make length length - 6
- end
- squareandstar
- setx - 200
- setcolor lightgreen
- sssquare
- setx 100
- ssstar
- end
- sssquare
- repeat 4
- forward 40 spin 1
- forward 80 spin 0
- forward 40 spin - 1
- right 90
- end
- ssstar
- repeat 5
- forward 40 spin 1
- forward 80 spin 0
- forward 40 spin - 1
- right 144
- end
- wave2 nlines length
- make heading 0
- make x 150
- repeat nlines
- make x x - 14
- setx x
- setheading - heading
- setcolor lightred
- forward length / 2 spin 2
- setheading heading
- forward length / 2 spin - 2
- make heading heading + 12
- end
- twins
- repeat 2
- right 180
- repeat 2
- forward 20 spin 1
- forward 30 spin - 2
- forward 40 spin 3
- forward 40 spin - 1
- forward 40 spin 4
- right 180
- end
- build size
- setcolor red
- repeat 4
- forward size / 2 spin 3 wait 30
- forward size / 2 spin - 3 wait 30
- right 90
- end
- gears
- gear lightmagenta 10 12 ( - 225 ) 60 ( - 4 )
- gear yellow 7 24 ( - 60 ) 110 2
- gear red 2 12 105 60 ( - 4 )
- gear green 13 6 195 40 8
- gear lightcyan 20 3 255 25 ( - 16 )
- end
- gear color startangle nteeth center length rate
- setcolor color
- make x startangle
- repeat nteeth
- setx center setheading x forward length spin rate
- make x x + ( 360 / nteeth )
- end
-