Permalink
Browse files

tidy

  • Loading branch information...
1 parent f5d04f2 commit e49bc2b4a6ab6e41b33b67cc1a1d5e0fc2f016ed @yaxu committed Oct 28, 2013
Showing with 8 additions and 16 deletions.
  1. +8 −16 examples/cycles.tidal
View
@@ -2,38 +2,38 @@
# 0
-d9 $ brak $ let x = "bd [sn [[sn bd] sn]]*1/3" in interlace (sound $ slow 3 $ x) (sound $ every 3 (append "[bd]*6") x)
+d1 $ brak $ let x = "bd [sn [[sn bd] sn]]*1/3" in interlace (sound $ slow 3 $ x) (sound $ every 3 (append "[bd]*6") x)
|+| speed "4"
# 1
-d8 $ weave 4 (speed $ (1+) <$> sinewave1) [density 4 $ every 5 ((0.25 <~) . rev) $ striate 16 $ sound"[bd sn/2]/2", sound "bd [~ hc]*3"]
+d1 $ weave 4 (speed $ (1+) <$> sinewave1) [density 4 $ every 5 ((0.25 <~) . rev) $ striate 16 $ sound"[bd sn/2]/2", sound "bd [~ hc]*3"]
|+| speed "3"
# 2
-d7 $ (echo (1/32) $ whenmod 8 6 (rev) $ density 4 $ striate 4 $ sound $ samples "[bd [sn]*3]*1/4" (slow 13 $ run 12))
+d1 $ (echo (1/32) $ whenmod 8 6 (rev) $ density 4 $ striate 4 $ sound $ samples "[bd [sn]*3]*1/4" (slow 13 $ run 12))
|+| speed "2"
# 3
-d6 $ whenmod 4 2 rev $ spread' (striate) "[8 3 4, 5]" $ sound "[[nn/6 nn/4, [nn/5 nn/2 nn/3]*1/2]*1/3, kurt/1]"
+d1 $ whenmod 4 2 rev $ spread' (striate) "[8 3 4, 5]" $ sound "[[nn/6 nn/4, [nn/5 nn/2 nn/3]*1/2]*1/3, kurt/1]"
# 4
-d5 $ sound (samples "bd*3 [bd sn]*1/3 [bd*12 bd*6]/3 cp" "[0 2 4]/3") |+| end (slow 5 $ sinewave1) |+| speed ((+1) <$> triwave1)
+d1 $ sound (samples "bd*3 [bd sn]*1/3 [bd*12 bd*6]/3 cp" "[0 2 4]/3") |+| end (slow 5 $ sinewave1) |+| speed ((+1) <$> triwave1)
# 5
-d4 $ slow 2 $ stack [spin 6 $ spread' (slow) "3 4 5 2" $ sound "[bd*5 ht*5, [sid/4]*3 lt*2/5 mt*3, [sid/3]*3]"] |+| speed "2"
+d1 $ slow 2 $ stack [spin 6 $ spread' (slow) "3 4 5 2" $ sound "[bd*5 ht*5, [sid/4]*3 lt*2/5 mt*3, [sid/3]*3]"] |+| speed "2"
# 6
-d3 $ every 2 rev $ spread' (striate' 6) (((+0.1) . (*0.2)) <$> slow 32 sinewave1) $ sound "[diphone2/6 diphone2]/4"
+d1 $ every 2 rev $ spread' (striate' 6) (((+0.1) . (*0.2)) <$> slow 32 sinewave1) $ sound "[diphone2/6 diphone2]/4"
# 6.1
-d2 $ density 16 $ spread' (striate' 32) (((+0.04) . (*0.08)) <$> slow 128 sinewave1) $ sound (samples "amencutup" (slow 12 $ run 16))
+d1 $ density 16 $ spread' (striate' 32) (((+0.04) . (*0.08)) <$> slow 128 sinewave1) $ sound (samples "amencutup" (slow 12 $ run 16))
# 6.2
@@ -47,8 +47,6 @@ d1 $ slow 2$spread' striate "[4 2 3 8]/3" $ whenmod 4 2 (jux (rev)) $ sound "[[b
d1 $ slow 2 $ spread' striate "[4 2 8 1]/3" $ jux palindrome $ sound "[jvbass*4 jvbass/5*8 ~ jvbass/9*6, drum*2 sn/2 drum/2*6 rave/3]"
-bps $ 140/60
-
# 8
d1 $ slow 8 $ every 4 (rev) $ jux (|+| speed "[2,3]") $ spread' striate "[4 3 2, 6]" $ sound (samples "stab*4 sn" $ run 8)
@@ -57,19 +55,13 @@ d1 $ slow 8 $ every 4 (rev) $ jux (|+| speed "[2,3]") $ spread' striate "[4 3 2,
d1 $ every 2 (density 2) $ jux (spread' (striate) "[1 16 4 8]/3") $ sound (samples "[drum bd*12]" "[1 2 3 0]") |+| speed "[2 1.5 1]/4"
-d1 $ every 2 (density 2) $ jux (spread' (striate) "[1 16 4 8]/3") $ sound (samples "[drum bd*12]" "[1 2 3 0]") |+| speed "[2 1.5 1]/4"
-
-d1 $ every 2(density 2)$jux(spread'(striate)"[1 16 4 8]/3")$sound(samples"[drum bd*12]""[1 2 3 0]")|+|speed"[2 1.5 1]/4"
-
-
# 10
d1 $ density 2 $ jux (iter 32) $ sound "bass3/2 bass3/0" |+| (speed $ every 2 rev $ "[8 3 4]/3")
# 11
d1 $ superimpose ((|+|vowel"a").iter 4)$jux rev$sound (samples "[amencutup*8 bass3*2,[jvbass*8]/3]" $ slow (3/5)$run 12)
-hush
# 12

0 comments on commit e49bc2b

Please sign in to comment.