_______________________________________ |,---"-----------------------------"---,| ||___ 16 bit.................... || ||====\ :HHHHHHHHHHHHHHHHHHHHHHHHHHH || ||=====):H c> ATA-RIGHT??? # H || ||====/ :H H || ||""" :H H || || :H H || || :HHHHHHHHHHHHHHHHHHHHHHHHHHH || ||_____,_________________________,_____|| |)_____)-----.| /I\ATARI |.------(_____(| //"""""""|_____|=----------=|______|"""""""\ // _| _| _| _| _| _| _| _| _| _| _| _| _| _| \ // ___| _| _| _| _| _| _| _| _| _| _| _| | | \ |/ ___| _| _| _| _| _| _| _| _| _| _| _| ______| \ / __| _| _| _| _| _| _| _| _| _| _| _| _| _| ___| \ / _| _| _| _| ________________________| _| _| _| _| \ |------"--------------------------------------"-------| `-----------------------------------------------------' [] ,----.___ [] ,----.___ __||_/___ '. __||_/___ '. / O|| /| ) / O|| /| ) / "" / / =._/ / "" / / =._/ /________/ / /________/ / |________|/ |________|/ -- Thanks dew & PORTFO for the ASCII art <3 do let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) let g3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gM = gMask . gMute let modIndex = pF "modIndex" setcps (120/60/4) d1 $ g1 $ gMute -- THE ROAD $ midiOn "^74" (fast 2) $ midiOn "^42" (struct "t t t <t t*2 t [~ t]>") $ midiOff "^42" (struct "t*2") $ "[jazz,808bd:6]" # midiG' "^78" 0 1.4 # orbit 0 d2 $ g1 $ gM -- THE FUEL $ midiOn "^43" (mask "t f . f <t!4 f!4> t <t!4 f!3 t>") $ midiOn "^75" (ply 2) $ loopAt 4 $ chop 32 $ "drums_atari:21" # midiG' "^79" 0 1.2 # lpf 2800 # cut 2 # orbit 1 d3 $ gM $ g1 -- THE GUIDELINES $ midiOn ("^44" - "^76") (sometimesBy (slow 8 $ range 0.3 0.95 saw) $ mask "t(3,8)") $ midiOn "^76" (fast "<2!4 <4 [4 8]>>") -- YOU SHALL RUN $ struct "t*[<8!3 <16 [[16|32]*4]>>!3 <16!3 [12|24]*4> 12!4]" $ "h2ogmhh" # midiG' "^80" 0 1.2 # n "<0!4 1 2 3>" # orbit 2 d4 $ gMask -- THE THUNDER $ g2 $ midiOn "^57" (off "0.75" id) $ midiOn "^89" (off "1" id . chop "8") $ fix (|* gain 0.8) (note "a4") $ note "<ef3 <~!0 [~ ~ ~ ~ ~ <~ e3> ~ <a3 <e3 cs3>>]!4>>" # "FMRhodes1" # cut 4 # modIndex (range 0 128 "^53") # crushbus 41 (range 16 4 "^33") # roombus 42 (range 0.05 0.6 "^33") # sz 0.9 # pan "<0.8!3 0.5>" # midiG' "^81" 0 1.8 # room 0.4 # orbit 3 d5 $ g2 $ gMask -- THE RAIN $ midiOn "^58" ((whenmod 8 7 (off "s" id)) .(off "e" id)) $ midiOn "^90" (striate "<2!3 4>" . ply 2) $ struct "t(<3!7 [3 8]>,8,<0!3 3>)" $ note ( arp "down" ("<c'maj'4!2 <c'maj'4!3 ef'maj'4> g'min'4>" |+| "ef3" - 12)) # "FMRhodes2" # modIndex (range 0 128 "^54") # crushbus 41 (range 16 4 "^34") # roombus 42 (range 0 0.2 "^34") # sz 0.5 # pan 0.8 # orbit 4 # midiG' "^82" 0 1.9 d8 $ g3 $ gM -- THE UNAVOIDABLE BREAKS $ mask "t(16,64)" $ midiOn "^36" (# n 6) -- Double light $ midiOn "^56" (# n 4) -- DOUBLE HEAVY $ midiOn "^60" (ply 2) $ midiOn "^92" (fast 2) $ slice 8 ("<0!3 ~> <1!3 3> <2 2 [2 6][ 2 6 6 6]> <3!3 7>*<1 2>") $ loopAt 2 $ "fbreak120:3" # cut 8 # midiG' "^84" 0 1.3 # orbit 5