|
@@ -0,0 +1,73 @@
|
|
|
+let bpm b = cps (b/60)
|
|
|
+let withmod a b c d = (whenmod a b . within (c, d))
|
|
|
+let every' n o f = when ((== (o-1)) . (`mod` n)) f
|
|
|
+
|
|
|
+-- original bpm = 105
|
|
|
+bpm 105
|
|
|
+
|
|
|
+d1 $ n "{1/4, 0}" # s "drum"
|
|
|
+
|
|
|
+d1 $ n "{1/4, [0 ~ 0*2 [~ ~ ~ 0]]/4}" # s "drum"
|
|
|
+
|
|
|
+d2 $ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
|
|
|
+
|
|
|
+d2 $
|
|
|
+ withmod 11 5 0.5 1 (density 2) $
|
|
|
+ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
|
|
|
+
|
|
|
+d2 $
|
|
|
+ whenmod 3 2 (density 2) $
|
|
|
+ withmod 11 5 0.5 1 (density 2) $
|
|
|
+ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
|
|
|
+
|
|
|
+d2 $
|
|
|
+ whenmod 3 2 (density 2) $
|
|
|
+ withmod 11 5 0.5 1 (density 2) $
|
|
|
+ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
|
|
|
+
|
|
|
+d2 $
|
|
|
+ every' 32 32 (const $ s "kit:3") $
|
|
|
+ whenmod 3 2 (density 2) $
|
|
|
+ withmod 11 5 0.5 1 (density 2) $
|
|
|
+ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
|
|
|
+
|
|
|
+d3 $ s "icarus/16"
|
|
|
+
|
|
|
+d3 $
|
|
|
+ slow 8 $
|
|
|
+ smash 64 [0.5,0.75] $
|
|
|
+ s "icarus"
|
|
|
+
|
|
|
+d3 $
|
|
|
+ off 0.5 (slow 1.5) $
|
|
|
+ slow 8 $
|
|
|
+ smash 64 [0.5,0.75] $
|
|
|
+ s "icarus"
|
|
|
+
|
|
|
+d4 $ slow 16 $ n "[0 1]/2" # s "nimble"
|
|
|
+
|
|
|
+d4 $
|
|
|
+ superimpose (iter 4) $
|
|
|
+ whenmod 4 3 rev $
|
|
|
+ slow 16 $ striate 128 $
|
|
|
+ n "[0 1]/2" # s "nimble"
|
|
|
+
|
|
|
+d4 $
|
|
|
+ superimpose (iter 4) $
|
|
|
+ whenmod 4 3 rev $
|
|
|
+ slow 16 $ striate 128 $
|
|
|
+ n "[0 1]/2" # s "nimble"
|
|
|
+ # speed ((+0.4).(/1.5) <$> slow 16 saw1)
|
|
|
+
|
|
|
+{-
|
|
|
+d4 $
|
|
|
+ (# speed "[-1 1]/3") $
|
|
|
+ superimpose (iter 4) $
|
|
|
+ whenmod 4 3 rev $
|
|
|
+ slow 16 $ striate 128 $
|
|
|
+ n "[0 1]/2" # s "nimble"
|
|
|
+-}
|
|
|
+
|
|
|
+:t preplace
|
|
|
+
|
|
|
+hush
|