chore: Clean shape

parent 90bccdf5
......@@ -10,7 +10,7 @@
do
setcps (160/60/4)
let mMask = midiOn "^73" (# silence) -- Masque manuel
let mMask = midiOn "^73" (# silence) -- Take your time
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1 $ mMask
......@@ -23,7 +23,7 @@ d2 $ gF1 $ mMask
$ "~ ~ ~ s ~ ~ s <~!3 s> "
# "808sd:11"
# midiG' "^79" 0 1.4
d3 $ gF1 $ mMask -- Break magique
d3 $ gF1 $ mMask -- Break it down
$ midiOn "^44" (ply "<2!3 <4 4 [4 . 1 2] <4 8>>>")
$ splice 4 "0 1 2 3"
$ loopAt 8
......@@ -31,7 +31,7 @@ d3 $ gF1 $ mMask -- Break magique
# cut 3
# midiG' "^80" 0 1.2
d5 $ gF2
$ someCyclesBy ("^17") (-- CHORDS!
$ someCyclesBy ("^17") (-- We unite
superimpose (# note ("<gs cs4 e fs>" - 12))
)
$ midiOn "^57" (mask "t(1,4)" -- Dreamstate
......@@ -53,7 +53,7 @@ d4 $ gF2
$ superimpose (|- note 12)
$ midiOn "^58" (mask "t f f f" . (# room 0.5))
$ note ("<cs!3 ds> ~ ~ <e!3 cs> ~ ~ <cs!3 b4> ~"
-1 -- Ce carillon est mal accordé
-1 -- Drift back to unison
) # "808mc:3"
# midiG' "^82" 0 2
# dry 0.95
......@@ -74,18 +74,15 @@ d6 -- CHOIR
# midiG' "^83" 0 2
# legato 2
# room 0.83 # sz 0.4 # dry 1
d7 -- Runny Maracas Pitchables
d7 -- Dem Maracas
$ mask "t(16,32)"
$ midiOn "^60" (slow 2)
$ midiOn "^92" (ply "<2!3 4>")
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
-- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# room "^36"
# note (range "-24" "0" "^20")
# crushbus 51 (range 16 4.2 "^56")
# midiG' "^84" 0 1.3
once $ note "ds" # "808mc:3"
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