> {-# 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
>
> atone = filterHighPass
>
> reson = filterBandPass
>
>
> areson = filterBandStop
>
>
> 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
>
>
> 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