diff --git a/live/experimental/dildo_cycles.tidal b/live/experimental/dildo_cycles.tidal new file mode 100644 index 0000000..6e68c01 --- /dev/null +++ b/live/experimental/dildo_cycles.tidal @@ -0,0 +1,3 @@ +--- TODO: Sample Geisha by Les elles +-- Drone vibrating dildo +-- Chopped moans diff --git a/live/hip/organ_seeker.tidal b/live/hip/organ_seeker.tidal new file mode 100644 index 0000000..3db6b6f --- /dev/null +++ b/live/hip/organ_seeker.tidal @@ -0,0 +1,82 @@ +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 diff --git a/live/noise/decentering.tidal b/live/noise/decentering.tidal index e86eec9..735c78e 100644 --- a/live/noise/decentering.tidal +++ b/live/noise/decentering.tidal @@ -1,14 +1,14 @@ 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) diff --git a/notes.md b/notes.md index b289845..ef01e10 100644 --- a/notes.md +++ b/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 diff --git a/output/Vague_PLN2.jpg b/output/Vague_PLN2.jpg new file mode 100644 index 0000000..d7a5773 Binary files /dev/null and b/output/Vague_PLN2.jpg differ diff --git a/study/weave.tidal b/study/weave.tidal new file mode 100644 index 0000000..849252e --- /dev/null +++ b/study/weave.tidal @@ -0,0 +1,6 @@ +d1 $ weave 16 (pan sine) + [sound "bd sn cp", + sound "casio casio:1", + sound "[jvbass*2 jvbass:2]/2", + sound "hc*4" + ] diff --git a/tools/solo.tidal b/tools/solo.tidal index 79a665f..34e74b6 100644 --- a/tools/solo.tidal +++ b/tools/solo.tidal @@ -7,3 +7,4 @@ solo 6 solo 7 solo 8 solo 9 +solo 10 diff --git a/tools/unsolo.tidal b/tools/unsolo.tidal index d44f04e..af7bcfe 100644 --- a/tools/unsolo.tidal +++ b/tools/unsolo.tidal @@ -7,3 +7,4 @@ unsolo 6 unsolo 7 unsolo 8 unsolo 9 +unsolo 10