I unfortunately need to log out but here's something to get you started:
foo = sd (1 :: I "gate") $ do
e <- adsrGen 0.2 0.1 0.6 0.7 (Curve_Curve (-4)) (gate_ (V::V "gate"))
s <- e ~* sinOsc (freq_ $ midiCPS 50)
out 0 [s,s]
main = do
s <- synth foo ()
So far I'm able from Vivid to create continuously-running signal architectures and change their parameters over time. Next I want to create a "snare" (some noise with a brief amplitude envelope) and a "kick" (a sine wave with a quickly descending frequency).
Is there an idiom for that?
Jeff Brown | Jeffrey Benjamin Brown