content: > {-# LANGUAGE Arrows, NoMonomorphismRestriction #-}
  
  This module is strictly for backward compatibility with Euterpea 0.1.0,
  which used many csound names for the basic signal functions.
  
  > module Euterpea.IO.Audio.CSound where
  > import Euterpea.IO.Audio.BasicSigFuns
  > import Euterpea.IO.Audio.Basics
  
  > gen05    = tableExponN
  > gen05'   = tableExpon
  > gen07    = tableLinearN
  > gen07'   = tableLinear
  > gen09    = tableSines3N
  > gen09'   = tableSines3
  > gen10    = tableSinesN
  > gen10'   = tableSines
  > gen12    = tableBesselN
  > gen12'   = tableBessel
  
  > compSine1    = tableSinesN
  > compSine2    = tableSines3N
  > exponential1 = tableExponN
  > lineSeg1     = tableLinearN
  
  > tone     = filterLowPass 
  > --             :: forall p . Clock p => Signal p (Double, Double) Double
  > atone    = filterHighPass
  > --             :: forall p . Clock p => Signal p (Double, Double) Double
  > reson    = filterBandPass
  > --             :: forall p . Clock p =>
  > --                  Int -> Signal p (Double, Double, Double) Double
  > areson   = filterBandStop
  > --             :: forall p . Clock p =>
  > --                  Int -> Signal p (Double, Double, Double) Double
  > butterlp = filterLowPassBW
  > butterhp = filterHighPassBW
  > butterbp = filterBandPassBW
  > butterbr = filterBandStopBW
  > comb     = filterComb
  
  > oscil    = osc
  > oscili   = oscI
  > oscils f = proc a -> do
  >              o <- oscFixed f -< ()
  >              outA -< o*a
  > oscil1 tab del dur = 
  >            proc a -> do
  >              o <- oscDur  tab del dur -< ()
  >              outA -< o*a
  > oscil1i tab del dur =
  >            proc a -> do
  >              o <- oscDurI tab del dur -< ()
  >              outA -< o*a
  
  > buzz     = oscPartials
  
  > -- pluck    = pluck
  > -- balance  = balance
  
  > line a d b =
  >   proc s -> do
  >     o <- envLine a d b -< ()
  >     outA -< o*s
  
  > expon a d b =
  >   proc s -> do
  >     o <- envExpon a d b -< ()
  >     outA -< o*s
  
  > linseg   = envLineSeg
  > expseg   = envExponSeg
  
  > linen rise dur dec = 
  >   proc s -> do
  >     o <- envASR rise dur dec -< ()
  >     outA -< o*s
  
  > envlpx rise dur dec tab atss atdec =
  >   proc s -> do
  >     o <- envCSEnvlpx rise dur dec tab atss atdec -< ()
  >     outA -< o*s
  
  > rand s = 
  >   proc a -> do
  >     o <- noiseWhite s -< ()
  >     outA -< o*a
  
  > randi s = 
  >   proc (a,f) -> do
  >     o <- noiseBLI s -< f
  >     outA -< o*a
  
  > randh s =
  >   proc (a,f) -> do
  >     o <- noiseBLH s -< f
  >     outA -< o*a
  
  > delay  = delayLine
  > vdelay = delayLine1
  > delay1 = delayLine1
  > delayT = delayLineT
  