session clinique

parent 7f9e0596
...@@ -24,7 +24,7 @@ $ n (off 0.125 (+|12) $ off (choose [0.125,0.25]) (|+7) "6*2 <<2 9> 4>") ...@@ -24,7 +24,7 @@ $ n (off 0.125 (+|12) $ off (choose [0.125,0.25]) (|+7) "6*2 <<2 9> 4>")
d6 $ degradeBy (rand / 4) $ s "numbers" # n (irand 2) # rev 0.85 # shape 0.7 d6 $ degradeBy (rand / 4) $ s "numbers" # n (irand 2) # rev 0.85 # shape 0.7
# gain 0.5 # gain 0.5
-- Hardcore noisekick -- Hardcore noise kick
d7 $ fast 4 $ s "<bd if if if*2>" # gain (choose [0.3,0.6]) d7 $ fast 4 $ s "<bd if if if*2>" # gain (choose [0.3,0.6])
hush hush
-- Copter
d4
-- $ every 4 (# gain 1)
$ fast 4
$ hurry 0.2
$ s "[bass3:9*8]"
# attack 1
# release 1
# note 0
-- # gain 0
...@@ -27,7 +27,7 @@ ...@@ -27,7 +27,7 @@
--- 808ht Milieu Tuyau (tac) --- 808ht Milieu Tuyau (tac)
--- 808ht Haut Tuyau (tac) --- 808ht Haut Tuyau (tac)
--- 808oh Cymbale bruitée --- 808oh Cymbale bruitée
---- 0: sec -- 0: sec
---- 1: 1sec ---- 1: 1sec
---- 1: 0.5sec, sourdiné ---- 1: 0.5sec, sourdiné
---- 2-4: aigu-grave ---- 2-4: aigu-grave
...@@ -39,8 +39,23 @@ ...@@ -39,8 +39,23 @@
-- bass Basse métallique -- bass Basse métallique
--- 0:4 notes harmoniques --- 0:4 notes harmoniques
-- bass3 Guitare basse
-- 0 grave, ronde
-- 1 moins grave, plus pincéee
-- 2 comme 1 mais plus claire, moins bruitée
-- 3 plus sèche
-- 4 plus d'écho
-- 5 grave, métallique
-- 6 grave métallique sèche
-- 7 grave, limite wob wob
-- 8 aigue, métallique
-- 9 Wob wob
-- 10 Wob wob chanté
-- bassdm Drum bas et roulant -- bassdm Drum bas et roulant
-- blip: 8bit notes
-- ade Vibration genre post-gong -- ade Vibration genre post-gong
-- co Cymbale couverte -- co Cymbale couverte
...@@ -61,7 +76,7 @@ ...@@ -61,7 +76,7 @@
--- 8 tata sourd --- 8 tata sourd
--- 9 tak tak bois --- 9 tak tak bois
-- ulgab: 1 sale, 2 rebond, 3 crash, 4 crash joyeux, 5 idem rebond -- ulgab: 0 sale, 1 rebond, 2 crash, 3 crash joyeux, 4 idem rebond
-- rave -- rave
--- 0 are you ready --- 0 are you ready
...@@ -136,6 +151,8 @@ d1 $ s "~ sn:1 ~ sn:1" ...@@ -136,6 +151,8 @@ d1 $ s "~ sn:1 ~ sn:1"
d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]" d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"
solo 9
d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8") d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8")
# s "supermandolin" # s "supermandolin"
# gain 0.85 # gain 0.85
...@@ -222,11 +239,6 @@ d2 (sound "arpy:1") ...@@ -222,11 +239,6 @@ d2 (sound "arpy:1")
solo 1 solo 1
d1 $ sound "<[bd*4 sn] bd>" d1 $ sound "<[bd*4 sn] bd>"
hush hush
d2 $ d2 $
......
...@@ -2,23 +2,47 @@ setcps 1 ...@@ -2,23 +2,47 @@ setcps 1
hush hush
once
$ slow 1.2
$ hurry 1.2
$ s "superhammond" # release 1.7
d1 d1
$ every 1 (# gain 4) $ every 4 (fast 2)
$ every 1 (off 0.25 (|+ 1)) $ s "[lt,hardkick]*2"
$ every 1 (off 0.375 (|+ 1)) # gain 0.8
$ every 2 (off 0.125 (|+ 1))
$ s "ulgab"
d2 d2 -- impro au blip
$ every 3 (off 0.125 (|+ 0)) $ whenmod 16 4 (# gain 1)
$ every' 4 2 (off 0.25 (|+ 0)) $ whenmod 16 0 (# gain 0)
$ s "bd" $ degrade
$ off (1/8) (|+ 7)
-- $ off (1/8) (|+ 5)
-- $ always (off (1/4) (degradeBy 0.8)) -- accompagnement intense
-- $ rarely (off 0.5) -- accompagnement intense
$ every 4 (rev)
$ s "blip*8"
# note (choose [0, 2, 4, 5, 7, 9, 11, 12])
d3 d3 -- cor de chasse numérique
$ whenmod 16 10 (# gain 0)
$ every 4 (off 0.25 rev)
$ slow 2 $ slow 2
$ every "<2,4>" (off 0.125 (|+ 7)) $ every "<2,4>" (off 0.125 (|+ 7))
$ every 2 (off 0.125 (|+ 7)) $ every 2 (off 0.125 (|+ 7))
$ s "superhammond" $ s "superhammond"
# gain 0.6
d4 -- ulgab!
$ sometimes (# gain 0)
$ every 8 rev
$ every' 4 3 (fast 4)
-- $ fast "<1 1 1 2>"
$ s "ulgab"
# n "<0 2 4 1>"
d1 $ n "0 2 4 5 7 9 11 12" -- gamme pentatonique
d1 $ n "0 2 3 4 5 6 7 9 10 11 12" -- gamme du blues
d4 d4
$ s "[bd]*3 <cp,sn>/2" $ s "[bd]*3 <cp,sn>/2"
......
-- Briquets: essayons d'ALLUMER LE FEU -- Briquets: essayons d'ALLUMER LE FEU
once once $ s "[lighter:6/2,pebbles]" # release 0.2 # speed 2 # attack 0.3
setcps 1
solo 8
d1 -- briquet d1 -- briquet
$ whenmod 64 57 ( -- silence $ whenmod 64 57 ( -- silence
...@@ -8,47 +13,60 @@ $ whenmod 64 57 ( -- silence ...@@ -8,47 +13,60 @@ $ whenmod 64 57 ( -- silence
$ whenmod 64 56 ( -- souffle final $ whenmod 64 56 ( -- souffle final
const $ n "2*4 1" # s "wind" # release 2 const $ n "2*4 1" # s "wind" # release 2
) )
$ whenmod 64 33 ( -- le feu! $ whenmod 64 32 ( -- le feu!
const $ s "[fire, <sn dr> [hh hh ~ hh]]" const $ s "[fire,fire?]"
# release 3
# pan rand
# gain (choose [0.8, 0.6])
) )
$ whenmod 64 32 ( -- etincelle $ whenmod 64 31 ( -- étincelle
const $ hurry 2 $ s "[lighter:6(3,4),pebbles]" # release 2 const $ s "[lighter:6/2,pebbles]" # release 0.2 # speed 2 # attack 0.3
) )
$ sometimesBy 0.1 (const $ s "wind:1?,wind?") -- TODO souvent du vent $ sometimesBy 0.4 (const $ s "wind:1?,wind?" # speed 0.5 # gain 0.6) -- parfois du vent
$ sometimesBy 0.4 (off 0.25 (|+ 0)) -- retente $ sometimes (off 0.5 (|+ 0)) -- retente
$ sometimesBy 0.1 (off 0.375 (|+ 0)) -- retente $ sometimes (off 0.25 (|+ 0)) -- retente
$ sometimesBy 0.05 (off 0.125 (|> 3)) -- derape $ almostNever (off 0.375 (|+ 0)) -- retente lentement
$ rarely (|> 6) -- grosse etincelle $ almostNever (off 0.125 (|> 3)) -- dérape
$ sometimesBy 0.3 (|> 6) -- grosse étincelle
$ euclid "<1 0 0 0 1 1 0 0 1 1 1 0 1 1 1 1 1 2 1 2 4 2 4 6 7 6 7 8 7 6 8 8>" 8 $ euclid "<1 0 0 0 1 1 0 0 1 1 1 0 1 1 1 1 1 2 1 2 4 2 4 6 7 6 7 8 7 6 8 8>" 8
$ s "lighter" $ s "lighter"
# n (choose [0,1]) # n (choose [0,1])
# pan 0.3
d3 -- tambours du progrès
$ whenmod 64 56 (# gain 0.4)
$ whenmod 64 48 (# s "hh")
$ whenmod 64 48 (# n 0)
$ whenmod 64 33 (off 0.25 (|+ 0))
$ whenmod 64 33 (# n 2)
$ whenmod 64 33 (# gain 0.5)
$ whenmod 64 16 (# n 1)
$ whenmod 64 5 (# gain 0.4)
$ s "dr(<1 3>,4)" # n 0
# gain 0
# pan 0.8
d2 -- guitare du feu! d2 -- guitare du feu!
$ degrade
$ whenmod 64 56 ( const $ s "~" ) -- silence $ whenmod 64 56 ( const $ s "~" ) -- silence
$ whenmod 64 38 (# gain 0.8) $ whenmod 64 38 (# gain 0.4)
$ whenmod 64 35 (# gain 0.9) $ whenmod 64 35 (# gain 0.5)
$ whenmod 64 34 (# gain 0.7) $ whenmod 64 34 (# gain 0.6)
$ whenmod 64 33 (# gain 0.6) $ whenmod 64 33 (# gain 0.5)
$ whenmod 64 32 (# gain 0.5) $ whenmod 64 32 (# gain 0.4)
$ whenmod 64 33 (const -- victoire! $ whenmod 64 33 (const -- victoire!
$ fast 2 $ fast 2
$ note "<[0 <2 4>] 0>/4" $ note "<[0 <2 4>] 0>/4"
# s "sitar:1" # s "sitar:1"
# legato 2 # legato 2
) )
$ s "~" $ s "~"
once $ s "sitar:1"
solo 2
-- DEV: guides -- DEV: guides
d2 $ every 64 (# gain 1) d8 $ every 64 (# gain 1)
$ s "cp" $ s "cp"
# gain 0 # gain 0
d3 $ n "<0 1 2 3 4 5 6 7 8 9 [1, 0] [1, 1] [1, 2] [1, 3] [1, 4] [1, 5]>" d9 $ n "<0 1 2 3 4 5 6 7 8 9 [1, 0] [1, 1] [1, 2] [1, 3] [1, 4] [1, 5]>"
# s "numbers" # s "numbers"
# gain 0.7 # gain 0.7
# pan 0 # pan 0
-- Chill hop beat? -- Chill hop beat?
setcps 0.5
d3 $ chop 1 $ s "lighter:1" once $ s "birds:1"
d1 $ s "<dr dr*2> <hh hh hh ~>" d3
$ whenmod 16 12 (# gain 0.8)
$ whenmod 16 8 (# gain 0.6)
$ chop 4 $ s "lighter:1*4"
# pan (0.25 + sine / 2)
d1
$ often (off 0.25 (|+0))
$ rarely (off 0.125 (|+0))
$ sometimes rev
$ s "<dr dr*2> <hh:0 <hh:0 ~>>"
d2
-- $ every 2 ()
-- $ every' 2 1 (# gain 0)
$ every 2 (off 0.125 (|+ 0))
-- $ degrade
-- $ euclid "<1 3>" 8
$ s "bass3"
# note (choose [0,1,2])
# gain 0.8
d2
-- $ whenmod 8 7 (# gain 0)
-- $ whenmod 8 6 rev
-- $ whenmod 8 4 (off 0 (rev))
-- $ always (off 0.125 (# up 4)) -- complementaire ?tierce?
$ always (
off 0.125 (# up 1)
) -- notes graves à mi mesure
$ always (off 0.25 (# up (-7)))
-- $ s "bass3(<1 3>,4)" # note "1 3 6 1"
$ s "[bass3*2 ~] . [bass3*2] . ~"
# note "0"
# gain 0.7
d1
$ rarely (# n 2) -- parfois cuivre
$ every 8 (# s "hh:0")
$ every 2 (off 0.125 (|+ 0))
$ every 4 (off 0.5 (|+ 0))
$ euclid 1 2
$ s "dr" # n 0
-- sometimes dr:4 funky orchestra hit
d2
$ euclid "<2 <1 4>>" 4
$ s "808bd"
# n 2
d5 d5
$ slow 2 $ slow 2
$ n "<0 3>/8" $ every 4 (# gain 0.8)
$ n "<0 3>"
# s "toys" # s "toys"
# gain 0.8 # gain 0
setcps 0.5
d1 -- rythme
$ fast 4
$ whenmod 16 14 (const $ s "clubkick*2")
$ whenmod 16 12 (const $ s "[clubkick,sn hh]")
$ s "clubkick"
# n "<0 0 0 4>"
d2 -- basse au feeling
$ whenmod 8 7 (off 0.5 (|+ 0))
$ whenmod 8 6 (# gain 0.8)
$ whenmod 8 4 (rev)
$ often (off 0.125 (|+ 0))
$ rarely (off 0.25 (# note 0))
$ s "bass3(<1 <3 5>>,8)"
# note "0 <12 5> 7"
# n "0"
d3 -- melodie d'urgence
$ whenmod 32 8 (# gain 0)
$ whenmod 4 3 (off 0.125 (# note "0 7 5 3")) -- majeure
$ off 0.125 (# note "0 3 5 7") -- mineure
$ every 4 (jux rev)
$ chop 4 $ s "padlong"
# cut 1
# release 2
# gain 0.8
d4
$ whenmod 32 8 (# gain 1)
$ every 4 (rev)
$ fast 2
$ s "[bass3:9*8]"
# cut 2
# attack 1
# release 1
# note "<0 <7 10>>/2"
# gain 0
-- # note "0 4 7 <<[9,10] 10> <9 12>>"
...@@ -2,30 +2,68 @@ hush ...@@ -2,30 +2,68 @@ hush
setcps 0.5 setcps 0.5
d1 d1 -- vents du haut
-- $ every 8 (rev)
$ chunk 4 (rev) $ chunk 4 (rev)
$ rarely (rev)
$ every 16 (# crush 6) $ every 16 (# crush 6)
$ s "wind*16" # note (run 8) $ s "wind*16" # note (run 8)
# legato 2 # legato 2
# gain 0.5 # gain 0.5
d2 d2 -- le rythme
$ every' 32 31 (# gain 0.6)
$ every' 32 30 (# gain 0)
$ every' 32 16 (fast 2)
$ every 2 (off 0.125 (# gain 0.5))
$ euclid "<4 3>" 4 $ euclid "<4 3>" 4
$ s "house" $ s "house"
# gain 0.9
d3 -- l'esprit
$ whenmod 16 8 (rev)
$ whenmod 64 8 (
often (off 0 (|+7)) -- octave
)
$ whenmod 64 16 (
often (off 0 (|+ chooseBy "0.8 0.2" [10,12])) -- + oct && tierce ou quinte
)
$ whenmod 64 32 (
sometimes (off 0.125 (|+ chooseBy "0.8 0.2" [10,12])) -- + oct && t || q
)
$ off 0 (# note "0 3 0")
$ off 0.125 (|- 0)
$ s "superpiano(<<1 5> 3>,8)"
# velocity (0.2 + (tri / 4))
# sustain 2
# note (choose [0,3,7])
d4 $ s "dr*4" d4 -- drums du mouvement
$ sometimes (# n (choose [1,5,7])) -- 1,2,5,7
$ often (jux rev)
$ rarely (off 0.5 (|+0))
$ sometimes (off 0.25 (|+0))
$ s "<[dr*3 ~] {dr dr dr dr dr ~ ~ ~}>"
# gain 0.9
d5
$ every 8 (# gain 1) d5 -- bourrasque
$ every 16 (jux rev) -- echo
$ every 8 (# gain 0.9)
$ s "space:3" $ s "space:3"
# speed 0.25 # speed 0.25
# gain 0.8 # gain 0.7
d6 unsolo 6
$ every' 2 1 (off 0 (# s "ht")) unsolo 5
$ every 4 (fast 2) unsolo
$ s "birds:5*2"
# note (-10) d6 -- TODO: Plus d'harmonie
# gain 0.6 $ whenmod 8 6 (# gain 0.8)
$ sometimes (hurry 2)
$ every 2 rev
$ s "superhammond*8"
# n "0 3 7"
# gain 0.5
# pan 0.8
solo 6
hush hush
setcps 0.5
d8 $ euclid "<2 4 8 0>" 4
$ s "kicklinn"
d1 d1
$ every 8 (rev) $ every 8 (rev)
$ every 4 (off 0.125 (|+0)) $ every 4 (off 0.125 (|+0))
...@@ -22,6 +27,7 @@ $ chunk 4 (# crush 2) ...@@ -22,6 +27,7 @@ $ chunk 4 (# crush 2)
$ every 4 (off 0 (|> 5)) $ every 4 (off 0 (|> 5))
$ every 4 (off 0.125 (|+ 0)) $ every 4 (off 0.125 (|+ 0))
$ s "glitch2:2(<3 5 7>,8)" $ s "glitch2:2(<3 5 7>,8)"
# gain 0.8
d4 d4
$ degradeBy 0.2 $ degradeBy 0.2
...@@ -55,6 +61,7 @@ $ every 8 (rev) ...@@ -55,6 +61,7 @@ $ every 8 (rev)
$ every' 8 7 (# gain 0) $ every' 8 7 (# gain 0)
$ s "bass3(<3 5 3 1>,8)" $ s "bass3(<3 5 3 1>,8)"
# up "<3 10 3>" # up "<3 10 3>"
# gain 0.8
d7 d7
$ degrade $ degrade
......
setcps 1
d1 $ s "bd:14([3,5],8)"
# gain 0.8
d2
$ every 16 (# s "cp")
$ every 8 (# n "2")
$ every 2 (# n "1")
$ n "0(<2 6 4 16>, 8)"
# s "dr"
d3
$ whenmod 32 30 (# gain 0)
$ whenmod 32 16 (off 0.5 (jux rev))
$ whenmod 16 8 rev
$ off 0.125 (|> 0)
$ sometimes (off 0.25 (|> 3))
$ s "superfork"
# n (choose [0,7])
# gain 0.8
d4
$ off 0 (# note 7)
$ s "numbers"
# speed (0.5 + perlin / 2) -- random speed
# note "<0 3 7>"
# n (irand 2)
# coarse 2
# gain 0.6
d6
$ rarely (off 0.75 (# note 3)) -- majeure seconde
$ rarely (off 0.5 (# note 2)) -- mineure
$ whenmod 32 28 (# gain 0.6)
$ whenmod 16 10 (rev)
$ whenmod 8 6 (fast 2)
$ often (
off 0.5 (off 0.25 (|+ 4))
)
$ off 0 (|+ 2)
$ s "blip(<2 <0 8>>,8)"
# note "0 3 7"
# gain 0.8
d5
$ sometimes (# crush 6)
$ almostNever (# gain 0.8)
$ s "rave(<2 4>, 4)"
# n 7
# gain 0
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment