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>")
d6 $ degradeBy (rand / 4) $ s "numbers" # n (irand 2) # rev 0.85 # shape 0.7
# gain 0.5
-- Hardcore noisekick
-- Hardcore noise kick
d7 $ fast 4 $ s "<bd if if if*2>" # gain (choose [0.3,0.6])
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 @@
--- 808ht Milieu Tuyau (tac)
--- 808ht Haut Tuyau (tac)
--- 808oh Cymbale bruitée
---- 0: sec
-- 0: sec
---- 1: 1sec
---- 1: 0.5sec, sourdiné
---- 2-4: aigu-grave
......@@ -39,8 +39,23 @@
-- bass Basse métallique
--- 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
-- blip: 8bit notes
-- ade Vibration genre post-gong
-- co Cymbale couverte
......@@ -61,7 +76,7 @@
--- 8 tata sourd
--- 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
--- 0 are you ready
......@@ -136,6 +151,8 @@ d1 $ s "~ sn:1 ~ sn:1"
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")
# s "supermandolin"
# gain 0.85
......@@ -222,11 +239,6 @@ d2 (sound "arpy:1")
solo 1
d1 $ sound "<[bd*4 sn] bd>"
hush
d2 $
......
......@@ -2,23 +2,47 @@ setcps 1
hush
once
$ slow 1.2
$ hurry 1.2
$ s "superhammond" # release 1.7
d1
$ every 1 (# gain 4)
$ every 1 (off 0.25 (|+ 1))
$ every 1 (off 0.375 (|+ 1))
$ every 2 (off 0.125 (|+ 1))
$ s "ulgab"
$ every 4 (fast 2)
$ s "[lt,hardkick]*2"
# gain 0.8
d2
$ every 3 (off 0.125 (|+ 0))
$ every' 4 2 (off 0.25 (|+ 0))
$ s "bd"
d2 -- impro au blip
$ whenmod 16 4 (# gain 1)
$ whenmod 16 0 (# gain 0)
$ 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
$ every "<2,4>" (off 0.125 (|+ 7))
$ every 2 (off 0.125 (|+ 7))
$ 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
$ s "[bd]*3 <cp,sn>/2"
......
-- 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
$ whenmod 64 57 ( -- silence
......@@ -8,47 +13,60 @@ $ whenmod 64 57 ( -- silence
$ whenmod 64 56 ( -- souffle final
const $ n "2*4 1" # s "wind" # release 2
)
$ whenmod 64 33 ( -- le feu!
const $ s "[fire, <sn dr> [hh hh ~ hh]]"
$ whenmod 64 32 ( -- le feu!
const $ s "[fire,fire?]"
# release 3
# pan rand
# gain (choose [0.8, 0.6])
)
$ whenmod 64 32 ( -- etincelle
const $ hurry 2 $ s "[lighter:6(3,4),pebbles]" # release 2
$ whenmod 64 31 ( -- étincelle
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 (off 0.25 (|+ 0)) -- retente
$ sometimesBy 0.1 (off 0.375 (|+ 0)) -- retente
$ sometimesBy 0.05 (off 0.125 (|> 3)) -- derape
$ rarely (|> 6) -- grosse etincelle
$ sometimesBy 0.4 (const $ s "wind:1?,wind?" # speed 0.5 # gain 0.6) -- parfois du vent
$ sometimes (off 0.5 (|+ 0)) -- retente
$ sometimes (off 0.25 (|+ 0)) -- retente
$ almostNever (off 0.375 (|+ 0)) -- retente lentement
$ 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
$ s "lighter"
# 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!
$ degrade
$ whenmod 64 56 ( const $ s "~" ) -- silence
$ whenmod 64 38 (# gain 0.8)
$ whenmod 64 35 (# gain 0.9)
$ whenmod 64 34 (# gain 0.7)
$ whenmod 64 33 (# gain 0.6)
$ whenmod 64 32 (# gain 0.5)
$ whenmod 64 38 (# gain 0.4)
$ whenmod 64 35 (# gain 0.5)
$ whenmod 64 34 (# gain 0.6)
$ whenmod 64 33 (# gain 0.5)
$ whenmod 64 32 (# gain 0.4)
$ whenmod 64 33 (const -- victoire!
$ fast 2
$ note "<[0 <2 4>] 0>/4"
# s "sitar:1"
# legato 2
$ fast 2
$ note "<[0 <2 4>] 0>/4"
# s "sitar:1"
# legato 2
)
$ s "~"
once $ s "sitar:1"
solo 2
-- DEV: guides
d2 $ every 64 (# gain 1)
d8 $ every 64 (# gain 1)
$ s "cp"
# 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"
# gain 0.7
# pan 0
-- 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
$ slow 2
$ n "<0 3>/8"
$ every 4 (# gain 0.8)
$ n "<0 3>"
# 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
setcps 0.5
d1
-- $ every 8 (rev)
d1 -- vents du haut
$ chunk 4 (rev)
$ rarely (rev)
$ every 16 (# crush 6)
$ s "wind*16" # note (run 8)
# legato 2
# 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
$ 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"
# speed 0.25
# gain 0.8
d6
$ every' 2 1 (off 0 (# s "ht"))
$ every 4 (fast 2)
$ s "birds:5*2"
# note (-10)
# gain 0.6
# gain 0.7
unsolo 6
unsolo 5
unsolo
d6 -- TODO: Plus d'harmonie
$ 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
setcps 0.5
d8 $ euclid "<2 4 8 0>" 4
$ s "kicklinn"
d1
$ every 8 (rev)
$ every 4 (off 0.125 (|+0))
......@@ -22,6 +27,7 @@ $ chunk 4 (# crush 2)
$ every 4 (off 0 (|> 5))
$ every 4 (off 0.125 (|+ 0))
$ s "glitch2:2(<3 5 7>,8)"
# gain 0.8
d4
$ degradeBy 0.2
......@@ -55,6 +61,7 @@ $ every 8 (rev)
$ every' 8 7 (# gain 0)
$ s "bass3(<3 5 3 1>,8)"
# up "<3 10 3>"
# gain 0.8
d7
$ 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