-- Solar - breakbeat nostalgic playground -- TODO: Breakbeat mapping variations -- TODO: CBOW Kill melody, reboot alongside rhodes -- TODO: Bassline Kill riff, reboot alongside rhodes once $ "dr" # gain 1 do setcps (110/60/4) let modIndex = pF "modIndex" let gDJF = (# djfbus 1 (range 0.15 0.85 "^49")) let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t")) let g = (gDJF) let m = mBreak d1 $ g -- $ midiOn "^42" (<| "k k k <k [<~ k> k]>") $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>") $ "jazz" -- # release "<0.7!3 1>" # midiG' "^78" 0 1.4 d3 $ g $ m -- Snare $ fast "<1!4 2!10 4 [4 8]>" $ s "~ sn" # n "[14,20]" # note "<0!7 -4>" # midiG' "^79" 0 1.4 d2 $ g $ m -- BREAK $ midiOn ("^44" - "^76") (ply 2) $ midiOn "^76" (striate 4) $ loopAt 2 $ whenmod 8 6 (off "h" id . mask "t . f") $ slice 8 (run 8) $ "break:11" -- # speed (range 0.5 1.5 "^52") # midiG' "^80" 0 1.2 # cut 2 d4 $ g $ m $ striate 2 $ loopAt 2 $ slice 8 (run 8) $ "fbass:3" # midiG' "^81" 0 1.2 # crushbus 4 (range 16 1.5 "^53") # cut 4 # pan 0.2 d5 $ g $ midiOn "^58" (superimpose ( (|+| note ( arp "<up!8 converge!7 diverge>" "c'maj'8") ))) $ struct "~ t" $ slow 4 $ arpeggiate $ note "e3'maj" # "FMRhodes1" # room "<0.4!3 0.7>" # modIndex (range 0 128 "^54") # midiG' "^82" 0 1.2 d7 $ g -- Back bows $ superimpose ((# cut 71) . (# n 3) . mask "t(<1 1 0 [3 <3 1>]>,8)" ) $ someCyclesBy "<f!4 t!3 g>" rev $ struct "t(<1 <3 5>>,8)" $ arp "up" $ note "<e'maj'4!3 b'maj'4!4 e'maj'4>" # "cbow" # n "0" # midiG' "^83" 0 0.7 # room 0.3 # pan 0.7 # cut 7 d8 $ g $ whenmod 8 4 (rarely (striate 2)) $ whenmod 16 8 (sometimesBy "0 1" rev) $ midiOn "^60" ( slice 2 (run "<2 1 2 4 1 4 6 16>") ) $ loopAt 2 $ "forgan:2" # midiG' "^84" 0 1 # crushbus 8 (range 16 1.5 "^56") # cut 8 # pan 0.8 once $ "cbow:3" # gain 0.57 # cut 21 -- TODO MOVE OR REMOVE d7 $ g -- Hello PWM! $ (|* gain "<1!15 0.8>") $ midiOn "^57" (chop "<[8 <4 16>]!15 1>") $ midiOn "^89" (superimpose $ segment 16) $ note (mel - 12) # "superpwm" # semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte # accelerate "<0!7 <6 12>>" # rate "<1!5 2 4 <1 4>>" # resonance (slow 32 $ range 0.2 0.6 sine) # crushbus 71 (range 10 3 "^53") # midiG' "^81" 0 1.42 d6 $ g -- Nappes Rhodes $ note ( prog + "0 12" ) # "FMRhodes1" # pan 0.2 # modIndex (range 0 100 "^54") # crushbus 61 (range 16 5 "^34") # midiG' "^82" 0 1.5 d9 $ g $ midiOff "^60" (mask "<f!8 t!124>") $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]") $ midiOff "^92" (<| "~ c") $ "clap" # speed (range 0.5 1.5 "^56") # midiG' "^84" 0 1.7