-- Hello world <3

-- This is ParVagues 

-- Wait, should start silent!
-- This was just a soundcheck :P
-- T - 20 :rocket:

do 
setcps (120/60/4)
-- TODO: Suggestion gM1/2/3 filtres partiels
-- let gM3 = 
d1 $ gF1 $ gM1 
  $ midiOn "^42" (struct "t t t t")
  $ midiOff "^42" (struct "t . t(3,8)")
  $ "jazz"
  # gain 1.5
d2 $ gF1 $ gM2 
  $ "~ sn ~ sn" # "snare:30"
  # gain 1.4
d3 $ gF1 $ gM2 
  -- $ degradeBy "0.2 0.8"
  $ "hh([12 16],16)" # "h2ogmhh:3"
  # gain 1.8
d4 $ gF2 $ gM3 
  $ note (scale "dorian" ("0 0 4 <2 1 2 7>") + "fs2") # "bassWarsaw" 
  # cut 4 
  # gain 1.3
  # crushbus 41 (range 16 2.5 "^53")
  # octerbus 42 (range 0 2.5 "^53")
d5 $ gF3 $ gM3 
  -- $ degradeBy 0.4
  $ slice 8 "<0 1 2 3 4 5 6 7>" 
  $ "gfunk_lead:5" 
  # cut 5 
  # gain 1.7
  # octersubbus 51 (range 0 2.5 "^54")
d8 $ gF1 $ gM2
  $ midiOff "^60" (mask "t(4,8,1)" . chop 8) -- TECHNO MASK !!
  $ chop 8
  $ loopAt 2 
  $ midiOn "^36" (# n 74) -- Savoie <3
  $ midiOn "^56" (# n 19)
  $ "jungle_breaks:45" 
  # cut 8 -- 45 orleans rpz <3
  # hpf 200
  # gain 1.6
d9 $ gF3 $ gM3 
  $ fix ((# begin 0.15)) (n 0)
  $ fix ((# end 0.7)) (n 1)
  $ mask "<t!3 f>"
  $ "love" 
  # n (slow 4 "<0 1 2 4>")
  # cut 9
  # room 0.3 # sz 0.4 # dry 1.3
