{-# LANGUAGE DataKinds #-}
{-# LANGUAGE NoIncoherentInstances #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE NoUndecidableInstances #-}
module Vivid.UGens.Generators.Chaotic (
cuspL
, cuspN
, linCongC
, linCongL
, linCongN
) where
import Vivid.SC.SynthDef.Types (CalculationRate(..))
import Vivid.UGens.Args
import Vivid.SynthDef
import Vivid.SynthDef.FromUA
cuspL :: (Args '[] '["freq", "a", "b", "xi"] a) => a -> SDBody a Signal
cuspL :: a -> SDBody a Signal
cuspL = String
-> CalculationRate
-> Vs '["freq", "a", "b", "xi"]
-> (UA "freq" (SDBodyArgs a), UA "a" (SDBodyArgs a),
UA "b" (SDBodyArgs a), UA "xi" (SDBodyArgs a))
-> a
-> SDBody a Signal
forall (tags :: [Symbol]) optional userSupplied (args :: [Symbol]).
(GetSymbolVals (Vs tags), FromUA optional, FromUA userSupplied,
SDBodyArgs optional ~ SDBodyArgs userSupplied,
SDBodyArgs optional ~ args) =>
String
-> CalculationRate
-> Vs tags
-> optional
-> userSupplied
-> SDBody' args Signal
makeUGen
String
"CuspL" CalculationRate
AR
(Vs '["freq", "a", "b", "xi"]
forall (a :: [Symbol]). Vs a
Vs::Vs '["freq", "a", "b", "xi"])
(Float -> UA "freq" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "freq" as
freq_ (Float
22050::Float), Float -> UA "a" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "a" as
a_ (Float
1::Float), Float -> UA "b" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "b" as
b_ (Float
1.9::Float), Float -> UA "xi" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "xi" as
xi_ (Float
0::Float))
cuspN :: (Args '[] '["freq", "a", "b", "xi"] a) => a -> SDBody a Signal
cuspN :: a -> SDBody a Signal
cuspN = String
-> CalculationRate
-> Vs '["freq", "a", "b", "xi"]
-> (UA "freq" (SDBodyArgs a), UA "a" (SDBodyArgs a),
UA "b" (SDBodyArgs a), UA "xi" (SDBodyArgs a))
-> a
-> SDBody a Signal
forall (tags :: [Symbol]) optional userSupplied (args :: [Symbol]).
(GetSymbolVals (Vs tags), FromUA optional, FromUA userSupplied,
SDBodyArgs optional ~ SDBodyArgs userSupplied,
SDBodyArgs optional ~ args) =>
String
-> CalculationRate
-> Vs tags
-> optional
-> userSupplied
-> SDBody' args Signal
makeUGen
String
"CuspN" CalculationRate
AR
(Vs '["freq", "a", "b", "xi"]
forall (a :: [Symbol]). Vs a
Vs::Vs '["freq", "a", "b", "xi"])
(Float -> UA "freq" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "freq" as
freq_ (Float
22050::Float), Float -> UA "a" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "a" as
a_ (Float
1::Float), Float -> UA "b" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "b" as
b_ (Float
1.9::Float), Float -> UA "xi" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "xi" as
xi_ (Float
0::Float))
linCongC :: (Args '[] '["freq", "a", "c", "m", "xi"] a) => a -> SDBody a Signal
linCongC :: a -> SDBody a Signal
linCongC = String
-> CalculationRate
-> Vs '["freq", "a", "c", "m", "xi"]
-> (UA "freq" (SDBodyArgs a), UA "a" (SDBodyArgs a),
UA "c" (SDBodyArgs a), UA "m" (SDBodyArgs a),
UA "xi" (SDBodyArgs a))
-> a
-> SDBody a Signal
forall (tags :: [Symbol]) optional userSupplied (args :: [Symbol]).
(GetSymbolVals (Vs tags), FromUA optional, FromUA userSupplied,
SDBodyArgs optional ~ SDBodyArgs userSupplied,
SDBodyArgs optional ~ args) =>
String
-> CalculationRate
-> Vs tags
-> optional
-> userSupplied
-> SDBody' args Signal
makeUGen
String
"LinCongC" CalculationRate
AR
(Vs '["freq", "a", "c", "m", "xi"]
forall (a :: [Symbol]). Vs a
Vs::Vs '["freq", "a", "c", "m", "xi"])
(Float -> UA "freq" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "freq" as
freq_ (Float
22050::Float), Float -> UA "a" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "a" as
a_ (Float
1.1::Float), Float -> UA "c" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "c" as
c_ (Float
0.13::Float), Float -> UA "m" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "m" as
m_ (Float
1::Float), Float -> UA "xi" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "xi" as
xi_ (Float
0::Float))
linCongL :: (Args '[] '["freq", "a", "c", "m", "xi"] a) => a -> SDBody a Signal
linCongL :: a -> SDBody a Signal
linCongL = String
-> CalculationRate
-> Vs '["freq", "a", "c", "m", "xi"]
-> (UA "freq" (SDBodyArgs a), UA "a" (SDBodyArgs a),
UA "c" (SDBodyArgs a), UA "m" (SDBodyArgs a),
UA "xi" (SDBodyArgs a))
-> a
-> SDBody a Signal
forall (tags :: [Symbol]) optional userSupplied (args :: [Symbol]).
(GetSymbolVals (Vs tags), FromUA optional, FromUA userSupplied,
SDBodyArgs optional ~ SDBodyArgs userSupplied,
SDBodyArgs optional ~ args) =>
String
-> CalculationRate
-> Vs tags
-> optional
-> userSupplied
-> SDBody' args Signal
makeUGen
String
"LinCongL" CalculationRate
AR
(Vs '["freq", "a", "c", "m", "xi"]
forall (a :: [Symbol]). Vs a
Vs::Vs '["freq", "a", "c", "m", "xi"])
(Float -> UA "freq" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "freq" as
freq_ (Float
22050::Float), Float -> UA "a" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "a" as
a_ (Float
1.1::Float), Float -> UA "c" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "c" as
c_ (Float
0.13::Float), Float -> UA "m" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "m" as
m_ (Float
1::Float), Float -> UA "xi" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "xi" as
xi_ (Float
0::Float))
linCongN :: (Args '[] '["freq", "a", "c", "m", "xi"] a) => a -> SDBody a Signal
linCongN :: a -> SDBody a Signal
linCongN = String
-> CalculationRate
-> Vs '["freq", "a", "c", "m", "xi"]
-> (UA "freq" (SDBodyArgs a), UA "a" (SDBodyArgs a),
UA "c" (SDBodyArgs a), UA "m" (SDBodyArgs a),
UA "xi" (SDBodyArgs a))
-> a
-> SDBody a Signal
forall (tags :: [Symbol]) optional userSupplied (args :: [Symbol]).
(GetSymbolVals (Vs tags), FromUA optional, FromUA userSupplied,
SDBodyArgs optional ~ SDBodyArgs userSupplied,
SDBodyArgs optional ~ args) =>
String
-> CalculationRate
-> Vs tags
-> optional
-> userSupplied
-> SDBody' args Signal
makeUGen
String
"LinCongN" CalculationRate
AR
(Vs '["freq", "a", "c", "m", "xi"]
forall (a :: [Symbol]). Vs a
Vs::Vs '["freq", "a", "c", "m", "xi"])
(Float -> UA "freq" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "freq" as
freq_ (Float
22050::Float), Float -> UA "a" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "a" as
a_ (Float
1.1::Float), Float -> UA "c" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "c" as
c_ (Float
0.13::Float), Float -> UA "m" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "m" as
m_ (Float
1::Float), Float -> UA "xi" (SDBodyArgs a)
forall s (as :: [Symbol]). ToSig s as => s -> UA "xi" as
xi_ (Float
0::Float))