> {-# 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
>
> atone :: Signal p (StartPt, StartPt) StartPt
atone = Signal p (StartPt, StartPt) StartPt
forall p. Clock p => Signal p (StartPt, StartPt) StartPt
filterHighPass
>
> 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
>
>
> 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
>
>
> 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
>
>
> 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