Permalink
Browse files

twiddle

  • Loading branch information...
1 parent bd0b2a8 commit 3e4e832f4f952ac1064b46467ffabc0eff58ca41 @yaxu committed Dec 28, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Dirt.hs
View
@@ -58,4 +58,4 @@ striateO :: OscSequence -> Int -> Double -> OscSequence
striateO p n o = cat $ map (\x -> off (fromIntegral x) p) [0 .. n-1]
where off i p = p ~~ begin ((atom $ (fromIntegral i / fromIntegral n) + o) :: Sequence Double) ~~ end ((atom $ (fromIntegral (i+1) / fromIntegral n) + o) :: Sequence Double)
-metronome = slow 2 $ sound "[odx, [hh]*8]"
+metronome = slow 2 $ sound (p "[odx, [hh]*8]")

0 comments on commit 3e4e832

Please sign in to comment.