resetCycles -- Blade Dreamer: For you I will use Vangelis' synth <3 do let chord = "d4'min7'4" let gF = (# djfbus 1 (range 0.1 0.9 "^49")) -- let gDJF = (whenmod 32 28 (# lpf (max 200 (slow 16 $ range 5000 0 sine)))) let g = gF let chords = "<a4'min7 e'min7 f'maj7 g'sus4>" let prog = "<a4 e f g>" setcps (110/60/4) d1 $ g $ midiOff "^41" (mask "<f f [t f] t t!28>") $ midiOn "^41" (<| "k k k <k*2 [~ k] k k*2>") $ midiOff "^41" (<| "k . ~ k") $ "[jazz,kick:14]" # midiG' "^78" 0 1.3 d2 $ g $ whenmod 16 14 (fast "<2 4>") $ "~ s ~ s*<1!3 <4 1 2 4>>" # "electro1" # n "<3!3 4 4 4 3 3>" # midiG' "^79" 0 1.7 d6 -- $ g $ midiOn "^44" (slow 2) -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]") -- $ degradeBy ("0 0.95!7 0" - "^52") $ "~ h ~ h ~ h*2 ~ h" # "hh27:2" # note ( whenmod 4 3 (2 -) "0 . 2 0" ) # midiG' "^80" 0 1.6 d5 $ g -- Breakbeat $ midiOn "^76" (fast "<2!3 4>") $ midiOff "^44" (slow "<4 2>") $ sometimesBy "^32" rev $ someCyclesBy (0.9 * "^52") (scramble "1 4") $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>" $ loopAt 2 $ "fbreak100" # cut 5 # midiG' "^80" 0 1.5 d3 $ g -- CBOW Electric Bass $ midiOn "^57" (mask "t(<2 2 3 <4 5 6 8>>,8)") -- $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8) -- $ ("0.125" ~>) $ superimpose (mask "t f" . (# cut 31) . (|- note 12)) $ arp "up <up!3 updown>" $ note (chords) # "cbow:0" # pan 0.3 # cut 3 # room 0.6 # sz 0.5 # midiG' "^81" 0 0.9 # room 0.5 # sz 0.5 # crushbus 31 (range 10 2 "^53") d4 $ g -- Lead vangelis' synth $ juxBy 0.8 ( struct "<t [t . t*2]>" . arp "up" . (|+ note (12 |+ "0 0 <12!3 7>" + (arp "up" "<c'maj!3 c'min>"))) ) $ slow 2 $ note ( "<f g a4 e>" + "-12" ) # "cs80leadMH" # pan 0.3 # midiG' "^82" 0 1.2 d7 $ g -- Angel Bogdan $ note ( prog |+| "0 [<0 7*2>,12]" - 12 ) # "choir:1" # cut 7 # room 0.3 # sz 0.8 # legato 1.2 # pan 0.8 # midiG' "^83" 0 1.6 d8 $ g -- Angel Bogdan $ slice "<6!3 3>" "<0!3 2>" "bogdan:10" # cut 8 # room 0.2 # midiG' "^83" 0 1.1 d10 $ (# lpf 2000) $ g $ "~ cp" # midiG' "^84" 0 1.6