German wings

parent 2d184582
...@@ -16,7 +16,6 @@ $ note ( ...@@ -16,7 +16,6 @@ $ note (
# gain 0.8 # gain 0.8
d2 -- hit roll d2 -- hit roll
$ s "<hh*4 hh*4 hh*4 [hh*4 ~]>" $ s "<hh*4 hh*4 hh*4 [hh*4 ~]>"
# s "hh" # s "hh"
...@@ -39,6 +38,7 @@ $ s (cat [ ...@@ -39,6 +38,7 @@ $ s (cat [
# release 0.5 # release 0.5
d5 d5
$ someCycles (fast 2)
-- $ whenmod 32 16 (# silence) -- $ whenmod 32 16 (# silence)
$ whenmod 32 4 (# gain 0.8) $ whenmod 32 4 (# gain 0.8)
$ every 4 (# silence) $ every 4 (# silence)
......
d1 $ sound "bd(<<0 1 5 7> 3>,8)" d1 -- kick
-- $ euclid "<4 6>" 4
$ euclid "<<0 1 5 7> 3>" 8
$ sound "bd"
d2 d2 -- tic toc
$ someCycles (degrade . fast 2)
$ every 8 (off (1/8) (|+0)) $ every 8 (off (1/8) (|+0))
$ every' 16 7 degrade $ every' 16 7 degrade
$ every 16 (# gain 0) $ every 16 (# gain 0)
$ s "bd(5,8)" $ s "bd(5,8)"
# note "<50 <55 <60 65>>>" # note "<50 <55 <60 65>>>"
d3 d3 -- vibration montante!
$ every' 16 12 (# gain 0) $ every' 16 12 (# gain 0)
$ every' 16 13 (# gain 0) $ every' 16 13 (# gain 0)
$ every' 16 14 (# gain 0) $ every' 16 14 (# gain 0)
$ every' 16 15 (# gain saw) $ every' 16 15 (# gain (0.5 + saw / 2))
$ sometimesBy 0.01 (# crush 4) $ sometimesBy 0.01 (# crush 4)
$ every 4 (rev) $ every 4 (rev)
$ sound "bd" $ sound "bd"
# note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>" # note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
>| speed ( >| speed (
-- segment "<80 100 120 80>/16"
segment 100 segment 100
$ range 1 3 saw $ range 1 3 saw
) )
# gain 0.5 # gain 0.5
d4 d4 -- helico
$ every' 4 3 (off 0.125 (|+ 0)) $ every' 4 3 (off 0.125 (|+ 0))
$ every 8 (# gain 0) $ every 8 (# gain 0)
$ every' 8 7 (# gain 1.5) $ every' 8 7 (# gain 1.2)
$ rev $ iter 4 $ loopAt 4 $ chop 16 $ "bd" $ rev $ iter 4 $ loopAt 4 $ chop 16 $ "bd"
# gain 1.6
d5 -- cordes guitare pincée
$ someCycles (fast 2 . degrade)
$ someCycles (slow 2 . off 0.125 (|- up 12))
$ off 0.125 (|+ up 12)
$ off 0.125 (|+ up 12)
$ off 0.25 (|- up 12)
$ up "40 47"
# s "bd"
d6 -- clap!
$ stut 2 1.05 0.05
$ s "~ ~ bd ~"
# hpf 400
# lpf 1000
...@@ -9,11 +9,10 @@ d2 -- drums, someroll ...@@ -9,11 +9,10 @@ d2 -- drums, someroll
$ whenmod 16 8 (# gain 1) $ whenmod 16 8 (# gain 1)
$ whenmod 16 4 (# gain 0.8) $ whenmod 16 4 (# gain 0.8)
$ whenmod 16 0 (# gain 0.6) $ whenmod 16 0 (# gain 0.6)
$ fast 2 -- $ fast 2
$ sometimes (# s "dr 808cy:5") $ sometimes (# s "dr 808cy:5")
$ s "dr*<2 4> [hh hh?]" $ s "dr*<2 4> [hh hh?]"
d3 -- bass d3 -- bass
$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3") $ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3")
# s "bass3" # s "bass3"
......
setcps 0.6 setcps 0.6
d1 -- beat: default chill, run tous les 64 d1 -- beat: default chill, run tous les 64
$ whenmod 128 64 ( -- run $ whenmod 128 1000 ( -- run
const $ "[r r?] r r [r r?]" # s "[kick:4,kick:10]" const $ "[r r?] r r [r r?]" # s "[kick:4,kick:10]"
# release 0.8 # release 0.8
# gain 0.8 # gain 0.7
) )
$ euclid "<1 2>" 4 $ euclid "<1 2>" 4
$ s "<k k*2 <k*2 k> k>" $ s "<k k*2 <k*2 k> k>"
# s "kick:4" # s "kick:4"
# release 0.8 # release 0.8
# gain 0.8 # gain 0.7
-- # room 0.5 -- # room 0.5
-- # size 0.5 -- # size 0.5
...@@ -21,44 +21,44 @@ $ whenmod 64 48 (fix (# gain "<0.7,0.025 .. 0.5>") (s "clap")) ...@@ -21,44 +21,44 @@ $ whenmod 64 48 (fix (# gain "<0.7,0.025 .. 0.5>") (s "clap"))
$ whenmod 64 32 (fix (# gain "<0.5,0.025 .. 0.7>") (s "clap")) $ whenmod 64 32 (fix (# gain "<0.5,0.025 .. 0.7>") (s "clap"))
$ whenmod 64 0 (fix (# gain "0") (s "clap")) $ whenmod 64 0 (fix (# gain "0") (s "clap"))
$ fix (# n (wchoose [(0.8,0),(0.2,1)])) (s "clap") $ fix (# n (wchoose [(0.8,0),(0.2,1)])) (s "clap")
$ s "hh(<4 4 4 2>,4) [~ clap]" # n "8 8 8 <8 8 8 9> 3" $ s "hh?(<4 4 4 2>,4) [~ clap]" # n "8 8 8 <8 8 8 9> 3"
d4 -- Basse d4 -- Basse
-- $ rev $ rev
$ jux degrade $ jux degrade
$ note (scale "major" $ note (scale "major"
"<[<3 [4 3]> . ~ <0 3>] [<0 3?> 1 0 1]> . <~ ~ <0 1>? ~>~" "<[<3 [4 3]> . ~ <0 3>] [<0 3?> 1 0 1]> . <~ ~ <0 1>? ~>~"
) )
# s "bassWarsaw" # s "bassWarsaw"
# attack 3 # attack 3
# room 0.3
# size 0.8
|- note 30
d5 -- Reggaeman bloqué dub d5 -- Reggaeman bloqué dub
$ fast 2 $ fast 2
$ sometimes (superimpose (|- note 7))
$ superimpose (|+ note "<3 3 5 5>") $ superimpose (|+ note "<3 3 5 5>")
$ note (scale "major" "~ 0") $ note (scale "major" "~ 0")
# s "cheapPiano1" # s "superpiano"
|- note 7 |- note 7
# gain "<0.75 .. 1 1 .. 0.65>" # gain "<0.75 .. 0.8 0.8 .. 0.65>"
# room "<0.2 .. 2 2 .. 0.2>" # room "<0.2 .. 2 2 .. 0.2>"
# size "<0.8 .. 0.2>" # size "<0.8 .. 0.2>"
# dry "1,0.2 .. 4 5,0.5 .. 1" # dry "1,0.2 .. 4 5,0.5 .. 1"
# velocity (0.5 + (rand / 2))
d6 -- lead harpe joyeuse d6 -- lead harpe joyeuse
$ jux rev $ jux rev
$ whenmod 32 16 (off 0.125 (|+ 5))
$ sometimes (fast 2) $ sometimes (fast 2)
$ sometimes (off 0.125 (|+ 5))
$ "h?*8" $ "h?*8"
# n (scale "aeolian" "0 2 4 <7 9> <0 -3>") # n (scale "aeolian" "0 2 4 <7 9> <0 -3>")
# s "harpsichord2" # s "harpsichord2"
# gain "<0.9,0.05 .. 0.7 0.7,0.05 .. 0.9>" # gain "<0.9,0.05 .. 0.7 0.7,0.05 .. 0.9>"
d7 -- lead second d7 -- lead second
$ sometimes (|+ note 7)
$ sometimes (|- note 7)
$ someCycles (degrade . off 0.5 (|+ 0)) $ someCycles (degrade . off 0.5 (|+ 0))
$ s "~ dsynth(<4 3 5>,8)" $ s "~ dsynth(<4 3 5>,8)"
# note (scale "major" "0 7") # note (scale "major" "0 7")
|- note "<12 9 7 12 5>" - 21 |- note "<12 9 7 12 5>" - 21
# gain 0.7 # gain 0.5
setcps 0.5
d1 -- kick rond, lourd
$ s "kick:7"
d2 -- synthe regulier
$ superimpose (|+ note "<3 5>")
$ n (scale "aeolian" "[0 0] ~ 7 ~")
# s "superpiano"
d3
$ note (scale "aeolian" "0 3")
# s "bass3"
# n "5"
# release (rand / 4)
...@@ -20,7 +20,6 @@ $ someCyclesBy 0.2 ((# room 0.2) . (# dry 8)) ...@@ -20,7 +20,6 @@ $ someCyclesBy 0.2 ((# room 0.2) . (# dry 8))
$ someCycles (# attack 0.2) $ someCycles (# attack 0.2)
$ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7) $ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)
# s "bassWarsaw" # s "bassWarsaw"
# gain 0.9
d4 -- lead piano d4 -- lead piano
$ whenmod 32 16 (someCycles $ degrade) $ whenmod 32 16 (someCycles $ degrade)
...@@ -35,7 +34,7 @@ $ note (scale "major" "~ [3,<8 7 5>,10]" - 7) ...@@ -35,7 +34,7 @@ $ note (scale "major" "~ [3,<8 7 5>,10]" - 7)
# s "superpiano" # s "superpiano"
# sustain 2 # sustain 2
# velocity 0.8 # velocity 0.8
# gain 0.8 # gain 0.9
d5 -- choeur fou d5 -- choeur fou
$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>") $ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
...@@ -48,6 +47,18 @@ $ off 0.25 (|+ 7) ...@@ -48,6 +47,18 @@ $ off 0.25 (|+ 7)
$ s "moogBass" # cut 1 $ s "moogBass" # cut 1
# note (scale "major" "<1 0 [1 3] ~>") # note (scale "major" "<1 0 [1 3] ~>")
d5 -- choeur fou
-- $ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
-- $ whenmod 64 32 (# gain 0.9)
$ whenmod 8 4 (|- note 7) -- octave inferieure
$ superimpose ((|+ note 5) . degrade) -- variations quinte
$ someCyclesBy 0.2 rev
$ chop "<2 4 6 8>"
$ off 0.25 (|+ 7)
$ s "moogBass" # cut 1
# note (scale "major" "<1 0 [1 3] ~>")
d6 -- final aigu d6 -- final aigu
$ whenmod 64 32 degrade $ whenmod 64 32 degrade
$ sometimes degrade $ sometimes degrade
......
...@@ -18,7 +18,7 @@ $ fix ( ...@@ -18,7 +18,7 @@ $ fix (
$ fix (# s "[kick:8,kick:9]") (s "p") $ fix (# s "[kick:8,kick:9]") (s "p")
-- $ s "bd ~ s ~ ~ bd s <~ s>" -- $ s "bd ~ s ~ ~ bd s <~ s>"
$ s "p ~ t <~ t ~ ~> ~ p t <~ p>" $ s "p ~ t <~ t ~ ~> ~ p t <~ p>"
# gain 0.7 # gain 0.9
d2 -- bass d2 -- bass
......
setcps 0.5 setcps 0.5
-- Acte un: l'humain pose son rythme -- Acte un: l'humain pose son rythme
-- Acte deux: l'humain impose sa matiere -- Acte deux: l'humain impose sa matiere
-- Acte trois: tension -- Acte trois: tension
...@@ -9,12 +8,12 @@ d1 --beat ...@@ -9,12 +8,12 @@ d1 --beat
-- $ someCyclesBy 0.1 ((# s "beating") . (stut 4 0.5 0.25)) -- 2: tension -- $ someCyclesBy 0.1 ((# s "beating") . (stut 4 0.5 0.25)) -- 2: tension
$ fix ((# s "sosKick") . (# gain 1.2)) (s "k") -- 1: kick soft $ fix ((# s "sosKick") . (# gain 1.2)) (s "k") -- 1: kick soft
-- $ fix ((off 0.5 (|+ 0)) . (# s "[kick:0,reverbkick]")) (s "k") -- 2: kick harder -- $ fix ((off 0.5 (|+ 0)) . (# s "[kick:0,reverbkick]")) (s "k") -- 2: kick harder
-- $ fix (((off 0.125 (|+0) . (>| s "kick:5*<1 2 1 1>")))) (s "k") -- kick hard (heartbeat)
-- $ fix ((someCyclesBy 0.25 (off 0.125 (|+0))) . (>| s "kick:5(<<2 2 4 4 4 4 2 2 3 4 4 3 2 2 0 0> 4>,4)")) (s "k") -- 3: kick hard (heartbeat) -- $ fix ((someCyclesBy 0.25 (off 0.125 (|+0))) . (>| s "kick:5(<<2 2 4 4 4 4 2 2 3 4 4 3 2 2 0 0> 4>,4)")) (s "k") -- 3: kick hard (heartbeat)
-- $ fix (((off 0.125 (|+0) . (>| s "kick:5*<1 2 1 1>")))) (s "k") -- kick hard (heartbeat)
-- $ s "k(2,4)" -- 1 tranquille -- $ s "k(2,4)" -- 1 tranquille
$ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 setup 4 temps -- $ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 setup 4 temps
-- $ s "k(4,4)" -- 1 final 4 temps -- $ s "k(4,4)" -- 1 final 4 temps
-- $ s "k <k ~> k <k ~ k k>" -- 2 : variation pour kick hard $ s "k <k ~> k <k ~ k k>" -- 2 : variation pour kick hard
# gain 0.8 # gain 0.8
d2 -- 1: batterie tic tac d2 -- 1: batterie tic tac
...@@ -26,7 +25,7 @@ $ n "2 1" ...@@ -26,7 +25,7 @@ $ n "2 1"
d5 -- basse d5 -- basse
$ whenmod 8 4 (|- n 2) $ whenmod 8 4 (|- n 2)
$ someCyclesBy 0.8 (superimpose (# s "subBass2")) -- $ someCyclesBy 0.8 (superimpose (# s "subBass2"))
-- $ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique -- $ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique
$ someCycles (off 0.25 (|- 7)) $ someCycles (off 0.25 (|- 7))
$ n (scale "major" "[0 0] ~ 1 0 1 1 0 0") $ n (scale "major" "[0 0] ~ 1 0 1 1 0 0")
...@@ -52,18 +51,19 @@ $ n "3 3 3 4" ...@@ -52,18 +51,19 @@ $ n "3 3 3 4"
d4 $ -- noise guitar tension d4 $ -- noise guitar tension
s "bsguitar:6*2" # note "<0 0 0 0 1 1 1 1>" s "bsguitar:6*2" # note "<0 0 0 0 1 1 1 1>"
|- note 1 |- note 1
# gain 0.5 # gain 0.65
-- 3 -> 4 -- 3 -> 4
d6 -- claps encourageants d6 -- claps encourageants
-- $ whenmod 64 32 (# silence) -- $ whenmod 64 32 (# silence)
-- $ fast 2 $ fast 2
-- $ every' 2 1 ((# release 0.8)) -- deuxieme clap sans echo $ every' 2 1 ((# release 0.8)) -- deuxieme clap sans echo
$ fix ((# s "clap:2") . (# room 0)) (s "clap") -- claquements de doigts -- $ fix ((# s "clap:2") . (# room 0)) (s "clap") -- claquements de doigts
$ s "~ clap" $ s "~ clap"
# room "<<0.2 .. 0.5 0.6 .. 0.2> 0>" # room "<<0.2 .. 0.5 0.6 .. 0.2> 0>"
# dry "<0 .. 3 3 .. 0>" # dry "<0 .. 3 3 .. 0>"
-- Acte quatre: résolution -- Acte quatre: résolution
d4 $ s "bsguitar:4" # cut 1 # begin 0.2 d4 $ s "bsguitar:4" # cut 1 # begin 0.2
...@@ -71,14 +71,16 @@ d4 $ s "bsguitar:4" # cut 1 # begin 0.2 ...@@ -71,14 +71,16 @@ d4 $ s "bsguitar:4" # cut 1 # begin 0.2
-- ACTE 4 -- ACTE 4
d4 -- lead guitar pensive d4 -- lead guitar pensive
-- $ whenmod 16 8 (# begin 0.5) -- 2: alterne au debut -- $ whenmod 16 8 (# begin 0.5) -- 2: alterne au debut
$ whenmod 16 5 (off 0.125 (|- note 3)) -- TODO: Variations guitare
$ whenmod 16 0 (off 0.125 (|- note 3))
$ s "bsguitar:4" # cut 1 $ s "bsguitar:4" # cut 1
-- # begin "<0 0 0.5 0.5 0.2 0.4 0 0>" # begin "<0 0 0.5 0.5 0.2 0.4 0 0>"
-- # begin "0.6" -- pont! -- # begin "0.6" -- pont!
-- # begin "0.8" -- pont evanescent! -- # begin "0.8" -- pont evanescent!
# up 1 # up 1
# room 0.8 # room 0.8
# size 0.6 # size 0.6
# gain 1 # gain 0.6
# size "<0.4,0.05 .. 0 0,0.1 .. 0.4>" # size "<0.4,0.05 .. 0 0,0.1 .. 0.4>"
d6 --phazer joyeux, resolution d6 --phazer joyeux, resolution
...@@ -90,4 +92,4 @@ $ jux (degrade . rev . chop "<1 2 4 8>") ...@@ -90,4 +92,4 @@ $ jux (degrade . rev . chop "<1 2 4 8>")
$ n (scale "major" "<3 [3,5] [3,7] [3, 5, 7]>") $ n (scale "major" "<3 [3,5] [3,7] [3, 5, 7]>")
# s "phazer" # s "phazer"
# gain 0.6 # gain 0.6
|- n "2" -- 3: parfois mineure! -- |- n "2" -- 3: parfois mineure!
setcps 0.9
d1
$ s "lt <~ ~ lt ~> mt <~ mt>"
# gain 0.7
d2
$ someCyclesBy 1 (# s "sn")
$ s "~ <~ sn:2 [sn:2*2 ~]>"
d3 -- drumroll
$ whenmod 64 32 (const $ s "[dr:3?,dr:4?]*<2 4 8 8>") -- scratch
$ whenmod 32 28 (const $ degrade $ s "dr*16")
$ whenmod 8 7 (degradeBy 0.8)
$ whenmod 8 6 (# n 1)
$ every 4 (degrade)
$ s "dr*8"
d4
$ whenmod 64 32 (rev)
$ whenmod 16 12 (|+ note 10)
$ whenmod 16 8 (|+ note 7)
$ whenmod 16 4 (|- note 3)
$ off 0.125 (|+ 5)
$ superimpose ((|- note 21) . (off 0.25 (|+ 5)))
$ n (scale "major" "<[0,3] [0,5] [0,7]>")
# s "superpiano"
# velocity 0.5
# sustain 0.5
d5 -- bassline
$ whenmod 64 48 (fast 2)
$ degrade
$ n (scale "aeolian" "<0 3 0 5 3 2 0>*8")
# s "bassWarsaw"
# room 0.2
d6 -- synth backup
$ superimpose ((|+ 7) . (# gain 1.1). (|- note "<0 3 5 0>"))
$ n (scale "aeolian" "<0 3 0 5 3 2 0>*8")
# s "defaultB"
# gain 0.9
|- note 7
d7 -- cymbale
-- $ whenmod 16 12 (# gain 1)
$ s "~ ~ co:<0 .. 3> ~"
-- # gain 0
d8 -- beat?
-- $ euclid "<2 2 2 4 2 2 4 4 2 4 4 4 4 4 2 2>" 4
$ euclid 4 4
$ s "kick:2"
# gain 1.25
d1
$ euclid "<2 2 4 2 4 4 4 2 4 2 2 2>" 4
$ s "kick"
# gain 0.7
# n "[2,4]"
d2
$ whenmod 32 20 (# gain 0)
$ whenmod 32 16 (# gain 0.8)
$ s "hh:3?*8"
# room 0.5
# dry 0.3
# gain 0
d3 -- drums
$ whenmod 16 10 ( -- 80s drumroll
const $ every 4 (off 0.25 (# n 2))
$ n "[2 3] . 2 . 3 . 2 2 3 2" # s "electro1"
-- const $ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]" # s "electro1"
)
$ whenmod 32 16 (degrade)
$ whenmod 16 8 (off 0.125 (|+ 0))
$ sometimes (# s "dr")
$ s "hh(<4 4 3 4>,8)"
d7
$ degrade
$ s "~ bogdan/8" # cut 1
# n (irand 10)
# room (rand)
# dry (irand 4)
d4
$ whenmod 32 16 (rev)
$ whenmod 16 15 (# gain 0.5)
$ whenmod 16 12 (# silence)
$ whenmod 16 10 (# release 0.1)
$ whenmod 16 2 (# gain 0.8)
$ whenmod 16 1 (# gain 0.7)
$ whenmod 16 0 (# gain 0.6)
-- [b ] [b b]
$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
# s "bass3:1"
# note "0 5 [[8 5] [8 <12 5>]] 0 "
...@@ -3,24 +3,26 @@ setcps (-1) ...@@ -3,24 +3,26 @@ setcps (-1)
setcps (0.5) setcps (0.5)
d1 d1
-- $ fast 2 $ fast 2
-- $ whenmod 64 32 (# silence) $ whenmod 64 32 (# silence)
-- $ whenmod 32 16 (rev) $ whenmod 32 16 (rev)
$ chop "<1 2> <4 4 1 1>" $ chop "<1 2> <4 4 1 1>"
$ s "cs80leadMH*2" $ s "cs80leadMH*2"
# note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>") # note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>")
# room 0.3 # room 0.3
# dry 2 # dry 2
# gain 0.9
d2 d2
-- $ whenmod 64 48 (# silence) $ whenmod 64 48 (# silence)
-- $ fast 2 -- $ fast 2
-- $ every 4 (off 0.75 (|+ 0)) $ every 4 (off 0.75 (|+ 0))
-- $ off 0.5 (|+ 0) $ off 0.5 (|+ 0)
$ s "reverbkick(<2 4 4 4 3 4>,4)" $ s "reverbkick(<2 4 4 4 3 4>,4)"
# gain 0.7
d3 d3
-- $ whenmod 64 48 (# gain 0) $ whenmod 64 48 (# gain 0)
-- $ whenmod 64 8 (# gain 1) -- $ whenmod 64 8 (# gain 1)
$ fast 2 $ fast 2
$ every 2 (off 0.25 (|+ 0)) $ every 2 (off 0.25 (|+ 0))
...@@ -39,16 +41,16 @@ $ whenmod 31 24 (|+ note 0) ...@@ -39,16 +41,16 @@ $ whenmod 31 24 (|+ note 0)
$ whenmod 31 16 (|- note 7) $ whenmod 31 16 (|- note 7)
$ whenmod 31 8 (|+ note 0) $ whenmod 31 8 (|+ note 0)
$ whenmod 31 0 (|+ note 7) $ whenmod 31 0 (|+ note 7)
-- $ someCyclesBy 0.2 (off (1/16) (|+ 0)) $ someCyclesBy 0.2 (off (1/16) (|+ 0))
-- $ someCycles (off (1/8) (|- 7)) $ someCycles (off (1/8) (|- 7))
-- $ swing 4 $ superimpose ((|- note 21) . (# gain 0.7))
$ note ( $ note (
-- 3 * (-7) + -- 3 * (-7) +
(scale "major" "[0, 3, 5]") + (scale "major" "[0, 3, 5]") +
"<0 5 7 12>" "<0 5 7 12>"
) )
# s "cheapPiano1" # s "cheapPiano1"
# gain 0.9 # gain 0.8
d5 d5
$ whenmod 16 14 (# velocity 0.5) $ whenmod 16 14 (# velocity 0.5)
...@@ -60,4 +62,4 @@ $ someCyclesBy 0.2 (# release 0.2) ...@@ -60,4 +62,4 @@ $ someCyclesBy 0.2 (# release 0.2)
$ s "superpiano" $ s "superpiano"
# note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>" - 7) # note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>" - 7)
# pan 0.8 # pan 0.8
# velocity 0.9 # velocity 0.8
-- Techno - 80s - aerian -- Techno - 80s - aerian
setcps 0.5 setcps 0.6
d1 d1
-- $ fast 4 . (off 0.5 (# s "<~ clap>")) -- $ fast 4 . (off 0.5 (# s "<~ clap>"))
$ (fast 2) . (off 0.5 ((# s "clap:1") . (# room 0.5) . (# dry 1))) $ (fast 2) . (off 0.5 ((# s "clap:1") . (# room 0.5) . (# dry 1)))
$ s "kick:2" $ s "kick:2"
# gain 0.8 # gain 1
d2 -- batterie, FIXME too loud d2 -- batterie, FIXME too loud
$ fix (# s "electro1:0") (n 1) $ fix (# s "electro1:0") (n 1)
$ n "3 1 3 [[1 ~ 1?] 1]" $ n "3 1 3 [[1 ~ 1?] 1]"
# s "jazz" # s "jazz"
# gain 0.8
-- # note (irand 7) -- # note (irand 7)
d3 -- drums d3 -- drums
...@@ -31,7 +32,7 @@ $ s "[~ electro1:1]*4" ...@@ -31,7 +32,7 @@ $ s "[~ electro1:1]*4"
d5 d5
$ whenmod 8 4 (|- note 2) $ whenmod 8 4 (|- note 2)
$ off 0.125 (degrade . (# room 0.2) . (# size 0.8)) -- $ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
$ superimpose ((# s "bass3:2") . (|+ note 7)) $ superimpose ((# s "bass3:2") . (|+ note 7))
$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>" $ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
|- note 14 |- note 14
...@@ -68,7 +69,6 @@ $ s "glitch:2" -- # n (run 8) ...@@ -68,7 +69,6 @@ $ s "glitch:2" -- # n (run 8)
# cut 1 # cut 1
# gain 1.2 # gain 1.2
--- SANDBOX --- SANDBOX
d6 -- lead synth? too low currently d6 -- lead synth? too low currently
......
...@@ -2,11 +2,11 @@ setcps 0.5 ...@@ -2,11 +2,11 @@ setcps 0.5
d1 -- batterie d1 -- batterie
$ whenmod 64 16 (fast 4 . (every 4 (off 0.5 (|+ 0)))) $ whenmod 64 16 (fast 4 . (every 4 (off 0.5 (|+ 0))))
$ s "popkick" $ s "{popkick,kick:5}"
# gain 0.8 # gain 0.8
d2 -- drums TODO: too loud on 16/64 d2 -- drums TODO: too loud on 16/64
$ whenmod 64 16 (sometimes (# s "dr") . (# s "hh:5")) $ whenmod 64 16 (sometimes (# s "dr") . (# s "hh:5") . (# gain 0.9))
$ whenmod 64 14 (fast 2 . (# s "hh:1")) $ whenmod 64 14 (fast 2 . (# s "hh:1"))
$ whenmod 4 3 (sometimes (# n "1")) $ whenmod 4 3 (sometimes (# n "1"))
$ someCycles (fast 2) $ someCycles (fast 2)
...@@ -15,7 +15,7 @@ $ "hh:12" ...@@ -15,7 +15,7 @@ $ "hh:12"
d3 -- basse d3 -- basse
$ whenmod 8 4 (|- note 5) -- quinte $ whenmod 8 4 (|- note 5) -- quinte
$ someCyclesBy 0.2 ((# room 0.2) . (# dry 8)) $ someCyclesBy 0.2 ((# room 0.1) . (# dry 8))
$ someCycles (# attack 0.2) $ someCycles (# attack 0.2)
$ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7) $ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)
# s "bassWarsaw" # s "bassWarsaw"
...@@ -34,7 +34,7 @@ $ note (scale "major" "~ [3,<8 7 5>,10]" - 7) ...@@ -34,7 +34,7 @@ $ note (scale "major" "~ [3,<8 7 5>,10]" - 7)
# s "superpiano" # s "superpiano"
# sustain 2 # sustain 2
# velocity 0.8 # velocity 0.8
# gain 0.8 -- # gain 1
d5 -- choeur fou d5 -- choeur fou
$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>") $ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
......
...@@ -8,9 +8,11 @@ $ every' 4 3 (# gain "0 <0 1 1 0>") -- dark arp ...@@ -8,9 +8,11 @@ $ every' 4 3 (# gain "0 <0 1 1 0>") -- dark arp
$ whenmod 32 0 (fix (# gain 0) (s "arp")) $ whenmod 32 0 (fix (# gain 0) (s "arp"))
$ whenmod 32 16 (someCycles (fix (# silence) (s "electro1"))) $ whenmod 32 16 (someCycles (fix (# silence) (s "electro1")))
$ s "kick:14 [electro1:2, arp]" $ s "kick:14 [electro1:2, arp]"
# gain 0.9 # gain 1
d2 $ s "hh*2 clap:3(<2 2 1 1>,4)" d2 $ s "hh*2 clap(<2 2 1 1>,4)"
# n "0 <2 2 2 3>"
# gain 0.9
d3 d3
$ someCycles (# silence) $ someCycles (# silence)
...@@ -25,8 +27,8 @@ $ sometimes (off 0.125 (|+ 0)) ...@@ -25,8 +27,8 @@ $ sometimes (off 0.125 (|+ 0))
$ s "~ electro1:2" $ s "~ electro1:2"
d5 d5
$ whenmod 128 100 ((# gain "<0.7 0 0.7 [0 0.7]>") . (# lpq "1")) -- $ whenmod 128 100 ((# gain "<0.7 0 0.7 [0 0.7]>") . (# lpq "1"))
-- $ whenmod 128 1 (# gain "<0.8 1 0.8 [0.8 0.8]>") $ whenmod 128 1 (# gain "<0.8 1 0.8 [0.8 0.8]>")
$ whenmod 64 32 ((|- note 7) . chop "2 0") $ whenmod 64 32 ((|- note 7) . chop "2 0")
$ whenmod 64 1 (|+ note 7) $ whenmod 64 1 (|+ note 7)
$ someCyclesBy 0.1 (chop 2 . superimpose (rev)) $ someCyclesBy 0.1 (chop 2 . superimpose (rev))
......
d1
$ s "~ clap:1"
d2
$ euclid "<2 3 4 3>" 4
$ s "kick:5"
# gain 0.8
d3
$ euclid "<3 5 8 3>" 8
$ s "sosHats"
# n "<0 0 0 1 1 1>"
d4 --- lead Piano: TODO Parov's Number one MC
$ superimpose (|- note 5)
$ s "p ~ ~ p ~ p ~ ~"
# note "<3 3 5 3> ~ ~ 5 ~ <8 3 3 8> ~ ~"
# s "superpiano"
# velocity (0.6 + rand /4)
# sustain 0.8
d4
$ rev
$ note "<3 3 5 3> ~ ~ 5 ~ <8 3 3 8> ~ ~"
# s "bass3:5"
once $ s "bogdan:5" # cut 1 -- money
once $ s "bogdan:6"
# cut 1 -- that's right
-- From Introspective by LAAKE
setcps 0.42
d1 -- kick: encore un peu sec
$ euclid 4 4
$ s "[armora,bassdm:2]"
# release 0.1
# gain 0.8
d2 -- white noise
$ s "~ glitch:2" -- # n (run 8)
# cut 1
d3 $ s ""
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