-- Acte 3: BIRDS

prog = "<0 0 0 0 2 2 4 4>"

d3 $ superimpose ((|-| n 24) . (# gain 0.0)) $ degradeBy 0 $ n (scale "aeolian" (iter 6 $ "[-2 2 7 11 14 7 0 14]*2" + prog - "0 -7 0 -7 0 0 -7")) # s "supersaw" # legato 1 # gain 0.65 # orbit 1 # lpf (slow 6 $ range 500 1200 sine) # lpq (slow 8 $ range 0 0.1 sine) # voice 0.1 # silence

d4 $ n (scale "aeolian" ("[-7,-2,4,7,9,11,13]*4" + prog)) # s "superhammond" # attack 1 # gain 0.65 # lpf (slow 32 $ range 300 2500 sine) # lpq (slow 8 $ range 0 0.15 sine) # silence

d4 $ whenmod 8 6 (degradeBy 0.75) $ inside 2 (sometimesBy 0.1 (ply 2)) $ iter 4 $ n ("0 0 2 ~ [5 4] 2 <3 5> [1 [2 2]]" + "<5 5 5 8 2 3>") # s "<dr dr dr jazz>"

d5 $ s "insect*4" # n (irand 6) # speed (range 0.25 4 rand)

d6 $ s "birds" # n (irand 6) # speed (range 0.5 2 rand)

-- EHOUE

d6 $ sometimesBy "0 0.75" (stut 4 0.9 (1/16)) $ sometimesBy "0 0 0.5 0" (0.125 ~>) $ s "k k k? k?" # s "kick:5" # gain 0.9

-- moineau scratch
d7 $ degradeBy "<0 .. 0.5 0.5 .. 0.2 0.2 .. 0.6 0.6 .. 0>" $ n "0*16" # s "birds3" # n (choose [0,0,2]) # pan (slow 8 $ sine)

-- pivert!
d8 $ someCycles (# silence) $ often (stut 5 0.9 0.05) $ s "birds3:6(<1 1 3 1> ,8)"

d10 $ whenmod 4 2 (juxBy 0.3 rev) $ rarely (slow 2) $ whenmod 4 2 degrade $ sometimesBy (slow 8 $ "<0.2 0.5 0.9>") (off (1/16) id) $ s "dr*8" # s "drum:8"

-- vents du haut!
d12 $ chunk 16 (rev) $ rarely (rev) $ every 4 (# crush 6) $ s "wind*16" # note (run 8) # legato 2 # gain 0.7 # silence

-- bourrasque
d11 $ every 16 (jux rev) $ every 8 (# gain 0.9) $ s "space:3" # speed 0.25 # silence
-- AYWAY !



-- EEEEEEEEEEEEEEEEEEEWEEEEEEEEEEEEEEEEEEEEEEEEE !E

-- final
prog = "<0 0 0 0 2 2 4 -2>"

d1 $ superimpose ((|-| n 12) . (# gain 0.0)) $ n (scale "aeolian" (iter 6 $ "[-2 2 7 11 14 7 0 14]*2" + prog - "0 -7 0 -7 0 0 -7")) # s "supersaw" # legato 1 # gain 0.8 # orbit 1 # lpf (slow 6 $ range 500 1200 sine) # lpq (slow 8 $ range 0 0.1 sine) # voice 0.1 # silence

d4 $ n (scale "aeolian" ("[-7,-2,4,7,9,11,13]*4" + prog)) # s "superhammond" # attack 1 # gain 0.65 # lpf (slow 32 $ range 300 2500 sine) # lpq (slow 8 $ range 0 0.15 sine) # silence

d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.5 # orbit 0

-- BON CETAIT GRAVE COOL MAIS JE VAIS MARRETER ET JOUER A BLACK MESAAVEC SONIA !!!
-- ON SE REFAIT CA DEMAIN ? ;)

hush
M

-
  -
d3 $ stack [s "d(1,8)" # s "drum:6", s "cp(2,4,1)"]

d4 $ whenmod 8 6 (degradeBy 0.75) $ inside 2 (sometimesBy 0.1 (ply 2)) $ iter 4 $ n ("[0 0 2 ~ [5 4] 2 <3 5> [1 [2 2]]]" + "<5 5 5 8 2 3>") # s "<dr dr dr jazz>" # silence

d5 $ s "insect*4" # n (irand 6) # speed (range 0.125 2 rand) # crush 4 # gain 1 # silence


hush
d6 $ s "birds" # n (irand 6) # speed (range 0.01 0.1 rand)
hush

-- Yes ce fut un plaisir :)

-- Black mesa? Have fun!
-- Moi je rejoins ma conv locale/distante avec amis :)

-- Avec GRAND PLAISIR MAMOI!
-- MOi le dimanche c'est reggae/dub
-- En mode gros kick reverb, piano fou, et joyeusetes
-- Si ça te dit :P

-- Bonne soirée les mamp

-- EHOUE

d6 $ sometimesBy "0 0.75" (stut 4 0.9 (1/16)) $ sometimesBy "0 0 0.5 0" (0.125 ~>) $ s "k k k? k?" # s "kick:5" # gain 0.9

-- moineau scratch
d7 $ n "0*16" # s "birds3" # n (choose [0,0,2]) # pan (slow 8 $ sine / 2)

-- pivert!
d8 $ someCycles (# silence) $ often (stut 5 0.9 0.05) $ s "birds3:6(<1 3 5 3>,8)"

d10 $ whenmod 4 2 (juxBy 0.3 rev) $ rarely (slow 2) $ whenmod 4 2 degrade $ sometimesBy (slow 8 $ "<0.2 0.5 0.9>") (off (1/16) id) $ s "dr*8" # s "drum:8"

-- vents du haut!
d12 $ someCycles (# s "dr:2") $ someCycles (# s "dr:1") $ s "<hh*4 hh*4 hh*4 [hh*4 ~]>" # s "hh" # release 0.5


-- bourrasque
d11 $ every 16 (jux rev) $ every 8 (# gain 0.9) $ s "space:3" # speed 0.25 # silence
-- AYWAY !



-- EEEEEEEEEEEEEEEEEEEWEEEEEEEEEEEEEEEEEEEEEEEEE !E