Commit 3db9c177 authored by Guerric Chupin's avatar Guerric Chupin

Removed debug.

parent b396d636
......@@ -10,8 +10,6 @@ import Data.Maybe
import Data.ReactiveValue
import FRP.Yampa
import Debug.Trace
-- |= General functions
......@@ -104,7 +102,7 @@ varFreqSine = sin ^<< (2*pi*) ^<< integral <<^ (1/)
-- | Generates an 'Event' at a regular frequency, which is given as an input to the signal function.
repeatedlyS :: a -> SF DTime (Event a)
repeatedlyS x = edgeBy (\a b -> traceShow (a,b) (maybeIf (a * b < 0) $> x)) 0
repeatedlyS x = edgeBy (\a b -> maybeIf (a * b < 0) $> x) 0
<<< varFreqSine <<^ (2*)
-- |
......
......@@ -31,7 +31,8 @@ noteToMessages :: SampleRate
-> (Frames,Note)
-> [(Frames,Message)]
noteToMessages sr chan lt (t,n@Note { noteDur = d }) =
[(t,nm),(t + dn,switchOnOff nm)]
| d == 0 = []
| otherwise = [(t,nm),(t + dn,switchOnOff nm)]
where nm = noteOnToMessage chan n
dt :: Double
dt = fromRational (d * toRational (tempoToQNoteIvl lt))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment