Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

twiddle

  • Loading branch information...
commit 3e4e832f4f952ac1064b46467ffabc0eff58ca41 1 parent bd0b2a8
@yaxu authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Dirt.hs
View
2  Dirt.hs
@@ -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]")
Please sign in to comment.
Something went wrong with that request. Please try again.