once $ "igor:00" # cut 1 -- _pas_gravat.wav
once $ "igor:01" # cut 1 -- _clepsydre_18.wav
once $ "igor:02" # cut 1 -- _clepsydre_1.wav
once $ "igor:03" # cut 1 -- _hauberge_hongick_seoul.wav
once $ "igor:04" # cut 1 -- _tambour.wav
once $ "igor:05" # cut 1 -- _within.wav
once $ "igor:06" # cut 1 -- _digital_week.wav
once $ "igor:07" # cut 1 -- _abattoirs_mousse.wav
once $ "igor:08" # cut 1 -- _toiture_oural.wav
once $ "igor:09" # cut 1 -- _marche_mangrove.wav
once $ "igor:10" # cut 1 -- _benin_poules.wav
once $ "igor:11" # cut 1 -- _les_oiseaux_vertou_2.wav
once $ "igor:12" # cut 1 -- _mollusques_sharjah_1.wav
once $ "igor:13" # cut 1 -- _corbeaux_mangrove.wav
once $ "igor:14" # cut 1 -- _ourobouros.wav
once $ "igor:15" # cut 1 -- _enseigne.wav


-- Bonjour :)

-- Je teste de nouveaux SAMPLES

-- Merci à Igor Porte ;)

-- Glitchy <3

-- À BIENTÔT ;)

do
let gDJF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gLPQ =  (# lpqbus 2 (range 0.0  0.5 "^29"))
let gHPQ =  (# lpqbus 3 (range 0.0  0.5 "^30"))
let g = gDJF . gLPQ . gHPQ
setcps 0.5
d1 $ g
  $ midiOn "^41"  (<| "k*4")
  $ midiOff "^41" (<| "k*<1!4 2 1 2 2> ~ . k*<2!2 1 <1 2>> ~")
  $ "jazz"
  # midiG' "^78" 0 1.4
d2 $ g
  $ midiOn "^43" (slow 2)
  -- $ fix
  $ "~ s ~ s"
  # "[snare:35,cp]"
  # midiG' "^79" 0 1.6
d7
  $ someCyclesBy "<0!3 0.2>" (mask "t(16,32)" .fast "1 2")
  $ someCyclesBy 0.2 (mask "t(4,8)")
  $ "hh(12,16)"
  # midiG' "^79" 0 1.2
d3 $ g
  $ loopAt 4
  $ slice 8 (
    "0 1 0 <2 3> 0*<2!3 4> <1 [~ 1]> 2 <7!3 3>")
  $ "break"
  # midiG' "^80" 0 1.5
d5 $ g -- bassline!
  $ slow 4
  $ note ("<e df>" +
  stack [
  "0 . 0(<1 3 5 8>,8)" |+| (
    arp (slow 8 "<up updown thumbup pinkyup>")
    "c . <c'min'4 c'min'4*2>"), -- High fly
  "-12" -- Low slow
  - 12 -- Baseline
  ]
  )
  # room 0.2 # sz 0.5 # dry 1
  # "bassWarsaw"
  # crushbus 51 (range 10 1.25 "^53")
  # midiG' "^81" 0 1.5
d4 $ g -- Digital week
  $ note "e4" # "igor:6" # cut 4
  # midiG' "^82" 0 1.8
  # pan (slow 32 $ range 0.1 0.5 perlin)
  # midiG' "^83" 0 1.8
d6 $ g -- STATIC
  $ slice 16 "<0 1 0 0> 1*<2 1 0 1> 2? 4(<1 <3 5>>,8)"
  $ "igor:15"
  # midiG' "^83" 0 1.8
  # pan (slow 32 $ range 0.1 0.9 saw)
  # cut 6
d8 $ g -- Ourobouros
  $ sometimesBy (1 - "^36") (segment "8 16")
  $ g
  $ superimpose (
    (|+ note "<7 12 <7 -7> <0 -8>>") . (# cut 81)
    )
  $ midiOn "^60" (slow 2)
  $ someCyclesBy (slow 8 saw) (slow 2)
  $ slow "<4 8 16 32>"
  $ chop 4
  $ "igor:14"
  # midiG' "^84" 0 1
  # begin "0.25"
  # cut 8
  # crushbus 81 (range 14 2 "^56")
  # room 0.4