wednesday: decentering

live/experimental/dildo_cycles.tidal

+--- TODO: Sample Geisha by Les elles
+-- Drone vibrating dildo
+-- Chopped moans

live/hip/organ_seeker.tidal

+setcps 0.5
+
+d1 -- kick varie
+$ whenmod 8 6 (# silence)  -- pont mesure
+$ s "[k|k|k|~] [k [k|~|~|~]]? [k|k|~] ~"
+# s "kick:10"
+
+d2
+$ whenmod 8 6 (someCyclesBy 0.9 (# silence))  -- pont mesure
+$ sometimesBy 0.05 (# n 6)
+$ sometimesBy 0.1 (# n 5)
+-- $ (0.5 ~>)
+$ s "sn:1(3,8,<0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7>)"
+# gain 0.9
+# pan 0.7
+
+d3 -- cymbale
+$ whenmod 16 14 (sometimesBy "0.6 0.7 0.8 0.9" (#s "hh:10"))
+$ sometimesBy "0 0 0 0.05" (#s "hh:8")
+$ s "h(3,8) h(3,8,<0 <2 4>>)"
+# s "hh"
+# gain (slow 16 $ sine * 0.6 + 0.6)
+
+d4 -- Good ol' drumrol'
+$ whenmod 32 30 (# s "dr:6") . (degradeBy "0 0 0.8 0") . (|- gain 0.2)
+$ whenmod 16 14 (# s "dr:1") . (degradeBy "0 0.1 0.1 [0.1 0]")
+$ whenmod 8 6 (|+ gain 0.2) . (fast 2)
+$ s "dr*8"
+# gain 0.85
+# pan (slow 16 $ tri)
+
+d5 -- basse reguliere
+$ swing 3
+$ note (scale "melodicMajor" "<0 0(3,8) 0 0> . <3(3,8) 3 3 3> . <5 5 5(3,8) 5> . <7 7 7 7(3,8)>")
+# s "bassWarsaw"
+|- note 24
+# pan 0.8
+# gain (slow 16 $ sine * 0.2 + 0.75)
+
+d5 -- harpsichord/organ
+$ swingBy ("<0.5 0.25 0 0.25>") 8
+$ whenmod 8 6 (degrade) -- pont mesure
+$ whenmod 64 48 (# pan (0.25 + rand * 0.75))
+$ whenmod 64 32 (someCyclesBy 0.8 (# crush 4))
+$ whenmod 32 16 ( -- accompagnement graves
+  superimpose ((# s "organTonewheel0") . (|+ note (scale "melodicMajor" "-14")) . (# pan 0))
+  )
+$ whenmod 16 8 (rev)
+$ sometimesBy 0.25 (0.125 ~>)
+$ someCycles (off 0.125 (|+ note 0))
+$ note (scale "melodicMajor" "[0 | 0*2] <3 3 2 2> <5 5 5 [5|5|5|9]> 7")
+# s "organTonewheel4"
+# pan 0.2
+# gain 0.65
+
+d7 -- final aigu tension
+$ someCycles (segment 4 . degrade . rev)
+-- $ whenmod 64 54 (# silence)
+$ whenmod 64 50 (degrade)
+-- $ whenmod 64 54 ((<| s "s*4 s*4") . (# note "<7 0>"))
+$ whenmod 64 48 (
+  segment 16 . degradeBy 0.75 .
+  (<| s "s*2 s*2") . (# note "<5 0>"))
+$
+whenmod 64 40 (
+  segment 8 . degrade .
+  (<| s "s*2 s*2") . (|+ note "5")
+)
+$ whenmod 64 32 (
+  segment 4 . degradeBy 0.25 .
+  (<| s "s*2 s*2") . (|+ note "3")
+)
+$ whenmod 64 16 (<| s "s s")
+$ whenmod 64 8 (<| s "s")
+$ slow 2
+$ superimpose (|+ note (scale "major" "[<3 3 5 5>,7]")) . (|- gain 0.1)
+$ note (scale "melodicMajor" "<0 <7 4>>")
+# s "superhoover"
+|+ note 12
+# gain 0.7
+# attack 0.8
+# release 0.8

live/noise/decentering.tidal

 setcps 0.5
 
-d1 -- vents aigus
+d1 -- vents aigus respiration
 $ stut "<0 2 4 0>" 0.5 0.125
 $ n "[0,1] 9"
 # s "wind"
-# gain (slow 64 $ cosine * 0.6 + 0.3)
+# gain (slow 64 $ cosine * 0.3 + 0.4)
 
 d2 -- beat
 $ fast 2
-$ every 4 (sometimes (off 0.125 (|+ 0)))
+$ every 4 (sometimes (off "<0.125 0.25>" (|+ 0)))
 $ whenmod 32 30 degrade
 $ whenmod 32 26 degrade
 $ s "house"
@@ -28,43 +28,36 @@ $ whenmod 16 10 (
   (swing 2) . (chop 2)
 )
 $ s "space:3"
-# speed 0.5
-# gain (slow 64 $ cosine * 0.7 + 0.2)
+# speed 0.4
+# gain (slow 64 $ cosine * 0.5 + (rand / 4))
+# room 0.8
 
 d6 -- oiseaux
-$ sometimes (off 1 (|+ 1)) -- copie mesure suivante
+$ sometimes (off 2 (|- gain 0.4)) -- copie mesure d'apres
+$ sometimes (off 1 (|- gain 0.2)) -- copie mesure suivante
 $ sometimes (1 ~>) -- decalage mesure suivante
 $ degradeBy (slow 64 $ sine * 0.8 + 0.2)
 $ s "birds" # n (irand 10)
 # gain 0.7
 
 d7 -- moineau roll
-$ sometimesBy (slow 16 $ sine * 0.8) (off (1/16) (|+ 0))
+$ sometimesBy (slow 16 $ sine * 0.95) (off (1/16) (|+ 0))
 $ s "birds3(<[3|6] 8>,8)"
-# gain (slow 64 $ 1 - sine * 0.2)
-
-d8 -- pebbles voice-blocker
-$ often (superimpose (rev . (|- note 12)))
-$ off "<0.25 0.125 0.5>" ((chop 8) . (# gain 0.8))
-$ s "pebbles"
-# cut 1
-# note (scale "major" (irand 7))
-# speed "<1 2 1 [1|2]>"
-# gain 0.9
+# gain (slow 64 $ 0.9 - sine * 0.4)
 
-d9
+d9 -- scratched birds
 $ fast 2
 $ s "~ [b b?]]"
 # s "birds3"
 # n (wchoose [(9,13),(1,14)])
+# gain (slow 64 $ cosine * 0.5 + 0.3)
 # room (slow 64 $ cosine * 0.8 + 0.05)
 # size (slow 64 $ cosine * 0.8 + 0.05)
 # dry 0
 
 d10 -- basse
-$ superimpose (
-  (fast 2) . (chop 4)  . (# crush (4 + (irand 10)))
-) -- echos crushes!
+$ superimpose -- echos crushes!
+  (fast 2) . (chop 4)  . (# crush (4 + (irand 10))) . (|- gain 0.2)
 $ jux rev
 $ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
 $ every 4 (someCycles (fast 2 . degrade))
@@ -74,13 +67,17 @@ $ note "<0 <3 [3 3]> <0 [3 0]>>"
 # hpf (slow 64 $ cosine * 900 + 100)
 # room (slow 64 $ 1 - cosine * 0.9)
 |- note 24
+# gain 0.75
 
 d11 -- cymbale
-$ whenmod 64 32 (someCycles (# n 3)) -- prolonge
-$ almostNever (superimpose (const $ s "~ ~ 808cy:1 ~"))
+$ whenmod 64 32 (always (# n 3)) -- prolonge
 $ whenmod 16 8 (# note 4)
 $ whenmod 16 0 (# note 7)
+$ almostNever (superimpose (const $ s "~ ~ 808cy:1 ~"))
+$ swing (slow 64 $ "<3 5>")
+$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>)
+$ sometimes (|- gain 0.1)
 $ euclid 5 4
-$ s "cy"
+$ s "~ cy"
 # s "808cy"
-# gain (slow 32 $ sine * 0.5 + 0.5)
+# gain (slow 32 $ sine * 0.4 + 0.4)

notes.md

@@ -79,8 +79,17 @@
 
 
 -- bskick
+--- 0 rond, med, rebond aigu 1/16
+--- 1 rond, med, petit rebond aigu 1/8
+--- 2 rond, grave, un peu metallique
+--- 3 sec, aigu, bruite
+--- 4 aigu takataka
+--- 5 grave, faible, aquatique
+--- 6 idem, triplet
+--- 7 idem, .-.-.-.-....-.
+--- 8 poum grave tchak aigu rapide
+
 -- bshihat
--- bskick
 -- bsnoise
 
 -- bsperc

study/weave.tidal

+d1 $ weave 16 (pan sine)
+  [sound "bd sn cp",
+   sound "casio casio:1",
+   sound "[jvbass*2 jvbass:2]/2",
+   sound "hc*4"
+  ]

tools/solo.tidal

@@ -7,3 +7,4 @@ solo 6
 solo 7
 solo 8
 solo 9
+solo 10

tools/unsolo.tidal

@@ -7,3 +7,4 @@ unsolo 6
 unsolo 7
 unsolo 8
 unsolo 9
+unsolo 10