> {-# 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