{-# LANGUAGE DataKinds #-}

{-# LANGUAGE NoMonomorphismRestriction #-}

module Vivid.UGens.Examples where

import Vivid

-- | 'Dbrown' example from the SC help file
dbrown_example = do
   mx <- mouseX (min_ 1, max_ 40, warp_ 1)
   imp <- impulse (freq_ mx) ? KR
   dbr <- dbrown (lo_ 0, hi_ 15, step_ 1, length_ inf)
   dem <- demand (trig_ imp, reset_ 0, ugen_ dbr)
   s <- 0.1 ~* sinOsc (freq_ $ dem ~* 30 ~+ 340)
   out 0 [s,s]