session: liberte dure

parent 94ac7595
......@@ -17,12 +17,13 @@ $ note (
d2 -- hit roll
$ s "<hh*4 hh*4 hh*4 [hh*4 ~]>"
$ s "<h*4 h*4 h*4 [d*4 ~]>"
# s "hh"
# release 0.5
d3 -- claps
$ s "<[~ cp] [~ cp] [~ cp] [~ cp . cp ~]>"
-- $ s "<[~ cp] [~ cp] [~ cp] [~ cp . cp ~]>"
$ s "<[~ cp]!3 [~ cp . cp ~]>"
# gain 0.9
# n 1
......
do
solo 1
solo 2
unsolo 1
unsolo 2
solo 3
solo 4
solo 5
solo 7 -- bass
s
solo 8
d1
$ fast "1"
$ s "jazz(<4!3 <2 [2 4]>>,8)"
# gain 0.8
d1 $ s "k(<3!3 4 5 4>,8)" # s "clubkick"
# gain 0.8
# lpf (slow 16 $ range 4000 20000 sine)
d2
$ hurry "<1 [1|2]>"
$ s "~ <s!3 [s s ~]>"
# s "snare:20"
# gain 0.9
d3
$ whenmod 32 4 (# gain 0.9)
$ whenmod 32 0 (# gain 0)
$ fast "4 [8 <1?*16 16>]" $ s "dr"
# gain 0.9
do
d1
$ s "k(<3!3 4 5 4>,8)" # s "clubkick"
# gain 0.8
# lpf (slow 16 $ range 4000 20000 sine)
d2
$ hurry "<1 [1|2]>"
$ s "~ <s!3 [s s ~]>"
# s "snare:20"
# gain 0.9
d3
$ whenmod 32 4 (# gain 0.9)
$ whenmod 32 0 (# gain 0)
$ fast "4 [8 <1?*16 16>]" $ s "dr"
# gain 0.9
d4
$ note (scale "aeolian" "<0 5>(<3 5>,8)"
- 36
) # s "superfork" # accelerate 0.1
# gain 1
d5
$ whenmod 32 31 (# gain "0!3 0.7")
......@@ -37,7 +44,7 @@ $ bite 8
$ note (scale "aeolian" (run 8)
- 24)
# s "supersaw" # voice 0.1
# gain 0.75
# gain 0.9
d6 -- Piano second TODO REWORK
-- $ every 4 (# gain 1)
......@@ -52,9 +59,9 @@ $ note ("<c5'maj c5'min>*2")
d8 -- Cymbales
$ juxBy 0.5 rev
$ fast 2
$ s "h ~ h h ~ ~ ~" # s "hh"
# gain 0.6
$ s "h ~ h h ~ ~ ~" # s "ho hc ~"
# gain 0.8
# cut 1
d7 -- Basse lead :)
......@@ -65,12 +72,6 @@ d7 -- Basse lead :)
) # s "supersaw" # voice 0.1
# gain (slow 16 $ range 0.5 0.7 saw)
d4
$ note (scale "aeolian" "<0 5>(<3 5>,8)"
- 36
) # s "superfork" # accelerate 0.1
# gain 1
-- outru
do
......@@ -128,10 +129,9 @@ $ note ("<c5'maj c5'min>*2")
# gain 0
d8 -- Cymbales
$ juxBy 0.5 rev
$ fast 2
$ fast 4
$ s "h ~ h h ~ ~ ~" # s "hh"
# gain 0.6
# gain 1.1
d7 -- Basse lead :)
......@@ -147,3 +147,32 @@ d4
- 36
) # s "superfork" # accelerate 0.1
# gain 1
-- Phase 3 : lendemain
d1
$ whenmod 32 30 (# silence)
$ whenmod 32 24 (degradeBy "0 0.5!3")
$ fast (slow 8 "<2 4>")
$ s "jazz"
-- # gain 1.2
d2 $ fast "[1|2]" $ s "~ <c [c? c]>" # s "clap:4"
# gain 1
# (slow 16 $ room 0.2 0.)
d5
-- $ (# crush 6)
-- $ fast 2 $ chop 2
$ mask "f(2,4,3)"
$ whenmod 16 8 rev
$ bite 8
"<0!4 2!2 4!2> <2 7>(<3 5>,8)"
-- "<0 <1 2> <2 1>>(<8!7 5>,8)"
$ note (scale "aeolian" (run 8)
- 24)
# s "supersaw" # voice 0.1
# gain 0.9
# room 0.24
# size 0.1
setcps (120 / 60 / 4)
do
solo 1
solo 2
solo 3
solo 4
unsolo 5
do
d1
-- TECHNO
-- $ someCyclesBy "0!3 <0.5 1>" (stut 4 0.8 (1/16))
-- $ fast "<4!8 2!8>"
-- $ every' 8 7 (fast 2)
--
$ n "<0 ~ 0> <~ 0 0> . ~"
# s "cpu"
# gain 1
d2 $ s "~ s" # s "snare:3" # gain 0.9
d3 $ fast "8 <8!3 4 16!3 32>" $ s "dr" # gain (slow 32 $ range 0.5 0.9 sine)
d4
$ whenmod 8 6 (# silence)
$ n "[0(3,8),~ 1, ~ ~ 4]" # s "[ho|ho|hc] [ho|hc|hc]"
# gain (slow 32 $ range 0.8 0.75 sine)
# cut 1
d5
$ note (scale "aeolian"
"<c5'min <d5'maj f5'maj a5'maj d5'maj>>" - 36)
# s "bassWarsaw"
# gain 1
# pan 0.8
d4
$ note (scale "aeolian" "<0 5>(<3 5 8>,8)"
- 24
) # s "moogBass"
# amp 0.4
# sus "[0.25, 0.5]"
# rel "<0.2 0.8 0.5 1 0.1 2>"
d5
$ superimpose (# s "superpiano") . (|- velocity 0.8)
$ note (
scale "aeolian"
"<c5'min <d5'maj f5'maj a5'maj d5'maj>>(<8!3 5>,8)" - "7"
)
# s "FMRhodes1"
-- # gain 0.8
# sustain 0.75
# gain 0.6
-- DISTANT ADVENTURE
-- Ou, le pair programming hardcore
do
unsolo 1 -- kick
unsolo 2 -- hihats
unsolo 3 -- drumroll
unsolo 4 -- basse
unsolo 5 -- Glitchs statics
unsolo 6 -- Guerre
unsolo 7 -- LIBRE
do
solo 1 -- kick
solo 2 -- hihats
solo 3 -- drumroll
solo 4 -- basse
solo 5 -- Glitchs statics
solo 6 -- Guerre
solo 7 -- LIBRE
once $ s "hardkick"
do
let bpm = 155
let gKick = 0.6
let gBass = 0.35
let gDrums = 0.7
let gSamples = 1
let gGlitch = 0.7
let mesures = 32
let mPont = 16
setcps (bpm/60/4)
d1 -- Kick un peu rythme
$ slow 4
-- $ whenmod mesures (mesures - 1) (# gain ("0 1" * gKick))
-- $ whenmod mesures mPont (# gain 0)
$ s "k(<4!2 5!2 4!4 8 7 5 8 5>,8)"
# s "kick:5" # gain gKick
# crush ("[2|3]" * 8)
d2 -- Batterie hihats sexy
$ sometimesBy "0 0.5 0.75 <1!7 0>" (fast 2)
$ s "h h h h*<1 2 1!2 2!4 1!2 2 1>" # s "ho hc"
# n (irand 4)
# gain ((slow 8 $ range 0.8 1 saw) * (gDrums * 0.8))
d3 -- drumroll
$ fast "16 <8!3 16>"
$ s "dr"
# gain (slow mesures $ range (gDrums - 0.2) gDrums saw)
d4 -- Basse lead
$ juxBy 0.25 (|+ note "[0]")
$ superimpose (
# crush "<2!3 1>"
)
$ note (scale "aeolian" ( -- gamme choisie
"<0 0*2 0*3 [0(3,8) <[2*2 4] [2 4]>]>" -- melodie
)
- 24 -- ou ca: deux octaves en dessous
)
# s "supersaw" # voice (slow 4 "<1 0.1 0.01!2>")
# gain gBass
d5 -- Static rythme random
$ s "glitch:2([2|4|8],4)" # speed (range 0.1 0.8 rand)
# gain ((slow 32 $ range 1 0.8 isaw) * gGlitch)
d6 -- MACRON VOICE
$ always (# crush 4)
$ whenmod 4 3 (# silence)
$ n "{3 6 0}" # s "macron" # cut 6
# lpf 800
# gain (gSamples - 0.1)
# pan (slow 32 $ range 0.7 0.2 sine)
d7 -- BOT OPPOSITION
$ whenmod 4 3 (# gain (gSamples + 0.1))
$ n "0(1,4,1)" # s "ondes"
# begin 0.95 # cut 7
# pan (slow 32 $ range 0.3 0.8 cosine)
# note (2)
# sustain 2
# gain 0
once $ s "ondes" # begin 0.95 -- libre
once $ s "ondes:1" # begin 0.508 # end 0.68 -- une variation reversible
do
let nousGuerre = n "{3 6 0}" # s "macron" # begin 0
let enGuerre = s "macron:0" # begin 0.5
let guerre = s "macron:0" # begin 0.55
once $ nousGuerre # cut 1
do
let cutB = 0.508
let cutE = 1
once $ s "ondes:1" # begin cutB # end cutE # cut 1 -- une onde
-- perturbation
-- variation
# begin 0.1 # end 0.25 # cut 1
once $ s "glitch*4" # n "[2]" # gain 0.8
d8 -- hardkick gabber vilain!
$ whenmod 32 16 (# gain 0)
$ s "hardkick" # gain 0
d4 $ loopAt 4 $ s "bev/4" # crush 8 # gain 0.9
-- Elements de style:
-- "a distorted bass drum sound, overdriven to the point where it becomes clipped into a distorted square wave and makes a recognizably melodic tone. "
-- Mainstream hardcore tracks typically include samples and synthesized melodies with the typical tempo ranging from 165 to 180 bpm. Violence, drugs and profanity are common themes in mainstream hardcore, perceptible through its samples and lyrics, often screamed, pitch shifted, or distorted.
-- Lots of tracks rely on a clean, detuned supersaw lead, similar to uplifting trance and can therefore sound "happy".
-- Raggatek elements ? Drums analogues et synthe fou contretemps?
once $ s "ondes"
-- Samples
-- [Nous sommes] En guerre
do
solo 1
solo 2
solo 3
solo 2
solo 4
solo 5
d1
$ whenmod 64 48 (slow 2)
$ whenmod 64 32 (slow 2)
$ s "k k k <k!3 k*2>" # s "jazz"
# gain 0.8
d2
-- $ fast 2
$ every 4 (# gain "0 . 0 1")
$ s "k(<5!3 3>,8)" # s "hardkick:1"
# gain (slow 32 $ range 0.5 1.1 sine)
d2 $ s "~ s" # "snare:10"
d3 $ fast "4 [16 <8 [32]>]" $ s "dr"
# gain (slow 100 $ range 0.8 1.4 cosine)
d4
$ whenmod 32 16 (mask "t f? <f t> f!4 <f f?>")
$ note ("0!7 <-2!2 3>"
- 24)
# s "supersaw" # voice 0.1
# gain 0.8
d5
$ often (stut 2 0.9 0.125)
$ s "~ clap"
# gain (slow 100 $ range 0.8 1.4 sine)
<?xml version="1.0" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20010904//EN"
"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
<svg version="1.0" xmlns="http://www.w3.org/2000/svg"
width="1044.000000pt" height="1280.000000pt" viewBox="0 0 1044.000000 1280.000000"
preserveAspectRatio="xMidYMid meet">
<g transform="translate(0.000000,1280.000000) scale(0.100000,-0.100000)"
fill="#394f1e" stroke="none">
<path d="M9880 12790 c-18 -11 -16 -13 45 -28 132 -33 250 -125 301 -236 30
-67 54 -173 54 -246 0 -241 -133 -589 -343 -890 -65 -93 -59 -115 -86 320 -42
659 -84 902 -166 956 -36 23 -68 11 -132 -49 -70 -66 -120 -133 -348 -467
-103 -151 -215 -313 -249 -360 -218 -307 -513 -675 -540 -675 -5 0 -20 24 -35
54 -14 30 -36 61 -47 68 -40 26 -71 -18 -254 -354 -132 -245 -183 -329 -221
-368 -26 -27 -51 -46 -55 -43 -3 4 17 64 44 135 60 152 96 275 118 398 62 346
-65 1136 -189 1179 -23 9 -31 6 -52 -14 -13 -14 -84 -163 -158 -335 -472
-1088 -620 -1386 -890 -1793 -211 -318 -334 -475 -557 -712 -853 -905 -1106
-1231 -1341 -1725 -105 -221 -217 -535 -343 -960 -76 -259 -83 -278 -95 -270
-6 3 -33 49 -62 103 -212 395 -358 596 -514 708 -287 204 -689 173 -1026 -80
-167 -126 -299 -287 -351 -429 -18 -51 -41 -79 -162 -203 -78 -79 -148 -144
-158 -144 -24 0 -184 128 -260 208 -138 147 -227 315 -263 497 -8 39 -10 73
-6 78 4 4 30 -15 57 -41 104 -100 250 -96 459 11 118 61 256 206 387 408 62
96 176 334 165 346 -2 2 -78 -35 -168 -81 -212 -110 -301 -139 -508 -165 -194
-25 -245 -46 -335 -132 -33 -33 -63 -55 -66 -51 -4 4 -12 41 -18 82 -19 117
-86 243 -181 339 -42 43 -110 101 -151 130 -41 29 -75 57 -75 63 0 6 22 17 48
25 66 19 166 118 207 204 37 79 67 196 80 309 12 107 13 227 1 234 -5 4 -33
-27 -62 -66 -82 -113 -155 -185 -264 -258 -56 -37 -115 -83 -132 -103 -57 -65
-74 -144 -48 -224 5 -16 3 -23 -6 -23 -43 0 -439 298 -439 331 0 5 16 9 37 9
71 0 143 113 143 224 -1 90 -41 276 -60 276 -3 0 -14 -26 -24 -57 -25 -79 -47
-120 -99 -184 -54 -66 -67 -90 -67 -123 0 -61 -39 -37 -89 54 -17 30 -31 49
-31 42 0 -22 66 -145 114 -210 26 -35 44 -67 41 -72 -4 -6 -23 -10 -43 -10
-20 0 -62 -12 -92 -26 -73 -34 -153 -54 -215 -54 -29 0 -55 -3 -58 -7 -18 -18
140 -101 243 -128 69 -18 144 -13 192 11 33 17 68 61 68 85 0 36 20 28 104
-39 47 -38 165 -120 261 -183 96 -63 173 -118 172 -123 -2 -5 -28 -15 -58 -21
-68 -14 -82 -22 -203 -112 -109 -82 -160 -108 -307 -154 -55 -18 -99 -35 -99
-39 0 -10 100 -46 194 -70 196 -50 370 -48 486 6 112 52 160 111 160 198 0 25
4 46 10 46 15 0 89 -99 122 -163 51 -102 68 -191 69 -366 0 -86 4 -182 8 -214
4 -32 4 -60 0 -63 -4 -2 -24 7 -45 21 -21 14 -69 35 -107 47 -93 28 -164 21
-342 -32 -107 -32 -165 -43 -245 -48 -102 -7 -277 -1 -403 13 l-62 7 45 -47
c165 -172 487 -371 680 -421 85 -21 291 -15 364 11 67 25 150 106 165 162 7
23 16 45 21 48 5 3 21 -18 36 -47 73 -144 174 -272 294 -372 47 -39 88 -75 92
-81 9 -13 -8 -31 -139 -143 -62 -52 -113 -101 -113 -109 0 -26 103 -10 300 47
58 16 114 30 125 30 25 0 121 -128 170 -226 114 -231 101 -488 -40 -759 -28
-52 -33 -70 -25 -85 16 -31 51 -44 115 -44 76 1 124 17 160 54 27 28 29 37 36
142 23 332 -49 634 -206 868 -30 46 -54 89 -51 96 4 11 147 64 174 64 41 0
309 -239 392 -349 111 -146 145 -253 180 -564 55 -489 141 -727 373 -1027 209
-270 498 -502 952 -763 337 -194 777 -331 1210 -377 228 -25 467 -104 668
-223 261 -155 469 -386 687 -762 68 -118 227 -444 278 -570 115 -285 217 -653
347 -1254 25 -112 51 -214 60 -227 18 -27 84 -64 115 -64 37 0 183 51 272 96
94 47 238 141 351 230 42 33 74 51 79 46 16 -16 -47 -137 -94 -185 -24 -24
-69 -55 -99 -70 l-54 -26 51 -1 c172 -1 295 123 325 329 l12 83 203 205 c155
155 206 201 210 188 10 -26 -2 -156 -19 -203 -21 -60 -63 -117 -111 -152 -45
-33 -33 -38 37 -14 59 20 139 91 166 147 37 77 44 217 16 328 -6 23 9 43 105
154 61 71 132 157 158 191 26 35 53 63 59 64 18 0 28 -45 28 -130 -1 -75 -18
-124 -71 -198 -22 -30 -6 -28 48 8 46 31 89 83 107 133 18 47 13 168 -9 232
-11 32 -20 64 -20 71 0 7 24 51 54 96 200 310 265 551 172 644 -36 36 -40 37
-296 95 -441 98 -751 218 -997 385 -54 36 -183 133 -288 214 -472 368 -582
484 -1042 1100 -105 140 -236 311 -292 380 -55 69 -101 130 -101 136 0 6 44
18 98 27 190 31 382 113 592 251 l115 76 80 0 c175 0 377 48 494 117 143 85
203 234 147 368 l-13 30 -7 -50 c-9 -65 -56 -162 -98 -202 -78 -75 -225 -140
-380 -167 -98 -17 -112 -9 -62 35 263 234 408 389 628 671 58 76 73 89 109 98
211 53 334 109 423 192 108 101 137 222 81 339 l-25 54 -1 -62 c-2 -149 -96
-272 -271 -356 -124 -59 -145 -65 -138 -41 3 11 42 73 88 139 118 172 249 383
346 558 46 84 88 159 93 168 5 8 50 33 101 54 180 75 345 208 401 322 35 70
34 198 0 266 -14 26 -33 55 -44 64 -18 17 -18 16 -10 -12 4 -17 8 -64 8 -106
0 -66 -4 -83 -34 -142 -41 -80 -125 -167 -230 -237 -112 -75 -122 -68 -67 46
105 220 226 519 321 794 l57 165 86 55 c289 183 471 421 472 616 0 57 -27 141
-61 190 -27 40 -105 114 -119 114 -3 0 10 -32 29 -72 83 -167 39 -349 -135
-552 -63 -73 -186 -181 -207 -181 -16 0 -16 1 47 246 84 330 174 808 202 1074
l7 70 91 95 c361 374 510 746 392 979 -44 86 -160 174 -261 197 -28 6 -26 3
26 -44 169 -153 180 -391 33 -684 -61 -122 -221 -348 -246 -348 -11 0 -9 41
13 310 6 63 13 335 16 603 l6 489 57 66 c189 221 353 499 429 727 16 50 40
145 52 213 23 122 23 125 5 210 -33 163 -103 270 -213 326 -98 49 -292 82
-333 56z"/>
</g>
</svg>
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