resetCycles do setcps(120/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 let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) d1 $ gF1 $ gM2 -- Kick solide 4/4 disponible -- $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>") $ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>") $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]") $ "[kick:4]" d2 $ gF1 $ gM1 -- Snare fantomatique $ midiOn "^43" (<| "~ s ~ s") $ midiOff "^43" (<| "~ s") $ "[cp:1,rampleM1:10]" # room 0.1 # sz 0.5 # dry 0.9 d3 $ gF1 $ gM1 -- Highest hats $ midiOff "^44" (slow 2) $ midiOn "^76" (fast 2) -- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER $ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :) -- # "[h2ogmsn:14]" # "[rampleS57:2]" # note (-12 + "3.5" + "e6") -- # cut 3 # gain (0.7 * (range 0.8 1.25 (fast 2 perlin))) # pan 0.3 d6 $ gF1 $ gM1 $ "hh(3,8) hh(<3!6 5 <5 [5 8]>>,8)" # "rampleS57:1" # "<hh:2 [hh:2 hh:3*<1!3 4>]>" # cut 6 # gain 0.9 # cut 3 d4 $ gM3 $ gF2 -- Major Ambient Bassline au rapport $ midiOn "^89" (ply "<8!8 [16 <8 16>]!8> <8 16>") $ midiOn "^57" (juxBy 0.2 ( ("h" ~>) . swing 2 -- . rarely (off "e" id) . arp "<up!2 <updown!2 downup updown> up>" . (|+ note "[0,12]") . (# cut 4) . (|+ pan 0.5) . (# "FMRhodes1") )) $ superimpose ( -- Little Angels (0.5 ~>) . (|+ note "[7,-12]") . (|* gain 0.8) . (# rel 2)) $ note ("<b3 d3 e3 g3>/2") # "bassWarsaw" # crushbus 41 (range 16 3.5 "^53") # squizbus 42 (range 0 1.5 "^33") # octerbus 43 (range 0 1 "^17") # octersubbus 44 (range 0 1 "^17") # att 0.25 # rel 4 # pan 0.2 # room 0 d5 $ gF3 $ gM3 -- Guitare contetemps FIXME Pas convaincante $ n "~ <0 0 4 [3(3,8),4([1 3],8,2)] 8 8 10 [14 4 14(3,8)]>" # crushbus 51 (range 16 5 "^54") # room 0.4 # att 0.4 # rel 0.252 # legato 0.4 # "nujazz_guitar" d9 $ gF3 $ gM3 $ "wind:0" -- Vent de minuit originel # speed (slow 16 $ range 0.12 0.34 perlin) # roombus 91 (fast 4 $ range 0 0.4 sine) d7 $ gM1 $ gF1 $ loopAt 2 -- Break de secours $ midiOn "^91" (ply 8) $ whenmod 4 2 (ply "1 <1 2>" . rev) $ slice 4 (run 4) $ "jungle_breaks:48" # gain 0.8 d8 $ gM1 $ gF1 -- Break horloger $ midiOn "^92" (ply "2!3 <2 4>") $ someCyclesBy (1-"^36") (mask "t(<3 3 5 [3 8]>,8)") $ midiOff "^60" (mask "t(<1 <0!3 1>>,4)") $ chop 8 $ "jungle_breaks:2" # cut 8 # speed (range 0.125 4 "^56") d10 -- Choir of moog major voices $ ply "<1!8 2!8 4!16>" $ arp "pinkydown" $ "moogBass" # note "<b3'maj'2 d3'maj'2 e3'maj'2 g3'maj'2>/2" # cut 5 # room 0.2 # gain 0.6 # pan (slow 32 $ range 0.9 0.1 saw) d11 -- CBOW friendo $ whenmod 32 0 ( -- Triste souvenir du soleil (|- note 12) . sometimesBy "0 1!3" rev) -- $ ply "<1!8 2!8 4!16>" $ rolledBy "<1.33!3 1.4>" $ "cbow:3" # note ("<b'maj'8 d'maj'8 e'maj'8 g3'maj'16>/2" - 12) # cut 5 # room 0.2 # gain 0.6 # pan (slow 32 $ range 0.9 0.1 saw)