All Fall Down By Ben Randsdell


Here is some of the code for the music:

playscore [bass voice guitar lead drums]

the bass is:

tempo 190
instrument 39
volume 100%
rest 3/4
repeat 8 [
note 22 1
note 22 3/8
note 21 3/8
note 20 1
note 20 5/4
]
note 22 1

The guitar is:

tempo 190
instrument 39
volume 100%

rest 3/4

repeat 8 [
note 22 1
note 22 3/8
note 21 3/8
note 20 1
note 20 5/4
]
note 22 1


The Graphics is:


for 0 800 2
[trans 0 (400-index)
[solid RGB (255-index/3.2) 255 (index/3.2) [box 800 20]] wait 5]

wait 400
at -200 100
color black [Font "Corsiva Hebrew" 40 1 [wr "All"]]
wait 600
at -50 0
color black [Font "Corsiva Hebrew" 40 1 [wr "Falls"]]
wait 500
at 100 -100
color black [Font "Corsiva Hebrew" 40 1 [wr "Down"]]
wait 800

at 0 0
for 0 800 2
[trans 0 (-400+index)
[solid RGB (index/3.2) 255 (255-index/3.2) [box 800 20]]]
wait 1000
at 0 0
growby 2% 850[ wait 5
rot 30[
color coral [line -280 99 8 -7]
color green [line 251 110 -3 -6]
color lightgreen [line -230 -107 -5 4]
color violet [line 297 -119 -18 5]]]

at 0 0 rotate 40
[for 0 800 2
[trans (400-index) (0)
[solid RGB (index/3.2) (255-index/3.2) 255 [box 20 800]] wait 5]]

wait 200

at -74 -140
growgby -7% 70 [wait 40
solid hsb (index*30 - 30) 50 100 [ngon 3]
at 70 0
turnto -20]
wait 200

at 0 0
for 0 800 2
[trans (-400+index) 0
[solid RGB 255 (255-index/3.2) (index/3.2) [box 20 800]] wait 5]

wait 400

at 75 -140
growgby -7% 70 [wait 20
solid hsb (index*15 - 30) 50 100 [box 50 50]
at 70 0
turnto -20]

at -75 -140
growgby -7% 70 [wait 20
solid hsb (index*15 - 30) 50 100 [box 50 50]
at -70 0
turnto 20]
local y
wait 200

at 0 -40

for 0 255 0.5 [ wait 10
y = (-1/64)*(index)*(index - 255)
solid RGB (255-y) (y) 255 [starskip 2 5]]


wait 400

at 0 0
for 0 800 2
[trans (400-index) 0
[solid RGB (255-index/3.2) (index/3.2) (255-index/3.2) [box 20 800]] wait 5]

wait 400

at -220 50
growgby -7% 50 [wait 40
solid hsb (index*30 - 30) 50 100 [box 80 80]
turnto -20]

at -110 25
growgby -7% 50 [wait 40
solid hsb (index*30 - 30) 50 100 [box 70 70]
turnto -20]

at 0 0
growgby -7% 50 [wait 40
solid hsb (index*30 - 30) 50 100 [box 60 60]
turnto -20]

at 110 -25
growgby -7% 50 [wait 40
solid hsb (index*30 - 30) 50 100 [box 50 50]
turnto -20]

at 220 -50
growgby -7% 50 [wait 40
solid hsb (index*30 - 30) 50 100 [box 40 40]
turnto -20]

at 0 0
for 0 100 1
[trans (-230+(110*index/25)) (-35-index)
[solid RGB (255-index*2.55) (index*2.55) (255-index*2.55) [circle 10]] wait 10]

for 0 100 1
[trans (-230+(110*index/25)) (135-index)
[solid RGB (255-index*2.55) (index*2.55) (255-index*2.55) [circle 10]] wait 10]