All+Fall+Down

All Fall Down By Ben Randsdell

media type="custom" key="7662117" 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]