-- Cloudy afternoon: Piano dans l'espace
-- Tags: spacial, attente, echos


setcps 1

d1 -- Kick techno rotatif régulo-varié
$ someCycles (degradeBy 0.2)
$ whenmod 32 24 (# silence) -- stop periodique
$ every' 4 3 ( -- 4eme temps, decalage plus echo
  someCyclesBy 0.25 ((0.25 ~>) . (stut 2 0.5 0.25))
)
$ s "kick:11"
# pan (slow 16 $ range 0.4 0.6 sine)
# gain 0.8

d2 -- hh la résistance danse
$ s "~ b . b . b ~ . b"
# s "bshihat" # n "[0|1]"
# gain (slow 64 $ sine * 0.7 + 0.6)
# room (slow 64 $ 0.205 - sine * 0.2) # size 0.8
# gain (slow 16 $ sine * 0.5 + 0.4)
# dry 0

d3 -- cloches basses
$ whenmod 8 4 (someCyclesBy 0.8 (|- note 3))
$ someCycles (superimpose (hurry 0.5))
$ n "<0 [0|1]>"
# s "bsperc"
# gain 0.65


d5 -- piano spatial
$ whenmod 24 22 (|+ note 7)
$ whenmod 24 19 (|- note 5)
$ whenmod 24 16 (|- note 2)
$ off 0.25 (|+ note 5)
$ superimpose (|- note 12)
$ s "bsperc:2(3,8)"
# note (scale "major" ("<5 [5|5|5|3] [3|3|5|5] 5>") - 24)
# lpf (slow 8 $ sine * 800 + 200)
# room 0.2 # size (slow 8 $ sine * 0.2 + 0.5)
# gain 0.6

d6 -- Carillons
$ someCycles (0.5 ~>)
$ s "hh?(<4 4 4 2>,4) ~" # n "8 8 8 <8 8 8 9> 3"
# gain (slow 16 $ sine * 0.5 + 0.4)


d7 -- Vocals
$ whenmod 32 16 (# gain 0.8)
$ s "[~ bsvocals]/4"
# n "<2? 2? <3 3 3 [3|12]>? 2>"
# gain 0