-- SPACIAL do setcps (110/60/4) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16")) let gMute3 = (midiOn "^75" (mask "f*16")) let gM1 = gMask . gMute let gM2 = gMask . gMute2 let gM3 = gMask . gMute3 d1 $ gM2 $ gF1 $ "k ~ ~ k ~ ~ k k*<2 1 2 2>" # "[jazz,techno:1]" # gain 1.2 d2 $ gF2 $ gM1 $ "~ . cp*<1!3 2> ~" # lpf 2000 d3 $ "hh*8" d4 $ gF2 $ gM2 $ slice 8 ("<0 1 2 3 4 5 6 7>") $ "trance_bass:2" # speed 0.85 # cut 4 # room 0.4 # dry 0.8 d8 $ loopAt 2 $ chop 8 $ "jungle_breaks:45" d5 $ gF3 $ gM3 $ note "cs5" # "superfork" -- TODO On voulait une panflute... # room 0.2 # orbit 4