once $ "jazz"

once $ "h2ogmsn"

once $ "ircam:1"
  # gain 0.85
  # cut 3

once $ "cyberspace:3"
  # gain 0.85
  # cut 3


do
-- resetCycles
setcps (120/60/4)
let gPontFiltre = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.1 0.5 saw)))
let g = gPontFiltre
let fadeIn = someCyclesBy "<1!4 0!60>" (|* gain (slow 4 $ range 0.4 1 saw))
d1
  $ g
  $ mask "<f!7 [f t] t!24>" -- Intro /32
  $ mask "<t!32 f!16 t!16>" -- Pont instrumental
  $ whenmod 16 4 (<| "k*4")
  $ "jazz"
  # gain 0.9
d2 $ g
  $ mask "<f!8 t!24>"
  $ "~ [cp,glitch:7]"
  # lpf 2000
d3 $ g
  $ mask "<t!32 t(8,16)!16 t!16>" -- Pont instrumental
  $ "hh*[8!3 16 <16 8 8 16>]"
  # gain (slow 16 $ range 0.55 0.8 saw)
  # pan (slow 4 $ range 0.8 0.2 isaw)
d4
  $ g
  $ whenmod 64 32 (superimpose (
    struct "t(<8 <8 [5 8]> 5 0>,8)" .
    (+| note (arp "up" "[0, 7, 12]"))
  ))
  $ s "superpiano"
  # note "<-20 [-19,-15] [-20,-16] ~>"
  # velocity "<0.7 0.5 0.6>"
  # sustain 3
  # pan 0.8
  # gain 0.8
d6 -- BASSLINE
  $ g
  $ fadeIn
  $ whenmod 32 4 (superimpose (
    (# crush 10)
    . (# cut 61)
    . (+| note (arp "up" "[<0 0 3 0> 12 0 12]*2"))
    . (|+ pan 0.15)
    ))
  $ s "bassWarsaw"
  # note "<-20 <-19 -15> <-16!3 -20> ~>"
  # crush 5
  # room 0.4
  # cut 6
  # sz 0.7
  # pan 0.7
  # gain 0.8
d5 -- CYBERDECLARATI0N
  $ fadeIn
  $ someCyclesBy "<0!32 0!8 0!8 1!16>" (>| n "<5 <1 9> 5 9>") -- DO NOT THINK!
  $ someCyclesBy "<0!32 0!8 1!8 0!16>" (>| n "<10 <2 6>>") -- Not on behalf of the future!
  $ someCyclesBy "<0!32 1!8 0!24>" (>| n "10 10 10 <10 ~ 3 ~>") -- DO NOT THINK!
  $ someCyclesBy "<0!24 1!8>"     (>| n "<0 ~ 8 <~ 10>>") -- You giants do not know us
  $ someCyclesBy "<0!8 1!16 0!8>" (>| n "<10 <6 4>>") -- Do not think... you have no morat
  $ someCyclesBy "<1!8 0!24>"     (>| n "<5 1 5 <4 6>>") -- I declare.. you are not welcome!
  $ n "0" # "cyberspace"
  # cut 5
  # leslie (slow 16 $ range 0.2 0.8 saw)
  # lrate 6.8
  # lsize (slow 8 $ range 0 1.8 saw)
  # pan 0.2
  # gain 0.9