{-# OPTIONS_GHC -threaded #-}
{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
module DobutokO.Sound.Effects.Classes.FstParamSet where
import GHC.Base (asTypeOf)
import DobutokO.Sound.Effects.BassTreble
import DobutokO.Sound.Effects.Bend
import DobutokO.Sound.Effects.Biquad
import DobutokO.Sound.Effects.Channels
import DobutokO.Sound.Effects.Chorus
import DobutokO.Sound.Effects.Contrast
import DobutokO.Sound.Effects.DCShift
import DobutokO.Sound.Effects.Delay
import DobutokO.Sound.Effects.Dither
import DobutokO.Sound.Effects.Downsample
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.Hilbert
import DobutokO.Sound.Effects.LADSPA
import DobutokO.Sound.Effects.Loudness
import DobutokO.Sound.Effects.MCompand
import DobutokO.Sound.Effects.Misc
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.Repeat
import DobutokO.Sound.Effects.Reverb
import DobutokO.Sound.Effects.Segment
import DobutokO.Sound.Effects.Silence
import DobutokO.Sound.Effects.Sinc
import DobutokO.Sound.Effects.Specs
import DobutokO.Sound.Effects.Spectrogram
import DobutokO.Sound.Effects.Speed
import DobutokO.Sound.Effects.Splice
import DobutokO.Sound.Effects.Stat
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.Trim
import DobutokO.Sound.Effects.Upsample
import DobutokO.Sound.Effects.Vad
import DobutokO.Sound.Effects.Vol
import DobutokO.Sound.One
class FstParamSet a b where
set1 :: a -> b
set1G :: a -> b -> b
set1G x = asTypeOf (set1 x)
class FstParamSet3 a b where
set13 :: a -> b -> b
class FstParamSetL a b where
set1L :: [a] -> b
set1GL :: [a] -> b -> b
set1GL xs = asTypeOf (set1L xs)
class FstParamSetL3 a b where
set13L :: [a] -> b -> b
class FstParamSet3O a b where
set1o :: (One2 a) -> b -> b
instance FstParamSet3 a (FreqWidthS a b) where
set13 = freqWidthSSet1
instance FstParamSet3 a (Bass a b) where
set13 = bassSet1
instance FstParamSet3 a (Treble a b) where
set13 = trebleSet1
instance FstParamSet3 a (BendTrio a b) where
set13 = bendTrioSet1
instance FstParamSet a (FrameRate a) where
set1 = frameRateSet1
instance FstParamSet a (OverSample a) where
set1 = overSampleSet1
instance FstParamSet3 a (Bend a b c) where
set13 = bendSet1
instance FstParamSet3 a (Coeffs a) where
set13 = coeffsSet1
instance FstParamSet3 (Coeffs a) (Biquad a) where
set13 = biquadSet1
instance FstParamSet a (Chans a) where
set1 = channelsSet1
instance FstParamSet3 a (ChorusTail a b) where
set13 = chorusTailSet1 1
instance FstParamSet3 a (Chorus a b) where
set13 = chorusSet1 1
instance FstParamSet3 a (Contrast a) where
set13 = contrastSet1
instance FstParamSet3 a (DCShift a b) where
set13 = dcShiftSet1
instance FstParamSetL TSpecification Dlay where
set1L = delaySet1
instance FstParamSet a (Filter a) where
set1 = filterSet1
instance FstParamSet Float Precision where
set1 = precisionSet1
instance FstParamSet3 a (Dither a b c) where
set13 = ditherSet1
instance FstParamSet a (Downsample a) where
set1 = downSampleSet1
instance FstParamSet3 a (EchoTail a) where
set13 = echoTailSet1 1
instance FstParamSet3 a (Echo a b) where
set13 = echoSet1 1
instance FstParamSet3 a (Echos a b) where
set13 = echosSet1 1
instance FstParamSet3 a (Fade2 a b) where
set13 = fadeSet1
instance FstParamSet3 String Fade where
set13 = fadeSet2E 1
instance FstParamSet a (Fir a b) where
set1 = firSet1
instance FstParamSetL3 a (Flanger a b) where
set13L = flangerSet1
instance FstParamSet3 a (Gain1 a b c d) where
set13 = gainSet1
instance FstParamSet a (Hilbert a) where
set1 = HI
instance FstParamSet3 a (Ladspa1 a b c) where
set13 = ladspaSet1
instance FstParamSet3 a (Loudness a) where
set13 = loudnessSet1
instance FstParamSet a (FloatE a) where
set1 = floatESet1
instance FstParamSet3O a (CompandTail a b) where
set1o = compandTailSet1
instance FstParamSet3 a (Pair a) where
set13 = pairSet1
instance FstParamSet3 a (AtDe a) where
set13 = atDeSet1
instance FstParamSet a (Neg a) where
set1 = NG
instance FstParamSet a (SoftKnee a) where
set1 = SK
instance FstParamSet3 a (Compand a b c d) where
set13 = compandSet1
instance FstParamSet3 a (FreqComp a b) where
set13 = freqCompSet1
instance FstParamSet3 a (MCompand a b) where
set13 = mCompandSet1
instance FstParamSetL a (MscS a) where
set1L = mscSSet1
instance FstParamSet a (Noiseprof a) where
set1 = noiseprofSet1
instance FstParamSet3 a (Noisered a b) where
set13 = noiseredSet1
instance FstParamSet3 a (Overdrive a) where
set13 = overdriveSet1
instance FstParamSet3 a (PadSpec a) where
set13 = padSpecSet1
instance FstParamSet3O a (Pad a b) where
set1o = padSet1
instance FstParamSet3 a (FreqWidth a b) where
set13 = freqWidthSet1
instance FstParamSet3 a (Freq a) where
set13 = freqSet1
instance FstParamSet3 a (AllPass a) where
set13 = allPassSet1
instance FstParamSet3 a (BandReject a) where
set13 = bandRejectSet1
instance FstParamSet3 a (BandPass a b) where
set13 = bandPassSet1
instance FstParamSet3 a (Band a b) where
set13 = bandSet1
instance FstParamSet3 a (HighPass a b) where
set13 = highPassSet1
instance FstParamSet3 a (LowPass a b) where
set13 = lowPassSet1
instance FstParamSet3 a (Equalizer a b) where
set13 = equalizerSet1
instance FstParamSet3 a (Phaser a b) where
set13 = phaserSet1 1
instance FstParamSet3 a (Pitch a b c) where
set13 = pitchSet1
instance FstParamSet a (Ropt4 a) where
set1 = rOpt4Set1
instance FstParamSet a (Ropt5 a) where
set1 = rOpt5Set1
instance FstParamSet3 a (RateL a b) where
set13 = rateLSet1
instance FstParamSet3 a (RateH a b1 b2 b3 b4 b5 c) where
set13 = rateHSet1
instance FstParamSet RateLow Rate where
set1 = rate2Set1
instance FstParamSet3 Float (Vol3 Float) where
set13 = vol3Set1
instance FstParamSet3 a (IChannel a b) where
set13 = ichannelSet1
instance FstParamSetL3 a (OChannel a) where
set13L = ochannelSet1
instance FstParamSet3 MixSpec ReMix where
set13 = remixSet1
instance FstParamSet a (Repeat a) where
set1 = Rpt
instance FstParamSet3 a (Reverb a b c d) where
set13 = reverbSet1
instance FstParamSet3 Float ReverbE where
set13 = reverbSet3E 1
instance FstParamSet3 a (Segment a) where
set13 = segmentSet1
instance FstParamSet3 a (Threshold a) where
set13 = thresholdSet1
instance FstParamSet3 a (Duration a b) where
set13 = durationSet1d
instance FstParamSet3 a (AboveTSpec1 a b c) where
set13 = aboveTSpecSet1a
instance FstParamSet3 a (BelowTSpec1 a b c) where
set13 = belowTSpecSet1b
instance FstParamSet3 a (Silence a b c) where
set13 = silenceSet1
instance FstParamSet a (PhaseR a) where
set1 = phaseRSet1
instance FstParamSet a (FreqL a) where
set1 = freqLSet1
instance FstParamSet a (FreqH a) where
set1 = freqHSet1
instance FstParamSet3 a (Sinc a b c d) where
set13 = sincSet1
instance FstParamSet3 Float Freq1 where
set13 = frequencySet1
instance FstParamSet3 a (Width a) where
set13 = widthSet1
instance FstParamSet3 a (SFloat1 a) where
set13 = sFloat1Set1
instance FstParamSet3 a (SString1 a) where
set13 = sString1Set1
instance FstParamSet a (Advanced1 a) where
set1 = advanced1Set1
instance FstParamSet Float FirstDTSpec where
set1 = seconds2FstDTSpec2
instance FstParamSet Int FirstDTSpec where
set1 = samples2FstDTSpec2
instance FstParamSetL3 a (Spectrogram3 a b c d e) where
set13L = spectrogramSet31
instance FstParamSet3 a (Speed a b) where
set13 = speedSet1
instance FstParamSet3 a (Splice2 a b) where
set13 = splice2Set1
instance FstParamSet a (StatP a) where
set1 = statPSet1
instance FstParamSetL a (Stat1 a) where
set1L = stat1Set1
instance FstParamSet3 a (StatsP a) where
set13 = statsPSet1
instance FstParamSet a (Window1 a) where
set1 = window1Set1
instance FstParamSetL3 a (Stats2 a b) where
set13L = stats2Set1
instance FstParamSet3 a (StretchP a) where
set13 = stretchSet1
instance FstParamSet3 a (Stretch2 a b) where
set13 = stretch2Set1
instance FstParamSet3 a (Tempo a b c d) where
set13 = tempoSet1
instance FstParamSet3 a (TimeSpec a b) where
set13 = timeSpecSet1
instance FstParamSet3 a (Tremolo a) where
set13 = tremoloSet1
instance FstParamSet a (Trim a) where
set1 = trimSet1
instance FstParamSet a (Upsample a) where
set1 = upSampleSet1
instance FstParamSet3 a (VadP a) where
set13 = vadPSet1
instance FstParamSetL3 a (Vad1 a) where
set13L = vad1Set1
instance FstParamSet3 a (Vol2 a b) where
set13 = volSet1
instance FstParamSet3 a (One2 a) where
set13 = one2Set1
instance FstParamSet3 a (One3 a) where
set13 = one3Set1