Permalink
Browse files

striate not explode

  • Loading branch information...
1 parent b9bbd8b commit 2471f3b2daaaca2ef04bff80caad20eb6b36e9ac @yaxu committed Mar 28, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 Dirt.hs
View
@@ -42,7 +42,7 @@ vowel = makeS dirt "vowel"
sample :: String -> Int -> String
sample name n = name ++ "/" ++ (show n)
-explode :: OscPattern -> Int -> OscPattern
-explode p n = cat $ map (\x -> off (fromIntegral x) p) [0 .. n-1]
+striate :: OscPattern -> Int -> OscPattern
+striate p n = cat $ map (\x -> off (fromIntegral x) p) [0 .. n-1]
where off i p = p ~~ begin (Atom (fromIntegral i / fromIntegral n)) ~~ end (Atom (fromIntegral (i+1) / fromIntegral n))

0 comments on commit 2471f3b

Please sign in to comment.