{-# OPTIONS_GHC -threaded #-}
{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
module DobutokO.Sound.Effects.Classes.SndParam where
import DobutokO.Sound.Effects.Splice
import DobutokO.Sound.Effects.BassTreble
import DobutokO.Sound.Effects.Bend
import DobutokO.Sound.Effects.Biquad
import DobutokO.Sound.Effects.Chorus
import DobutokO.Sound.Effects.DCShift
import DobutokO.Sound.Effects.Dither
import DobutokO.Sound.Effects.Echo
import DobutokO.Sound.Effects.Fade
import DobutokO.Sound.Effects.FIR
import DobutokO.Sound.Effects.Flanger
import DobutokO.Sound.Effects.Gain
import DobutokO.Sound.Effects.LADSPA
import DobutokO.Sound.Effects.Loudness
import DobutokO.Sound.Effects.MCompand
import DobutokO.Sound.Effects.Noise
import DobutokO.Sound.Effects.Overdrive
import DobutokO.Sound.Effects.Pad
import DobutokO.Sound.Effects.PassReject
import DobutokO.Sound.Effects.Phaser
import DobutokO.Sound.Effects.Pitch
import DobutokO.Sound.Effects.Rate
import DobutokO.Sound.Effects.Remix
import DobutokO.Sound.Effects.Reverb
import DobutokO.Sound.Effects.Segment
import DobutokO.Sound.Effects.Silence
import DobutokO.Sound.Effects.Sinc
import DobutokO.Sound.Effects.Spectrogram
import DobutokO.Sound.Effects.Speed
import DobutokO.Sound.Effects.Stats
import DobutokO.Sound.Effects.Stretch
import DobutokO.Sound.Effects.Tempo
import DobutokO.Sound.Effects.Timespec
import DobutokO.Sound.Effects.Tremolo
import DobutokO.Sound.Effects.Vol
import DobutokO.Sound.One
class SndParam a b where
get2 :: a -> b
class SndParamL a b where
get2L :: a -> [b]
class SndParamM a b where
get2m :: a -> Maybe b
instance SndParamM (FreqWidthS a b) b where
get2m :: FreqWidthS a b -> Maybe b
get2m = FreqWidthS a b -> Maybe b
forall a b. FreqWidthS a b -> Maybe b
freqWidthS2
instance SndParam (Bass a b) b where
get2 :: Bass a b -> b
get2 = Bass a b -> b
forall a b. Bass a b -> b
bass2
instance SndParam (Treble a b) b where
get2 :: Treble a b -> b
get2 = Treble a b -> b
forall a b. Treble a b -> b
treble2
instance SndParam (BendTrio a b) b where
get2 :: BendTrio a b -> b
get2 = BendTrio a b -> b
forall a b. BendTrio a b -> b
bendTrio2
instance SndParamM (Bend a b c) b where
get2m :: Bend a b c -> Maybe b
get2m = Bend a b c -> Maybe b
forall a b c. Bend a b c -> Maybe b
bend2
instance SndParamM (Coeffs a) a where
get2m :: Coeffs a -> Maybe a
get2m = Int -> Coeffs a -> Maybe a
forall a. Int -> Coeffs a -> Maybe a
coeffs1 Int
2
instance SndParam (Biquad a) (Coeffs a) where
get2 :: Biquad a -> Coeffs a
get2 = Biquad a -> Coeffs a
forall a. Biquad a -> Coeffs a
biquad2
instance SndParam (ChorusTail a b) a where
get2 :: ChorusTail a b -> a
get2 = Int -> ChorusTail a b -> a
forall a b. Int -> ChorusTail a b -> a
chorusTail1 Int
2
instance SndParam (Chorus a b) a where
get2 :: Chorus a b -> a
get2 = Int -> Chorus a b -> a
forall a b. Int -> Chorus a b -> a
chorus1 Int
2
instance SndParamM (DCShift a b) b where
get2m :: DCShift a b -> Maybe b
get2m = DCShift a b -> Maybe b
forall a b. DCShift a b -> Maybe b
dcShift2
instance SndParamM (Dither a b c) b where
get2m :: Dither a b c -> Maybe b
get2m = Dither a b c -> Maybe b
forall a b c. Dither a b c -> Maybe b
dither2
instance SndParam (EchoTail a) a where
get2 :: EchoTail a -> a
get2 = Int -> EchoTail a -> a
forall a. Int -> EchoTail a -> a
echoTail1 Int
2
instance SndParam (Echo a b) a where
get2 :: Echo a b -> a
get2 = Int -> Echo a b -> a
forall a b. Int -> Echo a b -> a
echo1 Int
2
instance SndParam (Echos a b) a where
get2 :: Echos a b -> a
get2 = Int -> Echos a b -> a
forall a b. Int -> Echos a b -> a
echos1 Int
2
instance SndParamL (Fade2 a b) b where
get2L :: Fade2 a b -> [b]
get2L = Fade2 a b -> [b]
forall a b. Fade2 a b -> [b]
fade2
instance SndParam Fade String where
get2 :: Fade -> String
get2 = Int -> Fade -> String
fade2E Int
2
instance SndParamM (Fir a b) [b] where
get2m :: Fir a b -> Maybe [b]
get2m = Fir a b -> Maybe [b]
forall a b. Fir a b -> Maybe [b]
fir2
instance SndParam (Flanger a b) b where
get2 :: Flanger a b -> b
get2 = Flanger a b -> b
forall a b. Flanger a b -> b
flanger2
instance SndParam (Gain1 a b c d) b where
get2 :: Gain1 a b c d -> b
get2 = Gain1 a b c d -> b
forall a b c d. Gain1 a b c d -> b
gain2
instance SndParam (Ladspa1 a b c) (One2 b) where
get2 :: Ladspa1 a b c -> One2 b
get2 = Ladspa1 a b c -> One2 b
forall a b c. Ladspa1 a b c -> One2 b
ladspa2
instance SndParamM (Loudness a) a where
get2m :: Loudness a -> Maybe a
get2m = Loudness a -> Maybe a
forall a. Loudness a -> Maybe a
loudness2
instance SndParamM (CompandTail a b) b where
get2m :: CompandTail a b -> Maybe b
get2m = CompandTail a b -> Maybe b
forall a b. CompandTail a b -> Maybe b
compandTail2
instance SndParam (Pair a) a where
get2 :: Pair a -> a
get2 = Pair a -> a
forall a. Pair a -> a
pair2
instance SndParamL (AtDe a) a where
get2L :: AtDe a -> [a]
get2L = AtDe a -> [a]
forall a. AtDe a -> [a]
atDe2
instance SndParam (Compand a b c d) b where
get2 :: Compand a b c d -> b
get2 = Compand a b c d -> b
forall a b c d. Compand a b c d -> b
compand2
instance SndParam (FreqComp a b) b where
get2 :: FreqComp a b -> b
get2 = FreqComp a b -> b
forall a b. FreqComp a b -> b
freqComp2
instance SndParamM (MCompand a b) [b] where
get2m :: MCompand a b -> Maybe [b]
get2m = MCompand a b -> Maybe [b]
forall a b. MCompand a b -> Maybe [b]
mCompand2
instance SndParamM (Noisered a b) b where
get2m :: Noisered a b -> Maybe b
get2m = Noisered a b -> Maybe b
forall a b. Noisered a b -> Maybe b
noisered2
instance SndParamM (Overdrive a) a where
get2m :: Overdrive a -> Maybe a
get2m = Overdrive a -> Maybe a
forall a. Overdrive a -> Maybe a
overdrive2
instance SndParam (PadSpec a) a where
get2 :: PadSpec a -> a
get2 = PadSpec a -> a
forall a. PadSpec a -> a
padSpec2
instance SndParamL (Pad a b) b where
get2L :: Pad a b -> [b]
get2L = Pad a b -> [b]
forall a b. Pad a b -> [b]
pad2
instance SndParamM (FreqWidth a b) b where
get2m :: FreqWidth a b -> Maybe b
get2m = FreqWidth a b -> Maybe b
forall a b. FreqWidth a b -> Maybe b
freqWidth2
instance SndParam (BandPass a b) b where
get2 :: BandPass a b -> b
get2 = BandPass a b -> b
forall a b. BandPass a b -> b
bandPass2
instance SndParam (Band a b) b where
get2 :: Band a b -> b
get2 = Band a b -> b
forall a b. Band a b -> b
band2
instance SndParam (HighPass a b) b where
get2 :: HighPass a b -> b
get2 = HighPass a b -> b
forall a b. HighPass a b -> b
highPass2
instance SndParam (LowPass a b) b where
get2 :: LowPass a b -> b
get2 = LowPass a b -> b
forall a b. LowPass a b -> b
lowPass2
instance SndParam (Equalizer a b) b where
get2 :: Equalizer a b -> b
get2 = Equalizer a b -> b
forall a b. Equalizer a b -> b
equalizer2
instance SndParam (Phaser a b) a where
get2 :: Phaser a b -> a
get2 = Int -> Phaser a b -> a
forall a b. Int -> Phaser a b -> a
phaser1 Int
2
instance SndParam (Pitch a b c) b where
get2 :: Pitch a b c -> b
get2 = Pitch a b c -> b
forall a b c. Pitch a b c -> b
pitch2
instance SndParam (RateL a b) b where
get2 :: RateL a b -> b
get2 = RateL a b -> b
forall a b. RateL a b -> b
rateL2
instance SndParam (RateH a b1 b2 b3 b4 b5 c) b1 where
get2 :: RateH a b1 b2 b3 b4 b5 c -> b1
get2 = RateH a b1 b2 b3 b4 b5 c -> b1
forall a b1 b2 b3 b4 b5 c. RateH a b1 b2 b3 b4 b5 c -> b1
rateH21
instance SndParamM (Rate2 a b) b where
get2m :: Rate2 a b -> Maybe b
get2m = Rate2 a b -> Maybe b
forall a b. Rate2 a b -> Maybe b
rate22
instance SndParamL (Remix a b) b where
get2L :: Remix a b -> [b]
get2L = Remix a b -> [b]
forall a b. Remix a b -> [b]
remix2
instance SndParam (Reverb a b c d) b where
get2 :: Reverb a b c d -> b
get2 = Reverb a b c d -> b
forall a b c d. Reverb a b c d -> b
reverb2
instance SndParam ReverbE Float where
get2 :: ReverbE -> Float
get2 = Int -> ReverbE -> Float
reverb3E Int
2
instance SndParamM (Segment a) a where
get2m :: Segment a -> Maybe a
get2m = Segment a -> Maybe a
forall a. Segment a -> Maybe a
segment2
instance SndParamM (Duration a b) b where
get2m :: Duration a b -> Maybe b
get2m = Duration a b -> Maybe b
forall a b. Duration a b -> Maybe b
duration2
instance SndParamM (AboveTSpec1 a b c) b where
get2m :: AboveTSpec1 a b c -> Maybe b
get2m = AboveTSpec1 a b c -> Maybe b
forall a b c. AboveTSpec1 a b c -> Maybe b
aboveTSpec2
instance SndParamM (BelowTSpec1 a b c) b where
get2m :: BelowTSpec1 a b c -> Maybe b
get2m = BelowTSpec1 a b c -> Maybe b
forall a b c. BelowTSpec1 a b c -> Maybe b
belowTSpec2
instance SndParam (Silence a b c) b where
get2 :: Silence a b c -> b
get2 = Silence a b c -> b
forall a b c. Silence a b c -> b
silence2
instance SndParam (Sinc a b c d) b where
get2 :: Sinc a b c d -> b
get2 = Sinc a b c d -> b
forall a b c d. Sinc a b c d -> b
sinc2
instance SndParamM FirstDTSpec Int where
get2m :: FirstDTSpec -> Maybe Int
get2m = FirstDTSpec -> Maybe Int
minutesD
instance SndParamL (Spectrogram3 a b c d e) b where
get2L :: Spectrogram3 a b c d e -> [b]
get2L = Spectrogram3 a b c d e -> [b]
forall a b c d e. Spectrogram3 a b c d e -> [b]
spectrogram32
instance SndParam (Speed a b) b where
get2 :: Speed a b -> b
get2 = Speed a b -> b
forall a b. Speed a b -> b
speed2
instance SndParamL (Splice2 a b) (One3 b) where
get2L :: Splice2 a b -> [One3 b]
get2L = Splice2 a b -> [One3 b]
forall a b. Splice2 a b -> [One3 b]
splice22
instance SndParamL (Stats2 a b) b where
get2L :: Stats2 a b -> [b]
get2L = Stats2 a b -> [b]
forall a b. Stats2 a b -> [b]
stats22
instance SndParam (StretchP a) a where
get2 :: StretchP a -> a
get2 = StretchP a -> a
forall a. StretchP a -> a
stretch2
instance SndParamM (Stretch2 a b) b where
get2m :: Stretch2 a b -> Maybe b
get2m = Stretch2 a b -> Maybe b
forall a b. Stretch2 a b -> Maybe b
stretch22
instance SndParam (Tempo a b c d) b where
get2 :: Tempo a b c d -> b
get2 = Tempo a b c d -> b
forall a b c d. Tempo a b c d -> b
tempo2
instance SndParamM FirstTSpec Int where
get2m :: FirstTSpec -> Maybe Int
get2m = FirstTSpec -> Maybe Int
minutes
instance SndParamM NextTSpec Int where
get2m :: NextTSpec -> Maybe Int
get2m = NextTSpec -> Maybe Int
minutes2
instance SndParamM (TimeSpec a b) [b] where
get2m :: TimeSpec a b -> Maybe [b]
get2m = TimeSpec a b -> Maybe [b]
forall a b. TimeSpec a b -> Maybe [b]
timeSpec2
instance SndParamM (Tremolo a) a where
get2m :: Tremolo a -> Maybe a
get2m = Tremolo a -> Maybe a
forall a. Tremolo a -> Maybe a
tremolo2
instance SndParamM (Vol2 a b) b where
get2m :: Vol2 a b -> Maybe b
get2m = Vol2 a b -> Maybe b
forall a b. Vol2 a b -> Maybe b
vol2