chore: Clean shape

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