> {-# 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 :: TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
gen05    = TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
tableExponN
> gen05' :: TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
gen05'   = TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
tableExpon
> gen07 :: TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
gen07    = TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
tableLinearN
> gen07' :: TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
gen07'   = TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
tableLinear
> gen09 :: TableSize -> [(StartPt, StartPt, StartPt)] -> Table
gen09    = TableSize -> [(StartPt, StartPt, StartPt)] -> Table
tableSines3N
> gen09' :: TableSize -> [(StartPt, StartPt, StartPt)] -> Table
gen09'   = TableSize -> [(StartPt, StartPt, StartPt)] -> Table
tableSines3
> gen10 :: TableSize -> [StartPt] -> Table
gen10    = TableSize -> [StartPt] -> Table
tableSinesN
> gen10' :: TableSize -> [StartPt] -> Table
gen10'   = TableSize -> [StartPt] -> Table
tableSines
> gen12 :: TableSize -> StartPt -> Table
gen12    = TableSize -> StartPt -> Table
tableBesselN
> gen12' :: TableSize -> StartPt -> Table
gen12'   = TableSize -> StartPt -> Table
tableBessel

> compSine1 :: TableSize -> [StartPt] -> Table
compSine1    = TableSize -> [StartPt] -> Table
tableSinesN
> compSine2 :: TableSize -> [(StartPt, StartPt, StartPt)] -> Table
compSine2    = TableSize -> [(StartPt, StartPt, StartPt)] -> Table
tableSines3N
> exponential1 :: TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
exponential1 = TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
tableExponN
> lineSeg1 :: TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
lineSeg1     = TableSize -> StartPt -> [(StartPt, StartPt)] -> Table
tableLinearN

> tone :: Signal p (StartPt, StartPt) StartPt
tone     = Signal p (StartPt, StartPt) StartPt
forall p. Clock p => Signal p (StartPt, StartPt) StartPt
filterLowPass 
> --             :: forall p . Clock p => Signal p (Double, Double) Double

> atone :: Signal p (StartPt, StartPt) StartPt
atone    = Signal p (StartPt, StartPt) StartPt
forall p. Clock p => Signal p (StartPt, StartPt) StartPt
filterHighPass
> --             :: forall p . Clock p => Signal p (Double, Double) Double

> reson :: TableSize -> Signal p (StartPt, StartPt, StartPt) StartPt
reson    = TableSize -> Signal p (StartPt, StartPt, StartPt) StartPt
forall p.
Clock p =>
TableSize -> Signal p (StartPt, StartPt, StartPt) StartPt
filterBandPass
> --             :: forall p . Clock p =>

> --                  Int -> Signal p (Double, Double, Double) Double

> areson :: TableSize -> Signal p (StartPt, StartPt, StartPt) StartPt
areson   = TableSize -> Signal p (StartPt, StartPt, StartPt) StartPt
forall p.
Clock p =>
TableSize -> Signal p (StartPt, StartPt, StartPt) StartPt
filterBandStop
> --             :: forall p . Clock p =>

> --                  Int -> Signal p (Double, Double, Double) Double

> butterlp :: Signal p (StartPt, StartPt) StartPt
butterlp = Signal p (StartPt, StartPt) StartPt
forall p. Clock p => Signal p (StartPt, StartPt) StartPt
filterLowPassBW
> butterhp :: Signal p (StartPt, StartPt) StartPt
butterhp = Signal p (StartPt, StartPt) StartPt
forall p. Clock p => Signal p (StartPt, StartPt) StartPt
filterHighPassBW
> butterbp :: Signal p (StartPt, StartPt, StartPt) StartPt
butterbp = Signal p (StartPt, StartPt, StartPt) StartPt
forall p. Clock p => Signal p (StartPt, StartPt, StartPt) StartPt
filterBandPassBW
> butterbr :: Signal p (StartPt, StartPt, StartPt) StartPt
butterbr = Signal p (StartPt, StartPt, StartPt) StartPt
forall p. Clock p => Signal p (StartPt, StartPt, StartPt) StartPt
filterBandStopBW
> comb :: StartPt -> Signal p (StartPt, StartPt) StartPt
comb     = StartPt -> Signal p (StartPt, StartPt) StartPt
forall p. Clock p => StartPt -> Signal p (StartPt, StartPt) StartPt
filterComb

> oscil :: Table -> StartPt -> ArrowP a p StartPt StartPt
oscil    = Table -> StartPt -> ArrowP a p StartPt StartPt
forall p (a :: * -> * -> *).
(Clock p, ArrowCircuit a) =>
Table -> StartPt -> ArrowP a p StartPt StartPt
osc
> oscili :: Table -> StartPt -> ArrowP a p StartPt StartPt
oscili   = Table -> StartPt -> ArrowP a p StartPt StartPt
forall p (a :: * -> * -> *).
(Clock p, ArrowCircuit a) =>
Table -> StartPt -> ArrowP a p StartPt StartPt
oscI
> oscils :: StartPt -> ArrowP a p StartPt StartPt
oscils StartPt
f = proc StartPt
a -> do
>              StartPt
o <- StartPt -> ArrowP a p () StartPt
forall p (a :: * -> * -> *).
(Clock p, ArrowCircuit a) =>
StartPt -> ArrowP a p () StartPt
oscFixed StartPt
f -< ()
>              ArrowP a p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
a
> oscil1 :: Table -> StartPt -> StartPt -> ArrowP a p StartPt StartPt
oscil1 Table
tab StartPt
del StartPt
dur = 
>            proc StartPt
a -> do
>              StartPt
o <- Table -> StartPt -> StartPt -> ArrowP a p () StartPt
forall p (a :: * -> * -> *).
(Clock p, ArrowChoice a, ArrowCircuit a) =>
Table -> StartPt -> StartPt -> ArrowP a p () StartPt
oscDur  Table
tab StartPt
del StartPt
dur -< ()
>              ArrowP a p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
a
> oscil1i :: Table -> StartPt -> StartPt -> ArrowP a p StartPt StartPt
oscil1i Table
tab StartPt
del StartPt
dur =
>            proc StartPt
a -> do
>              StartPt
o <- Table -> StartPt -> StartPt -> ArrowP a p () StartPt
forall p (a :: * -> * -> *).
(Clock p, ArrowChoice a, ArrowCircuit a) =>
Table -> StartPt -> StartPt -> ArrowP a p () StartPt
oscDurI Table
tab StartPt
del StartPt
dur -< ()
>              ArrowP a p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
a

> buzz :: Table -> StartPt -> Signal p (StartPt, TableSize) StartPt
buzz     = Table -> StartPt -> Signal p (StartPt, TableSize) StartPt
forall p.
Clock p =>
Table -> StartPt -> Signal p (StartPt, TableSize) StartPt
oscPartials

> -- pluck    = pluck

> -- balance  = balance


> line :: StartPt -> StartPt -> StartPt -> ArrowP SF p StartPt StartPt
line StartPt
a StartPt
d StartPt
b =
>   proc StartPt
s -> do
>     StartPt
o <- StartPt -> StartPt -> StartPt -> Signal p () StartPt
forall p.
Clock p =>
StartPt -> StartPt -> StartPt -> Signal p () StartPt
envLine StartPt
a StartPt
d StartPt
b -< ()
>     ArrowP SF p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
s

> expon :: StartPt -> StartPt -> StartPt -> ArrowP SF p StartPt StartPt
expon StartPt
a StartPt
d StartPt
b =
>   proc StartPt
s -> do
>     StartPt
o <- StartPt -> StartPt -> StartPt -> Signal p () StartPt
forall p.
Clock p =>
StartPt -> StartPt -> StartPt -> Signal p () StartPt
envExpon StartPt
a StartPt
d StartPt
b -< ()
>     ArrowP SF p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
s

> linseg :: [StartPt] -> [StartPt] -> Signal p () StartPt
linseg   = [StartPt] -> [StartPt] -> Signal p () StartPt
forall p. Clock p => [StartPt] -> [StartPt] -> Signal p () StartPt
envLineSeg
> expseg :: [StartPt] -> [StartPt] -> Signal p () StartPt
expseg   = [StartPt] -> [StartPt] -> Signal p () StartPt
forall p. Clock p => [StartPt] -> [StartPt] -> Signal p () StartPt
envExponSeg

> linen :: StartPt -> StartPt -> StartPt -> ArrowP SF p StartPt StartPt
linen StartPt
rise StartPt
dur StartPt
dec = 
>   proc StartPt
s -> do
>     StartPt
o <- StartPt -> StartPt -> StartPt -> Signal p () StartPt
forall p.
Clock p =>
StartPt -> StartPt -> StartPt -> Signal p () StartPt
envASR StartPt
rise StartPt
dur StartPt
dec -< ()
>     ArrowP SF p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
s

> envlpx :: StartPt
-> StartPt
-> StartPt
-> Table
-> StartPt
-> StartPt
-> ArrowP SF p StartPt StartPt
envlpx StartPt
rise StartPt
dur StartPt
dec Table
tab StartPt
atss StartPt
atdec =
>   proc StartPt
s -> do
>     StartPt
o <- StartPt
-> StartPt
-> StartPt
-> Table
-> StartPt
-> StartPt
-> Signal p () StartPt
forall p.
Clock p =>
StartPt
-> StartPt
-> StartPt
-> Table
-> StartPt
-> StartPt
-> Signal p () StartPt
envCSEnvlpx StartPt
rise StartPt
dur StartPt
dec Table
tab StartPt
atss StartPt
atdec -< ()
>     ArrowP SF p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
s

> rand :: TableSize -> ArrowP SF p StartPt StartPt
rand TableSize
s = 
>   proc StartPt
a -> do
>     StartPt
o <- TableSize -> Signal p () StartPt
forall p. TableSize -> Signal p () StartPt
noiseWhite TableSize
s -< ()
>     ArrowP SF p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
a

> randi :: TableSize -> ArrowP SF p (StartPt, StartPt) StartPt
randi TableSize
s = 
>   proc (StartPt
a,StartPt
f) -> do
>     StartPt
o <- TableSize -> Signal p StartPt StartPt
forall p. Clock p => TableSize -> Signal p StartPt StartPt
noiseBLI TableSize
s -< StartPt
f
>     Signal p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
a

> randh :: TableSize -> ArrowP SF p (StartPt, StartPt) StartPt
randh TableSize
s =
>   proc (StartPt
a,StartPt
f) -> do
>     StartPt
o <- TableSize -> Signal p StartPt StartPt
forall p. Clock p => TableSize -> Signal p StartPt StartPt
noiseBLH TableSize
s -< StartPt
f
>     Signal p StartPt StartPt
forall (a :: * -> * -> *) b. Arrow a => a b b
outA -< StartPt
oStartPt -> StartPt -> StartPt
forall a. Num a => a -> a -> a
*StartPt
a

> delay :: StartPt -> Signal p StartPt StartPt
delay  = StartPt -> Signal p StartPt StartPt
forall p. Clock p => StartPt -> Signal p StartPt StartPt
delayLine
> vdelay :: StartPt -> Signal p (StartPt, StartPt) StartPt
vdelay = StartPt -> Signal p (StartPt, StartPt) StartPt
forall p. Clock p => StartPt -> Signal p (StartPt, StartPt) StartPt
delayLine1
> delay1 :: StartPt -> Signal p (StartPt, StartPt) StartPt
delay1 = StartPt -> Signal p (StartPt, StartPt) StartPt
forall p. Clock p => StartPt -> Signal p (StartPt, StartPt) StartPt
delayLine1
> delayT :: TableSize -> Table -> Signal p StartPt StartPt
delayT = TableSize -> Table -> Signal p StartPt StartPt
forall p. Clock p => TableSize -> Table -> Signal p StartPt StartPt
delayLineT