Browse Source

reset scratch file for how it should sound near the start

Aneurin Barker Snook 8 years ago
parent
commit
e1240ed9df
1 changed files with 12 additions and 12 deletions
  1. 12 12
      scratch.tidal

+ 12 - 12
scratch.tidal

@@ -27,34 +27,34 @@ d'drum silence
 
 let --dp = n "1/4"
     --dp = n "[1*2, 0*8]/8"
-    --dp = n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
-    dp = n "[1, 0*2 [~ 0] ! ~]/4"
+    dp = n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
+    --dp = n "[1, 0*2 [~ 0] ! ~]/4"
 {--}
     kp = n "[~ [0 2]/2]"
     --kp = n "[[~ 0] [[2!! ~]/4 0]]/2"
 {--}
-    --sp = n ""
+    sp = n ""
     --sp = 4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4"
-    sp = 4 ~> n "[~ [0 ~ ~ 0/2] ~ 0]/4"
+    --sp = 4 ~> n "[~ [0 ~ ~ 0/2] ~ 0]/4"
 {--}
     ste = id -- . mt 16 16
     de = id
-         . (whenmod 9 5 . whenmod 7 4) (density 2 . rev) {- 9 5? -}
+--         . (whenmod 9 5 . whenmod 7 4) (density 2 . rev) {- 9 5? -}
 --         . superimpose (0.25 ~>)
     ke = id
 --         . every' 16 8 (const $ s "kit:3")
 --         . whenmod 3 2 (density 2)
 --         . (whenmod 11 5 . within (0.5, 1)) (density 2)
     se = id
-         . within (0.1, 0.4) (# nudge "0.05") . within (0.6, 0.9) (# nudge "0.05")
---{-
+--         . within (0.1, 0.4) (# nudge "0.05") . within (0.6, 0.9) (# nudge "0.05")
+{-
          . whenmod 7 6 (slowspread ($) [
                            density 8 . rev . slow 4,
                            (0.25 <~),
                            (0.25 ~>)
                            ])
 --}
---{-
+{-
          . whenmod 5 3 (
            superimpose (
               within (0, 0.5) ((# gain "0.6") . (# n (irand 3)) . (# s "tom")) .
@@ -75,7 +75,7 @@ icarus
 d'wax silence
 
 d'wax $
-  every' 2 2 (within (0, 0.75) (iter 16)) $
+--  every' 2 2 (within (0, 0.75) (iter 16)) $
   slow 16 . striate 256 $ s "icarus"
 
 d'wax $ retrig $ s "icarus:1/20"
@@ -97,7 +97,7 @@ let ns = slow 16 . striate 256
 --           . nudge "0"
            )
 --}
-          . (0.5 ~>)
+--          . (0.5 ~>)
   in d'nim $
      ne $ ns $ n "[0 1]/2" # s "nimble"
 
@@ -109,10 +109,10 @@ d'bass silence
 let be = id
 --         . (# speed "[1 1.2]")
 --         . (0.5 ~>)
-         . (1.3 ~>)
+--         . (1.3 ~>)
     bc = id
 --         . striate 16
-         . gap 32
+--         . gap 32
     bs = id
          . slow 8
 --         . mt 16 2