Skip to content
Browse files

fiddle

  • Loading branch information...
1 parent b19758b commit 003cfae005df2f035b46fc5c8363228bc64b66e5 @yaxu committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 Pattern.hs
View
4 Pattern.hs
@@ -187,8 +187,8 @@ sinewave = Signal {at = f}
sinewave1 :: Pattern Double
sinewave1 = fmap ((/ 2) . (+ 1)) sinewave
-sample :: Int -> Pattern a -> Pattern a
-sample n s = Cycle ps
+discretise :: Int -> Pattern a -> Pattern a
+discretise n s = Cycle ps
where
d = 1 % (fromIntegral n)
ps = map (\x ->

0 comments on commit 003cfae

Please sign in to comment.
Something went wrong with that request. Please try again.