hsc3-rec 0.12 → 0.14
raw patch · 594 files changed
+2314/−1423 lines, 594 filesdep ~hsc3
Dependency ranges changed: hsc3
Files
- README +1/−1
- Sound/SC3/UGen/Record/A2B.hs +1/−1
- Sound/SC3/UGen/Record/A2K.hs +2/−2
- Sound/SC3/UGen/Record/APF.hs +2/−2
- Sound/SC3/UGen/Record/AY.hs +1/−1
- Sound/SC3/UGen/Record/AY8910.hs +43/−0
- Sound/SC3/UGen/Record/Allpass1.hs +3/−3
- Sound/SC3/UGen/Record/Allpass2.hs +3/−3
- Sound/SC3/UGen/Record/AllpassC.hs +2/−2
- Sound/SC3/UGen/Record/AllpassL.hs +2/−2
- Sound/SC3/UGen/Record/AllpassN.hs +2/−2
- Sound/SC3/UGen/Record/AmpComp.hs +2/−2
- Sound/SC3/UGen/Record/Amplitude.hs +2/−2
- Sound/SC3/UGen/Record/AmplitudeMod.hs +3/−3
- Sound/SC3/UGen/Record/AnalyseEvents2.hs +3/−3
- Sound/SC3/UGen/Record/ArrayMax.hs +1/−1
- Sound/SC3/UGen/Record/ArrayMin.hs +1/−1
- Sound/SC3/UGen/Record/Astrocade.hs +29/−0
- Sound/SC3/UGen/Record/Atari2600.hs +27/−0
- Sound/SC3/UGen/Record/AtsAmp.hs +1/−1
- Sound/SC3/UGen/Record/AtsBand.hs +1/−1
- Sound/SC3/UGen/Record/AtsFreq.hs +1/−1
- Sound/SC3/UGen/Record/AtsNoiSynth.hs +1/−1
- Sound/SC3/UGen/Record/AtsNoise.hs +1/−1
- Sound/SC3/UGen/Record/AtsParInfo.hs +1/−1
- Sound/SC3/UGen/Record/AtsPartial.hs +1/−1
- Sound/SC3/UGen/Record/AtsSynth.hs +1/−1
- Sound/SC3/UGen/Record/AtsUGen.hs +1/−1
- Sound/SC3/UGen/Record/AudioControl.hs +1/−1
- Sound/SC3/UGen/Record/AudioMSG.hs +3/−3
- Sound/SC3/UGen/Record/AverageOutput.hs +3/−3
- Sound/SC3/UGen/Record/B2A.hs +1/−1
- Sound/SC3/UGen/Record/B2Ster.hs +1/−1
- Sound/SC3/UGen/Record/B2UHJ.hs +1/−1
- Sound/SC3/UGen/Record/BAllPass.hs +2/−2
- Sound/SC3/UGen/Record/BBandPass.hs +2/−2
- Sound/SC3/UGen/Record/BBandStop.hs +2/−2
- Sound/SC3/UGen/Record/BBlockerBuf.hs +1/−1
- Sound/SC3/UGen/Record/BFDecode1.hs +1/−1
- Sound/SC3/UGen/Record/BFDecoder.hs +1/−1
- Sound/SC3/UGen/Record/BFEncode1.hs +3/−3
- Sound/SC3/UGen/Record/BFEncode2.hs +3/−3
- Sound/SC3/UGen/Record/BFEncodeSter.hs +1/−1
- Sound/SC3/UGen/Record/BFGrainPanner.hs +1/−1
- Sound/SC3/UGen/Record/BFManipulate.hs +1/−1
- Sound/SC3/UGen/Record/BHiPass.hs +2/−2
- Sound/SC3/UGen/Record/BHiShelf.hs +2/−2
- Sound/SC3/UGen/Record/BLBufRd.hs +1/−1
- Sound/SC3/UGen/Record/BLowPass.hs +2/−2
- Sound/SC3/UGen/Record/BLowShelf.hs +2/−2
- Sound/SC3/UGen/Record/BMoog.hs +3/−3
- Sound/SC3/UGen/Record/BPF.hs +2/−2
- Sound/SC3/UGen/Record/BPZ2.hs +2/−2
- Sound/SC3/UGen/Record/BPeakEQ.hs +2/−2
- Sound/SC3/UGen/Record/BRF.hs +2/−2
- Sound/SC3/UGen/Record/BRZ2.hs +2/−2
- Sound/SC3/UGen/Record/Balance.hs +3/−3
- Sound/SC3/UGen/Record/Ball.hs +2/−2
- Sound/SC3/UGen/Record/Beep.hs +17/−0
- Sound/SC3/UGen/Record/BeepU.hs +15/−0
- Sound/SC3/UGen/Record/BinData.hs +1/−1
- Sound/SC3/UGen/Record/BlitB3.hs +15/−0
- Sound/SC3/UGen/Record/BlitB3Saw.hs +17/−0
- Sound/SC3/UGen/Record/BlitB3Square.hs +17/−0
- Sound/SC3/UGen/Record/BlitB3Tri.hs +19/−0
- Sound/SC3/UGen/Record/Breakcore.hs +1/−1
- Sound/SC3/UGen/Record/Brusselator.hs +3/−3
- Sound/SC3/UGen/Record/BufAllpassC.hs +2/−2
- Sound/SC3/UGen/Record/BufAllpassL.hs +2/−2
- Sound/SC3/UGen/Record/BufAllpassN.hs +2/−2
- Sound/SC3/UGen/Record/BufCombC.hs +2/−2
- Sound/SC3/UGen/Record/BufCombL.hs +2/−2
- Sound/SC3/UGen/Record/BufCombN.hs +2/−2
- Sound/SC3/UGen/Record/BufDelayC.hs +2/−2
- Sound/SC3/UGen/Record/BufDelayL.hs +2/−2
- Sound/SC3/UGen/Record/BufDelayN.hs +2/−2
- Sound/SC3/UGen/Record/BufGrain.hs +3/−3
- Sound/SC3/UGen/Record/BufGrainB.hs +3/−3
- Sound/SC3/UGen/Record/BufGrainBBF.hs +3/−3
- Sound/SC3/UGen/Record/BufGrainBF.hs +3/−3
- Sound/SC3/UGen/Record/BufGrainI.hs +3/−3
- Sound/SC3/UGen/Record/BufGrainIBF.hs +3/−3
- Sound/SC3/UGen/Record/BufMax.hs +1/−1
- Sound/SC3/UGen/Record/BufMin.hs +1/−1
- Sound/SC3/UGen/Record/CQ_Diff.hs +1/−1
- Sound/SC3/UGen/Record/Cepstrum.hs +1/−1
- Sound/SC3/UGen/Record/CheckBadValues.hs +4/−4
- Sound/SC3/UGen/Record/Chromagram.hs +27/−0
- Sound/SC3/UGen/Record/ChuaL.hs +1/−1
- Sound/SC3/UGen/Record/CircleRamp.hs +3/−3
- Sound/SC3/UGen/Record/ClearBuf.hs +1/−1
- Sound/SC3/UGen/Record/Clip.hs +2/−2
- Sound/SC3/UGen/Record/Clipper32.hs +3/−3
- Sound/SC3/UGen/Record/Clipper4.hs +3/−3
- Sound/SC3/UGen/Record/Clipper8.hs +3/−3
- Sound/SC3/UGen/Record/CoinGate.hs +2/−2
- Sound/SC3/UGen/Record/CombC.hs +2/−2
- Sound/SC3/UGen/Record/CombL.hs +2/−2
- Sound/SC3/UGen/Record/CombLP.hs +3/−3
- Sound/SC3/UGen/Record/CombN.hs +2/−2
- Sound/SC3/UGen/Record/Compander.hs +2/−2
- Sound/SC3/UGen/Record/CompanderD.hs +2/−2
- Sound/SC3/UGen/Record/Concat.hs +1/−1
- Sound/SC3/UGen/Record/Concat2.hs +1/−1
- Sound/SC3/UGen/Record/Convolution.hs +2/−2
- Sound/SC3/UGen/Record/Convolution2.hs +2/−2
- Sound/SC3/UGen/Record/Convolution2L.hs +2/−2
- Sound/SC3/UGen/Record/Convolution3.hs +2/−2
- Sound/SC3/UGen/Record/Coyote.hs +3/−3
- Sound/SC3/UGen/Record/Crest.hs +3/−3
- Sound/SC3/UGen/Record/CrossoverDistortion.hs +3/−3
- Sound/SC3/UGen/Record/DC.hs +2/−2
- Sound/SC3/UGen/Record/DFM1.hs +5/−5
- Sound/SC3/UGen/Record/DPW3Tri.hs +15/−0
- Sound/SC3/UGen/Record/DPW4Saw.hs +15/−0
- Sound/SC3/UGen/Record/DUGen.hs +1/−1
- Sound/SC3/UGen/Record/Dbrown.hs +2/−2
- Sound/SC3/UGen/Record/Dbrown2.hs +3/−3
- Sound/SC3/UGen/Record/Decay.hs +2/−2
- Sound/SC3/UGen/Record/Decay2.hs +3/−3
- Sound/SC3/UGen/Record/Decimator.hs +5/−5
- Sound/SC3/UGen/Record/DegreeToKey.hs +2/−2
- Sound/SC3/UGen/Record/DelTapWr.hs +2/−2
- Sound/SC3/UGen/Record/Delay1.hs +2/−2
- Sound/SC3/UGen/Record/Delay2.hs +2/−2
- Sound/SC3/UGen/Record/DelayC.hs +2/−2
- Sound/SC3/UGen/Record/DelayL.hs +2/−2
- Sound/SC3/UGen/Record/DelayN.hs +2/−2
- Sound/SC3/UGen/Record/DetaBlockerBuf.hs +1/−1
- Sound/SC3/UGen/Record/DetectIndex.hs +2/−2
- Sound/SC3/UGen/Record/DetectSilence.hs +2/−2
- Sound/SC3/UGen/Record/Dgauss.hs +3/−3
- Sound/SC3/UGen/Record/Dgeom.hs +2/−2
- Sound/SC3/UGen/Record/Dibrown.hs +2/−2
- Sound/SC3/UGen/Record/Disintegrator.hs +3/−3
- Sound/SC3/UGen/Record/DiskOut.hs +2/−2
- Sound/SC3/UGen/Record/Diwhite.hs +2/−2
- Sound/SC3/UGen/Record/Donce.hs +3/−3
- Sound/SC3/UGen/Record/DoubleNestedAllpassC.hs +3/−3
- Sound/SC3/UGen/Record/DoubleNestedAllpassL.hs +3/−3
- Sound/SC3/UGen/Record/DoubleNestedAllpassN.hs +3/−3
- Sound/SC3/UGen/Record/DoubleWell.hs +1/−1
- Sound/SC3/UGen/Record/DoubleWell2.hs +1/−1
- Sound/SC3/UGen/Record/DoubleWell3.hs +3/−3
- Sound/SC3/UGen/Record/Dpoll.hs +2/−2
- Sound/SC3/UGen/Record/Dreset.hs +2/−2
- Sound/SC3/UGen/Record/DriveNoise.hs +3/−3
- Sound/SC3/UGen/Record/Dseries.hs +2/−2
- Sound/SC3/UGen/Record/Dstutter.hs +2/−2
- Sound/SC3/UGen/Record/Dunique.hs +1/−1
- Sound/SC3/UGen/Record/Dwhite.hs +2/−2
- Sound/SC3/UGen/Record/Dwrand.hs +0/−18
- Sound/SC3/UGen/Record/EnvDetect.hs +3/−3
- Sound/SC3/UGen/Record/EnvFollow.hs +1/−1
- Sound/SC3/UGen/Record/FFT.hs +2/−2
- Sound/SC3/UGen/Record/FFTCentroid.hs +1/−1
- Sound/SC3/UGen/Record/FFTComplexDev.hs +1/−1
- Sound/SC3/UGen/Record/FFTCrest.hs +1/−1
- Sound/SC3/UGen/Record/FFTDiffMags.hs +1/−1
- Sound/SC3/UGen/Record/FFTFlux.hs +1/−1
- Sound/SC3/UGen/Record/FFTFluxPos.hs +1/−1
- Sound/SC3/UGen/Record/FFTInterleave.hs +0/−17
- Sound/SC3/UGen/Record/FFTMKL.hs +1/−1
- Sound/SC3/UGen/Record/FFTPeak.hs +1/−1
- Sound/SC3/UGen/Record/FFTPhaseDev.hs +1/−1
- Sound/SC3/UGen/Record/FFTPower.hs +1/−1
- Sound/SC3/UGen/Record/FFTSlope.hs +1/−1
- Sound/SC3/UGen/Record/FFTSpread.hs +1/−1
- Sound/SC3/UGen/Record/FFTTriggered.hs +0/−21
- Sound/SC3/UGen/Record/FM7.hs +17/−0
- Sound/SC3/UGen/Record/FMGrain.hs +1/−1
- Sound/SC3/UGen/Record/FMGrainB.hs +1/−1
- Sound/SC3/UGen/Record/FMGrainBBF.hs +1/−1
- Sound/SC3/UGen/Record/FMGrainBF.hs +1/−1
- Sound/SC3/UGen/Record/FMGrainI.hs +1/−1
- Sound/SC3/UGen/Record/FMGrainIBF.hs +1/−1
- Sound/SC3/UGen/Record/FMHDecode1.hs +1/−1
- Sound/SC3/UGen/Record/FMHEncode0.hs +3/−3
- Sound/SC3/UGen/Record/FMHEncode1.hs +3/−3
- Sound/SC3/UGen/Record/FMHEncode2.hs +3/−3
- Sound/SC3/UGen/Record/FOS.hs +2/−2
- Sound/SC3/UGen/Record/FeatureSave.hs +17/−0
- Sound/SC3/UGen/Record/Fhn2DC.hs +1/−1
- Sound/SC3/UGen/Record/Fhn2DL.hs +1/−1
- Sound/SC3/UGen/Record/Fhn2DN.hs +1/−1
- Sound/SC3/UGen/Record/FhnTrig.hs +1/−1
- Sound/SC3/UGen/Record/FincoSprottL.hs +1/−1
- Sound/SC3/UGen/Record/FincoSprottM.hs +1/−1
- Sound/SC3/UGen/Record/FincoSprottS.hs +1/−1
- Sound/SC3/UGen/Record/FitzHughNagumo.hs +1/−1
- Sound/SC3/UGen/Record/FoaAsymmetry.hs +4/−10
- Sound/SC3/UGen/Record/FoaDirectO.hs +4/−10
- Sound/SC3/UGen/Record/FoaDirectX.hs +4/−10
- Sound/SC3/UGen/Record/FoaDirectY.hs +4/−10
- Sound/SC3/UGen/Record/FoaDirectZ.hs +4/−10
- Sound/SC3/UGen/Record/FoaDominateX.hs +4/−10
- Sound/SC3/UGen/Record/FoaDominateY.hs +4/−10
- Sound/SC3/UGen/Record/FoaDominateZ.hs +4/−10
- Sound/SC3/UGen/Record/FoaFocusX.hs +4/−10
- Sound/SC3/UGen/Record/FoaFocusY.hs +4/−10
- Sound/SC3/UGen/Record/FoaFocusZ.hs +4/−10
- Sound/SC3/UGen/Record/FoaNFC.hs +4/−10
- Sound/SC3/UGen/Record/FoaPanB.hs +3/−3
- Sound/SC3/UGen/Record/FoaPressX.hs +4/−10
- Sound/SC3/UGen/Record/FoaPressY.hs +4/−10
- Sound/SC3/UGen/Record/FoaPressZ.hs +4/−10
- Sound/SC3/UGen/Record/FoaProximity.hs +4/−10
- Sound/SC3/UGen/Record/FoaPsychoShelf.hs +4/−10
- Sound/SC3/UGen/Record/FoaPushX.hs +4/−10
- Sound/SC3/UGen/Record/FoaPushY.hs +4/−10
- Sound/SC3/UGen/Record/FoaPushZ.hs +4/−10
- Sound/SC3/UGen/Record/FoaRotate.hs +4/−10
- Sound/SC3/UGen/Record/FoaTilt.hs +4/−10
- Sound/SC3/UGen/Record/FoaTumble.hs +4/−10
- Sound/SC3/UGen/Record/FoaZoomX.hs +4/−10
- Sound/SC3/UGen/Record/FoaZoomY.hs +4/−10
- Sound/SC3/UGen/Record/FoaZoomZ.hs +4/−10
- Sound/SC3/UGen/Record/Fold.hs +2/−2
- Sound/SC3/UGen/Record/Formlet.hs +2/−2
- Sound/SC3/UGen/Record/FrameCompare.hs +1/−1
- Sound/SC3/UGen/Record/Free.hs +2/−2
- Sound/SC3/UGen/Record/FreeSelf.hs +2/−2
- Sound/SC3/UGen/Record/FreeVerb.hs +2/−2
- Sound/SC3/UGen/Record/FreeVerb2.hs +2/−2
- Sound/SC3/UGen/Record/FreqShift.hs +2/−2
- Sound/SC3/UGen/Record/Friction.hs +5/−5
- Sound/SC3/UGen/Record/GVerb.hs +2/−2
- Sound/SC3/UGen/Record/Gammatone.hs +19/−0
- Sound/SC3/UGen/Record/Gate.hs +2/−2
- Sound/SC3/UGen/Record/GaussClass.hs +3/−3
- Sound/SC3/UGen/Record/GaussTrig.hs +1/−1
- Sound/SC3/UGen/Record/Gbman2DC.hs +1/−1
- Sound/SC3/UGen/Record/Gbman2DL.hs +1/−1
- Sound/SC3/UGen/Record/Gbman2DN.hs +1/−1
- Sound/SC3/UGen/Record/GbmanTrig.hs +1/−1
- Sound/SC3/UGen/Record/Gendy4.hs +1/−1
- Sound/SC3/UGen/Record/Gendy5.hs +1/−1
- Sound/SC3/UGen/Record/Getenv.hs +1/−1
- Sound/SC3/UGen/Record/GlitchBPF.hs +21/−0
- Sound/SC3/UGen/Record/GlitchBRF.hs +21/−0
- Sound/SC3/UGen/Record/GlitchHPF.hs +3/−3
- Sound/SC3/UGen/Record/GlitchRHPF.hs +3/−3
- Sound/SC3/UGen/Record/Goertzel.hs +3/−3
- Sound/SC3/UGen/Record/GrainBuf.hs +2/−2
- Sound/SC3/UGen/Record/GrainIn.hs +2/−2
- Sound/SC3/UGen/Record/GravityGrid.hs +3/−3
- Sound/SC3/UGen/Record/GravityGrid2.hs +3/−3
- Sound/SC3/UGen/Record/HPF.hs +2/−2
- Sound/SC3/UGen/Record/HPZ1.hs +2/−2
- Sound/SC3/UGen/Record/HPZ2.hs +2/−2
- Sound/SC3/UGen/Record/HairCell.hs +25/−0
- Sound/SC3/UGen/Record/Hasher.hs +2/−2
- Sound/SC3/UGen/Record/Henon2DC.hs +1/−1
- Sound/SC3/UGen/Record/Henon2DL.hs +1/−1
- Sound/SC3/UGen/Record/Henon2DN.hs +1/−1
- Sound/SC3/UGen/Record/HenonTrig.hs +1/−1
- Sound/SC3/UGen/Record/Hilbert.hs +2/−2
- Sound/SC3/UGen/Record/HilbertFIR.hs +2/−2
- Sound/SC3/UGen/Record/ICepstrum.hs +1/−1
- Sound/SC3/UGen/Record/IEnvGen.hs +3/−3
- Sound/SC3/UGen/Record/IIRFilter.hs +3/−3
- Sound/SC3/UGen/Record/InGrain.hs +3/−3
- Sound/SC3/UGen/Record/InGrainB.hs +3/−3
- Sound/SC3/UGen/Record/InGrainBBF.hs +3/−3
- Sound/SC3/UGen/Record/InGrainBF.hs +3/−3
- Sound/SC3/UGen/Record/InGrainI.hs +3/−3
- Sound/SC3/UGen/Record/InGrainIBF.hs +3/−3
- Sound/SC3/UGen/Record/InRange.hs +2/−2
- Sound/SC3/UGen/Record/Index.hs +2/−2
- Sound/SC3/UGen/Record/IndexInBetween.hs +2/−2
- Sound/SC3/UGen/Record/IndexL.hs +2/−2
- Sound/SC3/UGen/Record/InsideOut.hs +3/−3
- Sound/SC3/UGen/Record/Instruction.hs +1/−1
- Sound/SC3/UGen/Record/Integrator.hs +2/−2
- Sound/SC3/UGen/Record/JoshGrain.hs +1/−1
- Sound/SC3/UGen/Record/JoshMultiOutGrain.hs +1/−1
- Sound/SC3/UGen/Record/K2A.hs +2/−2
- Sound/SC3/UGen/Record/KMeansRT.hs +25/−0
- Sound/SC3/UGen/Record/KmeansToBPSet1.hs +1/−1
- Sound/SC3/UGen/Record/LFBrownNoise0.hs +1/−1
- Sound/SC3/UGen/Record/LFBrownNoise1.hs +1/−1
- Sound/SC3/UGen/Record/LFBrownNoise2.hs +1/−1
- Sound/SC3/UGen/Record/LPCAnalyzer.hs +1/−1
- Sound/SC3/UGen/Record/LPCError.hs +1/−1
- Sound/SC3/UGen/Record/LPCSynth.hs +1/−1
- Sound/SC3/UGen/Record/LPCVals.hs +1/−1
- Sound/SC3/UGen/Record/LPF.hs +2/−2
- Sound/SC3/UGen/Record/LPF1.hs +3/−3
- Sound/SC3/UGen/Record/LPF18.hs +3/−3
- Sound/SC3/UGen/Record/LPFVS6.hs +3/−3
- Sound/SC3/UGen/Record/LPZ1.hs +2/−2
- Sound/SC3/UGen/Record/LPZ2.hs +2/−2
- Sound/SC3/UGen/Record/LTI.hs +1/−1
- Sound/SC3/UGen/Record/Lag.hs +2/−2
- Sound/SC3/UGen/Record/Lag2.hs +2/−2
- Sound/SC3/UGen/Record/Lag2UD.hs +2/−2
- Sound/SC3/UGen/Record/Lag3.hs +2/−2
- Sound/SC3/UGen/Record/Lag3UD.hs +2/−2
- Sound/SC3/UGen/Record/LagUD.hs +2/−2
- Sound/SC3/UGen/Record/LastValue.hs +2/−2
- Sound/SC3/UGen/Record/Latch.hs +2/−2
- Sound/SC3/UGen/Record/Latoocarfian2DC.hs +1/−1
- Sound/SC3/UGen/Record/Latoocarfian2DL.hs +1/−1
- Sound/SC3/UGen/Record/Latoocarfian2DN.hs +1/−1
- Sound/SC3/UGen/Record/LatoocarfianTrig.hs +1/−1
- Sound/SC3/UGen/Record/LeakDC.hs +2/−2
- Sound/SC3/UGen/Record/Limiter.hs +2/−2
- Sound/SC3/UGen/Record/LinExp.hs +2/−2
- Sound/SC3/UGen/Record/LinLin.hs +0/−24
- Sound/SC3/UGen/Record/LinPan2.hs +2/−2
- Sound/SC3/UGen/Record/ListDUGen.hs +1/−1
- Sound/SC3/UGen/Record/ListTrig.hs +1/−1
- Sound/SC3/UGen/Record/ListTrig2.hs +1/−1
- Sound/SC3/UGen/Record/LocalIn.hs +0/−18
- Sound/SC3/UGen/Record/LocalOut.hs +2/−2
- Sound/SC3/UGen/Record/Logger.hs +1/−1
- Sound/SC3/UGen/Record/Logistic.hs +2/−2
- Sound/SC3/UGen/Record/LoopBuf.hs +3/−3
- Sound/SC3/UGen/Record/Lorenz2DC.hs +1/−1
- Sound/SC3/UGen/Record/Lorenz2DL.hs +1/−1
- Sound/SC3/UGen/Record/Lorenz2DN.hs +1/−1
- Sound/SC3/UGen/Record/LorenzTrig.hs +1/−1
- Sound/SC3/UGen/Record/MCLDChaosGen.hs +1/−1
- Sound/SC3/UGen/Record/MZPokey.hs +31/−0
- Sound/SC3/UGen/Record/MantissaMask.hs +2/−2
- Sound/SC3/UGen/Record/MarkovSynth.hs +3/−3
- Sound/SC3/UGen/Record/Max.hs +3/−3
- Sound/SC3/UGen/Record/Maxamp.hs +3/−3
- Sound/SC3/UGen/Record/MdaPiano.hs +1/−1
- Sound/SC3/UGen/Record/MeanTriggered.hs +5/−5
- Sound/SC3/UGen/Record/Meddis.hs +17/−0
- Sound/SC3/UGen/Record/Median.hs +4/−4
- Sound/SC3/UGen/Record/MedianTriggered.hs +5/−5
- Sound/SC3/UGen/Record/MembraneCircle.hs +1/−1
- Sound/SC3/UGen/Record/MembraneHexagon.hs +1/−1
- Sound/SC3/UGen/Record/Metro.hs +1/−1
- Sound/SC3/UGen/Record/MidEQ.hs +2/−2
- Sound/SC3/UGen/Record/MonoGrain.hs +3/−3
- Sound/SC3/UGen/Record/MonoGrainBF.hs +3/−3
- Sound/SC3/UGen/Record/MoogFF.hs +2/−2
- Sound/SC3/UGen/Record/MoogLadder.hs +3/−3
- Sound/SC3/UGen/Record/MoogVCF.hs +3/−3
- Sound/SC3/UGen/Record/NL.hs +1/−1
- Sound/SC3/UGen/Record/NL2.hs +1/−1
- Sound/SC3/UGen/Record/NLFiltC.hs +1/−1
- Sound/SC3/UGen/Record/NLFiltL.hs +1/−1
- Sound/SC3/UGen/Record/NLFiltN.hs +1/−1
- Sound/SC3/UGen/Record/NTube.hs +1/−1
- Sound/SC3/UGen/Record/NeedleRect.hs +3/−3
- Sound/SC3/UGen/Record/Nes2.hs +53/−0
- Sound/SC3/UGen/Record/NestedAllpassC.hs +3/−3
- Sound/SC3/UGen/Record/NestedAllpassL.hs +3/−3
- Sound/SC3/UGen/Record/NestedAllpassN.hs +3/−3
- Sound/SC3/UGen/Record/Normalizer.hs +2/−2
- Sound/SC3/UGen/Record/OSFold4.hs +3/−3
- Sound/SC3/UGen/Record/OSFold8.hs +3/−3
- Sound/SC3/UGen/Record/OSTrunc4.hs +3/−3
- Sound/SC3/UGen/Record/OSTrunc8.hs +3/−3
- Sound/SC3/UGen/Record/OSWrap4.hs +3/−3
- Sound/SC3/UGen/Record/OSWrap8.hs +3/−3
- Sound/SC3/UGen/Record/OffsetOut.hs +2/−2
- Sound/SC3/UGen/Record/OnePole.hs +2/−2
- Sound/SC3/UGen/Record/OneZero.hs +2/−2
- Sound/SC3/UGen/Record/Onsets.hs +2/−2
- Sound/SC3/UGen/Record/Oregonator.hs +3/−3
- Sound/SC3/UGen/Record/Out.hs +2/−2
- Sound/SC3/UGen/Record/PVInfo.hs +1/−1
- Sound/SC3/UGen/Record/PVSynth.hs +1/−1
- Sound/SC3/UGen/Record/PV_BinBufRd.hs +1/−1
- Sound/SC3/UGen/Record/PV_BinDelay.hs +1/−1
- Sound/SC3/UGen/Record/PV_BinFilter.hs +1/−1
- Sound/SC3/UGen/Record/PV_BinPlayBuf.hs +3/−3
- Sound/SC3/UGen/Record/PV_BinShift.hs +5/−3
- Sound/SC3/UGen/Record/PV_BufRd.hs +1/−1
- Sound/SC3/UGen/Record/PV_CommonMag.hs +1/−1
- Sound/SC3/UGen/Record/PV_CommonMul.hs +1/−1
- Sound/SC3/UGen/Record/PV_Compander.hs +1/−1
- Sound/SC3/UGen/Record/PV_Cutoff.hs +1/−1
- Sound/SC3/UGen/Record/PV_DiffMags.hs +1/−1
- Sound/SC3/UGen/Record/PV_EvenBin.hs +1/−1
- Sound/SC3/UGen/Record/PV_ExtractRepeat.hs +1/−1
- Sound/SC3/UGen/Record/PV_Freeze.hs +1/−1
- Sound/SC3/UGen/Record/PV_FreqBuffer.hs +1/−1
- Sound/SC3/UGen/Record/PV_Invert.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagBuffer.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagExp.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagGate.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagLog.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagMap.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagMinus.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagMulAdd.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagScale.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagSmooth.hs +1/−1
- Sound/SC3/UGen/Record/PV_MagSubtract.hs +1/−1
- Sound/SC3/UGen/Record/PV_MaxMagN.hs +1/−1
- Sound/SC3/UGen/Record/PV_MinMagN.hs +1/−1
- Sound/SC3/UGen/Record/PV_Morph.hs +1/−1
- Sound/SC3/UGen/Record/PV_NoiseSynthF.hs +1/−1
- Sound/SC3/UGen/Record/PV_NoiseSynthP.hs +1/−1
- Sound/SC3/UGen/Record/PV_OddBin.hs +1/−1
- Sound/SC3/UGen/Record/PV_PartialSynthF.hs +1/−1
- Sound/SC3/UGen/Record/PV_PartialSynthP.hs +1/−1
- Sound/SC3/UGen/Record/PV_PhaseShift.hs +5/−3
- Sound/SC3/UGen/Record/PV_PitchShift.hs +1/−1
- Sound/SC3/UGen/Record/PV_PlayBuf.hs +3/−3
- Sound/SC3/UGen/Record/PV_RecordBuf.hs +1/−1
- Sound/SC3/UGen/Record/PV_SoftWipe.hs +1/−1
- Sound/SC3/UGen/Record/PV_SpectralEnhance.hs +1/−1
- Sound/SC3/UGen/Record/PV_SpectralMap.hs +3/−3
- Sound/SC3/UGen/Record/PV_Whiten.hs +3/−3
- Sound/SC3/UGen/Record/PV_XFade.hs +1/−1
- Sound/SC3/UGen/Record/Pan2.hs +2/−2
- Sound/SC3/UGen/Record/Pan4.hs +2/−2
- Sound/SC3/UGen/Record/PanAz.hs +2/−2
- Sound/SC3/UGen/Record/PanB.hs +2/−2
- Sound/SC3/UGen/Record/PanB2.hs +2/−2
- Sound/SC3/UGen/Record/PanX.hs +3/−3
- Sound/SC3/UGen/Record/PanX2D.hs +3/−3
- Sound/SC3/UGen/Record/Panner.hs +0/−14
- Sound/SC3/UGen/Record/PartConv.hs +2/−2
- Sound/SC3/UGen/Record/Pause.hs +2/−2
- Sound/SC3/UGen/Record/PauseSelf.hs +2/−2
- Sound/SC3/UGen/Record/Peak.hs +2/−2
- Sound/SC3/UGen/Record/PeakEQ2.hs +3/−3
- Sound/SC3/UGen/Record/PeakEQ4.hs +3/−3
- Sound/SC3/UGen/Record/PeakFollower.hs +2/−2
- Sound/SC3/UGen/Record/Perlin3.hs +1/−1
- Sound/SC3/UGen/Record/Phasor.hs +2/−2
- Sound/SC3/UGen/Record/Pitch.hs +2/−2
- Sound/SC3/UGen/Record/PitchShift.hs +2/−2
- Sound/SC3/UGen/Record/PlaneTree.hs +3/−3
- Sound/SC3/UGen/Record/PlayBuf.hs +2/−2
- Sound/SC3/UGen/Record/Pluck.hs +2/−2
- Sound/SC3/UGen/Record/Pokey.hs +31/−0
- Sound/SC3/UGen/Record/PosRatio.hs +3/−3
- Sound/SC3/UGen/Record/PrintVal.hs +5/−5
- Sound/SC3/UGen/Record/PulseDivider.hs +2/−2
- Sound/SC3/UGen/Record/PureUGen.hs +15/−0
- Sound/SC3/UGen/Record/Qitch.hs +3/−3
- Sound/SC3/UGen/Record/RDelayMap.hs +23/−0
- Sound/SC3/UGen/Record/RDelaySet.hs +19/−0
- Sound/SC3/UGen/Record/RDelaySetB.hs +21/−0
- Sound/SC3/UGen/Record/RFreezer.hs +37/−0
- Sound/SC3/UGen/Record/RHPF.hs +2/−2
- Sound/SC3/UGen/Record/RLPF.hs +2/−2
- Sound/SC3/UGen/Record/RLPFD.hs +3/−3
- Sound/SC3/UGen/Record/RLoopSet.hs +27/−0
- Sound/SC3/UGen/Record/RMAFoodChainL.hs +1/−1
- Sound/SC3/UGen/Record/RMEQ.hs +3/−3
- Sound/SC3/UGen/Record/RMEQSuite.hs +1/−1
- Sound/SC3/UGen/Record/RMShelf.hs +3/−3
- Sound/SC3/UGen/Record/RMShelf2.hs +3/−3
- Sound/SC3/UGen/Record/RPlayTrace.hs +23/−0
- Sound/SC3/UGen/Record/RShufflerB.hs +55/−0
- Sound/SC3/UGen/Record/RShufflerL.hs +21/−0
- Sound/SC3/UGen/Record/RTraceRd.hs +23/−0
- Sound/SC3/UGen/Record/RTraceRdX.hs +19/−0
- Sound/SC3/UGen/Record/RTraceRdY.hs +19/−0
- Sound/SC3/UGen/Record/RTraceRdZ.hs +19/−0
- Sound/SC3/UGen/Record/Ramp.hs +2/−2
- Sound/SC3/UGen/Record/RandID.hs +2/−2
- Sound/SC3/UGen/Record/RedDPCMdecode.hs +17/−0
- Sound/SC3/UGen/Record/RedDPCMencode.hs +19/−0
- Sound/SC3/UGen/Record/RedLbyl.hs +21/−0
- Sound/SC3/UGen/Record/RedNoise.hs +17/−0
- Sound/SC3/UGen/Record/RedPhasor.hs +29/−0
- Sound/SC3/UGen/Record/RedPhasor2.hs +29/−0
- Sound/SC3/UGen/Record/RegaliaMitraEQ.hs +3/−3
- Sound/SC3/UGen/Record/ReplaceOut.hs +2/−2
- Sound/SC3/UGen/Record/Resonz.hs +2/−2
- Sound/SC3/UGen/Record/Ringz.hs +2/−2
- Sound/SC3/UGen/Record/RosslerL.hs +1/−1
- Sound/SC3/UGen/Record/RosslerResL.hs +3/−3
- Sound/SC3/UGen/Record/Rotate.hs +3/−3
- Sound/SC3/UGen/Record/RunningMax.hs +2/−2
- Sound/SC3/UGen/Record/RunningMin.hs +2/−2
- Sound/SC3/UGen/Record/RunningSum.hs +2/−2
- Sound/SC3/UGen/Record/SID6581f.hs +65/−0
- Sound/SC3/UGen/Record/SLOnset.hs +1/−1
- Sound/SC3/UGen/Record/SMS.hs +1/−1
- Sound/SC3/UGen/Record/SN76489.hs +31/−0
- Sound/SC3/UGen/Record/SOMAreaWr.hs +1/−1
- Sound/SC3/UGen/Record/SOMRd.hs +1/−1
- Sound/SC3/UGen/Record/SOMTrain.hs +1/−1
- Sound/SC3/UGen/Record/SOS.hs +2/−2
- Sound/SC3/UGen/Record/SVF.hs +1/−1
- Sound/SC3/UGen/Record/SawDPW.hs +1/−1
- Sound/SC3/UGen/Record/Schmidt.hs +2/−2
- Sound/SC3/UGen/Record/ScopeOut2.hs +1/−1
- Sound/SC3/UGen/Record/SendTrig.hs +4/−4
- Sound/SC3/UGen/Record/SensoryDissonance.hs +23/−0
- Sound/SC3/UGen/Record/SetBuf.hs +1/−1
- Sound/SC3/UGen/Record/Shaper.hs +2/−2
- Sound/SC3/UGen/Record/SharedIn.hs +0/−16
- Sound/SC3/UGen/Record/SharedOut.hs +0/−16
- Sound/SC3/UGen/Record/Sieve1.hs +1/−1
- Sound/SC3/UGen/Record/Silent.hs +0/−14
- Sound/SC3/UGen/Record/SinGrain.hs +1/−1
- Sound/SC3/UGen/Record/SinGrainB.hs +1/−1
- Sound/SC3/UGen/Record/SinGrainBBF.hs +1/−1
- Sound/SC3/UGen/Record/SinGrainBF.hs +1/−1
- Sound/SC3/UGen/Record/SinGrainI.hs +1/−1
- Sound/SC3/UGen/Record/SinGrainIBF.hs +1/−1
- Sound/SC3/UGen/Record/SinTone.hs +1/−1
- Sound/SC3/UGen/Record/SineShaper.hs +3/−3
- Sound/SC3/UGen/Record/SkipNeedle.hs +3/−3
- Sound/SC3/UGen/Record/Slew.hs +2/−2
- Sound/SC3/UGen/Record/Slope.hs +2/−2
- Sound/SC3/UGen/Record/Slub.hs +19/−0
- Sound/SC3/UGen/Record/SmoothDecimator.hs +5/−5
- Sound/SC3/UGen/Record/SoftClipAmp.hs +3/−3
- Sound/SC3/UGen/Record/SoftClipAmp4.hs +3/−3
- Sound/SC3/UGen/Record/SoftClipAmp8.hs +3/−3
- Sound/SC3/UGen/Record/SoftClipper4.hs +3/−3
- Sound/SC3/UGen/Record/SoftClipper8.hs +3/−3
- Sound/SC3/UGen/Record/SortBuf.hs +1/−1
- Sound/SC3/UGen/Record/SpectralEntropy.hs +19/−0
- Sound/SC3/UGen/Record/Splay.hs +25/−0
- Sound/SC3/UGen/Record/SplayAz.hs +29/−0
- Sound/SC3/UGen/Record/Spreader.hs +3/−3
- Sound/SC3/UGen/Record/Spring.hs +4/−4
- Sound/SC3/UGen/Record/SpruceBudworm.hs +3/−3
- Sound/SC3/UGen/Record/Squiz.hs +3/−3
- Sound/SC3/UGen/Record/Standard2DC.hs +1/−1
- Sound/SC3/UGen/Record/Standard2DL.hs +1/−1
- Sound/SC3/UGen/Record/Standard2DN.hs +1/−1
- Sound/SC3/UGen/Record/StandardTrig.hs +1/−1
- Sound/SC3/UGen/Record/Stepper.hs +4/−4
- Sound/SC3/UGen/Record/StereoConvolution2L.hs +2/−2
- Sound/SC3/UGen/Record/StkBandedWG.hs +1/−1
- Sound/SC3/UGen/Record/StkBeeThree.hs +1/−1
- Sound/SC3/UGen/Record/StkBlowHole.hs +1/−1
- Sound/SC3/UGen/Record/StkBowed.hs +1/−1
- Sound/SC3/UGen/Record/StkClarinet.hs +1/−1
- Sound/SC3/UGen/Record/StkFlute.hs +1/−1
- Sound/SC3/UGen/Record/StkMandolin.hs +1/−1
- Sound/SC3/UGen/Record/StkModalBar.hs +1/−1
- Sound/SC3/UGen/Record/StkMoog.hs +1/−1
- Sound/SC3/UGen/Record/StkPluck.hs +1/−1
- Sound/SC3/UGen/Record/StkSaxofony.hs +1/−1
- Sound/SC3/UGen/Record/StkShakers.hs +1/−1
- Sound/SC3/UGen/Record/StkVoicForm.hs +1/−1
- Sound/SC3/UGen/Record/Streson.hs +1/−1
- Sound/SC3/UGen/Record/Summer.hs +1/−1
- Sound/SC3/UGen/Record/Sweep.hs +2/−2
- Sound/SC3/UGen/Record/SwitchDelay.hs +3/−3
- Sound/SC3/UGen/Record/T2A.hs +2/−2
- Sound/SC3/UGen/Record/T2K.hs +2/−2
- Sound/SC3/UGen/Record/TBall.hs +2/−2
- Sound/SC3/UGen/Record/TBetaRand.hs +1/−1
- Sound/SC3/UGen/Record/TBrownRand.hs +1/−1
- Sound/SC3/UGen/Record/TDelay.hs +2/−2
- Sound/SC3/UGen/Record/TGaussRand.hs +1/−1
- Sound/SC3/UGen/Record/TGrains.hs +2/−2
- Sound/SC3/UGen/Record/TGrains2.hs +3/−3
- Sound/SC3/UGen/Record/TGrains3.hs +3/−3
- Sound/SC3/UGen/Record/TPV.hs +1/−1
- Sound/SC3/UGen/Record/TTendency.hs +1/−1
- Sound/SC3/UGen/Record/TWChoose.hs +0/−23
- Sound/SC3/UGen/Record/TWindex.hs +2/−2
- Sound/SC3/UGen/Record/Tartini.hs +3/−3
- Sound/SC3/UGen/Record/TermanWang.hs +1/−1
- Sound/SC3/UGen/Record/Tilt.hs +3/−3
- Sound/SC3/UGen/Record/Trig.hs +2/−2
- Sound/SC3/UGen/Record/Trig1.hs +2/−2
- Sound/SC3/UGen/Record/TrigAvg.hs +3/−3
- Sound/SC3/UGen/Record/Tumble.hs +1/−1
- Sound/SC3/UGen/Record/TwoPole.hs +2/−2
- Sound/SC3/UGen/Record/TwoTube.hs +1/−1
- Sound/SC3/UGen/Record/TwoZero.hs +2/−2
- Sound/SC3/UGen/Record/UHJ2B.hs +1/−1
- Sound/SC3/UGen/Record/VBAP.hs +3/−3
- Sound/SC3/UGen/Record/VDiskIn.hs +2/−2
- Sound/SC3/UGen/Record/VMScan2D.hs +1/−1
- Sound/SC3/UGen/Record/VOSIM.hs +1/−1
- Sound/SC3/UGen/Record/VarLag.hs +2/−2
- Sound/SC3/UGen/Record/Vibrato.hs +2/−2
- Sound/SC3/UGen/Record/WAmp.hs +3/−3
- Sound/SC3/UGen/Record/WalshHadamard.hs +1/−1
- Sound/SC3/UGen/Record/WarpZ.hs +1/−1
- Sound/SC3/UGen/Record/WaveLoss.hs +5/−5
- Sound/SC3/UGen/Record/WaveTerrain.hs +1/−1
- Sound/SC3/UGen/Record/WaveletDaub.hs +1/−1
- Sound/SC3/UGen/Record/WeaklyNonlinear.hs +1/−1
- Sound/SC3/UGen/Record/WeaklyNonlinear2.hs +1/−1
- Sound/SC3/UGen/Record/WidthFirstUGen.hs +1/−1
- Sound/SC3/UGen/Record/Wrap.hs +2/−2
- Sound/SC3/UGen/Record/WrapIndex.hs +2/−2
- Sound/SC3/UGen/Record/WrapSummer.hs +5/−5
- Sound/SC3/UGen/Record/XFade.hs +0/−14
- Sound/SC3/UGen/Record/XOut.hs +2/−2
- Sound/SC3/UGen/Record/ZeroCrossing.hs +2/−2
- hsc3-rec.cabal +54/−16
- mk/build.hs +6/−3
README view
@@ -6,7 +6,7 @@ [hs]: http://haskell.org/ [sc3]: http://audiosynth.com/ -© [rohan drape][rd] and others, 2008-2012, [gpl][gpl].+© [rohan drape][rd] and others, 2008-2013, [gpl][gpl]. [rd]: http://rd.slavepianos.org/ [gpl]: http://gnu.org/copyleft/
Sound/SC3/UGen/Record/A2B.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.A2B where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/A2K.hs view
@@ -3,11 +3,11 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data A2K = A2K {- input :: S.UGen+ in :: S.UGen } deriving (Show) a2K :: A2K a2K = A2K {- input = 0.0+ in = 0.0 } mkA2K :: A2K -> S.UGen mkA2K (A2K a') = S.mkOsc S.KR "A2K" [a'] 1
Sound/SC3/UGen/Record/APF.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data APF = APF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, radius :: S.UGen } deriving (Show) aPF :: APF aPF = APF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, radius = 0.8 }
Sound/SC3/UGen/Record/AY.hs view
@@ -1,4 +1,4 @@--- | Emulator of the AY (aka YM) soundchip, used in Spectrum/Atari+-- | (Undocumented class) module Sound.SC3.UGen.Record.AY where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
+ Sound/SC3/UGen/Record/AY8910.hs view
@@ -0,0 +1,43 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.AY8910 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data AY8910 = AY8910 {+ r0 :: S.UGen,+ r1 :: S.UGen,+ r2 :: S.UGen,+ r3 :: S.UGen,+ r4 :: S.UGen,+ r5 :: S.UGen,+ r6 :: S.UGen,+ r7 :: S.UGen,+ r8 :: S.UGen,+ r9 :: S.UGen,+ rA :: S.UGen,+ rB :: S.UGen,+ rC :: S.UGen,+ rD :: S.UGen,+ rate :: S.UGen+ } deriving (Show)+aY8910 :: AY8910+aY8910 = AY8910 {+ r0 = 0.0,+ r1 = 0.0,+ r2 = 0.0,+ r3 = 0.0,+ r4 = 0.0,+ r5 = 0.0,+ r6 = 0.0,+ r7 = 0.0,+ r8 = 0.0,+ r9 = 0.0,+ rA = 0.0,+ rB = 0.0,+ rC = 0.0,+ rD = 0.0,+ rate = 1.0+ }+mkAY8910 :: AY8910 -> S.UGen+mkAY8910 (AY8910 a' b' c' d' e' f' g' h' i' j' k' l' m' n' o') = S.mkOsc S.AR "AY8910" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o'] 3+instance Make AY8910 where+ ugen = mkAY8910
Sound/SC3/UGen/Record/Allpass1.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Allpass1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Allpass1 = Allpass1 {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen } deriving (Show) allpass1 :: Allpass1 allpass1 = Allpass1 {- input = 0.0,+ in = 0.0, freq = 1200.0 } mkAllpass1 :: Allpass1 -> S.UGen
Sound/SC3/UGen/Record/Allpass2.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Allpass2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Allpass2 = Allpass2 {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) allpass2 :: Allpass2 allpass2 = Allpass2 {- input = 0.0,+ in = 0.0, freq = 1200.0, rq = 1.0 }
Sound/SC3/UGen/Record/AllpassC.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data AllpassC = AllpassC { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen@@ -12,7 +12,7 @@ allpassC :: AllpassC allpassC = AllpassC { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2, decaytime = 1.0
Sound/SC3/UGen/Record/AllpassL.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data AllpassL = AllpassL { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen@@ -12,7 +12,7 @@ allpassL :: AllpassL allpassL = AllpassL { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2, decaytime = 1.0
Sound/SC3/UGen/Record/AllpassN.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data AllpassN = AllpassN { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen@@ -12,7 +12,7 @@ allpassN :: AllpassN allpassN = AllpassN { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2, decaytime = 1.0
Sound/SC3/UGen/Record/AmpComp.hs view
@@ -6,14 +6,14 @@ rate :: S.Rate, freq :: S.UGen, root :: S.UGen,- exp_ :: S.UGen+ exp :: S.UGen } deriving (Show) ampComp :: AmpComp ampComp = AmpComp { rate = S.AR, freq = 0.0, root = 0.0,- exp_ = 0.3333+ exp = 0.3333 } mkAmpComp :: AmpComp -> S.UGen mkAmpComp (AmpComp r a' b' c') = S.mkOsc r "AmpComp" [a',b',c'] 1
Sound/SC3/UGen/Record/Amplitude.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Amplitude = Amplitude { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, attackTime :: S.UGen, releaseTime :: S.UGen } deriving (Show) amplitude :: Amplitude amplitude = Amplitude { rate = S.AR,- input = 0.0,+ in = 0.0, attackTime = 0.01, releaseTime = 0.01 }
Sound/SC3/UGen/Record/AmplitudeMod.hs view
@@ -1,17 +1,17 @@--- | amplitude follower+-- | (Undocumented class) module Sound.SC3.UGen.Record.AmplitudeMod where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data AmplitudeMod = AmplitudeMod { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, attackTime :: S.UGen, releaseTime :: S.UGen } deriving (Show) amplitudeMod :: AmplitudeMod amplitudeMod = AmplitudeMod { rate = S.AR,- input = 0.0,+ in = 0.0, attackTime = 0.01, releaseTime = 0.01 }
Sound/SC3/UGen/Record/AnalyseEvents2.hs view
@@ -1,9 +1,9 @@--- | event analyser (BBCut)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AnalyseEvents2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data AnalyseEvents2 = AnalyseEvents2 {- input :: S.UGen,+ in :: S.UGen, bufnum :: S.UGen, threshold :: S.UGen, triggerid :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) analyseEvents2 :: AnalyseEvents2 analyseEvents2 = AnalyseEvents2 {- input = 0.0,+ in = 0.0, bufnum = 0.0, threshold = 0.34, triggerid = 101.0,
Sound/SC3/UGen/Record/ArrayMax.hs view
@@ -1,4 +1,4 @@--- | detect the largest value (and its position) in an array of UGens+-- | (Undocumented class) module Sound.SC3.UGen.Record.ArrayMax where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/ArrayMin.hs view
@@ -1,4 +1,4 @@--- | detect the smallest value (and its position) in an array of UGens+-- | (Undocumented class) module Sound.SC3.UGen.Record.ArrayMin where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
+ Sound/SC3/UGen/Record/Astrocade.hs view
@@ -0,0 +1,29 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Astrocade where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Astrocade = Astrocade {+ reg0 :: S.UGen,+ reg1 :: S.UGen,+ reg2 :: S.UGen,+ reg3 :: S.UGen,+ reg4 :: S.UGen,+ reg5 :: S.UGen,+ reg6 :: S.UGen,+ reg7 :: S.UGen+ } deriving (Show)+astrocade :: Astrocade+astrocade = Astrocade {+ reg0 = 0.0,+ reg1 = 127.0,+ reg2 = 0.0,+ reg3 = 0.0,+ reg4 = 0.0,+ reg5 = 0.0,+ reg6 = 15.0,+ reg7 = 0.0+ }+mkAstrocade :: Astrocade -> S.UGen+mkAstrocade (Astrocade a' b' c' d' e' f' g' h') = S.mkOsc S.AR "Astrocade" [a',b',c',d',e',f',g',h'] 1+instance Make Astrocade where+ ugen = mkAstrocade
+ Sound/SC3/UGen/Record/Atari2600.hs view
@@ -0,0 +1,27 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Atari2600 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Atari2600 = Atari2600 {+ audc0 :: S.UGen,+ audc1 :: S.UGen,+ audf0 :: S.UGen,+ audf1 :: S.UGen,+ audv0 :: S.UGen,+ audv1 :: S.UGen,+ rate :: S.UGen+ } deriving (Show)+atari2600 :: Atari2600+atari2600 = Atari2600 {+ audc0 = 1.0,+ audc1 = 2.0,+ audf0 = 3.0,+ audf1 = 4.0,+ audv0 = 5.0,+ audv1 = 5.0,+ rate = 1.0+ }+mkAtari2600 :: Atari2600 -> S.UGen+mkAtari2600 (Atari2600 a' b' c' d' e' f' g') = S.mkOsc S.AR "Atari2600" [a',b',c',d',e',f',g'] 1+instance Make Atari2600 where+ ugen = mkAtari2600
Sound/SC3/UGen/Record/AtsAmp.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsAmp where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AtsBand.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsBand where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AtsFreq.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsFreq where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AtsNoiSynth.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsNoiSynth where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AtsNoise.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsNoise where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AtsParInfo.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsParInfo where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AtsPartial.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsPartial where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AtsSynth.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsSynth where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AtsUGen.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AtsUGen where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AudioControl.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AudioControl where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/AudioMSG.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.AudioMSG where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data AudioMSG = AudioMSG {- input :: S.UGen,+ in :: S.UGen, index :: S.UGen } deriving (Show) audioMSG :: AudioMSG audioMSG = AudioMSG {- input = 0.0,+ in = 0.0, index = 0.0 } mkAudioMSG :: AudioMSG -> S.UGen
Sound/SC3/UGen/Record/AverageOutput.hs view
@@ -1,16 +1,16 @@--- | calculates mean average of audio or control rate signal+-- | (Undocumented class) module Sound.SC3.UGen.Record.AverageOutput where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data AverageOutput = AverageOutput { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen } deriving (Show) averageOutput :: AverageOutput averageOutput = AverageOutput { rate = S.AR,- input = 0.0,+ in = 0.0, trig = 0.0 } mkAverageOutput :: AverageOutput -> S.UGen
Sound/SC3/UGen/Record/B2A.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.B2A where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/B2Ster.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.B2Ster where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/B2UHJ.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.B2UHJ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BAllPass.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BAllPass = BAllPass {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) bAllPass :: BAllPass bAllPass = BAllPass {- input = 0.0,+ in = 0.0, freq = 1200.0, rq = 1.0 }
Sound/SC3/UGen/Record/BBandPass.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BBandPass = BBandPass {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, bw :: S.UGen } deriving (Show) bBandPass :: BBandPass bBandPass = BBandPass {- input = 0.0,+ in = 0.0, freq = 1200.0, bw = 1.0 }
Sound/SC3/UGen/Record/BBandStop.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BBandStop = BBandStop {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, bw :: S.UGen } deriving (Show) bBandStop :: BBandStop bBandStop = BBandStop {- input = 0.0,+ in = 0.0, freq = 1200.0, bw = 1.0 }
Sound/SC3/UGen/Record/BBlockerBuf.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BBlockerBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BFDecode1.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BFDecode1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BFDecoder.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BFDecoder where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BFEncode1.hs view
@@ -1,9 +1,9 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BFEncode1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BFEncode1 = BFEncode1 {- input :: S.UGen,+ in :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen, rho :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) bFEncode1 :: BFEncode1 bFEncode1 = BFEncode1 {- input = 0.0,+ in = 0.0, azimuth = 0.0, elevation = 0.0, rho = 1.0,
Sound/SC3/UGen/Record/BFEncode2.hs view
@@ -1,9 +1,9 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BFEncode2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BFEncode2 = BFEncode2 {- input :: S.UGen,+ in :: S.UGen, point_x :: S.UGen, point_y :: S.UGen, elevation :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) bFEncode2 :: BFEncode2 bFEncode2 = BFEncode2 {- input = 0.0,+ in = 0.0, point_x = 1.0, point_y = 1.0, elevation = 0.0,
Sound/SC3/UGen/Record/BFEncodeSter.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BFEncodeSter where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BFGrainPanner.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BFGrainPanner where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BFManipulate.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BFManipulate where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BHiPass.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BHiPass = BHiPass {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) bHiPass :: BHiPass bHiPass = BHiPass {- input = 0.0,+ in = 0.0, freq = 1200.0, rq = 1.0 }
Sound/SC3/UGen/Record/BHiShelf.hs view
@@ -3,14 +3,14 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BHiShelf = BHiShelf {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rs :: S.UGen, db :: S.UGen } deriving (Show) bHiShelf :: BHiShelf bHiShelf = BHiShelf {- input = 0.0,+ in = 0.0, freq = 1200.0, rs = 1.0, db = 0.0
Sound/SC3/UGen/Record/BLBufRd.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BLBufRd where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BLowPass.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BLowPass = BLowPass {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) bLowPass :: BLowPass bLowPass = BLowPass {- input = 0.0,+ in = 0.0, freq = 1200.0, rq = 1.0 }
Sound/SC3/UGen/Record/BLowShelf.hs view
@@ -3,14 +3,14 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BLowShelf = BLowShelf {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rs :: S.UGen, db :: S.UGen } deriving (Show) bLowShelf :: BLowShelf bLowShelf = BLowShelf {- input = 0.0,+ in = 0.0, freq = 1200.0, rs = 1.0, db = 0.0
Sound/SC3/UGen/Record/BMoog.hs view
@@ -1,9 +1,9 @@--- | 24db/oct rolloff - 4nd order resonant Low/High/Band Pass Filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.BMoog where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BMoog = BMoog {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, q :: S.UGen, mode :: S.UGen,@@ -11,7 +11,7 @@ } deriving (Show) bMoog :: BMoog bMoog = BMoog {- input = 0.0,+ in = 0.0, freq = 440.0, q = 0.2, mode = 0.0,
Sound/SC3/UGen/Record/BPF.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data BPF = BPF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) bPF :: BPF bPF = BPF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, rq = 1.0 }
Sound/SC3/UGen/Record/BPZ2.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data BPZ2 = BPZ2 { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) bPZ2 :: BPZ2 bPZ2 = BPZ2 { rate = S.AR,- input = 0.0+ in = 0.0 } mkBPZ2 :: BPZ2 -> S.UGen mkBPZ2 (BPZ2 r a') = S.mkOsc r "BPZ2" [a'] 1
Sound/SC3/UGen/Record/BPeakEQ.hs view
@@ -3,14 +3,14 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BPeakEQ = BPeakEQ {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen, db :: S.UGen } deriving (Show) bPeakEQ :: BPeakEQ bPeakEQ = BPeakEQ {- input = 0.0,+ in = 0.0, freq = 1200.0, rq = 1.0, db = 0.0
Sound/SC3/UGen/Record/BRF.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data BRF = BRF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) bRF :: BRF bRF = BRF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, rq = 1.0 }
Sound/SC3/UGen/Record/BRZ2.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data BRZ2 = BRZ2 { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) bRZ2 :: BRZ2 bRZ2 = BRZ2 { rate = S.AR,- input = 0.0+ in = 0.0 } mkBRZ2 :: BRZ2 -> S.UGen mkBRZ2 (BRZ2 r a') = S.mkOsc r "BRZ2" [a'] 1
Sound/SC3/UGen/Record/Balance.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Balance where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Balance = Balance {- input :: S.UGen,+ in :: S.UGen, test :: S.UGen, hp :: S.UGen, stor :: S.UGen } deriving (Show) balance :: Balance balance = Balance {- input = 0.0,+ in = 0.0, test = 0.0, hp = 10.0, stor = 0.0
Sound/SC3/UGen/Record/Ball.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data Ball = Ball { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, g :: S.UGen, damp :: S.UGen, friction :: S.UGen@@ -12,7 +12,7 @@ ball :: Ball ball = Ball { rate = S.AR,- input = 0.0,+ in = 0.0, g = 1.0, damp = 0.0, friction = 0.01
+ Sound/SC3/UGen/Record/Beep.hs view
@@ -0,0 +1,17 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Beep where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Beep = Beep {+ freq :: S.UGen,+ vol :: S.UGen+ } deriving (Show)+beep :: Beep+beep = Beep {+ freq = 3250.0,+ vol = 1.0+ }+mkBeep :: Beep -> S.UGen+mkBeep (Beep a' b') = S.mkOsc S.AR "Beep" [a',b'] 1+instance Make Beep where+ ugen = mkBeep
+ Sound/SC3/UGen/Record/BeepU.hs view
@@ -0,0 +1,15 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.BeepU where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BeepU = BeepU {+ maxSize :: S.UGen+ } deriving (Show)+beepU :: BeepU+beepU = BeepU {+ maxSize = 0.0+ }+mkBeepU :: BeepU -> S.UGen+mkBeepU (BeepU a') = S.mkOsc S.AR "BeepU" [a'] 1+instance Make BeepU where+ ugen = mkBeepU
Sound/SC3/UGen/Record/BinData.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BinData where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
+ Sound/SC3/UGen/Record/BlitB3.hs view
@@ -0,0 +1,15 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.BlitB3 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BlitB3 = BlitB3 {+ freq :: S.UGen+ } deriving (Show)+blitB3 :: BlitB3+blitB3 = BlitB3 {+ freq = 440.0+ }+mkBlitB3 :: BlitB3 -> S.UGen+mkBlitB3 (BlitB3 a') = S.mkOsc S.AR "BlitB3" [a'] 1+instance Make BlitB3 where+ ugen = mkBlitB3
+ Sound/SC3/UGen/Record/BlitB3Saw.hs view
@@ -0,0 +1,17 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.BlitB3Saw where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BlitB3Saw = BlitB3Saw {+ freq :: S.UGen,+ leak :: S.UGen+ } deriving (Show)+blitB3Saw :: BlitB3Saw+blitB3Saw = BlitB3Saw {+ freq = 440.0,+ leak = 0.99+ }+mkBlitB3Saw :: BlitB3Saw -> S.UGen+mkBlitB3Saw (BlitB3Saw a' b') = S.mkOsc S.AR "BlitB3Saw" [a',b'] 1+instance Make BlitB3Saw where+ ugen = mkBlitB3Saw
+ Sound/SC3/UGen/Record/BlitB3Square.hs view
@@ -0,0 +1,17 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.BlitB3Square where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BlitB3Square = BlitB3Square {+ freq :: S.UGen,+ leak :: S.UGen+ } deriving (Show)+blitB3Square :: BlitB3Square+blitB3Square = BlitB3Square {+ freq = 440.0,+ leak = 0.99+ }+mkBlitB3Square :: BlitB3Square -> S.UGen+mkBlitB3Square (BlitB3Square a' b') = S.mkOsc S.AR "BlitB3Square" [a',b'] 1+instance Make BlitB3Square where+ ugen = mkBlitB3Square
+ Sound/SC3/UGen/Record/BlitB3Tri.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.BlitB3Tri where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BlitB3Tri = BlitB3Tri {+ freq :: S.UGen,+ leak :: S.UGen,+ leak2 :: S.UGen+ } deriving (Show)+blitB3Tri :: BlitB3Tri+blitB3Tri = BlitB3Tri {+ freq = 440.0,+ leak = 0.99,+ leak2 = 0.99+ }+mkBlitB3Tri :: BlitB3Tri -> S.UGen+mkBlitB3Tri (BlitB3Tri a' b' c') = S.mkOsc S.AR "BlitB3Tri" [a',b',c'] 1+instance Make BlitB3Tri where+ ugen = mkBlitB3Tri
Sound/SC3/UGen/Record/Breakcore.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Breakcore where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Brusselator.hs view
@@ -1,10 +1,10 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Brusselator where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Brusselator = Brusselator { reset :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, mu :: S.UGen, gamma :: S.UGen, initx :: S.UGen,@@ -13,7 +13,7 @@ brusselator :: Brusselator brusselator = Brusselator { reset = 0.0,- rate_ = 0.01,+ rate = 0.01, mu = 1.0, gamma = 1.0, initx = 0.5,
Sound/SC3/UGen/Record/BufAllpassC.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data BufAllpassC = BufAllpassC { buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen } deriving (Show) bufAllpassC :: BufAllpassC bufAllpassC = BufAllpassC { buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2, decaytime = 1.0 }
Sound/SC3/UGen/Record/BufAllpassL.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data BufAllpassL = BufAllpassL { buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen } deriving (Show) bufAllpassL :: BufAllpassL bufAllpassL = BufAllpassL { buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2, decaytime = 1.0 }
Sound/SC3/UGen/Record/BufAllpassN.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data BufAllpassN = BufAllpassN { buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen } deriving (Show) bufAllpassN :: BufAllpassN bufAllpassN = BufAllpassN { buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2, decaytime = 1.0 }
Sound/SC3/UGen/Record/BufCombC.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data BufCombC = BufCombC { buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen } deriving (Show) bufCombC :: BufCombC bufCombC = BufCombC { buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2, decaytime = 1.0 }
Sound/SC3/UGen/Record/BufCombL.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data BufCombL = BufCombL { buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen } deriving (Show) bufCombL :: BufCombL bufCombL = BufCombL { buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2, decaytime = 1.0 }
Sound/SC3/UGen/Record/BufCombN.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data BufCombN = BufCombN { buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen } deriving (Show) bufCombN :: BufCombN bufCombN = BufCombN { buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2, decaytime = 1.0 }
Sound/SC3/UGen/Record/BufDelayC.hs view
@@ -5,14 +5,14 @@ data BufDelayC = BufDelayC { rate :: S.Rate, buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen } deriving (Show) bufDelayC :: BufDelayC bufDelayC = BufDelayC { rate = S.AR, buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2 } mkBufDelayC :: BufDelayC -> S.UGen
Sound/SC3/UGen/Record/BufDelayL.hs view
@@ -5,14 +5,14 @@ data BufDelayL = BufDelayL { rate :: S.Rate, buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen } deriving (Show) bufDelayL :: BufDelayL bufDelayL = BufDelayL { rate = S.AR, buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2 } mkBufDelayL :: BufDelayL -> S.UGen
Sound/SC3/UGen/Record/BufDelayN.hs view
@@ -5,14 +5,14 @@ data BufDelayN = BufDelayN { rate :: S.Rate, buf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, delaytime :: S.UGen } deriving (Show) bufDelayN :: BufDelayN bufDelayN = BufDelayN { rate = S.AR, buf = 0.0,- input = 0.0,+ in = 0.0, delaytime = 0.2 } mkBufDelayN :: BufDelayN -> S.UGen
Sound/SC3/UGen/Record/BufGrain.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BufGrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,7 +6,7 @@ trigger :: S.UGen, dur :: S.UGen, sndbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, pos :: S.UGen, interp :: S.UGen } deriving (Show)@@ -15,7 +15,7 @@ trigger = 0.0, dur = 1.0, sndbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, pos = 0.0, interp = 2.0 }
Sound/SC3/UGen/Record/BufGrainB.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BufGrainB where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,7 +6,7 @@ trigger :: S.UGen, dur :: S.UGen, sndbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, pos :: S.UGen, envbuf :: S.UGen, interp :: S.UGen@@ -16,7 +16,7 @@ trigger = 0.0, dur = 1.0, sndbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, pos = 0.0, envbuf = 0.0, interp = 2.0
Sound/SC3/UGen/Record/BufGrainBBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BufGrainBBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,7 +6,7 @@ trigger :: S.UGen, dur :: S.UGen, sndbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, pos :: S.UGen, envbuf :: S.UGen, azimuth :: S.UGen,@@ -20,7 +20,7 @@ trigger = 0.0, dur = 1.0, sndbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, pos = 0.0, envbuf = 0.0, azimuth = 0.0,
Sound/SC3/UGen/Record/BufGrainBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BufGrainBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,7 +6,7 @@ trigger :: S.UGen, dur :: S.UGen, sndbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, pos :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen,@@ -19,7 +19,7 @@ trigger = 0.0, dur = 1.0, sndbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, pos = 0.0, azimuth = 0.0, elevation = 0.0,
Sound/SC3/UGen/Record/BufGrainI.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BufGrainI where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,7 +6,7 @@ trigger :: S.UGen, dur :: S.UGen, sndbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, pos :: S.UGen, envbuf1 :: S.UGen, envbuf2 :: S.UGen,@@ -18,7 +18,7 @@ trigger = 0.0, dur = 1.0, sndbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, pos = 0.0, envbuf1 = 0.0, envbuf2 = 0.0,
Sound/SC3/UGen/Record/BufGrainIBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.BufGrainIBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,7 +6,7 @@ trigger :: S.UGen, dur :: S.UGen, sndbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, pos :: S.UGen, envbuf1 :: S.UGen, envbuf2 :: S.UGen,@@ -22,7 +22,7 @@ trigger = 0.0, dur = 1.0, sndbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, pos = 0.0, envbuf1 = 0.0, envbuf2 = 0.0,
Sound/SC3/UGen/Record/BufMax.hs view
@@ -1,4 +1,4 @@--- | detect the largest value (and its position) in an array of UGens+-- | (Undocumented class) module Sound.SC3.UGen.Record.BufMax where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/BufMin.hs view
@@ -1,4 +1,4 @@--- | detect the largest value (and its position) in an array of UGens+-- | (Undocumented class) module Sound.SC3.UGen.Record.BufMin where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/CQ_Diff.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.CQ_Diff where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Cepstrum.hs view
@@ -1,4 +1,4 @@--- | Quefrency analysis and liftering+-- | (Undocumented class) module Sound.SC3.UGen.Record.Cepstrum where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/CheckBadValues.hs view
@@ -4,15 +4,15 @@ import Sound.SC3.UGen.Record data CheckBadValues = CheckBadValues { rate :: S.Rate,- input :: S.UGen,- id_ :: S.UGen,+ in :: S.UGen,+ id :: S.UGen, post :: S.UGen } deriving (Show) checkBadValues :: CheckBadValues checkBadValues = CheckBadValues { rate = S.AR,- input = 0.0,- id_ = 0.0,+ in = 0.0,+ id = 0.0, post = 2.0 } mkCheckBadValues :: CheckBadValues -> S.UGen
+ Sound/SC3/UGen/Record/Chromagram.hs view
@@ -0,0 +1,27 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Chromagram where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Chromagram = Chromagram {+ fft :: S.UGen,+ fftsize :: S.UGen,+ n :: S.UGen,+ tuningbase :: S.UGen,+ octaves :: S.UGen,+ integrationflag :: S.UGen,+ coeff :: S.UGen+ } deriving (Show)+chromagram :: Chromagram+chromagram = Chromagram {+ fft = 0.0,+ fftsize = 2048.0,+ n = 12.0,+ tuningbase = 32.703195662575,+ octaves = 8.0,+ integrationflag = 0.0,+ coeff = 0.9+ }+mkChromagram :: Chromagram -> S.UGen+mkChromagram (Chromagram a' b' c' d' e' f' g') = S.mkOsc S.KR "Chromagram" [a',b',c',d',e',f',g'] 1+instance Make Chromagram where+ ugen = mkChromagram
Sound/SC3/UGen/Record/ChuaL.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.ChuaL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/CircleRamp.hs view
@@ -1,10 +1,10 @@--- | circular linear lag+-- | (Undocumented class) module Sound.SC3.UGen.Record.CircleRamp where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data CircleRamp = CircleRamp { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lagTime :: S.UGen, circmin :: S.UGen, circmax :: S.UGen@@ -12,7 +12,7 @@ circleRamp :: CircleRamp circleRamp = CircleRamp { rate = S.AR,- input = 0.0,+ in = 0.0, lagTime = 0.1, circmin = -180.0, circmax = 180.0
Sound/SC3/UGen/Record/ClearBuf.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.ClearBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Clip.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Clip = Clip { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) clip :: Clip clip = Clip { rate = S.AR,- input = 0.0,+ in = 0.0, lo = 0.0, hi = 1.0 }
Sound/SC3/UGen/Record/Clipper32.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Clipper32 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Clipper32 = Clipper32 {- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) clipper32 :: Clipper32 clipper32 = Clipper32 {- input = 0.0,+ in = 0.0, lo = -0.8, hi = 0.8 }
Sound/SC3/UGen/Record/Clipper4.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Clipper4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Clipper4 = Clipper4 {- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) clipper4 :: Clipper4 clipper4 = Clipper4 {- input = 0.0,+ in = 0.0, lo = -0.8, hi = 0.8 }
Sound/SC3/UGen/Record/Clipper8.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Clipper8 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Clipper8 = Clipper8 {- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) clipper8 :: Clipper8 clipper8 = Clipper8 {- input = 0.0,+ in = 0.0, lo = -0.8, hi = 0.8 }
Sound/SC3/UGen/Record/CoinGate.hs view
@@ -5,13 +5,13 @@ data CoinGate = CoinGate { rate :: S.Rate, prob :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) coinGate :: CoinGate coinGate = CoinGate { rate = S.AR, prob = 0.0,- input = 0.0+ in = 0.0 } mkCoinGate :: CoinGate -> S.UGen mkCoinGate (CoinGate r a' b') = S.mkOsc r "CoinGate" [a',b'] 1
Sound/SC3/UGen/Record/CombC.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data CombC = CombC { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen@@ -12,7 +12,7 @@ combC :: CombC combC = CombC { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2, decaytime = 1.0
Sound/SC3/UGen/Record/CombL.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data CombL = CombL { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen@@ -12,7 +12,7 @@ combL :: CombL combL = CombL { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2, decaytime = 1.0
Sound/SC3/UGen/Record/CombLP.hs view
@@ -1,9 +1,9 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.CombLP where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data CombLP = CombLP {- input :: S.UGen,+ in :: S.UGen, gate :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) combLP :: CombLP combLP = CombLP {- input = 0.0,+ in = 0.0, gate = 1.0, maxdelaytime = 0.2, delaytime = 0.2,
Sound/SC3/UGen/Record/CombN.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data CombN = CombN { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen, decaytime :: S.UGen@@ -12,7 +12,7 @@ combN :: CombN combN = CombN { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2, decaytime = 1.0
Sound/SC3/UGen/Record/Compander.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Compander = Compander {- input :: S.UGen,+ in :: S.UGen, control :: S.UGen, thresh :: S.UGen, slopeBelow :: S.UGen,@@ -13,7 +13,7 @@ } deriving (Show) compander :: Compander compander = Compander {- input = 0.0,+ in = 0.0, control = 0.0, thresh = 0.5, slopeBelow = 1.0,
Sound/SC3/UGen/Record/CompanderD.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data CompanderD = CompanderD {- input :: S.UGen,+ in :: S.UGen, thresh :: S.UGen, slopeBelow :: S.UGen, slopeAbove :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) companderD :: CompanderD companderD = CompanderD {- input = 0.0,+ in = 0.0, thresh = 0.5, slopeBelow = 1.0, slopeAbove = 1.0,
Sound/SC3/UGen/Record/Concat.hs view
@@ -1,4 +1,4 @@--- | Concatenative Cross-Synthesis on Live Streams+-- | (Undocumented class) module Sound.SC3.UGen.Record.Concat where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Concat2.hs view
@@ -1,4 +1,4 @@--- | Concatenative Cross-Synthesis on Live Streams+-- | (Undocumented class) module Sound.SC3.UGen.Record.Concat2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Convolution.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Convolution = Convolution {- input :: S.UGen,+ in :: S.UGen, kernel :: S.UGen, framesize :: S.UGen } deriving (Show) convolution :: Convolution convolution = Convolution {- input = 0.0,+ in = 0.0, kernel = 0.0, framesize = 512.0 }
Sound/SC3/UGen/Record/Convolution2.hs view
@@ -3,14 +3,14 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Convolution2 = Convolution2 {- input :: S.UGen,+ in :: S.UGen, kernel :: S.UGen, trigger :: S.UGen, framesize :: S.UGen } deriving (Show) convolution2 :: Convolution2 convolution2 = Convolution2 {- input = 0.0,+ in = 0.0, kernel = 0.0, trigger = 0.0, framesize = 2048.0
Sound/SC3/UGen/Record/Convolution2L.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Convolution2L = Convolution2L {- input :: S.UGen,+ in :: S.UGen, kernel :: S.UGen, trigger :: S.UGen, framesize :: S.UGen,@@ -11,7 +11,7 @@ } deriving (Show) convolution2L :: Convolution2L convolution2L = Convolution2L {- input = 0.0,+ in = 0.0, kernel = 0.0, trigger = 0.0, framesize = 2048.0,
Sound/SC3/UGen/Record/Convolution3.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data Convolution3 = Convolution3 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, kernel :: S.UGen, trigger :: S.UGen, framesize :: S.UGen@@ -12,7 +12,7 @@ convolution3 :: Convolution3 convolution3 = Convolution3 { rate = S.AR,- input = 0.0,+ in = 0.0, kernel = 0.0, trigger = 0.0, framesize = 2048.0
Sound/SC3/UGen/Record/Coyote.hs view
@@ -1,9 +1,9 @@--- | an amplitude tracking based onset detector+-- | (Undocumented class) module Sound.SC3.UGen.Record.Coyote where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Coyote = Coyote {- input :: S.UGen,+ in :: S.UGen, trackFall :: S.UGen, slowLag :: S.UGen, fastLag :: S.UGen,@@ -13,7 +13,7 @@ } deriving (Show) coyote :: Coyote coyote = Coyote {- input = 0.0,+ in = 0.0, trackFall = 0.2, slowLag = 0.2, fastLag = 0.01,
Sound/SC3/UGen/Record/Crest.hs view
@@ -1,15 +1,15 @@--- | Measure the temporal crest factor of a signal+-- | (Undocumented class) module Sound.SC3.UGen.Record.Crest where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Crest = Crest {- input :: S.UGen,+ in :: S.UGen, numsamps :: S.UGen, gate :: S.UGen } deriving (Show) crest :: Crest crest = Crest {- input = 0.0,+ in = 0.0, numsamps = 400.0, gate = 1.0 }
Sound/SC3/UGen/Record/CrossoverDistortion.hs view
@@ -1,15 +1,15 @@--- | port of some ladspa plugins+-- | (Undocumented class) module Sound.SC3.UGen.Record.CrossoverDistortion where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data CrossoverDistortion = CrossoverDistortion {- input :: S.UGen,+ in :: S.UGen, amp :: S.UGen, smooth :: S.UGen } deriving (Show) crossoverDistortion :: CrossoverDistortion crossoverDistortion = CrossoverDistortion {- input = 0.0,+ in = 0.0, amp = 0.5, smooth = 0.5 }
Sound/SC3/UGen/Record/DC.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data DC = DC { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) dC :: DC dC = DC { rate = S.AR,- input = 0.0+ in = 0.0 } mkDC :: DC -> S.UGen mkDC (DC r a') = S.mkOsc r "DC" [a'] 1
Sound/SC3/UGen/Record/DFM1.hs view
@@ -1,22 +1,22 @@--- | Digitally modelled analog filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.DFM1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data DFM1 = DFM1 {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, res :: S.UGen, inputgain :: S.UGen,- type_ :: S.UGen,+ type :: S.UGen, noiselevel :: S.UGen } deriving (Show) dFM1 :: DFM1 dFM1 = DFM1 {- input = 0.0,+ in = 0.0, freq = 1000.0, res = 0.1, inputgain = 1.0,- type_ = 0.0,+ type = 0.0, noiselevel = 0.0003 } mkDFM1 :: DFM1 -> S.UGen
+ Sound/SC3/UGen/Record/DPW3Tri.hs view
@@ -0,0 +1,15 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.DPW3Tri where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DPW3Tri = DPW3Tri {+ freq :: S.UGen+ } deriving (Show)+dPW3Tri :: DPW3Tri+dPW3Tri = DPW3Tri {+ freq = 440.0+ }+mkDPW3Tri :: DPW3Tri -> S.UGen+mkDPW3Tri (DPW3Tri a') = S.mkOsc S.AR "DPW3Tri" [a'] 1+instance Make DPW3Tri where+ ugen = mkDPW3Tri
+ Sound/SC3/UGen/Record/DPW4Saw.hs view
@@ -0,0 +1,15 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.DPW4Saw where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DPW4Saw = DPW4Saw {+ freq :: S.UGen+ } deriving (Show)+dPW4Saw :: DPW4Saw+dPW4Saw = DPW4Saw {+ freq = 440.0+ }+mkDPW4Saw :: DPW4Saw -> S.UGen+mkDPW4Saw (DPW4Saw a') = S.mkOsc S.AR "DPW4Saw" [a'] 1+instance Make DPW4Saw where+ ugen = mkDPW4Saw
Sound/SC3/UGen/Record/DUGen.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.DUGen where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Dbrown.hs view
@@ -6,14 +6,14 @@ lo :: S.UGen, hi :: S.UGen, step :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) dbrown :: Dbrown dbrown = Dbrown { lo = 0.0, hi = 1.0, step = 0.01,- length_ = 100000000.0+ length = 100000000.0 } mkDbrown :: Dbrown -> S.UGen mkDbrown (Dbrown a' b' c' d') = S.mkOsc S.DR "Dbrown" [a',b',c',d'] 1
Sound/SC3/UGen/Record/Dbrown2.hs view
@@ -1,4 +1,4 @@--- | demand rate brownian movement with Gendyn distributions+-- | (Undocumented class) module Sound.SC3.UGen.Record.Dbrown2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -7,7 +7,7 @@ hi :: S.UGen, step :: S.UGen, dist :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) dbrown2 :: Dbrown2 dbrown2 = Dbrown2 {@@ -15,7 +15,7 @@ hi = 0.0, step = 0.0, dist = 0.0,- length_ = 100000000.0+ length = 100000000.0 } mkDbrown2 :: Dbrown2 -> S.UGen mkDbrown2 (Dbrown2 a' b' c' d' e') = S.mkOsc S.DR "Dbrown2" [a',b',c',d',e'] 1
Sound/SC3/UGen/Record/Decay.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Decay = Decay { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, decayTime :: S.UGen } deriving (Show) decay :: Decay decay = Decay { rate = S.AR,- input = 0.0,+ in = 0.0, decayTime = 1.0 } mkDecay :: Decay -> S.UGen
Sound/SC3/UGen/Record/Decay2.hs view
@@ -1,17 +1,17 @@--- | Exponential decay.+-- | Exponential decay module Sound.SC3.UGen.Record.Decay2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Decay2 = Decay2 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, attackTime :: S.UGen, decayTime :: S.UGen } deriving (Show) decay2 :: Decay2 decay2 = Decay2 { rate = S.AR,- input = 0.0,+ in = 0.0, attackTime = 0.01, decayTime = 1.0 }
Sound/SC3/UGen/Record/Decimator.hs view
@@ -1,16 +1,16 @@--- | port of some ladspa plugins+-- | (Undocumented class) module Sound.SC3.UGen.Record.Decimator where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Decimator = Decimator {- input :: S.UGen,- rate_ :: S.UGen,+ in :: S.UGen,+ rate :: S.UGen, bits :: S.UGen } deriving (Show) decimator :: Decimator decimator = Decimator {- input = 0.0,- rate_ = 44100.0,+ in = 0.0,+ rate = 44100.0, bits = 24.0 } mkDecimator :: Decimator -> S.UGen
Sound/SC3/UGen/Record/DegreeToKey.hs view
@@ -5,14 +5,14 @@ data DegreeToKey = DegreeToKey { rate :: S.Rate, bufnum :: S.UGen,- input :: S.UGen,+ in :: S.UGen, octave :: S.UGen } deriving (Show) degreeToKey :: DegreeToKey degreeToKey = DegreeToKey { rate = S.AR, bufnum = 0.0,- input = 0.0,+ in = 0.0, octave = 12.0 } mkDegreeToKey :: DegreeToKey -> S.UGen
Sound/SC3/UGen/Record/DelTapWr.hs view
@@ -5,13 +5,13 @@ data DelTapWr = DelTapWr { rate :: S.Rate, buffer :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) delTapWr :: DelTapWr delTapWr = DelTapWr { rate = S.AR, buffer = 0.0,- input = 0.0+ in = 0.0 } mkDelTapWr :: DelTapWr -> S.UGen mkDelTapWr (DelTapWr r a' b') = S.mkOsc r "DelTapWr" [a',b'] 1
Sound/SC3/UGen/Record/Delay1.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data Delay1 = Delay1 { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) delay1 :: Delay1 delay1 = Delay1 { rate = S.AR,- input = 0.0+ in = 0.0 } mkDelay1 :: Delay1 -> S.UGen mkDelay1 (Delay1 r a') = S.mkOsc r "Delay1" [a'] 1
Sound/SC3/UGen/Record/Delay2.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data Delay2 = Delay2 { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) delay2 :: Delay2 delay2 = Delay2 { rate = S.AR,- input = 0.0+ in = 0.0 } mkDelay2 :: Delay2 -> S.UGen mkDelay2 (Delay2 r a') = S.mkOsc r "Delay2" [a'] 1
Sound/SC3/UGen/Record/DelayC.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data DelayC = DelayC { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen } deriving (Show) delayC :: DelayC delayC = DelayC { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2 }
Sound/SC3/UGen/Record/DelayL.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data DelayL = DelayL { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen } deriving (Show) delayL :: DelayL delayL = DelayL { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2 }
Sound/SC3/UGen/Record/DelayN.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data DelayN = DelayN { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen } deriving (Show) delayN :: DelayN delayN = DelayN { rate = S.AR,- input = 0.0,+ in = 0.0, maxdelaytime = 0.2, delaytime = 0.2 }
Sound/SC3/UGen/Record/DetaBlockerBuf.hs view
@@ -1,4 +1,4 @@--- | A Demand UGen running an adapted BetaBlocker VChip+-- | (Undocumented class) module Sound.SC3.UGen.Record.DetaBlockerBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/DetectIndex.hs view
@@ -5,13 +5,13 @@ data DetectIndex = DetectIndex { rate :: S.Rate, bufnum :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) detectIndex :: DetectIndex detectIndex = DetectIndex { rate = S.AR, bufnum = 0.0,- input = 0.0+ in = 0.0 } mkDetectIndex :: DetectIndex -> S.UGen mkDetectIndex (DetectIndex r a' b') = S.mkOsc r "DetectIndex" [a',b'] 1
Sound/SC3/UGen/Record/DetectSilence.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data DetectSilence = DetectSilence { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, amp :: S.UGen, time :: S.UGen, doneAction :: S.UGen@@ -12,7 +12,7 @@ detectSilence :: DetectSilence detectSilence = DetectSilence { rate = S.AR,- input = 0.0,+ in = 0.0, amp = 0.0001, time = 0.1, doneAction = 0.0
Sound/SC3/UGen/Record/Dgauss.hs view
@@ -1,17 +1,17 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Dgauss where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Dgauss = Dgauss { lo :: S.UGen, hi :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) dgauss :: Dgauss dgauss = Dgauss { lo = 0.0, hi = 0.0,- length_ = 100000000.0+ length = 100000000.0 } mkDgauss :: Dgauss -> S.UGen mkDgauss (Dgauss a' b' c') = S.mkOsc S.DR "Dgauss" [a',b',c'] 1
Sound/SC3/UGen/Record/Dgeom.hs view
@@ -5,13 +5,13 @@ data Dgeom = Dgeom { start :: S.UGen, grow :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) dgeom :: Dgeom dgeom = Dgeom { start = 1.0, grow = 2.0,- length_ = 100000000.0+ length = 100000000.0 } mkDgeom :: Dgeom -> S.UGen mkDgeom (Dgeom a' b' c') = S.mkOsc S.DR "Dgeom" [a',b',c'] 1
Sound/SC3/UGen/Record/Dibrown.hs view
@@ -6,14 +6,14 @@ lo :: S.UGen, hi :: S.UGen, step :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) dibrown :: Dibrown dibrown = Dibrown { lo = 0.0, hi = 1.0, step = 0.01,- length_ = 100000000.0+ length = 100000000.0 } mkDibrown :: Dibrown -> S.UGen mkDibrown (Dibrown a' b' c' d') = S.mkOsc S.DR "Dibrown" [a',b',c',d'] 1
Sound/SC3/UGen/Record/Disintegrator.hs view
@@ -1,15 +1,15 @@--- | port of some ladspa plugins+-- | (Undocumented class) module Sound.SC3.UGen.Record.Disintegrator where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Disintegrator = Disintegrator {- input :: S.UGen,+ in :: S.UGen, probability :: S.UGen, multiplier :: S.UGen } deriving (Show) disintegrator :: Disintegrator disintegrator = Disintegrator {- input = 0.0,+ in = 0.0, probability = 0.5, multiplier = 0.0 }
Sound/SC3/UGen/Record/DiskOut.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data DiskOut = DiskOut { bufnum :: S.UGen,- input :: S.UGen+ channelsArray :: S.UGen } deriving (Show) diskOut :: DiskOut diskOut = DiskOut { bufnum = 0.0,- input = 0.0+ channelsArray = 0.0 } mkDiskOut :: DiskOut -> S.UGen mkDiskOut (DiskOut a' b') = S.mkOsc S.AR "DiskOut" [a',b'] 1
Sound/SC3/UGen/Record/Diwhite.hs view
@@ -5,13 +5,13 @@ data Diwhite = Diwhite { lo :: S.UGen, hi :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) diwhite :: Diwhite diwhite = Diwhite { lo = 0.0, hi = 1.0,- length_ = 100000000.0+ length = 100000000.0 } mkDiwhite :: Diwhite -> S.UGen mkDiwhite (Diwhite a' b' c') = S.mkOsc S.DR "Diwhite" [a',b',c'] 1
Sound/SC3/UGen/Record/Donce.hs view
@@ -1,13 +1,13 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Donce where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Donce = Donce {- input :: S.UGen+ in :: S.UGen } deriving (Show) donce :: Donce donce = Donce {- input = 0.0+ in = 0.0 } mkDonce :: Donce -> S.UGen mkDonce (Donce a') = S.mkOsc S.DR "Donce" [a'] 1
Sound/SC3/UGen/Record/DoubleNestedAllpassC.hs view
@@ -1,9 +1,9 @@--- | Nested Allpass filters as proposed by Vercoe and Pluckett+-- | (Undocumented class) module Sound.SC3.UGen.Record.DoubleNestedAllpassC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data DoubleNestedAllpassC = DoubleNestedAllpassC {- input :: S.UGen,+ in :: S.UGen, maxdelay1 :: S.UGen, delay1 :: S.UGen, gain1 :: S.UGen,@@ -16,7 +16,7 @@ } deriving (Show) doubleNestedAllpassC :: DoubleNestedAllpassC doubleNestedAllpassC = DoubleNestedAllpassC {- input = 0.0,+ in = 0.0, maxdelay1 = 0.0047, delay1 = 0.0047, gain1 = 0.15,
Sound/SC3/UGen/Record/DoubleNestedAllpassL.hs view
@@ -1,9 +1,9 @@--- | Nested Allpass filters as proposed by Vercoe and Pluckett+-- | (Undocumented class) module Sound.SC3.UGen.Record.DoubleNestedAllpassL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data DoubleNestedAllpassL = DoubleNestedAllpassL {- input :: S.UGen,+ in :: S.UGen, maxdelay1 :: S.UGen, delay1 :: S.UGen, gain1 :: S.UGen,@@ -16,7 +16,7 @@ } deriving (Show) doubleNestedAllpassL :: DoubleNestedAllpassL doubleNestedAllpassL = DoubleNestedAllpassL {- input = 0.0,+ in = 0.0, maxdelay1 = 0.0047, delay1 = 0.0047, gain1 = 0.15,
Sound/SC3/UGen/Record/DoubleNestedAllpassN.hs view
@@ -1,9 +1,9 @@--- | Nested Allpass filters as proposed by Vercoe and Pluckett+-- | (Undocumented class) module Sound.SC3.UGen.Record.DoubleNestedAllpassN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data DoubleNestedAllpassN = DoubleNestedAllpassN {- input :: S.UGen,+ in :: S.UGen, maxdelay1 :: S.UGen, delay1 :: S.UGen, gain1 :: S.UGen,@@ -16,7 +16,7 @@ } deriving (Show) doubleNestedAllpassN :: DoubleNestedAllpassN doubleNestedAllpassN = DoubleNestedAllpassN {- input = 0.0,+ in = 0.0, maxdelay1 = 0.0047, delay1 = 0.0047, gain1 = 0.15,
Sound/SC3/UGen/Record/DoubleWell.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.DoubleWell where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/DoubleWell2.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.DoubleWell2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/DoubleWell3.hs view
@@ -1,10 +1,10 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.DoubleWell3 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data DoubleWell3 = DoubleWell3 { reset :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, f :: S.UGen, delta :: S.UGen, initx :: S.UGen,@@ -13,7 +13,7 @@ doubleWell3 :: DoubleWell3 doubleWell3 = DoubleWell3 { reset = 0.0,- rate_ = 0.01,+ rate = 0.01, f = 0.0, delta = 0.25, initx = 0.0,
Sound/SC3/UGen/Record/Dpoll.hs view
@@ -3,14 +3,14 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Dpoll = Dpoll {- input :: S.UGen,+ in :: S.UGen, label :: S.UGen, run :: S.UGen, trigid :: S.UGen } deriving (Show) dpoll :: Dpoll dpoll = Dpoll {- input = 0.0,+ in = 0.0, label = 0.0, run = 1.0, trigid = -1.0
Sound/SC3/UGen/Record/Dreset.hs view
@@ -3,12 +3,12 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Dreset = Dreset {- input :: S.UGen,+ in :: S.UGen, reset :: S.UGen } deriving (Show) dreset :: Dreset dreset = Dreset {- input = 0.0,+ in = 0.0, reset = 0.0 } mkDreset :: Dreset -> S.UGen
Sound/SC3/UGen/Record/DriveNoise.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.DriveNoise where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data DriveNoise = DriveNoise {- input :: S.UGen,+ in :: S.UGen, amount :: S.UGen, multi :: S.UGen } deriving (Show) driveNoise :: DriveNoise driveNoise = DriveNoise {- input = 0.0,+ in = 0.0, amount = 1.0, multi = 5.0 }
Sound/SC3/UGen/Record/Dseries.hs view
@@ -5,13 +5,13 @@ data Dseries = Dseries { start :: S.UGen, step :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) dseries :: Dseries dseries = Dseries { start = 1.0, step = 1.0,- length_ = 100000000.0+ length = 100000000.0 } mkDseries :: Dseries -> S.UGen mkDseries (Dseries a' b' c') = S.mkOsc S.DR "Dseries" [a',b',c'] 1
Sound/SC3/UGen/Record/Dstutter.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data Dstutter = Dstutter { n :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) dstutter :: Dstutter dstutter = Dstutter { n = 0.0,- input = 0.0+ in = 0.0 } mkDstutter :: Dstutter -> S.UGen mkDstutter (Dstutter a' b') = S.mkOsc S.DR "Dstutter" [a',b'] 1
Sound/SC3/UGen/Record/Dunique.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Dunique where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Dwhite.hs view
@@ -5,13 +5,13 @@ data Dwhite = Dwhite { lo :: S.UGen, hi :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) dwhite :: Dwhite dwhite = Dwhite { lo = 0.0, hi = 1.0,- length_ = 100000000.0+ length = 100000000.0 } mkDwhite :: Dwhite -> S.UGen mkDwhite (Dwhite a' b' c') = S.mkOsc S.DR "Dwhite" [a',b',c'] 1
− Sound/SC3/UGen/Record/Dwrand.hs
@@ -1,18 +0,0 @@-module Sound.SC3.UGen.Record.Dwrand where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data Dwrand = Dwrand {- list :: S.UGen,- weights :: S.UGen,- repeats :: S.UGen- } deriving (Show)-dwrand :: Dwrand-dwrand = Dwrand {- list = 0.0,- weights = 0.0,- repeats = 1.0- }-mkDwrand :: Dwrand -> S.UGen-mkDwrand (Dwrand a' b' c') = S.mkOsc S.DR "Dwrand" [a',b',c'] 1-instance Make Dwrand where- ugen = mkDwrand
Sound/SC3/UGen/Record/EnvDetect.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.EnvDetect where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data EnvDetect = EnvDetect {- input :: S.UGen,+ in :: S.UGen, attack :: S.UGen, release :: S.UGen } deriving (Show) envDetect :: EnvDetect envDetect = EnvDetect {- input = 0.0,+ in = 0.0, attack = 100.0, release = 0.0 }
Sound/SC3/UGen/Record/EnvFollow.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.EnvFollow where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFT.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data FFT = FFT { buffer :: S.UGen,- input :: S.UGen,+ in :: S.UGen, hop :: S.UGen, wintype :: S.UGen, active :: S.UGen,@@ -13,7 +13,7 @@ fFT :: FFT fFT = FFT { buffer = 0.0,- input = 0.0,+ in = 0.0, hop = 0.5, wintype = 0.0, active = 1.0,
Sound/SC3/UGen/Record/FFTCentroid.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTCentroid where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTComplexDev.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTComplexDev where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTCrest.hs view
@@ -1,4 +1,4 @@--- | Spectral crest measure+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTCrest where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTDiffMags.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTDiffMags where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTFlux.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTFlux where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTFluxPos.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTFluxPos where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
− Sound/SC3/UGen/Record/FFTInterleave.hs
@@ -1,17 +0,0 @@--- | (not documented)-module Sound.SC3.UGen.Record.FFTInterleave where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data FFTInterleave = FFTInterleave {- chain1 :: S.UGen,- chain2 :: S.UGen- } deriving (Show)-fFTInterleave :: FFTInterleave-fFTInterleave = FFTInterleave {- chain1 = 0.0,- chain2 = 0.0- }-mkFFTInterleave :: FFTInterleave -> S.UGen-mkFFTInterleave (FFTInterleave a' b') = S.mkOsc S.KR "FFTInterleave" [a',b'] 1-instance Make FFTInterleave where- ugen = mkFFTInterleave
Sound/SC3/UGen/Record/FFTMKL.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTMKL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTPeak.hs view
@@ -1,4 +1,4 @@--- | Find peak value in an FFT frame+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTPeak where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTPhaseDev.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTPhaseDev where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTPower.hs view
@@ -1,4 +1,4 @@--- | Instantaneous spectral power+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTPower where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTSlope.hs view
@@ -1,4 +1,4 @@--- | Spectral slope+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTSlope where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FFTSpread.hs view
@@ -1,4 +1,4 @@--- | Spectral spread+-- | (Undocumented class) module Sound.SC3.UGen.Record.FFTSpread where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
− Sound/SC3/UGen/Record/FFTTriggered.hs
@@ -1,21 +0,0 @@--- | (not documented)-module Sound.SC3.UGen.Record.FFTTriggered where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data FFTTriggered = FFTTriggered {- buffer :: S.UGen,- input :: S.UGen,- trig :: S.UGen,- overlaplimit :: S.UGen- } deriving (Show)-fFTTriggered :: FFTTriggered-fFTTriggered = FFTTriggered {- buffer = 0.0,- input = 0.0,- trig = 0.0,- overlaplimit = 0.5- }-mkFFTTriggered :: FFTTriggered -> S.UGen-mkFFTTriggered (FFTTriggered a' b' c' d') = S.mkOsc S.KR "FFTTriggered" [a',b',c',d'] 1-instance Make FFTTriggered where- ugen = mkFFTTriggered
+ Sound/SC3/UGen/Record/FM7.hs view
@@ -0,0 +1,17 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.FM7 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FM7 = FM7 {+ ctlMatrix :: S.UGen,+ modMatrix :: S.UGen+ } deriving (Show)+fM7 :: FM7+fM7 = FM7 {+ ctlMatrix = 0.0,+ modMatrix = 0.0+ }+mkFM7 :: FM7 -> S.UGen+mkFM7 (FM7 a' b') = S.mkOsc S.AR "FM7" [a',b'] 6+instance Make FM7 where+ ugen = mkFM7
Sound/SC3/UGen/Record/FMGrain.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMGrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FMGrainB.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMGrainB where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FMGrainBBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMGrainBBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FMGrainBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMGrainBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FMGrainI.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMGrainI where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FMGrainIBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMGrainIBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FMHDecode1.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMHDecode1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FMHEncode0.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMHEncode0 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FMHEncode0 = FMHEncode0 {- input :: S.UGen,+ in :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen, gain :: S.UGen } deriving (Show) fMHEncode0 :: FMHEncode0 fMHEncode0 = FMHEncode0 {- input = 0.0,+ in = 0.0, azimuth = 0.0, elevation = 0.0, gain = 1.0
Sound/SC3/UGen/Record/FMHEncode1.hs view
@@ -1,9 +1,9 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMHEncode1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FMHEncode1 = FMHEncode1 {- input :: S.UGen,+ in :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen, rho :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) fMHEncode1 :: FMHEncode1 fMHEncode1 = FMHEncode1 {- input = 0.0,+ in = 0.0, azimuth = 0.0, elevation = 0.0, rho = 1.0,
Sound/SC3/UGen/Record/FMHEncode2.hs view
@@ -1,9 +1,9 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FMHEncode2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FMHEncode2 = FMHEncode2 {- input :: S.UGen,+ in :: S.UGen, point_x :: S.UGen, point_y :: S.UGen, elevation :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) fMHEncode2 :: FMHEncode2 fMHEncode2 = FMHEncode2 {- input = 0.0,+ in = 0.0, point_x = 0.0, point_y = 0.0, elevation = 0.0,
Sound/SC3/UGen/Record/FOS.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data FOS = FOS { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, a0 :: S.UGen, a1 :: S.UGen, b1 :: S.UGen@@ -12,7 +12,7 @@ fOS :: FOS fOS = FOS { rate = S.AR,- input = 0.0,+ in = 0.0, a0 = 0.0, a1 = 0.0, b1 = 0.0
+ Sound/SC3/UGen/Record/FeatureSave.hs view
@@ -0,0 +1,17 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.FeatureSave where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FeatureSave = FeatureSave {+ features :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+featureSave :: FeatureSave+featureSave = FeatureSave {+ features = 0.0,+ trig = 0.0+ }+mkFeatureSave :: FeatureSave -> S.UGen+mkFeatureSave (FeatureSave a' b') = S.mkOsc S.KR "FeatureSave" [a',b'] 1+instance Make FeatureSave where+ ugen = mkFeatureSave
Sound/SC3/UGen/Record/Fhn2DC.hs view
@@ -1,4 +1,4 @@--- | FitzHughNagumo Neuron Firing Oscillator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Fhn2DC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Fhn2DL.hs view
@@ -1,4 +1,4 @@--- | FitzHughNagumo Neuron Firing Oscillator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Fhn2DL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Fhn2DN.hs view
@@ -1,4 +1,4 @@--- | FitzHughNagumo Neuron Firing Oscillator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Fhn2DN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FhnTrig.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FhnTrig where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FincoSprottL.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FincoSprottL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FincoSprottM.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FincoSprottM where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FincoSprottS.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FincoSprottS where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FitzHughNagumo.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.FitzHughNagumo where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/FoaAsymmetry.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) asymmetry transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaAsymmetry where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaAsymmetry = FoaAsymmetry {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaAsymmetry :: FoaAsymmetry foaAsymmetry = FoaAsymmetry {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaAsymmetry :: FoaAsymmetry -> S.UGen-mkFoaAsymmetry (FoaAsymmetry a' b' c' d' e') = S.mkOsc S.AR "FoaAsymmetry" [a',b',c',d',e'] 4+mkFoaAsymmetry (FoaAsymmetry a' b') = S.mkOsc S.AR "FoaAsymmetry" [a',b'] 4 instance Make FoaAsymmetry where ugen = mkFoaAsymmetry
Sound/SC3/UGen/Record/FoaDirectO.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) directivity transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaDirectO where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaDirectO = FoaDirectO {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaDirectO :: FoaDirectO foaDirectO = FoaDirectO {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaDirectO :: FoaDirectO -> S.UGen-mkFoaDirectO (FoaDirectO a' b' c' d' e') = S.mkOsc S.AR "FoaDirectO" [a',b',c',d',e'] 4+mkFoaDirectO (FoaDirectO a' b') = S.mkOsc S.AR "FoaDirectO" [a',b'] 4 instance Make FoaDirectO where ugen = mkFoaDirectO
Sound/SC3/UGen/Record/FoaDirectX.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) directivity transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaDirectX where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaDirectX = FoaDirectX {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaDirectX :: FoaDirectX foaDirectX = FoaDirectX {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaDirectX :: FoaDirectX -> S.UGen-mkFoaDirectX (FoaDirectX a' b' c' d' e') = S.mkOsc S.AR "FoaDirectX" [a',b',c',d',e'] 4+mkFoaDirectX (FoaDirectX a' b') = S.mkOsc S.AR "FoaDirectX" [a',b'] 4 instance Make FoaDirectX where ugen = mkFoaDirectX
Sound/SC3/UGen/Record/FoaDirectY.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) directivity transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaDirectY where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaDirectY = FoaDirectY {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaDirectY :: FoaDirectY foaDirectY = FoaDirectY {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaDirectY :: FoaDirectY -> S.UGen-mkFoaDirectY (FoaDirectY a' b' c' d' e') = S.mkOsc S.AR "FoaDirectY" [a',b',c',d',e'] 4+mkFoaDirectY (FoaDirectY a' b') = S.mkOsc S.AR "FoaDirectY" [a',b'] 4 instance Make FoaDirectY where ugen = mkFoaDirectY
Sound/SC3/UGen/Record/FoaDirectZ.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) directivity transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaDirectZ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaDirectZ = FoaDirectZ {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaDirectZ :: FoaDirectZ foaDirectZ = FoaDirectZ {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaDirectZ :: FoaDirectZ -> S.UGen-mkFoaDirectZ (FoaDirectZ a' b' c' d' e') = S.mkOsc S.AR "FoaDirectZ" [a',b',c',d',e'] 4+mkFoaDirectZ (FoaDirectZ a' b') = S.mkOsc S.AR "FoaDirectZ" [a',b'] 4 instance Make FoaDirectZ where ugen = mkFoaDirectZ
Sound/SC3/UGen/Record/FoaDominateX.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) dominance transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaDominateX where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaDominateX = FoaDominateX {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, gain :: S.UGen } deriving (Show) foaDominateX :: FoaDominateX foaDominateX = FoaDominateX {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, gain = 0.0 } mkFoaDominateX :: FoaDominateX -> S.UGen-mkFoaDominateX (FoaDominateX a' b' c' d' e') = S.mkOsc S.AR "FoaDominateX" [a',b',c',d',e'] 4+mkFoaDominateX (FoaDominateX a' b') = S.mkOsc S.AR "FoaDominateX" [a',b'] 4 instance Make FoaDominateX where ugen = mkFoaDominateX
Sound/SC3/UGen/Record/FoaDominateY.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) dominance transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaDominateY where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaDominateY = FoaDominateY {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, gain :: S.UGen } deriving (Show) foaDominateY :: FoaDominateY foaDominateY = FoaDominateY {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, gain = 0.0 } mkFoaDominateY :: FoaDominateY -> S.UGen-mkFoaDominateY (FoaDominateY a' b' c' d' e') = S.mkOsc S.AR "FoaDominateY" [a',b',c',d',e'] 4+mkFoaDominateY (FoaDominateY a' b') = S.mkOsc S.AR "FoaDominateY" [a',b'] 4 instance Make FoaDominateY where ugen = mkFoaDominateY
Sound/SC3/UGen/Record/FoaDominateZ.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) dominance transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaDominateZ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaDominateZ = FoaDominateZ {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, gain :: S.UGen } deriving (Show) foaDominateZ :: FoaDominateZ foaDominateZ = FoaDominateZ {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, gain = 0.0 } mkFoaDominateZ :: FoaDominateZ -> S.UGen-mkFoaDominateZ (FoaDominateZ a' b' c' d' e') = S.mkOsc S.AR "FoaDominateZ" [a',b',c',d',e'] 4+mkFoaDominateZ (FoaDominateZ a' b') = S.mkOsc S.AR "FoaDominateZ" [a',b'] 4 instance Make FoaDominateZ where ugen = mkFoaDominateZ
Sound/SC3/UGen/Record/FoaFocusX.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) focus transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaFocusX where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaFocusX = FoaFocusX {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaFocusX :: FoaFocusX foaFocusX = FoaFocusX {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaFocusX :: FoaFocusX -> S.UGen-mkFoaFocusX (FoaFocusX a' b' c' d' e') = S.mkOsc S.AR "FoaFocusX" [a',b',c',d',e'] 4+mkFoaFocusX (FoaFocusX a' b') = S.mkOsc S.AR "FoaFocusX" [a',b'] 4 instance Make FoaFocusX where ugen = mkFoaFocusX
Sound/SC3/UGen/Record/FoaFocusY.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) focus transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaFocusY where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaFocusY = FoaFocusY {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaFocusY :: FoaFocusY foaFocusY = FoaFocusY {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaFocusY :: FoaFocusY -> S.UGen-mkFoaFocusY (FoaFocusY a' b' c' d' e') = S.mkOsc S.AR "FoaFocusY" [a',b',c',d',e'] 4+mkFoaFocusY (FoaFocusY a' b') = S.mkOsc S.AR "FoaFocusY" [a',b'] 4 instance Make FoaFocusY where ugen = mkFoaFocusY
Sound/SC3/UGen/Record/FoaFocusZ.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) focus transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaFocusZ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaFocusZ = FoaFocusZ {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaFocusZ :: FoaFocusZ foaFocusZ = FoaFocusZ {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaFocusZ :: FoaFocusZ -> S.UGen-mkFoaFocusZ (FoaFocusZ a' b' c' d' e') = S.mkOsc S.AR "FoaFocusZ" [a',b',c',d',e'] 4+mkFoaFocusZ (FoaFocusZ a' b') = S.mkOsc S.AR "FoaFocusZ" [a',b'] 4 instance Make FoaFocusZ where ugen = mkFoaFocusZ
Sound/SC3/UGen/Record/FoaNFC.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) nearfield compensation filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaNFC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaNFC = FoaNFC {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, distance :: S.UGen } deriving (Show) foaNFC :: FoaNFC foaNFC = FoaNFC {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, distance = 1.0 } mkFoaNFC :: FoaNFC -> S.UGen-mkFoaNFC (FoaNFC a' b' c' d' e') = S.mkOsc S.AR "FoaNFC" [a',b',c',d',e'] 4+mkFoaNFC (FoaNFC a' b') = S.mkOsc S.AR "FoaNFC" [a',b'] 4 instance Make FoaNFC where ugen = mkFoaNFC
Sound/SC3/UGen/Record/FoaPanB.hs view
@@ -1,15 +1,15 @@--- | First Order Ambisonic (FOA) panner+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaPanB where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaPanB = FoaPanB {- input :: S.UGen,+ in :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen } deriving (Show) foaPanB :: FoaPanB foaPanB = FoaPanB {- input = 0.0,+ in = 0.0, azimuth = 0.0, elevation = 0.0 }
Sound/SC3/UGen/Record/FoaPressX.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) press transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaPressX where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaPressX = FoaPressX {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaPressX :: FoaPressX foaPressX = FoaPressX {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaPressX :: FoaPressX -> S.UGen-mkFoaPressX (FoaPressX a' b' c' d' e') = S.mkOsc S.AR "FoaPressX" [a',b',c',d',e'] 4+mkFoaPressX (FoaPressX a' b') = S.mkOsc S.AR "FoaPressX" [a',b'] 4 instance Make FoaPressX where ugen = mkFoaPressX
Sound/SC3/UGen/Record/FoaPressY.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) press transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaPressY where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaPressY = FoaPressY {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaPressY :: FoaPressY foaPressY = FoaPressY {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaPressY :: FoaPressY -> S.UGen-mkFoaPressY (FoaPressY a' b' c' d' e') = S.mkOsc S.AR "FoaPressY" [a',b',c',d',e'] 4+mkFoaPressY (FoaPressY a' b') = S.mkOsc S.AR "FoaPressY" [a',b'] 4 instance Make FoaPressY where ugen = mkFoaPressY
Sound/SC3/UGen/Record/FoaPressZ.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) press transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaPressZ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaPressZ = FoaPressZ {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaPressZ :: FoaPressZ foaPressZ = FoaPressZ {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaPressZ :: FoaPressZ -> S.UGen-mkFoaPressZ (FoaPressZ a' b' c' d' e') = S.mkOsc S.AR "FoaPressZ" [a',b',c',d',e'] 4+mkFoaPressZ (FoaPressZ a' b') = S.mkOsc S.AR "FoaPressZ" [a',b'] 4 instance Make FoaPressZ where ugen = mkFoaPressZ
Sound/SC3/UGen/Record/FoaProximity.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) proximity effect filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaProximity where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaProximity = FoaProximity {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, distance :: S.UGen } deriving (Show) foaProximity :: FoaProximity foaProximity = FoaProximity {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, distance = 1.0 } mkFoaProximity :: FoaProximity -> S.UGen-mkFoaProximity (FoaProximity a' b' c' d' e') = S.mkOsc S.AR "FoaProximity" [a',b',c',d',e'] 4+mkFoaProximity (FoaProximity a' b') = S.mkOsc S.AR "FoaProximity" [a',b'] 4 instance Make FoaProximity where ugen = mkFoaProximity
Sound/SC3/UGen/Record/FoaPsychoShelf.hs view
@@ -1,27 +1,21 @@--- | First Order Ambisonic (FOA) psychoacoustic shelf filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaPsychoShelf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaPsychoShelf = FoaPsychoShelf {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, freq :: S.UGen, k0 :: S.UGen, k1 :: S.UGen } deriving (Show) foaPsychoShelf :: FoaPsychoShelf foaPsychoShelf = FoaPsychoShelf {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, freq = 400.0, k0 = 0.0, k1 = 0.0 } mkFoaPsychoShelf :: FoaPsychoShelf -> S.UGen-mkFoaPsychoShelf (FoaPsychoShelf a' b' c' d' e' f' g') = S.mkOsc S.AR "FoaPsychoShelf" [a',b',c',d',e',f',g'] 4+mkFoaPsychoShelf (FoaPsychoShelf a' b' c' d') = S.mkOsc S.AR "FoaPsychoShelf" [a',b',c',d'] 4 instance Make FoaPsychoShelf where ugen = mkFoaPsychoShelf
Sound/SC3/UGen/Record/FoaPushX.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) push transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaPushX where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaPushX = FoaPushX {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaPushX :: FoaPushX foaPushX = FoaPushX {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaPushX :: FoaPushX -> S.UGen-mkFoaPushX (FoaPushX a' b' c' d' e') = S.mkOsc S.AR "FoaPushX" [a',b',c',d',e'] 4+mkFoaPushX (FoaPushX a' b') = S.mkOsc S.AR "FoaPushX" [a',b'] 4 instance Make FoaPushX where ugen = mkFoaPushX
Sound/SC3/UGen/Record/FoaPushY.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) push transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaPushY where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaPushY = FoaPushY {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaPushY :: FoaPushY foaPushY = FoaPushY {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaPushY :: FoaPushY -> S.UGen-mkFoaPushY (FoaPushY a' b' c' d' e') = S.mkOsc S.AR "FoaPushY" [a',b',c',d',e'] 4+mkFoaPushY (FoaPushY a' b') = S.mkOsc S.AR "FoaPushY" [a',b'] 4 instance Make FoaPushY where ugen = mkFoaPushY
Sound/SC3/UGen/Record/FoaPushZ.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) push transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaPushZ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaPushZ = FoaPushZ {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaPushZ :: FoaPushZ foaPushZ = FoaPushZ {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaPushZ :: FoaPushZ -> S.UGen-mkFoaPushZ (FoaPushZ a' b' c' d' e') = S.mkOsc S.AR "FoaPushZ" [a',b',c',d',e'] 4+mkFoaPushZ (FoaPushZ a' b') = S.mkOsc S.AR "FoaPushZ" [a',b'] 4 instance Make FoaPushZ where ugen = mkFoaPushZ
Sound/SC3/UGen/Record/FoaRotate.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) rotation transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaRotate where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaRotate = FoaRotate {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaRotate :: FoaRotate foaRotate = FoaRotate {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaRotate :: FoaRotate -> S.UGen-mkFoaRotate (FoaRotate a' b' c' d' e') = S.mkOsc S.AR "FoaRotate" [a',b',c',d',e'] 4+mkFoaRotate (FoaRotate a' b') = S.mkOsc S.AR "FoaRotate" [a',b'] 4 instance Make FoaRotate where ugen = mkFoaRotate
Sound/SC3/UGen/Record/FoaTilt.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) rotation transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaTilt where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaTilt = FoaTilt {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaTilt :: FoaTilt foaTilt = FoaTilt {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaTilt :: FoaTilt -> S.UGen-mkFoaTilt (FoaTilt a' b' c' d' e') = S.mkOsc S.AR "FoaTilt" [a',b',c',d',e'] 4+mkFoaTilt (FoaTilt a' b') = S.mkOsc S.AR "FoaTilt" [a',b'] 4 instance Make FoaTilt where ugen = mkFoaTilt
Sound/SC3/UGen/Record/FoaTumble.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) rotation transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaTumble where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaTumble = FoaTumble {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaTumble :: FoaTumble foaTumble = FoaTumble {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaTumble :: FoaTumble -> S.UGen-mkFoaTumble (FoaTumble a' b' c' d' e') = S.mkOsc S.AR "FoaTumble" [a',b',c',d',e'] 4+mkFoaTumble (FoaTumble a' b') = S.mkOsc S.AR "FoaTumble" [a',b'] 4 instance Make FoaTumble where ugen = mkFoaTumble
Sound/SC3/UGen/Record/FoaZoomX.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) zoom transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaZoomX where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaZoomX = FoaZoomX {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaZoomX :: FoaZoomX foaZoomX = FoaZoomX {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaZoomX :: FoaZoomX -> S.UGen-mkFoaZoomX (FoaZoomX a' b' c' d' e') = S.mkOsc S.AR "FoaZoomX" [a',b',c',d',e'] 4+mkFoaZoomX (FoaZoomX a' b') = S.mkOsc S.AR "FoaZoomX" [a',b'] 4 instance Make FoaZoomX where ugen = mkFoaZoomX
Sound/SC3/UGen/Record/FoaZoomY.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) zoom transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaZoomY where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaZoomY = FoaZoomY {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaZoomY :: FoaZoomY foaZoomY = FoaZoomY {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaZoomY :: FoaZoomY -> S.UGen-mkFoaZoomY (FoaZoomY a' b' c' d' e') = S.mkOsc S.AR "FoaZoomY" [a',b',c',d',e'] 4+mkFoaZoomY (FoaZoomY a' b') = S.mkOsc S.AR "FoaZoomY" [a',b'] 4 instance Make FoaZoomY where ugen = mkFoaZoomY
Sound/SC3/UGen/Record/FoaZoomZ.hs view
@@ -1,23 +1,17 @@--- | First Order Ambisonic (FOA) zoom transformer+-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaZoomZ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaZoomZ = FoaZoomZ {- w :: S.UGen,- x :: S.UGen,- y :: S.UGen,- z :: S.UGen,+ in :: S.UGen, angle :: S.UGen } deriving (Show) foaZoomZ :: FoaZoomZ foaZoomZ = FoaZoomZ {- w = 0.0,- x = 0.0,- y = 0.0,- z = 0.0,+ in = 0.0, angle = 0.0 } mkFoaZoomZ :: FoaZoomZ -> S.UGen-mkFoaZoomZ (FoaZoomZ a' b' c' d' e') = S.mkOsc S.AR "FoaZoomZ" [a',b',c',d',e'] 4+mkFoaZoomZ (FoaZoomZ a' b') = S.mkOsc S.AR "FoaZoomZ" [a',b'] 4 instance Make FoaZoomZ where ugen = mkFoaZoomZ
Sound/SC3/UGen/Record/Fold.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Fold = Fold { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) fold :: Fold fold = Fold { rate = S.AR,- input = 0.0,+ in = 0.0, lo = 0.0, hi = 1.0 }
Sound/SC3/UGen/Record/Formlet.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data Formlet = Formlet { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, attacktime :: S.UGen, decaytime :: S.UGen@@ -12,7 +12,7 @@ formlet :: Formlet formlet = Formlet { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, attacktime = 1.0, decaytime = 1.0
Sound/SC3/UGen/Record/FrameCompare.hs view
@@ -1,4 +1,4 @@--- | calculates spectral MSE distance of two fft chains+-- | (Undocumented class) module Sound.SC3.UGen.Record.FrameCompare where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Free.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data Free = Free { trig :: S.UGen,- id_ :: S.UGen+ id :: S.UGen } deriving (Show) free :: Free free = Free { trig = 0.0,- id_ = 0.0+ id = 0.0 } mkFree :: Free -> S.UGen mkFree (Free a' b') = S.mkOsc S.KR "Free" [a',b'] 1
Sound/SC3/UGen/Record/FreeSelf.hs view
@@ -3,11 +3,11 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FreeSelf = FreeSelf {- input :: S.UGen+ in :: S.UGen } deriving (Show) freeSelf :: FreeSelf freeSelf = FreeSelf {- input = 0.0+ in = 0.0 } mkFreeSelf :: FreeSelf -> S.UGen mkFreeSelf (FreeSelf a') = S.mkOsc S.KR "FreeSelf" [a'] 1
Sound/SC3/UGen/Record/FreeVerb.hs view
@@ -3,14 +3,14 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FreeVerb = FreeVerb {- input :: S.UGen,+ in :: S.UGen, mix :: S.UGen, room :: S.UGen, damp :: S.UGen } deriving (Show) freeVerb :: FreeVerb freeVerb = FreeVerb {- input = 0.0,+ in = 0.0, mix = 0.33, room = 0.5, damp = 0.5
Sound/SC3/UGen/Record/FreeVerb2.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FreeVerb2 = FreeVerb2 {- input :: S.UGen,+ in :: S.UGen, in2 :: S.UGen, mix :: S.UGen, room :: S.UGen,@@ -11,7 +11,7 @@ } deriving (Show) freeVerb2 :: FreeVerb2 freeVerb2 = FreeVerb2 {- input = 0.0,+ in = 0.0, in2 = 0.0, mix = 0.33, room = 0.5,
Sound/SC3/UGen/Record/FreqShift.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FreqShift = FreqShift {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, phase :: S.UGen } deriving (Show) freqShift :: FreqShift freqShift = FreqShift {- input = 0.0,+ in = 0.0, freq = 0.0, phase = 0.0 }
Sound/SC3/UGen/Record/Friction.hs view
@@ -1,11 +1,11 @@--- | A physical model of a system with dry-friction. A chaotic filter.+-- | (Undocumented class) module Sound.SC3.UGen.Record.Friction where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Friction = Friction { rate :: S.Rate,- input :: S.UGen,- friction_ :: S.UGen,+ in :: S.UGen,+ friction :: S.UGen, spring :: S.UGen, damp :: S.UGen, mass :: S.UGen,@@ -14,8 +14,8 @@ friction :: Friction friction = Friction { rate = S.AR,- input = 0.0,- friction_ = 0.5,+ in = 0.0,+ friction = 0.5, spring = 0.414, damp = 0.313, mass = 0.1,
Sound/SC3/UGen/Record/GVerb.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data GVerb = GVerb {- input :: S.UGen,+ in :: S.UGen, roomsize :: S.UGen, revtime :: S.UGen, damping :: S.UGen,@@ -16,7 +16,7 @@ } deriving (Show) gVerb :: GVerb gVerb = GVerb {- input = 0.0,+ in = 0.0, roomsize = 10.0, revtime = 3.0, damping = 0.5,
+ Sound/SC3/UGen/Record/Gammatone.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Gammatone where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Gammatone = Gammatone {+ input :: S.UGen,+ centrefrequency :: S.UGen,+ bandwidth :: S.UGen+ } deriving (Show)+gammatone :: Gammatone+gammatone = Gammatone {+ input = 0.0,+ centrefrequency = 440.0,+ bandwidth = 200.0+ }+mkGammatone :: Gammatone -> S.UGen+mkGammatone (Gammatone a' b' c') = S.mkOsc S.AR "Gammatone" [a',b',c'] 1+instance Make Gammatone where+ ugen = mkGammatone
Sound/SC3/UGen/Record/Gate.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Gate = Gate { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen } deriving (Show) gate :: Gate gate = Gate { rate = S.AR,- input = 0.0,+ in = 0.0, trig = 0.0 } mkGate :: Gate -> S.UGen
Sound/SC3/UGen/Record/GaussClass.hs view
@@ -1,15 +1,15 @@--- | Gaussian classifier+-- | (Undocumented class) module Sound.SC3.UGen.Record.GaussClass where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data GaussClass = GaussClass {- input :: S.UGen,+ in :: S.UGen, bufnum :: S.UGen, gate :: S.UGen } deriving (Show) gaussClass :: GaussClass gaussClass = GaussClass {- input = 0.0,+ in = 0.0, bufnum = 0.0, gate = 0.0 }
Sound/SC3/UGen/Record/GaussTrig.hs view
@@ -1,4 +1,4 @@--- | impulses around a certain frequency+-- | (Undocumented class) module Sound.SC3.UGen.Record.GaussTrig where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Gbman2DC.hs view
@@ -1,4 +1,4 @@--- | gingerbreadman map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Gbman2DC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Gbman2DL.hs view
@@ -1,4 +1,4 @@--- | gingerbreadman map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Gbman2DL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Gbman2DN.hs view
@@ -1,4 +1,4 @@--- | gingerbreadman map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Gbman2DN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/GbmanTrig.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.GbmanTrig where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Gendy4.hs view
@@ -1,4 +1,4 @@--- | Dynamic stochastic synthesis generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Gendy4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Gendy5.hs view
@@ -1,4 +1,4 @@--- | Dynamic stochastic synthesis generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Gendy5 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Getenv.hs view
@@ -1,4 +1,4 @@--- | Read (numeric) shell environment variables into a synth+-- | (Undocumented class) module Sound.SC3.UGen.Record.Getenv where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
+ Sound/SC3/UGen/Record/GlitchBPF.hs view
@@ -0,0 +1,21 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.GlitchBPF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GlitchBPF = GlitchBPF {+ rate :: S.Rate,+ in :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+glitchBPF :: GlitchBPF+glitchBPF = GlitchBPF {+ rate = S.AR,+ in = 0.0,+ freq = 440.0,+ rq = 1.0+ }+mkGlitchBPF :: GlitchBPF -> S.UGen+mkGlitchBPF (GlitchBPF r a' b' c') = S.mkOsc r "GlitchBPF" [a',b',c'] 1+instance Make GlitchBPF where+ ugen = mkGlitchBPF
+ Sound/SC3/UGen/Record/GlitchBRF.hs view
@@ -0,0 +1,21 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.GlitchBRF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GlitchBRF = GlitchBRF {+ rate :: S.Rate,+ in :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+glitchBRF :: GlitchBRF+glitchBRF = GlitchBRF {+ rate = S.AR,+ in = 0.0,+ freq = 440.0,+ rq = 1.0+ }+mkGlitchBRF :: GlitchBRF -> S.UGen+mkGlitchBRF (GlitchBRF r a' b' c') = S.mkOsc r "GlitchBRF" [a',b',c'] 1+instance Make GlitchBRF where+ ugen = mkGlitchBRF
Sound/SC3/UGen/Record/GlitchHPF.hs view
@@ -1,16 +1,16 @@--- | backward compatibility+-- | (Undocumented class) module Sound.SC3.UGen.Record.GlitchHPF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data GlitchHPF = GlitchHPF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen } deriving (Show) glitchHPF :: GlitchHPF glitchHPF = GlitchHPF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0 } mkGlitchHPF :: GlitchHPF -> S.UGen
Sound/SC3/UGen/Record/GlitchRHPF.hs view
@@ -1,17 +1,17 @@--- | backward compatibility+-- | (Undocumented class) module Sound.SC3.UGen.Record.GlitchRHPF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data GlitchRHPF = GlitchRHPF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) glitchRHPF :: GlitchRHPF glitchRHPF = GlitchRHPF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, rq = 1.0 }
Sound/SC3/UGen/Record/Goertzel.hs view
@@ -1,16 +1,16 @@--- | Calculate a single DFT bin, to detect presence of a frequency+-- | (Undocumented class) module Sound.SC3.UGen.Record.Goertzel where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Goertzel = Goertzel {- input :: S.UGen,+ in :: S.UGen, bufsize :: S.UGen, freq :: S.UGen, hop :: S.UGen } deriving (Show) goertzel :: Goertzel goertzel = Goertzel {- input = 0.0,+ in = 0.0, bufsize = 1024.0, freq = 0.0, hop = 1.0
Sound/SC3/UGen/Record/GrainBuf.hs view
@@ -6,7 +6,7 @@ trigger :: S.UGen, dur :: S.UGen, sndbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, pos :: S.UGen, interp :: S.UGen, pan :: S.UGen,@@ -18,7 +18,7 @@ trigger = 0.0, dur = 1.0, sndbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, pos = 0.0, interp = 2.0, pan = 0.0,
Sound/SC3/UGen/Record/GrainIn.hs view
@@ -5,7 +5,7 @@ data GrainIn = GrainIn { trigger :: S.UGen, dur :: S.UGen,- input :: S.UGen,+ in :: S.UGen, pan :: S.UGen, envbufnum :: S.UGen, maxGrains :: S.UGen@@ -14,7 +14,7 @@ grainIn = GrainIn { trigger = 0.0, dur = 1.0,- input = 0.0,+ in = 0.0, pan = 0.0, envbufnum = -1.0, maxGrains = 512.0
Sound/SC3/UGen/Record/GravityGrid.hs view
@@ -1,10 +1,10 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.GravityGrid where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data GravityGrid = GravityGrid { reset :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, newx :: S.UGen, newy :: S.UGen, bufnum :: S.UGen@@ -12,7 +12,7 @@ gravityGrid :: GravityGrid gravityGrid = GravityGrid { reset = 0.0,- rate_ = 0.1,+ rate = 0.1, newx = 0.0, newy = 0.0, bufnum = 0.0
Sound/SC3/UGen/Record/GravityGrid2.hs view
@@ -1,10 +1,10 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.GravityGrid2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data GravityGrid2 = GravityGrid2 { reset :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, newx :: S.UGen, newy :: S.UGen, bufnum :: S.UGen@@ -12,7 +12,7 @@ gravityGrid2 :: GravityGrid2 gravityGrid2 = GravityGrid2 { reset = 0.0,- rate_ = 0.1,+ rate = 0.1, newx = 0.0, newy = 0.0, bufnum = 0.0
Sound/SC3/UGen/Record/HPF.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data HPF = HPF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen } deriving (Show) hPF :: HPF hPF = HPF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0 } mkHPF :: HPF -> S.UGen
Sound/SC3/UGen/Record/HPZ1.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data HPZ1 = HPZ1 { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) hPZ1 :: HPZ1 hPZ1 = HPZ1 { rate = S.AR,- input = 0.0+ in = 0.0 } mkHPZ1 :: HPZ1 -> S.UGen mkHPZ1 (HPZ1 r a') = S.mkOsc r "HPZ1" [a'] 1
Sound/SC3/UGen/Record/HPZ2.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data HPZ2 = HPZ2 { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) hPZ2 :: HPZ2 hPZ2 = HPZ2 { rate = S.AR,- input = 0.0+ in = 0.0 } mkHPZ2 :: HPZ2 -> S.UGen mkHPZ2 (HPZ2 r a') = S.mkOsc r "HPZ2" [a'] 1
+ Sound/SC3/UGen/Record/HairCell.hs view
@@ -0,0 +1,25 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.HairCell where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data HairCell = HairCell {+ rate :: S.Rate,+ input :: S.UGen,+ spontaneousrate :: S.UGen,+ boostrate :: S.UGen,+ restorerate :: S.UGen,+ loss :: S.UGen+ } deriving (Show)+hairCell :: HairCell+hairCell = HairCell {+ rate = S.AR,+ input = 0.0,+ spontaneousrate = 0.0,+ boostrate = 200.0,+ restorerate = 1000.0,+ loss = 0.99+ }+mkHairCell :: HairCell -> S.UGen+mkHairCell (HairCell r a' b' c' d' e') = S.mkOsc r "HairCell" [a',b',c',d',e'] 1+instance Make HairCell where+ ugen = mkHairCell
Sound/SC3/UGen/Record/Hasher.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data Hasher = Hasher { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) hasher :: Hasher hasher = Hasher { rate = S.AR,- input = 0.0+ in = 0.0 } mkHasher :: Hasher -> S.UGen mkHasher (Hasher r a') = S.mkOsc r "Hasher" [a'] 1
Sound/SC3/UGen/Record/Henon2DC.hs view
@@ -1,4 +1,4 @@--- | henon map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Henon2DC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Henon2DL.hs view
@@ -1,4 +1,4 @@--- | henon map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Henon2DL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Henon2DN.hs view
@@ -1,4 +1,4 @@--- | henon map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Henon2DN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/HenonTrig.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.HenonTrig where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Hilbert.hs view
@@ -3,11 +3,11 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Hilbert = Hilbert {- input :: S.UGen+ in :: S.UGen } deriving (Show) hilbert :: Hilbert hilbert = Hilbert {- input = 0.0+ in = 0.0 } mkHilbert :: Hilbert -> S.UGen mkHilbert (Hilbert a') = S.mkOsc S.AR "Hilbert" [a'] 2
Sound/SC3/UGen/Record/HilbertFIR.hs view
@@ -3,12 +3,12 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data HilbertFIR = HilbertFIR {- input :: S.UGen,+ in :: S.UGen, buffer :: S.UGen } deriving (Show) hilbertFIR :: HilbertFIR hilbertFIR = HilbertFIR {- input = 0.0,+ in = 0.0, buffer = 0.0 } mkHilbertFIR :: HilbertFIR -> S.UGen
Sound/SC3/UGen/Record/ICepstrum.hs view
@@ -1,4 +1,4 @@--- | Transform a cepstrum back to a spectrum+-- | (Undocumented class) module Sound.SC3.UGen.Record.ICepstrum where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/IEnvGen.hs view
@@ -1,16 +1,16 @@--- | Envelope generator for polling values from an InterplEnv+-- | Envelope generator for polling values from an Env module Sound.SC3.UGen.Record.IEnvGen where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data IEnvGen = IEnvGen { rate :: S.Rate,- ienvelope :: S.UGen,+ envelope :: S.UGen, index :: S.UGen } deriving (Show) iEnvGen :: IEnvGen iEnvGen = IEnvGen { rate = S.AR,- ienvelope = 0.0,+ envelope = 0.0, index = 0.0 } mkIEnvGen :: IEnvGen -> S.UGen
Sound/SC3/UGen/Record/IIRFilter.hs view
@@ -1,15 +1,15 @@--- | 24db/oct rolloff, 4nd order resonant Low Pass Filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.IIRFilter where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data IIRFilter = IIRFilter {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) iIRFilter :: IIRFilter iIRFilter = IIRFilter {- input = 0.0,+ in = 0.0, freq = 440.0, rq = 1.0 }
Sound/SC3/UGen/Record/InGrain.hs view
@@ -1,17 +1,17 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.InGrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data InGrain = InGrain { trigger :: S.UGen, dur :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) inGrain :: InGrain inGrain = InGrain { trigger = 0.0, dur = 1.0,- input = 0.0+ in = 0.0 } mkInGrain :: InGrain -> S.UGen mkInGrain (InGrain a' b' c') = S.mkOsc S.AR "InGrain" [a',b',c'] 1
Sound/SC3/UGen/Record/InGrainB.hs view
@@ -1,18 +1,18 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.InGrainB where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data InGrainB = InGrainB { trigger :: S.UGen, dur :: S.UGen,- input :: S.UGen,+ in :: S.UGen, envbuf :: S.UGen } deriving (Show) inGrainB :: InGrainB inGrainB = InGrainB { trigger = 0.0, dur = 1.0,- input = 0.0,+ in = 0.0, envbuf = 0.0 } mkInGrainB :: InGrainB -> S.UGen
Sound/SC3/UGen/Record/InGrainBBF.hs view
@@ -1,11 +1,11 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.InGrainBBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data InGrainBBF = InGrainBBF { trigger :: S.UGen, dur :: S.UGen,- input :: S.UGen,+ in :: S.UGen, envbuf :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen,@@ -16,7 +16,7 @@ inGrainBBF = InGrainBBF { trigger = 0.0, dur = 1.0,- input = 0.0,+ in = 0.0, envbuf = 0.0, azimuth = 0.0, elevation = 0.0,
Sound/SC3/UGen/Record/InGrainBF.hs view
@@ -1,11 +1,11 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.InGrainBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data InGrainBF = InGrainBF { trigger :: S.UGen, dur :: S.UGen,- input :: S.UGen,+ in :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen, rho :: S.UGen,@@ -15,7 +15,7 @@ inGrainBF = InGrainBF { trigger = 0.0, dur = 1.0,- input = 0.0,+ in = 0.0, azimuth = 0.0, elevation = 0.0, rho = 1.0,
Sound/SC3/UGen/Record/InGrainI.hs view
@@ -1,11 +1,11 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.InGrainI where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data InGrainI = InGrainI { trigger :: S.UGen, dur :: S.UGen,- input :: S.UGen,+ in :: S.UGen, envbuf1 :: S.UGen, envbuf2 :: S.UGen, ifac :: S.UGen@@ -14,7 +14,7 @@ inGrainI = InGrainI { trigger = 0.0, dur = 1.0,- input = 0.0,+ in = 0.0, envbuf1 = 0.0, envbuf2 = 0.0, ifac = 0.5
Sound/SC3/UGen/Record/InGrainIBF.hs view
@@ -1,11 +1,11 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.InGrainIBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data InGrainIBF = InGrainIBF { trigger :: S.UGen, dur :: S.UGen,- input :: S.UGen,+ in :: S.UGen, envbuf1 :: S.UGen, envbuf2 :: S.UGen, ifac :: S.UGen,@@ -18,7 +18,7 @@ inGrainIBF = InGrainIBF { trigger = 0.0, dur = 1.0,- input = 0.0,+ in = 0.0, envbuf1 = 0.0, envbuf2 = 0.0, ifac = 0.5,
Sound/SC3/UGen/Record/InRange.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data InRange = InRange { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) inRange :: InRange inRange = InRange { rate = S.AR,- input = 0.0,+ in = 0.0, lo = 0.0, hi = 1.0 }
Sound/SC3/UGen/Record/Index.hs view
@@ -5,13 +5,13 @@ data Index = Index { rate :: S.Rate, bufnum :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) index :: Index index = Index { rate = S.AR, bufnum = 0.0,- input = 0.0+ in = 0.0 } mkIndex :: Index -> S.UGen mkIndex (Index r a' b') = S.mkOsc r "Index" [a',b'] 1
Sound/SC3/UGen/Record/IndexInBetween.hs view
@@ -5,13 +5,13 @@ data IndexInBetween = IndexInBetween { rate :: S.Rate, bufnum :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) indexInBetween :: IndexInBetween indexInBetween = IndexInBetween { rate = S.AR, bufnum = 0.0,- input = 0.0+ in = 0.0 } mkIndexInBetween :: IndexInBetween -> S.UGen mkIndexInBetween (IndexInBetween r a' b') = S.mkOsc r "IndexInBetween" [a',b'] 1
Sound/SC3/UGen/Record/IndexL.hs view
@@ -5,13 +5,13 @@ data IndexL = IndexL { rate :: S.Rate, bufnum :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) indexL :: IndexL indexL = IndexL { rate = S.AR, bufnum = 0.0,- input = 0.0+ in = 0.0 } mkIndexL :: IndexL -> S.UGen mkIndexL (IndexL r a' b') = S.mkOsc r "IndexL" [a',b'] 1
Sound/SC3/UGen/Record/InsideOut.hs view
@@ -1,15 +1,15 @@--- | Distortion by subtracting magnitude from 1+-- | (Undocumented class) module Sound.SC3.UGen.Record.InsideOut where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data InsideOut = InsideOut { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) insideOut :: InsideOut insideOut = InsideOut { rate = S.AR,- input = 0.0+ in = 0.0 } mkInsideOut :: InsideOut -> S.UGen mkInsideOut (InsideOut r a') = S.mkOsc r "InsideOut" [a'] 1
Sound/SC3/UGen/Record/Instruction.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Instruction where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Integrator.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Integrator = Integrator { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, coef :: S.UGen } deriving (Show) integrator :: Integrator integrator = Integrator { rate = S.AR,- input = 0.0,+ in = 0.0, coef = 1.0 } mkIntegrator :: Integrator -> S.UGen
Sound/SC3/UGen/Record/JoshGrain.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.JoshGrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/JoshMultiOutGrain.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.JoshMultiOutGrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/K2A.hs view
@@ -3,11 +3,11 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data K2A = K2A {- input :: S.UGen+ in :: S.UGen } deriving (Show) k2A :: K2A k2A = K2A {- input = 0.0+ in = 0.0 } mkK2A :: K2A -> S.UGen mkK2A (K2A a') = S.mkOsc S.AR "K2A" [a'] 1
+ Sound/SC3/UGen/Record/KMeansRT.hs view
@@ -0,0 +1,25 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.KMeansRT where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data KMeansRT = KMeansRT {+ bufnum :: S.UGen,+ inputdata :: S.UGen,+ k :: S.UGen,+ gate :: S.UGen,+ reset :: S.UGen,+ learn :: S.UGen+ } deriving (Show)+kMeansRT :: KMeansRT+kMeansRT = KMeansRT {+ bufnum = 0.0,+ inputdata = 0.0,+ k = 5.0,+ gate = 1.0,+ reset = 0.0,+ learn = 1.0+ }+mkKMeansRT :: KMeansRT -> S.UGen+mkKMeansRT (KMeansRT a' b' c' d' e' f') = S.mkOsc S.KR "KMeansRT" [a',b',c',d',e',f'] 1+instance Make KMeansRT where+ ugen = mkKMeansRT
Sound/SC3/UGen/Record/KmeansToBPSet1.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.KmeansToBPSet1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LFBrownNoise0.hs view
@@ -1,4 +1,4 @@--- | random walk step+-- | (Undocumented class) module Sound.SC3.UGen.Record.LFBrownNoise0 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LFBrownNoise1.hs view
@@ -1,4 +1,4 @@--- | random walk linear interp+-- | (Undocumented class) module Sound.SC3.UGen.Record.LFBrownNoise1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LFBrownNoise2.hs view
@@ -1,4 +1,4 @@--- | random walk cubic interp+-- | (Undocumented class) module Sound.SC3.UGen.Record.LFBrownNoise2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LPCAnalyzer.hs view
@@ -1,4 +1,4 @@--- | Live Linear Predictive Coding Analysis and Resynthesis+-- | (Undocumented class) module Sound.SC3.UGen.Record.LPCAnalyzer where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LPCError.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.LPCError where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LPCSynth.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.LPCSynth where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LPCVals.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.LPCVals where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LPF.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data LPF = LPF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen } deriving (Show) lPF :: LPF lPF = LPF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0 } mkLPF :: LPF -> S.UGen
Sound/SC3/UGen/Record/LPF1.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.LPF1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data LPF1 = LPF1 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen } deriving (Show) lPF1 :: LPF1 lPF1 = LPF1 { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 1000.0 } mkLPF1 :: LPF1 -> S.UGen
Sound/SC3/UGen/Record/LPF18.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.LPF18 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data LPF18 = LPF18 {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, res :: S.UGen, dist :: S.UGen } deriving (Show) lPF18 :: LPF18 lPF18 = LPF18 {- input = 0.0,+ in = 0.0, freq = 100.0, res = 1.0, dist = 0.4
Sound/SC3/UGen/Record/LPFVS6.hs view
@@ -1,17 +1,17 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.LPFVS6 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data LPFVS6 = LPFVS6 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, slope :: S.UGen } deriving (Show) lPFVS6 :: LPFVS6 lPFVS6 = LPFVS6 { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 1000.0, slope = 0.5 }
Sound/SC3/UGen/Record/LPZ1.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data LPZ1 = LPZ1 { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) lPZ1 :: LPZ1 lPZ1 = LPZ1 { rate = S.AR,- input = 0.0+ in = 0.0 } mkLPZ1 :: LPZ1 -> S.UGen mkLPZ1 (LPZ1 r a') = S.mkOsc r "LPZ1" [a'] 1
Sound/SC3/UGen/Record/LPZ2.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data LPZ2 = LPZ2 { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) lPZ2 :: LPZ2 lPZ2 = LPZ2 { rate = S.AR,- input = 0.0+ in = 0.0 } mkLPZ2 :: LPZ2 -> S.UGen mkLPZ2 (LPZ2 r a') = S.mkOsc r "LPZ2" [a'] 1
Sound/SC3/UGen/Record/LTI.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.LTI where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Lag.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Lag = Lag { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lagTime :: S.UGen } deriving (Show) lag :: Lag lag = Lag { rate = S.AR,- input = 0.0,+ in = 0.0, lagTime = 0.1 } mkLag :: Lag -> S.UGen
Sound/SC3/UGen/Record/Lag2.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Lag2 = Lag2 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lagTime :: S.UGen } deriving (Show) lag2 :: Lag2 lag2 = Lag2 { rate = S.AR,- input = 0.0,+ in = 0.0, lagTime = 0.1 } mkLag2 :: Lag2 -> S.UGen
Sound/SC3/UGen/Record/Lag2UD.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Lag2UD = Lag2UD { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lagTimeU :: S.UGen, lagTimeD :: S.UGen } deriving (Show) lag2UD :: Lag2UD lag2UD = Lag2UD { rate = S.AR,- input = 0.0,+ in = 0.0, lagTimeU = 0.1, lagTimeD = 0.1 }
Sound/SC3/UGen/Record/Lag3.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Lag3 = Lag3 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lagTime :: S.UGen } deriving (Show) lag3 :: Lag3 lag3 = Lag3 { rate = S.AR,- input = 0.0,+ in = 0.0, lagTime = 0.1 } mkLag3 :: Lag3 -> S.UGen
Sound/SC3/UGen/Record/Lag3UD.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Lag3UD = Lag3UD { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lagTimeU :: S.UGen, lagTimeD :: S.UGen } deriving (Show) lag3UD :: Lag3UD lag3UD = Lag3UD { rate = S.AR,- input = 0.0,+ in = 0.0, lagTimeU = 0.1, lagTimeD = 0.1 }
Sound/SC3/UGen/Record/LagUD.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data LagUD = LagUD { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lagTimeU :: S.UGen, lagTimeD :: S.UGen } deriving (Show) lagUD :: LagUD lagUD = LagUD { rate = S.AR,- input = 0.0,+ in = 0.0, lagTimeU = 0.1, lagTimeD = 0.1 }
Sound/SC3/UGen/Record/LastValue.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data LastValue = LastValue { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, diff :: S.UGen } deriving (Show) lastValue :: LastValue lastValue = LastValue { rate = S.AR,- input = 0.0,+ in = 0.0, diff = 0.01 } mkLastValue :: LastValue -> S.UGen
Sound/SC3/UGen/Record/Latch.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Latch = Latch { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen } deriving (Show) latch :: Latch latch = Latch { rate = S.AR,- input = 0.0,+ in = 0.0, trig = 0.0 } mkLatch :: Latch -> S.UGen
Sound/SC3/UGen/Record/Latoocarfian2DC.hs view
@@ -1,4 +1,4 @@--- | latoocarfian 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Latoocarfian2DC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Latoocarfian2DL.hs view
@@ -1,4 +1,4 @@--- | latoocarfian 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Latoocarfian2DL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Latoocarfian2DN.hs view
@@ -1,4 +1,4 @@--- | latoocarfian 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Latoocarfian2DN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LatoocarfianTrig.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.LatoocarfianTrig where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LeakDC.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data LeakDC = LeakDC { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, coef :: S.UGen } deriving (Show) leakDC :: LeakDC leakDC = LeakDC { rate = S.AR,- input = 0.0,+ in = 0.0, coef = 0.995 } mkLeakDC :: LeakDC -> S.UGen
Sound/SC3/UGen/Record/Limiter.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Limiter = Limiter {- input :: S.UGen,+ in :: S.UGen, level :: S.UGen, dur :: S.UGen } deriving (Show) limiter :: Limiter limiter = Limiter {- input = 0.0,+ in = 0.0, level = 1.0, dur = 0.01 }
Sound/SC3/UGen/Record/LinExp.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data LinExp = LinExp { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, srclo :: S.UGen, srchi :: S.UGen, dstlo :: S.UGen,@@ -13,7 +13,7 @@ linExp :: LinExp linExp = LinExp { rate = S.AR,- input = 0.0,+ in = 0.0, srclo = 0.0, srchi = 1.0, dstlo = 1.0,
− Sound/SC3/UGen/Record/LinLin.hs
@@ -1,24 +0,0 @@-module Sound.SC3.UGen.Record.LinLin where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data LinLin = LinLin {- rate :: S.Rate,- input :: S.UGen,- srclo :: S.UGen,- srchi :: S.UGen,- dstlo :: S.UGen,- dsthi :: S.UGen- } deriving (Show)-linLin :: LinLin-linLin = LinLin {- rate = S.AR,- input = 0.0,- srclo = 0.0,- srchi = 1.0,- dstlo = 1.0,- dsthi = 2.0- }-mkLinLin :: LinLin -> S.UGen-mkLinLin (LinLin r a' b' c' d' e') = S.mkOsc r "LinLin" [a',b',c',d',e'] 1-instance Make LinLin where- ugen = mkLinLin
Sound/SC3/UGen/Record/LinPan2.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data LinPan2 = LinPan2 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, pos :: S.UGen, level :: S.UGen } deriving (Show) linPan2 :: LinPan2 linPan2 = LinPan2 { rate = S.AR,- input = 0.0,+ in = 0.0, pos = 0.0, level = 1.0 }
Sound/SC3/UGen/Record/ListDUGen.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.ListDUGen where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/ListTrig.hs view
@@ -1,4 +1,4 @@--- | Emit a sequence of triggers at specified time offsets+-- | (Undocumented class) module Sound.SC3.UGen.Record.ListTrig where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/ListTrig2.hs view
@@ -1,4 +1,4 @@--- | Emit a sequence of triggers at specified time offsets+-- | (Undocumented class) module Sound.SC3.UGen.Record.ListTrig2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
− Sound/SC3/UGen/Record/LocalIn.hs
@@ -1,18 +0,0 @@-module Sound.SC3.UGen.Record.LocalIn where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data LocalIn = LocalIn {- rate :: S.Rate,- numChannels :: S.UGen,- default_ :: S.UGen- } deriving (Show)-localIn :: LocalIn-localIn = LocalIn {- rate = S.AR,- numChannels = 1.0,- default_ = 0.0- }-mkLocalIn :: LocalIn -> S.UGen-mkLocalIn (LocalIn r a' b') = S.mkOsc r "LocalIn" [a',b'] 1-instance Make LocalIn where- ugen = mkLocalIn
Sound/SC3/UGen/Record/LocalOut.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data LocalOut = LocalOut { rate :: S.Rate,- input :: S.UGen+ channelsArray :: S.UGen } deriving (Show) localOut :: LocalOut localOut = LocalOut { rate = S.AR,- input = 0.0+ channelsArray = 0.0 } mkLocalOut :: LocalOut -> S.UGen mkLocalOut (LocalOut r a') = S.mkOsc r "LocalOut" [a'] 1
Sound/SC3/UGen/Record/Logger.hs view
@@ -1,4 +1,4 @@--- | Store values to a buffer, whenever triggered+-- | (Undocumented class) module Sound.SC3.UGen.Record.Logger where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Logistic.hs view
@@ -6,14 +6,14 @@ rate :: S.Rate, chaosParam :: S.UGen, freq :: S.UGen,- init_ :: S.UGen+ init :: S.UGen } deriving (Show) logistic :: Logistic logistic = Logistic { rate = S.AR, chaosParam = 3.0, freq = 1000.0,- init_ = 0.5+ init = 0.5 } mkLogistic :: Logistic -> S.UGen mkLogistic (Logistic r a' b' c') = S.mkOsc r "Logistic" [a',b',c'] 1
Sound/SC3/UGen/Record/LoopBuf.hs view
@@ -1,10 +1,10 @@--- | sample looping oscillator+-- | (Undocumented class) module Sound.SC3.UGen.Record.LoopBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data LoopBuf = LoopBuf { bufnum :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, gate :: S.UGen, startPos :: S.UGen, startLoop :: S.UGen,@@ -14,7 +14,7 @@ loopBuf :: LoopBuf loopBuf = LoopBuf { bufnum = 0.0,- rate_ = 1.0,+ rate = 1.0, gate = 1.0, startPos = 0.0, startLoop = 0.0,
Sound/SC3/UGen/Record/Lorenz2DC.hs view
@@ -1,4 +1,4 @@--- | lorenz 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Lorenz2DC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Lorenz2DL.hs view
@@ -1,4 +1,4 @@--- | lorenz 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Lorenz2DL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Lorenz2DN.hs view
@@ -1,4 +1,4 @@--- | lorenz 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Lorenz2DN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/LorenzTrig.hs view
@@ -1,4 +1,4 @@--- | lorenz chaotic trigger generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.LorenzTrig where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/MCLDChaosGen.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.MCLDChaosGen where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
+ Sound/SC3/UGen/Record/MZPokey.hs view
@@ -0,0 +1,31 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.MZPokey where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MZPokey = MZPokey {+ audf1 :: S.UGen,+ audc1 :: S.UGen,+ audf2 :: S.UGen,+ audc2 :: S.UGen,+ audf3 :: S.UGen,+ audc3 :: S.UGen,+ audf4 :: S.UGen,+ audc4 :: S.UGen,+ audctl :: S.UGen+ } deriving (Show)+mZPokey :: MZPokey+mZPokey = MZPokey {+ audf1 = 0.0,+ audc1 = 0.0,+ audf2 = 0.0,+ audc2 = 0.0,+ audf3 = 0.0,+ audc3 = 0.0,+ audf4 = 0.0,+ audc4 = 0.0,+ audctl = 0.0+ }+mkMZPokey :: MZPokey -> S.UGen+mkMZPokey (MZPokey a' b' c' d' e' f' g' h' i') = S.mkOsc S.AR "MZPokey" [a',b',c',d',e',f',g',h',i'] 1+instance Make MZPokey where+ ugen = mkMZPokey
Sound/SC3/UGen/Record/MantissaMask.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data MantissaMask = MantissaMask { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, bits :: S.UGen } deriving (Show) mantissaMask :: MantissaMask mantissaMask = MantissaMask { rate = S.AR,- input = 0.0,+ in = 0.0, bits = 3.0 } mkMantissaMask :: MantissaMask -> S.UGen
Sound/SC3/UGen/Record/MarkovSynth.hs view
@@ -1,16 +1,16 @@--- | First order Markov Chain implementation for audio signals+-- | (Undocumented class) module Sound.SC3.UGen.Record.MarkovSynth where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data MarkovSynth = MarkovSynth {- input :: S.UGen,+ in :: S.UGen, isRecording :: S.UGen, waitTime :: S.UGen, tableSize :: S.UGen } deriving (Show) markovSynth :: MarkovSynth markovSynth = MarkovSynth {- input = 0.0,+ in = 0.0, isRecording = 1.0, waitTime = 2.0, tableSize = 10.0
Sound/SC3/UGen/Record/Max.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Max where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Max = Max {- input :: S.UGen,+ in :: S.UGen, numsamp :: S.UGen } deriving (Show) max :: Max max = Max {- input = 0.0,+ in = 0.0, numsamp = 64.0 } mkMax :: Max -> S.UGen
Sound/SC3/UGen/Record/Maxamp.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Maxamp where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Maxamp = Maxamp {- input :: S.UGen,+ in :: S.UGen, numSamps :: S.UGen } deriving (Show) maxamp :: Maxamp maxamp = Maxamp {- input = 0.0,+ in = 0.0, numSamps = 1000.0 } mkMaxamp :: Maxamp -> S.UGen
Sound/SC3/UGen/Record/MdaPiano.hs view
@@ -1,4 +1,4 @@--- | Piano synthesiser+-- | (Undocumented class) module Sound.SC3.UGen.Record.MdaPiano where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/MeanTriggered.hs view
@@ -1,19 +1,19 @@--- | Mean of recent values, triggered+-- | (Undocumented class) module Sound.SC3.UGen.Record.MeanTriggered where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data MeanTriggered = MeanTriggered { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) meanTriggered :: MeanTriggered meanTriggered = MeanTriggered { rate = S.AR,- input = 0.0,+ in = 0.0, trig = 0.0,- length_ = 10.0+ length = 10.0 } mkMeanTriggered :: MeanTriggered -> S.UGen mkMeanTriggered (MeanTriggered r a' b' c') = S.mkOsc r "MeanTriggered" [a',b',c'] 1
+ Sound/SC3/UGen/Record/Meddis.hs view
@@ -0,0 +1,17 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Meddis where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Meddis = Meddis {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+meddis :: Meddis+meddis = Meddis {+ rate = S.AR,+ input = 0.0+ }+mkMeddis :: Meddis -> S.UGen+mkMeddis (Meddis r a') = S.mkOsc r "Meddis" [a'] 1+instance Make Meddis where+ ugen = mkMeddis
Sound/SC3/UGen/Record/Median.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Median = Median { rate :: S.Rate,- length_ :: S.UGen,- input :: S.UGen+ length :: S.UGen,+ in :: S.UGen } deriving (Show) median :: Median median = Median { rate = S.AR,- length_ = 3.0,- input = 0.0+ length = 3.0,+ in = 0.0 } mkMedian :: Median -> S.UGen mkMedian (Median r a' b') = S.mkOsc r "Median" [a',b'] 1
Sound/SC3/UGen/Record/MedianTriggered.hs view
@@ -1,19 +1,19 @@--- | Median of recent values, triggered+-- | (Undocumented class) module Sound.SC3.UGen.Record.MedianTriggered where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data MedianTriggered = MedianTriggered { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen,- length_ :: S.UGen+ length :: S.UGen } deriving (Show) medianTriggered :: MedianTriggered medianTriggered = MedianTriggered { rate = S.AR,- input = 0.0,+ in = 0.0, trig = 0.0,- length_ = 10.0+ length = 10.0 } mkMedianTriggered :: MedianTriggered -> S.UGen mkMedianTriggered (MedianTriggered r a' b' c') = S.mkOsc r "MedianTriggered" [a',b',c'] 1
Sound/SC3/UGen/Record/MembraneCircle.hs view
@@ -1,4 +1,4 @@--- | Waveguide mesh physical models of drum membranes+-- | (Undocumented class) module Sound.SC3.UGen.Record.MembraneCircle where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/MembraneHexagon.hs view
@@ -1,4 +1,4 @@--- | Waveguide mesh physical models of drum membranes+-- | (Undocumented class) module Sound.SC3.UGen.Record.MembraneHexagon where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Metro.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Metro where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/MidEQ.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data MidEQ = MidEQ { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen, db :: S.UGen@@ -12,7 +12,7 @@ midEQ :: MidEQ midEQ = MidEQ { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, rq = 1.0, db = 0.0
Sound/SC3/UGen/Record/MonoGrain.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.MonoGrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data MonoGrain = MonoGrain {- input :: S.UGen,+ in :: S.UGen, winsize :: S.UGen, grainrate :: S.UGen, winrandpct :: S.UGen } deriving (Show) monoGrain :: MonoGrain monoGrain = MonoGrain {- input = 0.0,+ in = 0.0, winsize = 0.1, grainrate = 10.0, winrandpct = 0.0
Sound/SC3/UGen/Record/MonoGrainBF.hs view
@@ -1,9 +1,9 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.MonoGrainBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data MonoGrainBF = MonoGrainBF {- input :: S.UGen,+ in :: S.UGen, winsize :: S.UGen, grainrate :: S.UGen, winrandpct :: S.UGen,@@ -15,7 +15,7 @@ } deriving (Show) monoGrainBF :: MonoGrainBF monoGrainBF = MonoGrainBF {- input = 0.0,+ in = 0.0, winsize = 0.1, grainrate = 10.0, winrandpct = 0.0,
Sound/SC3/UGen/Record/MoogFF.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data MoogFF = MoogFF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, gain :: S.UGen, reset :: S.UGen@@ -12,7 +12,7 @@ moogFF :: MoogFF moogFF = MoogFF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 100.0, gain = 2.0, reset = 0.0
Sound/SC3/UGen/Record/MoogLadder.hs view
@@ -1,17 +1,17 @@--- | Moog Filter Emulation+-- | (Undocumented class) module Sound.SC3.UGen.Record.MoogLadder where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data MoogLadder = MoogLadder { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, ffreq :: S.UGen, res :: S.UGen } deriving (Show) moogLadder :: MoogLadder moogLadder = MoogLadder { rate = S.AR,- input = 0.0,+ in = 0.0, ffreq = 440.0, res = 0.0 }
Sound/SC3/UGen/Record/MoogVCF.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.MoogVCF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data MoogVCF = MoogVCF {- input :: S.UGen,+ in :: S.UGen, fco :: S.UGen, res :: S.UGen } deriving (Show) moogVCF :: MoogVCF moogVCF = MoogVCF {- input = 0.0,+ in = 0.0, fco = 0.0, res = 0.0 }
Sound/SC3/UGen/Record/NL.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.NL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/NL2.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.NL2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/NLFiltC.hs view
@@ -1,4 +1,4 @@--- | Non-linear Filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.NLFiltC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/NLFiltL.hs view
@@ -1,4 +1,4 @@--- | Non-linear Filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.NLFiltL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/NLFiltN.hs view
@@ -1,4 +1,4 @@--- | Non-linear Filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.NLFiltN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/NTube.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.NTube where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/NeedleRect.hs view
@@ -1,9 +1,9 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.NeedleRect where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data NeedleRect = NeedleRect {- rate_ :: S.UGen,+ rate :: S.UGen, imgWidth :: S.UGen, imgHeight :: S.UGen, rectX :: S.UGen,@@ -13,7 +13,7 @@ } deriving (Show) needleRect :: NeedleRect needleRect = NeedleRect {- rate_ = 1.0,+ rate = 1.0, imgWidth = 100.0, imgHeight = 100.0, rectX = 0.0,
+ Sound/SC3/UGen/Record/Nes2.hs view
@@ -0,0 +1,53 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Nes2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Nes2 = Nes2 {+ trig :: S.UGen,+ a0 :: S.UGen,+ a1 :: S.UGen,+ a2 :: S.UGen,+ a3 :: S.UGen,+ b0 :: S.UGen,+ b1 :: S.UGen,+ b2 :: S.UGen,+ b3 :: S.UGen,+ c0 :: S.UGen,+ c2 :: S.UGen,+ c3 :: S.UGen,+ d0 :: S.UGen,+ d2 :: S.UGen,+ d3 :: S.UGen,+ e0 :: S.UGen,+ e1 :: S.UGen,+ e2 :: S.UGen,+ e3 :: S.UGen,+ smask :: S.UGen+ } deriving (Show)+nes2 :: Nes2+nes2 = Nes2 {+ trig = 0.0,+ a0 = 0.0,+ a1 = 0.0,+ a2 = 0.0,+ a3 = 0.0,+ b0 = 0.0,+ b1 = 0.0,+ b2 = 0.0,+ b3 = 0.0,+ c0 = 0.0,+ c2 = 0.0,+ c3 = 0.0,+ d0 = 0.0,+ d2 = 0.0,+ d3 = 0.0,+ e0 = 0.0,+ e1 = 0.0,+ e2 = 0.0,+ e3 = 0.0,+ smask = 0.0+ }+mkNes2 :: Nes2 -> S.UGen+mkNes2 (Nes2 a' b' c' d' e' f' g' h' i' j' k' l' m' n' o' p' q' r' s' t') = S.mkOsc S.AR "Nes2" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o',p',q',r',s',t'] 1+instance Make Nes2 where+ ugen = mkNes2
Sound/SC3/UGen/Record/NestedAllpassC.hs view
@@ -1,9 +1,9 @@--- | Nested Allpass filters as proposed by Vercoe and Pluckett+-- | (Undocumented class) module Sound.SC3.UGen.Record.NestedAllpassC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data NestedAllpassC = NestedAllpassC {- input :: S.UGen,+ in :: S.UGen, maxdelay1 :: S.UGen, delay1 :: S.UGen, gain1 :: S.UGen,@@ -13,7 +13,7 @@ } deriving (Show) nestedAllpassC :: NestedAllpassC nestedAllpassC = NestedAllpassC {- input = 0.0,+ in = 0.0, maxdelay1 = 0.036, delay1 = 0.036, gain1 = 0.08,
Sound/SC3/UGen/Record/NestedAllpassL.hs view
@@ -1,9 +1,9 @@--- | Nested Allpass filters as proposed by Vercoe and Pluckett+-- | (Undocumented class) module Sound.SC3.UGen.Record.NestedAllpassL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data NestedAllpassL = NestedAllpassL {- input :: S.UGen,+ in :: S.UGen, maxdelay1 :: S.UGen, delay1 :: S.UGen, gain1 :: S.UGen,@@ -13,7 +13,7 @@ } deriving (Show) nestedAllpassL :: NestedAllpassL nestedAllpassL = NestedAllpassL {- input = 0.0,+ in = 0.0, maxdelay1 = 0.036, delay1 = 0.036, gain1 = 0.08,
Sound/SC3/UGen/Record/NestedAllpassN.hs view
@@ -1,9 +1,9 @@--- | Nested Allpass filters as proposed by Vercoe and Pluckett+-- | (Undocumented class) module Sound.SC3.UGen.Record.NestedAllpassN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data NestedAllpassN = NestedAllpassN {- input :: S.UGen,+ in :: S.UGen, maxdelay1 :: S.UGen, delay1 :: S.UGen, gain1 :: S.UGen,@@ -13,7 +13,7 @@ } deriving (Show) nestedAllpassN :: NestedAllpassN nestedAllpassN = NestedAllpassN {- input = 0.0,+ in = 0.0, maxdelay1 = 0.036, delay1 = 0.036, gain1 = 0.08,
Sound/SC3/UGen/Record/Normalizer.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Normalizer = Normalizer {- input :: S.UGen,+ in :: S.UGen, level :: S.UGen, dur :: S.UGen } deriving (Show) normalizer :: Normalizer normalizer = Normalizer {- input = 0.0,+ in = 0.0, level = 1.0, dur = 0.01 }
Sound/SC3/UGen/Record/OSFold4.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.OSFold4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data OSFold4 = OSFold4 {- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) oSFold4 :: OSFold4 oSFold4 = OSFold4 {- input = 0.0,+ in = 0.0, lo = 0.0, hi = 0.0 }
Sound/SC3/UGen/Record/OSFold8.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.OSFold8 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data OSFold8 = OSFold8 {- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) oSFold8 :: OSFold8 oSFold8 = OSFold8 {- input = 0.0,+ in = 0.0, lo = 0.0, hi = 0.0 }
Sound/SC3/UGen/Record/OSTrunc4.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.OSTrunc4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data OSTrunc4 = OSTrunc4 {- input :: S.UGen,+ in :: S.UGen, quant :: S.UGen } deriving (Show) oSTrunc4 :: OSTrunc4 oSTrunc4 = OSTrunc4 {- input = 0.0,+ in = 0.0, quant = 0.5 } mkOSTrunc4 :: OSTrunc4 -> S.UGen
Sound/SC3/UGen/Record/OSTrunc8.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.OSTrunc8 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data OSTrunc8 = OSTrunc8 {- input :: S.UGen,+ in :: S.UGen, quant :: S.UGen } deriving (Show) oSTrunc8 :: OSTrunc8 oSTrunc8 = OSTrunc8 {- input = 0.0,+ in = 0.0, quant = 0.5 } mkOSTrunc8 :: OSTrunc8 -> S.UGen
Sound/SC3/UGen/Record/OSWrap4.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.OSWrap4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data OSWrap4 = OSWrap4 {- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) oSWrap4 :: OSWrap4 oSWrap4 = OSWrap4 {- input = 0.0,+ in = 0.0, lo = 0.0, hi = 0.0 }
Sound/SC3/UGen/Record/OSWrap8.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.OSWrap8 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data OSWrap8 = OSWrap8 {- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) oSWrap8 :: OSWrap8 oSWrap8 = OSWrap8 {- input = 0.0,+ in = 0.0, lo = 0.0, hi = 0.0 }
Sound/SC3/UGen/Record/OffsetOut.hs view
@@ -5,13 +5,13 @@ data OffsetOut = OffsetOut { rate :: S.Rate, bus :: S.UGen,- input :: S.UGen+ channelsArray :: S.UGen } deriving (Show) offsetOut :: OffsetOut offsetOut = OffsetOut { rate = S.AR, bus = 0.0,- input = 0.0+ channelsArray = 0.0 } mkOffsetOut :: OffsetOut -> S.UGen mkOffsetOut (OffsetOut r a' b') = S.mkOsc r "OffsetOut" [a',b'] 1
Sound/SC3/UGen/Record/OnePole.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data OnePole = OnePole { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, coef :: S.UGen } deriving (Show) onePole :: OnePole onePole = OnePole { rate = S.AR,- input = 0.0,+ in = 0.0, coef = 0.5 } mkOnePole :: OnePole -> S.UGen
Sound/SC3/UGen/Record/OneZero.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data OneZero = OneZero { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, coef :: S.UGen } deriving (Show) oneZero :: OneZero oneZero = OneZero { rate = S.AR,- input = 0.0,+ in = 0.0, coef = 0.5 } mkOneZero :: OneZero -> S.UGen
Sound/SC3/UGen/Record/Onsets.hs view
@@ -7,7 +7,7 @@ threshold :: S.UGen, odftype :: S.UGen, relaxtime :: S.UGen,- floor_ :: S.UGen,+ floor :: S.UGen, mingap :: S.UGen, medianspan :: S.UGen, whtype :: S.UGen,@@ -19,7 +19,7 @@ threshold = 0.5, odftype = 3.0, relaxtime = 1.0,- floor_ = 0.1,+ floor = 0.1, mingap = 10.0, medianspan = 11.0, whtype = 1.0,
Sound/SC3/UGen/Record/Oregonator.hs view
@@ -1,10 +1,10 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Oregonator where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Oregonator = Oregonator { reset :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, epsilon :: S.UGen, mu :: S.UGen, q :: S.UGen,@@ -15,7 +15,7 @@ oregonator :: Oregonator oregonator = Oregonator { reset = 0.0,- rate_ = 0.01,+ rate = 0.01, epsilon = 1.0, mu = 1.0, q = 1.0,
Sound/SC3/UGen/Record/Out.hs view
@@ -5,13 +5,13 @@ data Out = Out { rate :: S.Rate, bus :: S.UGen,- input :: S.UGen+ channelsArray :: S.UGen } deriving (Show) out :: Out out = Out { rate = S.AR, bus = 0.0,- input = 0.0+ channelsArray = 0.0 } mkOut :: Out -> S.UGen mkOut (Out r a' b') = S.mkOsc r "Out" [a',b'] 1
Sound/SC3/UGen/Record/PVInfo.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PVInfo where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PVSynth.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PVSynth where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_BinBufRd.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_BinBufRd where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_BinDelay.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_BinDelay where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_BinFilter.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_BinFilter where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_BinPlayBuf.hs view
@@ -1,11 +1,11 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_BinPlayBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PV_BinPlayBuf = PV_BinPlayBuf { buffer :: S.UGen, playbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, offset :: S.UGen, binStart :: S.UGen, binSkip :: S.UGen,@@ -17,7 +17,7 @@ pV_BinPlayBuf = PV_BinPlayBuf { buffer = 0.0, playbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, offset = 0.0, binStart = 0.0, binSkip = 1.0,
Sound/SC3/UGen/Record/PV_BinShift.hs view
@@ -5,15 +5,17 @@ data PV_BinShift = PV_BinShift { buffer :: S.UGen, stretch :: S.UGen,- shift :: S.UGen+ shift :: S.UGen,+ interp :: S.UGen } deriving (Show) pV_BinShift :: PV_BinShift pV_BinShift = PV_BinShift { buffer = 0.0, stretch = 1.0,- shift = 0.0+ shift = 0.0,+ interp = 0.0 } mkPV_BinShift :: PV_BinShift -> S.UGen-mkPV_BinShift (PV_BinShift a' b' c') = S.mkOsc S.KR "PV_BinShift" [a',b',c'] 1+mkPV_BinShift (PV_BinShift a' b' c' d') = S.mkOsc S.KR "PV_BinShift" [a',b',c',d'] 1 instance Make PV_BinShift where ugen = mkPV_BinShift
Sound/SC3/UGen/Record/PV_BufRd.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_BufRd where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_CommonMag.hs view
@@ -1,4 +1,4 @@--- | returns common magnitudes+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_CommonMag where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_CommonMul.hs view
@@ -1,4 +1,4 @@--- | multiplies common magnitudes+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_CommonMul where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_Compander.hs view
@@ -1,4 +1,4 @@--- | simple spectral compression/expansion+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_Compander where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_Cutoff.hs view
@@ -1,4 +1,4 @@--- | zero bins with interpolation+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_Cutoff where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_DiffMags.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_DiffMags where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_EvenBin.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_EvenBin where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_ExtractRepeat.hs view
@@ -1,4 +1,4 @@--- | extract a repeating loop out from audio+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_ExtractRepeat where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_Freeze.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_Freeze where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_FreqBuffer.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_FreqBuffer where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_Invert.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_Invert where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagBuffer.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagBuffer where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagExp.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagExp where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagGate.hs view
@@ -1,4 +1,4 @@--- | reduces magnitudes above or below thresh+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagGate where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagLog.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagLog where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagMap.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagMap where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagMinus.hs view
@@ -1,4 +1,4 @@--- | subtract spectral energy+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagMinus where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagMulAdd.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagMulAdd where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagScale.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagScale where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagSmooth.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagSmooth where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MagSubtract.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MagSubtract where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MaxMagN.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MaxMagN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_MinMagN.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_MinMagN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_Morph.hs view
@@ -1,4 +1,4 @@--- | one kind of spectral morphing+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_Morph where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_NoiseSynthF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_NoiseSynthF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_NoiseSynthP.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_NoiseSynthP where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_OddBin.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_OddBin where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_PartialSynthF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_PartialSynthF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_PartialSynthP.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_PartialSynthP where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_PhaseShift.hs view
@@ -4,14 +4,16 @@ import Sound.SC3.UGen.Record data PV_PhaseShift = PV_PhaseShift { buffer :: S.UGen,- shift :: S.UGen+ shift :: S.UGen,+ integrate :: S.UGen } deriving (Show) pV_PhaseShift :: PV_PhaseShift pV_PhaseShift = PV_PhaseShift { buffer = 0.0,- shift = 0.0+ shift = 0.0,+ integrate = 0.0 } mkPV_PhaseShift :: PV_PhaseShift -> S.UGen-mkPV_PhaseShift (PV_PhaseShift a' b') = S.mkOsc S.KR "PV_PhaseShift" [a',b'] 1+mkPV_PhaseShift (PV_PhaseShift a' b' c') = S.mkOsc S.KR "PV_PhaseShift" [a',b',c'] 1 instance Make PV_PhaseShift where ugen = mkPV_PhaseShift
Sound/SC3/UGen/Record/PV_PitchShift.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_PitchShift where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_PlayBuf.hs view
@@ -1,11 +1,11 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_PlayBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PV_PlayBuf = PV_PlayBuf { buffer :: S.UGen, playbuf :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, offset :: S.UGen, loop :: S.UGen } deriving (Show)@@ -13,7 +13,7 @@ pV_PlayBuf = PV_PlayBuf { buffer = 0.0, playbuf = 0.0,- rate_ = 1.0,+ rate = 1.0, offset = 0.0, loop = 0.0 }
Sound/SC3/UGen/Record/PV_RecordBuf.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_RecordBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_SoftWipe.hs view
@@ -1,4 +1,4 @@--- | combine low and high bins from two inputs with interpolation+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_SoftWipe where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_SpectralEnhance.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_SpectralEnhance where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/PV_SpectralMap.hs view
@@ -1,11 +1,11 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_SpectralMap where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PV_SpectralMap = PV_SpectralMap { buffer :: S.UGen, specBuffer :: S.UGen,- floor_ :: S.UGen,+ floor :: S.UGen, freeze :: S.UGen, mode :: S.UGen, norm :: S.UGen,@@ -15,7 +15,7 @@ pV_SpectralMap = PV_SpectralMap { buffer = 0.0, specBuffer = 0.0,- floor_ = 0.0,+ floor = 0.0, freeze = 0.0, mode = 0.0, norm = 0.0,
Sound/SC3/UGen/Record/PV_Whiten.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_Whiten where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,7 +6,7 @@ chain :: S.UGen, trackbufnum :: S.UGen, relaxtime :: S.UGen,- floor_ :: S.UGen,+ floor :: S.UGen, smear :: S.UGen, bindownsample :: S.UGen } deriving (Show)@@ -15,7 +15,7 @@ chain = 0.0, trackbufnum = 0.0, relaxtime = 2.0,- floor_ = 0.1,+ floor = 0.1, smear = 0.0, bindownsample = 0.0 }
Sound/SC3/UGen/Record/PV_XFade.hs view
@@ -1,4 +1,4 @@--- | one kind of spectral morphing+-- | (Undocumented class) module Sound.SC3.UGen.Record.PV_XFade where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Pan2.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Pan2 = Pan2 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, pos :: S.UGen, level :: S.UGen } deriving (Show) pan2 :: Pan2 pan2 = Pan2 { rate = S.AR,- input = 0.0,+ in = 0.0, pos = 0.0, level = 1.0 }
Sound/SC3/UGen/Record/Pan4.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data Pan4 = Pan4 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, xpos :: S.UGen, ypos :: S.UGen, level :: S.UGen@@ -12,7 +12,7 @@ pan4 :: Pan4 pan4 = Pan4 { rate = S.AR,- input = 0.0,+ in = 0.0, xpos = 0.0, ypos = 0.0, level = 1.0
Sound/SC3/UGen/Record/PanAz.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data PanAz = PanAz { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, pos :: S.UGen, level :: S.UGen, width :: S.UGen,@@ -13,7 +13,7 @@ panAz :: PanAz panAz = PanAz { rate = S.AR,- input = 0.0,+ in = 0.0, pos = 0.0, level = 1.0, width = 2.0,
Sound/SC3/UGen/Record/PanB.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data PanB = PanB { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen, gain :: S.UGen@@ -12,7 +12,7 @@ panB :: PanB panB = PanB { rate = S.AR,- input = 0.0,+ in = 0.0, azimuth = 0.0, elevation = 0.0, gain = 1.0
Sound/SC3/UGen/Record/PanB2.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data PanB2 = PanB2 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, azimuth :: S.UGen, gain :: S.UGen } deriving (Show) panB2 :: PanB2 panB2 = PanB2 { rate = S.AR,- input = 0.0,+ in = 0.0, azimuth = 0.0, gain = 1.0 }
Sound/SC3/UGen/Record/PanX.hs view
@@ -1,10 +1,10 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PanX where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PanX = PanX { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, pos :: S.UGen, level :: S.UGen, width :: S.UGen@@ -12,7 +12,7 @@ panX :: PanX panX = PanX { rate = S.AR,- input = 0.0,+ in = 0.0, pos = 0.0, level = 1.0, width = 2.0
Sound/SC3/UGen/Record/PanX2D.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PanX2D where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,7 +6,7 @@ rate :: S.Rate, numChansX :: S.UGen, numChansY :: S.UGen,- input :: S.UGen,+ in :: S.UGen, posX :: S.UGen, posY :: S.UGen, level :: S.UGen,@@ -18,7 +18,7 @@ rate = S.AR, numChansX = 0.0, numChansY = 0.0,- input = 0.0,+ in = 0.0, posX = 0.0, posY = 0.0, level = 1.0,
− Sound/SC3/UGen/Record/Panner.hs
@@ -1,14 +0,0 @@-module Sound.SC3.UGen.Record.Panner where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data Panner = Panner {- maxSize :: S.UGen- } deriving (Show)-panner :: Panner-panner = Panner {- maxSize = 0.0- }-mkPanner :: Panner -> S.UGen-mkPanner (Panner a') = S.mkOsc S.AR "Panner" [a'] 1-instance Make Panner where- ugen = mkPanner
Sound/SC3/UGen/Record/PartConv.hs view
@@ -3,13 +3,13 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PartConv = PartConv {- input :: S.UGen,+ in :: S.UGen, fftsize :: S.UGen, irbufnum :: S.UGen } deriving (Show) partConv :: PartConv partConv = PartConv {- input = 0.0,+ in = 0.0, fftsize = 0.0, irbufnum = 0.0 }
Sound/SC3/UGen/Record/Pause.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data Pause = Pause { gate :: S.UGen,- id_ :: S.UGen+ id :: S.UGen } deriving (Show) pause :: Pause pause = Pause { gate = 0.0,- id_ = 0.0+ id = 0.0 } mkPause :: Pause -> S.UGen mkPause (Pause a' b') = S.mkOsc S.KR "Pause" [a',b'] 1
Sound/SC3/UGen/Record/PauseSelf.hs view
@@ -3,11 +3,11 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PauseSelf = PauseSelf {- input :: S.UGen+ in :: S.UGen } deriving (Show) pauseSelf :: PauseSelf pauseSelf = PauseSelf {- input = 0.0+ in = 0.0 } mkPauseSelf :: PauseSelf -> S.UGen mkPauseSelf (PauseSelf a') = S.mkOsc S.KR "PauseSelf" [a'] 1
Sound/SC3/UGen/Record/Peak.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Peak = Peak { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen } deriving (Show) peak :: Peak peak = Peak { rate = S.AR,- input = 0.0,+ in = 0.0, trig = 0.0 } mkPeak :: Peak -> S.UGen
Sound/SC3/UGen/Record/PeakEQ2.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PeakEQ2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PeakEQ2 = PeakEQ2 {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rs :: S.UGen, db :: S.UGen } deriving (Show) peakEQ2 :: PeakEQ2 peakEQ2 = PeakEQ2 {- input = 0.0,+ in = 0.0, freq = 1200.0, rs = 1.0, db = 0.0
Sound/SC3/UGen/Record/PeakEQ4.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PeakEQ4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PeakEQ4 = PeakEQ4 {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rs :: S.UGen, db :: S.UGen } deriving (Show) peakEQ4 :: PeakEQ4 peakEQ4 = PeakEQ4 {- input = 0.0,+ in = 0.0, freq = 1200.0, rs = 1.0, db = 0.0
Sound/SC3/UGen/Record/PeakFollower.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data PeakFollower = PeakFollower { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, decay :: S.UGen } deriving (Show) peakFollower :: PeakFollower peakFollower = PeakFollower { rate = S.AR,- input = 0.0,+ in = 0.0, decay = 0.999 } mkPeakFollower :: PeakFollower -> S.UGen
Sound/SC3/UGen/Record/Perlin3.hs view
@@ -1,4 +1,4 @@--- | 3D Perlin Noise+-- | (Undocumented class) module Sound.SC3.UGen.Record.Perlin3 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Phasor.hs view
@@ -5,7 +5,7 @@ data Phasor = Phasor { rate :: S.Rate, trig :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, start :: S.UGen, end :: S.UGen, resetPos :: S.UGen@@ -14,7 +14,7 @@ phasor = Phasor { rate = S.AR, trig = 0.0,- rate_ = 1.0,+ rate = 1.0, start = 0.0, end = 1.0, resetPos = 0.0
Sound/SC3/UGen/Record/Pitch.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Pitch = Pitch {- input :: S.UGen,+ in :: S.UGen, initFreq :: S.UGen, minFreq :: S.UGen, maxFreq :: S.UGen,@@ -17,7 +17,7 @@ } deriving (Show) pitch :: Pitch pitch = Pitch {- input = 0.0,+ in = 0.0, initFreq = 440.0, minFreq = 60.0, maxFreq = 4000.0,
Sound/SC3/UGen/Record/PitchShift.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PitchShift = PitchShift {- input :: S.UGen,+ in :: S.UGen, windowSize :: S.UGen, pitchRatio :: S.UGen, pitchDispersion :: S.UGen,@@ -11,7 +11,7 @@ } deriving (Show) pitchShift :: PitchShift pitchShift = PitchShift {- input = 0.0,+ in = 0.0, windowSize = 0.2, pitchRatio = 1.0, pitchDispersion = 0.0,
Sound/SC3/UGen/Record/PlaneTree.hs view
@@ -1,16 +1,16 @@--- | Tree classifier using (hyper)planes – UGen or language-side+-- | (Undocumented class) module Sound.SC3.UGen.Record.PlaneTree where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PlaneTree = PlaneTree { treebuf :: S.UGen,- input :: S.UGen,+ in :: S.UGen, gate :: S.UGen } deriving (Show) planeTree :: PlaneTree planeTree = PlaneTree { treebuf = 0.0,- input = 0.0,+ in = 0.0, gate = 1.0 } mkPlaneTree :: PlaneTree -> S.UGen
Sound/SC3/UGen/Record/PlayBuf.hs view
@@ -5,7 +5,7 @@ data PlayBuf = PlayBuf { rate :: S.Rate, bufnum :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, trigger :: S.UGen, startPos :: S.UGen, loop :: S.UGen,@@ -15,7 +15,7 @@ playBuf = PlayBuf { rate = S.AR, bufnum = 0.0,- rate_ = 1.0,+ rate = 1.0, trigger = 1.0, startPos = 0.0, loop = 0.0,
Sound/SC3/UGen/Record/Pluck.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Pluck = Pluck {- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen, maxdelaytime :: S.UGen, delaytime :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) pluck :: Pluck pluck = Pluck {- input = 0.0,+ in = 0.0, trig = 1.0, maxdelaytime = 0.2, delaytime = 0.2,
+ Sound/SC3/UGen/Record/Pokey.hs view
@@ -0,0 +1,31 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Pokey where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Pokey = Pokey {+ audf1 :: S.UGen,+ audc1 :: S.UGen,+ audf2 :: S.UGen,+ audc2 :: S.UGen,+ audf3 :: S.UGen,+ audc3 :: S.UGen,+ audf4 :: S.UGen,+ audc4 :: S.UGen,+ audctl :: S.UGen+ } deriving (Show)+pokey :: Pokey+pokey = Pokey {+ audf1 = 0.0,+ audc1 = 0.0,+ audf2 = 0.0,+ audc2 = 0.0,+ audf3 = 0.0,+ audc3 = 0.0,+ audf4 = 0.0,+ audc4 = 0.0,+ audctl = 0.0+ }+mkPokey :: Pokey -> S.UGen+mkPokey (Pokey a' b' c' d' e' f' g' h' i') = S.mkOsc S.AR "Pokey" [a',b',c',d',e',f',g',h',i'] 1+instance Make Pokey where+ ugen = mkPokey
Sound/SC3/UGen/Record/PosRatio.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PosRatio where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PosRatio = PosRatio {- input :: S.UGen,+ in :: S.UGen, period :: S.UGen, thresh :: S.UGen } deriving (Show) posRatio :: PosRatio posRatio = PosRatio {- input = 0.0,+ in = 0.0, period = 100.0, thresh = 0.1 }
Sound/SC3/UGen/Record/PrintVal.hs view
@@ -1,17 +1,17 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.PrintVal where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data PrintVal = PrintVal {- input :: S.UGen,+ in :: S.UGen, numblocks :: S.UGen,- id_ :: S.UGen+ id :: S.UGen } deriving (Show) printVal :: PrintVal printVal = PrintVal {- input = 0.0,+ in = 0.0, numblocks = 100.0,- id_ = 0.0+ id = 0.0 } mkPrintVal :: PrintVal -> S.UGen mkPrintVal (PrintVal a' b' c') = S.mkOsc S.KR "PrintVal" [a',b',c'] 1
Sound/SC3/UGen/Record/PulseDivider.hs view
@@ -5,14 +5,14 @@ data PulseDivider = PulseDivider { rate :: S.Rate, trig :: S.UGen,- div_ :: S.UGen,+ div :: S.UGen, start :: S.UGen } deriving (Show) pulseDivider :: PulseDivider pulseDivider = PulseDivider { rate = S.AR, trig = 0.0,- div_ = 2.0,+ div = 2.0, start = 0.0 } mkPulseDivider :: PulseDivider -> S.UGen
+ Sound/SC3/UGen/Record/PureUGen.hs view
@@ -0,0 +1,15 @@+-- | Pure UGen+module Sound.SC3.UGen.Record.PureUGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PureUGen = PureUGen {+ maxSize :: S.UGen+ } deriving (Show)+pureUGen :: PureUGen+pureUGen = PureUGen {+ maxSize = 0.0+ }+mkPureUGen :: PureUGen -> S.UGen+mkPureUGen (PureUGen a') = S.mkOsc S.AR "PureUGen" [a'] 1+instance Make PureUGen where+ ugen = mkPureUGen
Sound/SC3/UGen/Record/Qitch.hs view
@@ -1,9 +1,9 @@--- | constant Q transform pitch follower+-- | (Undocumented class) module Sound.SC3.UGen.Record.Qitch where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Qitch = Qitch {- input :: S.UGen,+ in :: S.UGen, databufnum :: S.UGen, ampThreshold :: S.UGen, algoflag :: S.UGen,@@ -13,7 +13,7 @@ } deriving (Show) qitch :: Qitch qitch = Qitch {- input = 0.0,+ in = 0.0, databufnum = 0.0, ampThreshold = 0.01, algoflag = 1.0,
+ Sound/SC3/UGen/Record/RDelayMap.hs view
@@ -0,0 +1,23 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RDelayMap where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RDelayMap = RDelayMap {+ rate :: S.Rate,+ bufnum :: S.UGen,+ in :: S.UGen,+ dynamic :: S.UGen,+ spec :: S.UGen+ } deriving (Show)+rDelayMap :: RDelayMap+rDelayMap = RDelayMap {+ rate = S.AR,+ bufnum = 0.0,+ in = 0.0,+ dynamic = 0.0,+ spec = 0.0+ }+mkRDelayMap :: RDelayMap -> S.UGen+mkRDelayMap (RDelayMap r a' b' c' d') = S.mkOsc r "RDelayMap" [a',b',c',d'] 1+instance Make RDelayMap where+ ugen = mkRDelayMap
+ Sound/SC3/UGen/Record/RDelaySet.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RDelaySet where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RDelaySet = RDelaySet {+ rate :: S.Rate,+ in :: S.UGen,+ spec :: S.UGen+ } deriving (Show)+rDelaySet :: RDelaySet+rDelaySet = RDelaySet {+ rate = S.AR,+ in = 0.0,+ spec = 0.0+ }+mkRDelaySet :: RDelaySet -> S.UGen+mkRDelaySet (RDelaySet r a' b') = S.mkOsc r "RDelaySet" [a',b'] 1+instance Make RDelaySet where+ ugen = mkRDelaySet
+ Sound/SC3/UGen/Record/RDelaySetB.hs view
@@ -0,0 +1,21 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RDelaySetB where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RDelaySetB = RDelaySetB {+ rate :: S.Rate,+ bufnum :: S.UGen,+ in :: S.UGen,+ spec :: S.UGen+ } deriving (Show)+rDelaySetB :: RDelaySetB+rDelaySetB = RDelaySetB {+ rate = S.AR,+ bufnum = 0.0,+ in = 0.0,+ spec = 0.0+ }+mkRDelaySetB :: RDelaySetB -> S.UGen+mkRDelaySetB (RDelaySetB r a' b' c') = S.mkOsc r "RDelaySetB" [a',b',c'] 1+instance Make RDelaySetB where+ ugen = mkRDelaySetB
+ Sound/SC3/UGen/Record/RFreezer.hs view
@@ -0,0 +1,37 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RFreezer where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RFreezer = RFreezer {+ rate :: S.Rate,+ bufnum :: S.UGen,+ left :: S.UGen,+ right :: S.UGen,+ gain :: S.UGen,+ increment :: S.UGen,+ incrementOffset :: S.UGen,+ incrementRandom :: S.UGen,+ rightRandom :: S.UGen,+ syncPhaseTrigger :: S.UGen,+ randomizePhaseTrigger :: S.UGen,+ numberOfLoops :: S.UGen+ } deriving (Show)+rFreezer :: RFreezer+rFreezer = RFreezer {+ rate = S.AR,+ bufnum = 0.0,+ left = 0.0,+ right = 1.0,+ gain = 1.0,+ increment = 1.0,+ incrementOffset = 0.0,+ incrementRandom = 0.0,+ rightRandom = 0.0,+ syncPhaseTrigger = 0.0,+ randomizePhaseTrigger = 0.0,+ numberOfLoops = 4.0+ }+mkRFreezer :: RFreezer -> S.UGen+mkRFreezer (RFreezer r a' b' c' d' e' f' g' h' i' j' k') = S.mkOsc r "RFreezer" [a',b',c',d',e',f',g',h',i',j',k'] 1+instance Make RFreezer where+ ugen = mkRFreezer
Sound/SC3/UGen/Record/RHPF.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data RHPF = RHPF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) rHPF :: RHPF rHPF = RHPF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, rq = 1.0 }
Sound/SC3/UGen/Record/RLPF.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data RLPF = RLPF { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen } deriving (Show) rLPF :: RLPF rLPF = RLPF { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, rq = 1.0 }
Sound/SC3/UGen/Record/RLPFD.hs view
@@ -1,10 +1,10 @@--- | TB303 Filter Emulation+-- | (Undocumented class) module Sound.SC3.UGen.Record.RLPFD where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data RLPFD = RLPFD { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, ffreq :: S.UGen, res :: S.UGen, dist :: S.UGen@@ -12,7 +12,7 @@ rLPFD :: RLPFD rLPFD = RLPFD { rate = S.AR,- input = 0.0,+ in = 0.0, ffreq = 440.0, res = 0.0, dist = 0.0
+ Sound/SC3/UGen/Record/RLoopSet.hs view
@@ -0,0 +1,27 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RLoopSet where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RLoopSet = RLoopSet {+ rate :: S.Rate,+ bufnum :: S.UGen,+ left :: S.UGen,+ right :: S.UGen,+ gain :: S.UGen,+ increment :: S.UGen,+ spec :: S.UGen+ } deriving (Show)+rLoopSet :: RLoopSet+rLoopSet = RLoopSet {+ rate = S.AR,+ bufnum = 0.0,+ left = 0.0,+ right = 1.0,+ gain = 1.0,+ increment = 1.0,+ spec = 0.0+ }+mkRLoopSet :: RLoopSet -> S.UGen+mkRLoopSet (RLoopSet r a' b' c' d' e' f') = S.mkOsc r "RLoopSet" [a',b',c',d',e',f'] 1+instance Make RLoopSet where+ ugen = mkRLoopSet
Sound/SC3/UGen/Record/RMAFoodChainL.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.RMAFoodChainL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/RMEQ.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.RMEQ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data RMEQ = RMEQ {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen, k :: S.UGen } deriving (Show) rMEQ :: RMEQ rMEQ = RMEQ {- input = 0.0,+ in = 0.0, freq = 440.0, rq = 0.1, k = 0.0
Sound/SC3/UGen/Record/RMEQSuite.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.RMEQSuite where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/RMShelf.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.RMShelf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data RMShelf = RMShelf {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, k :: S.UGen } deriving (Show) rMShelf :: RMShelf rMShelf = RMShelf {- input = 0.0,+ in = 0.0, freq = 440.0, k = 0.0 }
Sound/SC3/UGen/Record/RMShelf2.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.RMShelf2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data RMShelf2 = RMShelf2 {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, k :: S.UGen } deriving (Show) rMShelf2 :: RMShelf2 rMShelf2 = RMShelf2 {- input = 0.0,+ in = 0.0, freq = 440.0, k = 0.0 }
+ Sound/SC3/UGen/Record/RPlayTrace.hs view
@@ -0,0 +1,23 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RPlayTrace where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RPlayTrace = RPlayTrace {+ rate :: S.Rate,+ bufnum :: S.UGen,+ degree :: S.UGen,+ rate :: S.UGen,+ axis :: S.UGen+ } deriving (Show)+rPlayTrace :: RPlayTrace+rPlayTrace = RPlayTrace {+ rate = S.AR,+ bufnum = 0.0,+ degree = 4.0,+ rate = 0.0,+ axis = 1.0+ }+mkRPlayTrace :: RPlayTrace -> S.UGen+mkRPlayTrace (RPlayTrace r a' b' c' d') = S.mkOsc r "RPlayTrace" [a',b',c',d'] 1+instance Make RPlayTrace where+ ugen = mkRPlayTrace
+ Sound/SC3/UGen/Record/RShufflerB.hs view
@@ -0,0 +1,55 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RShufflerB where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RShufflerB = RShufflerB {+ rate :: S.Rate,+ bufnum :: S.UGen,+ readLocationMinima :: S.UGen,+ readLocationMaxima :: S.UGen,+ readIncrementMinima :: S.UGen,+ readIncrementMaxima :: S.UGen,+ durationMinima :: S.UGen,+ durationMaxima :: S.UGen,+ envelopeAmplitudeMinima :: S.UGen,+ envelopeAmplitudeMaxima :: S.UGen,+ envelopeShapeMinima :: S.UGen,+ envelopeShapeMaxima :: S.UGen,+ envelopeSkewMinima :: S.UGen,+ envelopeSkewMaxima :: S.UGen,+ stereoLocationMinima :: S.UGen,+ stereoLocationMaxima :: S.UGen,+ interOffsetTimeMinima :: S.UGen,+ interOffsetTimeMaxima :: S.UGen,+ ftableReadLocationIncrement :: S.UGen,+ readIncrementQuanta :: S.UGen,+ interOffsetTimeQuanta :: S.UGen+ } deriving (Show)+rShufflerB :: RShufflerB+rShufflerB = RShufflerB {+ rate = S.AR,+ bufnum = 0.0,+ readLocationMinima = 0.01,+ readLocationMaxima = 0.02,+ readIncrementMinima = 1.0,+ readIncrementMaxima = 1.0,+ durationMinima = 0.2,+ durationMaxima = 0.2,+ envelopeAmplitudeMinima = 0.5,+ envelopeAmplitudeMaxima = 0.5,+ envelopeShapeMinima = 0.5,+ envelopeShapeMaxima = 0.5,+ envelopeSkewMinima = 0.5,+ envelopeSkewMaxima = 0.5,+ stereoLocationMinima = 0.5,+ stereoLocationMaxima = 0.5,+ interOffsetTimeMinima = 0.05,+ interOffsetTimeMaxima = 0.01,+ ftableReadLocationIncrement = 1.0,+ readIncrementQuanta = 0.0,+ interOffsetTimeQuanta = 0.0+ }+mkRShufflerB :: RShufflerB -> S.UGen+mkRShufflerB (RShufflerB r a' b' c' d' e' f' g' h' i' j' k' l' m' n' o' p' q' r' s' t') = S.mkOsc r "RShufflerB" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o',p',q',r',s',t'] 2+instance Make RShufflerB where+ ugen = mkRShufflerB
+ Sound/SC3/UGen/Record/RShufflerL.hs view
@@ -0,0 +1,21 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RShufflerL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RShufflerL = RShufflerL {+ rate :: S.Rate,+ in :: S.UGen,+ fragmentSize :: S.UGen,+ maxDelay :: S.UGen+ } deriving (Show)+rShufflerL :: RShufflerL+rShufflerL = RShufflerL {+ rate = S.AR,+ in = 0.0,+ fragmentSize = 0.01,+ maxDelay = 0.01+ }+mkRShufflerL :: RShufflerL -> S.UGen+mkRShufflerL (RShufflerL r a' b' c') = S.mkOsc r "RShufflerL" [a',b',c'] 1+instance Make RShufflerL where+ ugen = mkRShufflerL
+ Sound/SC3/UGen/Record/RTraceRd.hs view
@@ -0,0 +1,23 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RTraceRd where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RTraceRd = RTraceRd {+ rate :: S.Rate,+ bufnum :: S.UGen,+ degree :: S.UGen,+ index :: S.UGen,+ axis :: S.UGen+ } deriving (Show)+rTraceRd :: RTraceRd+rTraceRd = RTraceRd {+ rate = S.AR,+ bufnum = 0.0,+ degree = 4.0,+ index = 0.0,+ axis = 1.0+ }+mkRTraceRd :: RTraceRd -> S.UGen+mkRTraceRd (RTraceRd r a' b' c' d') = S.mkOsc r "RTraceRd" [a',b',c',d'] 1+instance Make RTraceRd where+ ugen = mkRTraceRd
+ Sound/SC3/UGen/Record/RTraceRdX.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RTraceRdX where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RTraceRdX = RTraceRdX {+ bufnum :: S.UGen,+ degree :: S.UGen,+ index :: S.UGen+ } deriving (Show)+rTraceRdX :: RTraceRdX+rTraceRdX = RTraceRdX {+ bufnum = 0.0,+ degree = 4.0,+ index = 0.0+ }+mkRTraceRdX :: RTraceRdX -> S.UGen+mkRTraceRdX (RTraceRdX a' b' c') = S.mkOsc S.KR "RTraceRdX" [a',b',c'] 1+instance Make RTraceRdX where+ ugen = mkRTraceRdX
+ Sound/SC3/UGen/Record/RTraceRdY.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RTraceRdY where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RTraceRdY = RTraceRdY {+ bufnum :: S.UGen,+ degree :: S.UGen,+ index :: S.UGen+ } deriving (Show)+rTraceRdY :: RTraceRdY+rTraceRdY = RTraceRdY {+ bufnum = 0.0,+ degree = 4.0,+ index = 0.0+ }+mkRTraceRdY :: RTraceRdY -> S.UGen+mkRTraceRdY (RTraceRdY a' b' c') = S.mkOsc S.KR "RTraceRdY" [a',b',c'] 1+instance Make RTraceRdY where+ ugen = mkRTraceRdY
+ Sound/SC3/UGen/Record/RTraceRdZ.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RTraceRdZ where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RTraceRdZ = RTraceRdZ {+ bufnum :: S.UGen,+ degree :: S.UGen,+ index :: S.UGen+ } deriving (Show)+rTraceRdZ :: RTraceRdZ+rTraceRdZ = RTraceRdZ {+ bufnum = 0.0,+ degree = 4.0,+ index = 0.0+ }+mkRTraceRdZ :: RTraceRdZ -> S.UGen+mkRTraceRdZ (RTraceRdZ a' b' c') = S.mkOsc S.KR "RTraceRdZ" [a',b',c'] 1+instance Make RTraceRdZ where+ ugen = mkRTraceRdZ
Sound/SC3/UGen/Record/Ramp.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Ramp = Ramp { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lagTime :: S.UGen } deriving (Show) ramp :: Ramp ramp = Ramp { rate = S.AR,- input = 0.0,+ in = 0.0, lagTime = 0.1 } mkRamp :: Ramp -> S.UGen
Sound/SC3/UGen/Record/RandID.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data RandID = RandID { rate :: S.Rate,- id_ :: S.UGen+ id :: S.UGen } deriving (Show) randID :: RandID randID = RandID { rate = S.AR,- id_ = 0.0+ id = 0.0 } mkRandID :: RandID -> S.UGen mkRandID (RandID r a') = S.mkOsc r "RandID" [a'] 1
+ Sound/SC3/UGen/Record/RedDPCMdecode.hs view
@@ -0,0 +1,17 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RedDPCMdecode where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RedDPCMdecode = RedDPCMdecode {+ rate :: S.Rate,+ in :: S.UGen+ } deriving (Show)+redDPCMdecode :: RedDPCMdecode+redDPCMdecode = RedDPCMdecode {+ rate = S.AR,+ in = 0.0+ }+mkRedDPCMdecode :: RedDPCMdecode -> S.UGen+mkRedDPCMdecode (RedDPCMdecode r a') = S.mkOsc r "RedDPCMdecode" [a'] 1+instance Make RedDPCMdecode where+ ugen = mkRedDPCMdecode
+ Sound/SC3/UGen/Record/RedDPCMencode.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RedDPCMencode where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RedDPCMencode = RedDPCMencode {+ rate :: S.Rate,+ in :: S.UGen,+ round :: S.UGen+ } deriving (Show)+redDPCMencode :: RedDPCMencode+redDPCMencode = RedDPCMencode {+ rate = S.AR,+ in = 0.0,+ round = 0.0+ }+mkRedDPCMencode :: RedDPCMencode -> S.UGen+mkRedDPCMencode (RedDPCMencode r a' b') = S.mkOsc r "RedDPCMencode" [a',b'] 1+instance Make RedDPCMencode where+ ugen = mkRedDPCMencode
+ Sound/SC3/UGen/Record/RedLbyl.hs view
@@ -0,0 +1,21 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RedLbyl where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RedLbyl = RedLbyl {+ rate :: S.Rate,+ in :: S.UGen,+ thresh :: S.UGen,+ samples :: S.UGen+ } deriving (Show)+redLbyl :: RedLbyl+redLbyl = RedLbyl {+ rate = S.AR,+ in = 0.0,+ thresh = 0.5,+ samples = 2.0+ }+mkRedLbyl :: RedLbyl -> S.UGen+mkRedLbyl (RedLbyl r a' b' c') = S.mkOsc r "RedLbyl" [a',b',c'] 1+instance Make RedLbyl where+ ugen = mkRedLbyl
+ Sound/SC3/UGen/Record/RedNoise.hs view
@@ -0,0 +1,17 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RedNoise where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RedNoise = RedNoise {+ rate :: S.Rate,+ clock :: S.UGen+ } deriving (Show)+redNoise :: RedNoise+redNoise = RedNoise {+ rate = S.AR,+ clock = 0.0+ }+mkRedNoise :: RedNoise -> S.UGen+mkRedNoise (RedNoise r a') = S.mkOsc r "RedNoise" [a'] 1+instance Make RedNoise where+ ugen = mkRedNoise
+ Sound/SC3/UGen/Record/RedPhasor.hs view
@@ -0,0 +1,29 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RedPhasor where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RedPhasor = RedPhasor {+ rate :: S.Rate,+ trig :: S.UGen,+ rate :: S.UGen,+ start :: S.UGen,+ end :: S.UGen,+ loop :: S.UGen,+ loopstart :: S.UGen,+ loopend :: S.UGen+ } deriving (Show)+redPhasor :: RedPhasor+redPhasor = RedPhasor {+ rate = S.AR,+ trig = 0.0,+ rate = 1.0,+ start = 0.0,+ end = 1.0,+ loop = 0.0,+ loopstart = 0.0,+ loopend = 1.0+ }+mkRedPhasor :: RedPhasor -> S.UGen+mkRedPhasor (RedPhasor r a' b' c' d' e' f' g') = S.mkOsc r "RedPhasor" [a',b',c',d',e',f',g'] 1+instance Make RedPhasor where+ ugen = mkRedPhasor
+ Sound/SC3/UGen/Record/RedPhasor2.hs view
@@ -0,0 +1,29 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.RedPhasor2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RedPhasor2 = RedPhasor2 {+ rate :: S.Rate,+ trig :: S.UGen,+ rate :: S.UGen,+ start :: S.UGen,+ end :: S.UGen,+ loop :: S.UGen,+ loopstart :: S.UGen,+ loopend :: S.UGen+ } deriving (Show)+redPhasor2 :: RedPhasor2+redPhasor2 = RedPhasor2 {+ rate = S.AR,+ trig = 0.0,+ rate = 1.0,+ start = 0.0,+ end = 1.0,+ loop = 0.0,+ loopstart = 0.0,+ loopend = 1.0+ }+mkRedPhasor2 :: RedPhasor2 -> S.UGen+mkRedPhasor2 (RedPhasor2 r a' b' c' d' e' f' g') = S.mkOsc r "RedPhasor2" [a',b',c',d',e',f',g'] 1+instance Make RedPhasor2 where+ ugen = mkRedPhasor2
Sound/SC3/UGen/Record/RegaliaMitraEQ.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.RegaliaMitraEQ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data RegaliaMitraEQ = RegaliaMitraEQ {- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, rq :: S.UGen, k :: S.UGen } deriving (Show) regaliaMitraEQ :: RegaliaMitraEQ regaliaMitraEQ = RegaliaMitraEQ {- input = 0.0,+ in = 0.0, freq = 440.0, rq = 0.1, k = 0.0
Sound/SC3/UGen/Record/ReplaceOut.hs view
@@ -5,13 +5,13 @@ data ReplaceOut = ReplaceOut { rate :: S.Rate, bus :: S.UGen,- input :: S.UGen+ channelsArray :: S.UGen } deriving (Show) replaceOut :: ReplaceOut replaceOut = ReplaceOut { rate = S.AR, bus = 0.0,- input = 0.0+ channelsArray = 0.0 } mkReplaceOut :: ReplaceOut -> S.UGen mkReplaceOut (ReplaceOut r a' b') = S.mkOsc r "ReplaceOut" [a',b'] 1
Sound/SC3/UGen/Record/Resonz.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Resonz = Resonz { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, bwr :: S.UGen } deriving (Show) resonz :: Resonz resonz = Resonz { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, bwr = 1.0 }
Sound/SC3/UGen/Record/Ringz.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Ringz = Ringz { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, decaytime :: S.UGen } deriving (Show) ringz :: Ringz ringz = Ringz { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, decaytime = 1.0 }
Sound/SC3/UGen/Record/RosslerL.hs view
@@ -1,4 +1,4 @@--- | Rossler chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.RosslerL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/RosslerResL.hs view
@@ -1,9 +1,9 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.RosslerResL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data RosslerResL = RosslerResL {- input :: S.UGen,+ in :: S.UGen, stiff :: S.UGen, freq :: S.UGen, a :: S.UGen,@@ -16,7 +16,7 @@ } deriving (Show) rosslerResL :: RosslerResL rosslerResL = RosslerResL {- input = 0.0,+ in = 0.0, stiff = 1.0, freq = 22050.0, a = 0.2,
Sound/SC3/UGen/Record/Rotate.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Rotate where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -7,7 +7,7 @@ x :: S.UGen, y :: S.UGen, z :: S.UGen,- rotate_ :: S.UGen+ rotate :: S.UGen } deriving (Show) rotate :: Rotate rotate = Rotate {@@ -15,7 +15,7 @@ x = 0.0, y = 0.0, z = 0.0,- rotate_ = 0.0+ rotate = 0.0 } mkRotate :: Rotate -> S.UGen mkRotate (Rotate a' b' c' d' e') = S.mkOsc S.AR "Rotate" [a',b',c',d',e'] 4
Sound/SC3/UGen/Record/RunningMax.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data RunningMax = RunningMax { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen } deriving (Show) runningMax :: RunningMax runningMax = RunningMax { rate = S.AR,- input = 0.0,+ in = 0.0, trig = 0.0 } mkRunningMax :: RunningMax -> S.UGen
Sound/SC3/UGen/Record/RunningMin.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data RunningMin = RunningMin { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen } deriving (Show) runningMin :: RunningMin runningMin = RunningMin { rate = S.AR,- input = 0.0,+ in = 0.0, trig = 0.0 } mkRunningMin :: RunningMin -> S.UGen
Sound/SC3/UGen/Record/RunningSum.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data RunningSum = RunningSum { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, numsamp :: S.UGen } deriving (Show) runningSum :: RunningSum runningSum = RunningSum { rate = S.AR,- input = 0.0,+ in = 0.0, numsamp = 40.0 } mkRunningSum :: RunningSum -> S.UGen
+ Sound/SC3/UGen/Record/SID6581f.hs view
@@ -0,0 +1,65 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.SID6581f where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SID6581f = SID6581f {+ freqLo0 :: S.UGen,+ freqHi0 :: S.UGen,+ pwLo0 :: S.UGen,+ pwHi0 :: S.UGen,+ ctrl0 :: S.UGen,+ atkDcy0 :: S.UGen,+ susRel0 :: S.UGen,+ freqLo1 :: S.UGen,+ freqHi1 :: S.UGen,+ pwLo1 :: S.UGen,+ pwHi1 :: S.UGen,+ ctrl1 :: S.UGen,+ atkDcy1 :: S.UGen,+ susRel1 :: S.UGen,+ freqLo2 :: S.UGen,+ freqHi2 :: S.UGen,+ pwLo2 :: S.UGen,+ pwHi2 :: S.UGen,+ ctrl2 :: S.UGen,+ atkDcy2 :: S.UGen,+ susRel2 :: S.UGen,+ fcLo :: S.UGen,+ fcHi :: S.UGen,+ resFilt :: S.UGen,+ modeVol :: S.UGen,+ rate :: S.UGen+ } deriving (Show)+sID6581f :: SID6581f+sID6581f = SID6581f {+ freqLo0 = 0.0,+ freqHi0 = 0.0,+ pwLo0 = 0.0,+ pwHi0 = 0.0,+ ctrl0 = 0.0,+ atkDcy0 = 0.0,+ susRel0 = 0.0,+ freqLo1 = 0.0,+ freqHi1 = 0.0,+ pwLo1 = 0.0,+ pwHi1 = 0.0,+ ctrl1 = 0.0,+ atkDcy1 = 0.0,+ susRel1 = 0.0,+ freqLo2 = 0.0,+ freqHi2 = 0.0,+ pwLo2 = 0.0,+ pwHi2 = 0.0,+ ctrl2 = 0.0,+ atkDcy2 = 0.0,+ susRel2 = 0.0,+ fcLo = 0.0,+ fcHi = 0.0,+ resFilt = 0.0,+ modeVol = 0.0,+ rate = 1.0+ }+mkSID6581f :: SID6581f -> S.UGen+mkSID6581f (SID6581f a' b' c' d' e' f' g' h' i' j' k' l' m' n' o' p' q' r' s' t' u' v' w' x' y' z') = S.mkOsc S.AR "SID6581f" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o',p',q',r',s',t',u',v',w',x',y',z'] 1+instance Make SID6581f where+ ugen = mkSID6581f
Sound/SC3/UGen/Record/SLOnset.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SLOnset where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SMS.hs view
@@ -1,4 +1,4 @@--- | Spectral Modeling Synthesis+-- | (Undocumented class) module Sound.SC3.UGen.Record.SMS where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
+ Sound/SC3/UGen/Record/SN76489.hs view
@@ -0,0 +1,31 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.SN76489 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SN76489 = SN76489 {+ tone0 :: S.UGen,+ tone1 :: S.UGen,+ tone2 :: S.UGen,+ noise :: S.UGen,+ vol0 :: S.UGen,+ vol1 :: S.UGen,+ vol2 :: S.UGen,+ vol3 :: S.UGen,+ rate :: S.UGen+ } deriving (Show)+sN76489 :: SN76489+sN76489 = SN76489 {+ tone0 = 512.0,+ tone1 = 0.0,+ tone2 = 0.0,+ noise = 0.0,+ vol0 = 15.0,+ vol1 = 0.0,+ vol2 = 0.0,+ vol3 = 0.0,+ rate = 1.0+ }+mkSN76489 :: SN76489 -> S.UGen+mkSN76489 (SN76489 a' b' c' d' e' f' g' h' i') = S.mkOsc S.AR "SN76489" [a',b',c',d',e',f',g',h',i'] 1+instance Make SN76489 where+ ugen = mkSN76489
Sound/SC3/UGen/Record/SOMAreaWr.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SOMAreaWr where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SOMRd.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SOMRd where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SOMTrain.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SOMTrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SOS.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data SOS = SOS { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, a0 :: S.UGen, a1 :: S.UGen, a2 :: S.UGen,@@ -14,7 +14,7 @@ sOS :: SOS sOS = SOS { rate = S.AR,- input = 0.0,+ in = 0.0, a0 = 0.0, a1 = 0.0, a2 = 0.0,
Sound/SC3/UGen/Record/SVF.hs view
@@ -1,4 +1,4 @@--- | 12db/Oct State Variable Filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.SVF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SawDPW.hs view
@@ -1,4 +1,4 @@--- | super-efficient sawtooth oscillator with low aliasing+-- | (Undocumented class) module Sound.SC3.UGen.Record.SawDPW where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Schmidt.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Schmidt = Schmidt { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) schmidt :: Schmidt schmidt = Schmidt { rate = S.AR,- input = 0.0,+ in = 0.0, lo = 0.0, hi = 1.0 }
Sound/SC3/UGen/Record/ScopeOut2.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.ScopeOut2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SendTrig.hs view
@@ -4,15 +4,15 @@ import Sound.SC3.UGen.Record data SendTrig = SendTrig { rate :: S.Rate,- input :: S.UGen,- id_ :: S.UGen,+ in :: S.UGen,+ id :: S.UGen, value :: S.UGen } deriving (Show) sendTrig :: SendTrig sendTrig = SendTrig { rate = S.AR,- input = 0.0,- id_ = 0.0,+ in = 0.0,+ id = 0.0, value = 0.0 } mkSendTrig :: SendTrig -> S.UGen
+ Sound/SC3/UGen/Record/SensoryDissonance.hs view
@@ -0,0 +1,23 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.SensoryDissonance where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SensoryDissonance = SensoryDissonance {+ fft :: S.UGen,+ maxpeaks :: S.UGen,+ peakthreshold :: S.UGen,+ norm :: S.UGen,+ clamp :: S.UGen+ } deriving (Show)+sensoryDissonance :: SensoryDissonance+sensoryDissonance = SensoryDissonance {+ fft = 0.0,+ maxpeaks = 100.0,+ peakthreshold = 0.1,+ norm = 0.0,+ clamp = 1.0+ }+mkSensoryDissonance :: SensoryDissonance -> S.UGen+mkSensoryDissonance (SensoryDissonance a' b' c' d' e') = S.mkOsc S.KR "SensoryDissonance" [a',b',c',d',e'] 1+instance Make SensoryDissonance where+ ugen = mkSensoryDissonance
Sound/SC3/UGen/Record/SetBuf.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SetBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Shaper.hs view
@@ -5,13 +5,13 @@ data Shaper = Shaper { rate :: S.Rate, bufnum :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) shaper :: Shaper shaper = Shaper { rate = S.AR, bufnum = 0.0,- input = 0.0+ in = 0.0 } mkShaper :: Shaper -> S.UGen mkShaper (Shaper r a' b') = S.mkOsc r "Shaper" [a',b'] 1
@@ -1,16 +0,0 @@-module Sound.SC3.UGen.Record.SharedIn where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data SharedIn = SharedIn {- bus :: S.UGen,- numChannels :: S.UGen- } deriving (Show)-sharedIn :: SharedIn-sharedIn = SharedIn {- bus = 0.0,- numChannels = 1.0- }-mkSharedIn :: SharedIn -> S.UGen-mkSharedIn (SharedIn a' b') = S.mkOsc S.KR "SharedIn" [a',b'] 1-instance Make SharedIn where- ugen = mkSharedIn
@@ -1,16 +0,0 @@-module Sound.SC3.UGen.Record.SharedOut where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data SharedOut = SharedOut {- bus :: S.UGen,- input :: S.UGen- } deriving (Show)-sharedOut :: SharedOut-sharedOut = SharedOut {- bus = 0.0,- input = 0.0- }-mkSharedOut :: SharedOut -> S.UGen-mkSharedOut (SharedOut a' b') = S.mkOsc S.KR "SharedOut" [a',b'] 1-instance Make SharedOut where- ugen = mkSharedOut
Sound/SC3/UGen/Record/Sieve1.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Sieve1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
− Sound/SC3/UGen/Record/Silent.hs
@@ -1,14 +0,0 @@-module Sound.SC3.UGen.Record.Silent where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data Silent = Silent {- numChannels :: S.UGen- } deriving (Show)-silent :: Silent-silent = Silent {- numChannels = 1.0- }-mkSilent :: Silent -> S.UGen-mkSilent (Silent a') = S.mkOsc S.AR "Silent" [a'] 1-instance Make Silent where- ugen = mkSilent
Sound/SC3/UGen/Record/SinGrain.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SinGrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SinGrainB.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SinGrainB where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SinGrainBBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SinGrainBBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SinGrainBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SinGrainBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SinGrainI.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SinGrainI where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SinGrainIBF.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SinGrainIBF where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SinTone.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SinTone where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/SineShaper.hs view
@@ -1,14 +1,14 @@--- | port of some ladspa plugins+-- | (Undocumented class) module Sound.SC3.UGen.Record.SineShaper where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SineShaper = SineShaper {- input :: S.UGen,+ in :: S.UGen, limit :: S.UGen } deriving (Show) sineShaper :: SineShaper sineShaper = SineShaper {- input = 0.0,+ in = 0.0, limit = 1.0 } mkSineShaper :: SineShaper -> S.UGen
Sound/SC3/UGen/Record/SkipNeedle.hs view
@@ -1,16 +1,16 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SkipNeedle where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SkipNeedle = SkipNeedle { range :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, offset :: S.UGen } deriving (Show) skipNeedle :: SkipNeedle skipNeedle = SkipNeedle { range = 44100.0,- rate_ = 10.0,+ rate = 10.0, offset = 0.0 } mkSkipNeedle :: SkipNeedle -> S.UGen
Sound/SC3/UGen/Record/Slew.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Slew = Slew { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, up :: S.UGen, dn :: S.UGen } deriving (Show) slew :: Slew slew = Slew { rate = S.AR,- input = 0.0,+ in = 0.0, up = 1.0, dn = 1.0 }
Sound/SC3/UGen/Record/Slope.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data Slope = Slope { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) slope :: Slope slope = Slope { rate = S.AR,- input = 0.0+ in = 0.0 } mkSlope :: Slope -> S.UGen mkSlope (Slope r a') = S.mkOsc r "Slope" [a'] 1
+ Sound/SC3/UGen/Record/Slub.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.Slub where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Slub = Slub {+ rate :: S.Rate,+ trig :: S.UGen,+ spike :: S.UGen+ } deriving (Show)+slub :: Slub+slub = Slub {+ rate = S.AR,+ trig = 0.0,+ spike = 4.04+ }+mkSlub :: Slub -> S.UGen+mkSlub (Slub r a' b') = S.mkOsc r "Slub" [a',b'] 1+instance Make Slub where+ ugen = mkSlub
Sound/SC3/UGen/Record/SmoothDecimator.hs view
@@ -1,16 +1,16 @@--- | port of some ladspa plugins+-- | (Undocumented class) module Sound.SC3.UGen.Record.SmoothDecimator where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SmoothDecimator = SmoothDecimator {- input :: S.UGen,- rate_ :: S.UGen,+ in :: S.UGen,+ rate :: S.UGen, smoothing :: S.UGen } deriving (Show) smoothDecimator :: SmoothDecimator smoothDecimator = SmoothDecimator {- input = 0.0,- rate_ = 44100.0,+ in = 0.0,+ rate = 44100.0, smoothing = 0.5 } mkSmoothDecimator :: SmoothDecimator -> S.UGen
Sound/SC3/UGen/Record/SoftClipAmp.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SoftClipAmp where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SoftClipAmp = SoftClipAmp {- input :: S.UGen,+ in :: S.UGen, pregain :: S.UGen } deriving (Show) softClipAmp :: SoftClipAmp softClipAmp = SoftClipAmp {- input = 0.0,+ in = 0.0, pregain = 1.0 } mkSoftClipAmp :: SoftClipAmp -> S.UGen
Sound/SC3/UGen/Record/SoftClipAmp4.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SoftClipAmp4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SoftClipAmp4 = SoftClipAmp4 {- input :: S.UGen,+ in :: S.UGen, pregain :: S.UGen } deriving (Show) softClipAmp4 :: SoftClipAmp4 softClipAmp4 = SoftClipAmp4 {- input = 0.0,+ in = 0.0, pregain = 1.0 } mkSoftClipAmp4 :: SoftClipAmp4 -> S.UGen
Sound/SC3/UGen/Record/SoftClipAmp8.hs view
@@ -1,14 +1,14 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SoftClipAmp8 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SoftClipAmp8 = SoftClipAmp8 {- input :: S.UGen,+ in :: S.UGen, pregain :: S.UGen } deriving (Show) softClipAmp8 :: SoftClipAmp8 softClipAmp8 = SoftClipAmp8 {- input = 0.0,+ in = 0.0, pregain = 1.0 } mkSoftClipAmp8 :: SoftClipAmp8 -> S.UGen
Sound/SC3/UGen/Record/SoftClipper4.hs view
@@ -1,13 +1,13 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SoftClipper4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SoftClipper4 = SoftClipper4 {- input :: S.UGen+ in :: S.UGen } deriving (Show) softClipper4 :: SoftClipper4 softClipper4 = SoftClipper4 {- input = 0.0+ in = 0.0 } mkSoftClipper4 :: SoftClipper4 -> S.UGen mkSoftClipper4 (SoftClipper4 a') = S.mkOsc S.AR "SoftClipper4" [a'] 1
Sound/SC3/UGen/Record/SoftClipper8.hs view
@@ -1,13 +1,13 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SoftClipper8 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SoftClipper8 = SoftClipper8 {- input :: S.UGen+ in :: S.UGen } deriving (Show) softClipper8 :: SoftClipper8 softClipper8 = SoftClipper8 {- input = 0.0+ in = 0.0 } mkSoftClipper8 :: SoftClipper8 -> S.UGen mkSoftClipper8 (SoftClipper8 a') = S.mkOsc S.AR "SoftClipper8" [a'] 1
Sound/SC3/UGen/Record/SortBuf.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SortBuf where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
+ Sound/SC3/UGen/Record/SpectralEntropy.hs view
@@ -0,0 +1,19 @@+-- | (Undocumented class)+module Sound.SC3.UGen.Record.SpectralEntropy where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SpectralEntropy = SpectralEntropy {+ fft :: S.UGen,+ fftsize :: S.UGen,+ numbands :: S.UGen+ } deriving (Show)+spectralEntropy :: SpectralEntropy+spectralEntropy = SpectralEntropy {+ fft = 0.0,+ fftsize = 2048.0,+ numbands = 1.0+ }+mkSpectralEntropy :: SpectralEntropy -> S.UGen+mkSpectralEntropy (SpectralEntropy a' b' c') = S.mkOsc S.KR "SpectralEntropy" [a',b',c'] 1+instance Make SpectralEntropy where+ ugen = mkSpectralEntropy
+ Sound/SC3/UGen/Record/Splay.hs view
@@ -0,0 +1,25 @@+-- | Splay spreads an array of channels across the stereo field+module Sound.SC3.UGen.Record.Splay where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Splay = Splay {+ rate :: S.Rate,+ inArray :: S.UGen,+ spread :: S.UGen,+ level :: S.UGen,+ center :: S.UGen,+ levelComp :: S.UGen+ } deriving (Show)+splay :: Splay+splay = Splay {+ rate = S.AR,+ inArray = 0.0,+ spread = 1.0,+ level = 1.0,+ center = 0.0,+ levelComp = 1.0+ }+mkSplay :: Splay -> S.UGen+mkSplay (Splay r a' b' c' d' e') = S.mkOsc r "Splay" [a',b',c',d',e'] 1+instance Make Splay where+ ugen = mkSplay
+ Sound/SC3/UGen/Record/SplayAz.hs view
@@ -0,0 +1,29 @@+-- | Spreads an array of channels across a ring of channels+module Sound.SC3.UGen.Record.SplayAz where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SplayAz = SplayAz {+ rate :: S.Rate,+ inArray :: S.UGen,+ spread :: S.UGen,+ level :: S.UGen,+ width :: S.UGen,+ center :: S.UGen,+ orientation :: S.UGen,+ levelComp :: S.UGen+ } deriving (Show)+splayAz :: SplayAz+splayAz = SplayAz {+ rate = S.AR,+ inArray = 0.0,+ spread = 1.0,+ level = 1.0,+ width = 2.0,+ center = 0.0,+ orientation = 0.5,+ levelComp = 1.0+ }+mkSplayAz :: SplayAz -> S.UGen+mkSplayAz (SplayAz r a' b' c' d' e' f' g') = S.mkOsc r "SplayAz" [a',b',c',d',e',f',g'] 1+instance Make SplayAz where+ ugen = mkSplayAz
Sound/SC3/UGen/Record/Spreader.hs view
@@ -1,15 +1,15 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Spreader where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Spreader = Spreader {- input :: S.UGen,+ in :: S.UGen, theta :: S.UGen, filtsPerOctave :: S.UGen } deriving (Show) spreader :: Spreader spreader = Spreader {- input = 0.0,+ in = 0.0, theta = 1.5707963267949, filtsPerOctave = 8.0 }
Sound/SC3/UGen/Record/Spring.hs view
@@ -4,15 +4,15 @@ import Sound.SC3.UGen.Record data Spring = Spring { rate :: S.Rate,- input :: S.UGen,- spring_ :: S.UGen,+ in :: S.UGen,+ spring :: S.UGen, damp :: S.UGen } deriving (Show) spring :: Spring spring = Spring { rate = S.AR,- input = 0.0,- spring_ = 1.0,+ in = 0.0,+ spring = 1.0, damp = 0.0 } mkSpring :: Spring -> S.UGen
Sound/SC3/UGen/Record/SpruceBudworm.hs view
@@ -1,10 +1,10 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.SpruceBudworm where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SpruceBudworm = SpruceBudworm { reset :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, k1 :: S.UGen, k2 :: S.UGen, alpha :: S.UGen,@@ -17,7 +17,7 @@ spruceBudworm :: SpruceBudworm spruceBudworm = SpruceBudworm { reset = 0.0,- rate_ = 0.1,+ rate = 0.1, k1 = 27.9, k2 = 1.5, alpha = 0.1,
Sound/SC3/UGen/Record/Squiz.hs view
@@ -1,10 +1,10 @@--- | Wave squeezer. Maybe a kind of pitch shifter.+-- | (Undocumented class) module Sound.SC3.UGen.Record.Squiz where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Squiz = Squiz { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, pitchratio :: S.UGen, zcperchunk :: S.UGen, memlen :: S.UGen@@ -12,7 +12,7 @@ squiz :: Squiz squiz = Squiz { rate = S.AR,- input = 0.0,+ in = 0.0, pitchratio = 2.0, zcperchunk = 1.0, memlen = 0.1
Sound/SC3/UGen/Record/Standard2DC.hs view
@@ -1,4 +1,4 @@--- | standard map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Standard2DC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Standard2DL.hs view
@@ -1,4 +1,4 @@--- | standard map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Standard2DL where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Standard2DN.hs view
@@ -1,4 +1,4 @@--- | standard map 2D chaotic generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.Standard2DN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StandardTrig.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StandardTrig where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Stepper.hs view
@@ -6,8 +6,8 @@ rate :: S.Rate, trig :: S.UGen, reset :: S.UGen,- min_ :: S.UGen,- max_ :: S.UGen,+ min :: S.UGen,+ max :: S.UGen, step :: S.UGen, resetval :: S.UGen } deriving (Show)@@ -16,8 +16,8 @@ rate = S.AR, trig = 0.0, reset = 0.0,- min_ = 0.0,- max_ = 7.0,+ min = 0.0,+ max = 7.0, step = 1.0, resetval = 0.0 }
Sound/SC3/UGen/Record/StereoConvolution2L.hs view
@@ -3,7 +3,7 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data StereoConvolution2L = StereoConvolution2L {- input :: S.UGen,+ in :: S.UGen, kernelL :: S.UGen, kernelR :: S.UGen, trigger :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) stereoConvolution2L :: StereoConvolution2L stereoConvolution2L = StereoConvolution2L {- input = 0.0,+ in = 0.0, kernelL = 0.0, kernelR = 0.0, trigger = 0.0,
Sound/SC3/UGen/Record/StkBandedWG.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkBandedWG where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkBeeThree.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkBeeThree where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkBlowHole.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkBlowHole where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkBowed.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkBowed where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkClarinet.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkClarinet where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkFlute.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkFlute where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkMandolin.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkMandolin where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkModalBar.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkModalBar where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkMoog.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkMoog where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkPluck.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkPluck where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkSaxofony.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkSaxofony where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkShakers.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkShakers where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/StkVoicForm.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.StkVoicForm where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Streson.hs view
@@ -1,4 +1,4 @@--- | String resonance filter+-- | (Undocumented class) module Sound.SC3.UGen.Record.Streson where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Summer.hs view
@@ -1,4 +1,4 @@--- | Pulse counter with floating point steps+-- | (Undocumented class) module Sound.SC3.UGen.Record.Summer where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Sweep.hs view
@@ -5,13 +5,13 @@ data Sweep = Sweep { rate :: S.Rate, trig :: S.UGen,- rate_ :: S.UGen+ rate :: S.UGen } deriving (Show) sweep :: Sweep sweep = Sweep { rate = S.AR, trig = 0.0,- rate_ = 1.0+ rate = 1.0 } mkSweep :: Sweep -> S.UGen mkSweep (Sweep r a' b') = S.mkOsc r "Sweep" [a',b'] 1
Sound/SC3/UGen/Record/SwitchDelay.hs view
@@ -1,9 +1,9 @@--- | feedback delay line implementing switch-and-ramp buffer jumping+-- | (Undocumented class) module Sound.SC3.UGen.Record.SwitchDelay where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SwitchDelay = SwitchDelay {- input :: S.UGen,+ in :: S.UGen, drylevel :: S.UGen, wetlevel :: S.UGen, delaytime :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) switchDelay :: SwitchDelay switchDelay = SwitchDelay {- input = 0.0,+ in = 0.0, drylevel = 1.0, wetlevel = 1.0, delaytime = 1.0,
Sound/SC3/UGen/Record/T2A.hs view
@@ -3,12 +3,12 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data T2A = T2A {- input :: S.UGen,+ in :: S.UGen, offset :: S.UGen } deriving (Show) t2A :: T2A t2A = T2A {- input = 0.0,+ in = 0.0, offset = 0.0 } mkT2A :: T2A -> S.UGen
Sound/SC3/UGen/Record/T2K.hs view
@@ -3,11 +3,11 @@ import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data T2K = T2K {- input :: S.UGen+ in :: S.UGen } deriving (Show) t2K :: T2K t2K = T2K {- input = 0.0+ in = 0.0 } mkT2K :: T2K -> S.UGen mkT2K (T2K a') = S.mkOsc S.KR "T2K" [a'] 1
Sound/SC3/UGen/Record/TBall.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data TBall = TBall { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, g :: S.UGen, damp :: S.UGen, friction :: S.UGen@@ -12,7 +12,7 @@ tBall :: TBall tBall = TBall { rate = S.AR,- input = 0.0,+ in = 0.0, g = 10.0, damp = 0.0, friction = 0.01
Sound/SC3/UGen/Record/TBetaRand.hs view
@@ -1,4 +1,4 @@--- | triggered beta random distribution+-- | (Undocumented class) module Sound.SC3.UGen.Record.TBetaRand where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/TBrownRand.hs view
@@ -1,4 +1,4 @@--- | triggered random walk generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.TBrownRand where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/TDelay.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data TDelay = TDelay { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, dur :: S.UGen } deriving (Show) tDelay :: TDelay tDelay = TDelay { rate = S.AR,- input = 0.0,+ in = 0.0, dur = 0.1 } mkTDelay :: TDelay -> S.UGen
Sound/SC3/UGen/Record/TGaussRand.hs view
@@ -1,4 +1,4 @@--- | triggered gaussian random distribution+-- | (Undocumented class) module Sound.SC3.UGen.Record.TGaussRand where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/TGrains.hs view
@@ -5,7 +5,7 @@ data TGrains = TGrains { trigger :: S.UGen, bufnum :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, centerPos :: S.UGen, dur :: S.UGen, pan :: S.UGen,@@ -16,7 +16,7 @@ tGrains = TGrains { trigger = 0.0, bufnum = 0.0,- rate_ = 1.0,+ rate = 1.0, centerPos = 0.0, dur = 0.1, pan = 0.0,
Sound/SC3/UGen/Record/TGrains2.hs view
@@ -1,11 +1,11 @@--- | buffer granulator with linear att/dec+-- | (Undocumented class) module Sound.SC3.UGen.Record.TGrains2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data TGrains2 = TGrains2 { trigger :: S.UGen, bufnum :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, centerPos :: S.UGen, dur :: S.UGen, pan :: S.UGen,@@ -18,7 +18,7 @@ tGrains2 = TGrains2 { trigger = 0.0, bufnum = 0.0,- rate_ = 1.0,+ rate = 1.0, centerPos = 0.0, dur = 0.1, pan = 0.0,
Sound/SC3/UGen/Record/TGrains3.hs view
@@ -1,11 +1,11 @@--- | buffer granulator with user envelope+-- | (Undocumented class) module Sound.SC3.UGen.Record.TGrains3 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data TGrains3 = TGrains3 { trigger :: S.UGen, bufnum :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, centerPos :: S.UGen, dur :: S.UGen, pan :: S.UGen,@@ -19,7 +19,7 @@ tGrains3 = TGrains3 { trigger = 0.0, bufnum = 0.0,- rate_ = 1.0,+ rate = 1.0, centerPos = 0.0, dur = 0.1, pan = 0.0,
Sound/SC3/UGen/Record/TPV.hs view
@@ -1,4 +1,4 @@--- | Tracking Phase Vocoder+-- | (Undocumented class) module Sound.SC3.UGen.Record.TPV where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/TTendency.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.TTendency where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
− Sound/SC3/UGen/Record/TWChoose.hs
@@ -1,23 +0,0 @@--- | Randomly select one of several inputs-module Sound.SC3.UGen.Record.TWChoose where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data TWChoose = TWChoose {- rate :: S.Rate,- trig :: S.UGen,- array :: S.UGen,- weights :: S.UGen,- normalize :: S.UGen- } deriving (Show)-tWChoose :: TWChoose-tWChoose = TWChoose {- rate = S.AR,- trig = 0.0,- array = 0.0,- weights = 0.0,- normalize = 0.0- }-mkTWChoose :: TWChoose -> S.UGen-mkTWChoose (TWChoose r a' b' c' d') = S.mkOsc r "TWChoose" [a',b',c',d'] 1-instance Make TWChoose where- ugen = mkTWChoose
Sound/SC3/UGen/Record/TWindex.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data TWindex = TWindex { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, array :: S.UGen, normalize :: S.UGen } deriving (Show) tWindex :: TWindex tWindex = TWindex { rate = S.AR,- input = 0.0,+ in = 0.0, array = 0.0, normalize = 0.0 }
Sound/SC3/UGen/Record/Tartini.hs view
@@ -1,9 +1,9 @@--- | pitch tracker+-- | (Undocumented class) module Sound.SC3.UGen.Record.Tartini where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Tartini = Tartini {- input :: S.UGen,+ in :: S.UGen, threshold :: S.UGen, n :: S.UGen, k :: S.UGen,@@ -12,7 +12,7 @@ } deriving (Show) tartini :: Tartini tartini = Tartini {- input = 0.0,+ in = 0.0, threshold = 0.93, n = 2048.0, k = 0.0,
Sound/SC3/UGen/Record/TermanWang.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.TermanWang where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Tilt.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Tilt where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -7,7 +7,7 @@ x :: S.UGen, y :: S.UGen, z :: S.UGen,- tilt_ :: S.UGen+ tilt :: S.UGen } deriving (Show) tilt :: Tilt tilt = Tilt {@@ -15,7 +15,7 @@ x = 0.0, y = 0.0, z = 0.0,- tilt_ = 0.0+ tilt = 0.0 } mkTilt :: Tilt -> S.UGen mkTilt (Tilt a' b' c' d' e') = S.mkOsc S.AR "Tilt" [a',b',c',d',e'] 4
Sound/SC3/UGen/Record/Trig.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Trig = Trig { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, dur :: S.UGen } deriving (Show) trig :: Trig trig = Trig { rate = S.AR,- input = 0.0,+ in = 0.0, dur = 0.1 } mkTrig :: Trig -> S.UGen
Sound/SC3/UGen/Record/Trig1.hs view
@@ -4,13 +4,13 @@ import Sound.SC3.UGen.Record data Trig1 = Trig1 { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, dur :: S.UGen } deriving (Show) trig1 :: Trig1 trig1 = Trig1 { rate = S.AR,- input = 0.0,+ in = 0.0, dur = 0.1 } mkTrig1 :: Trig1 -> S.UGen
Sound/SC3/UGen/Record/TrigAvg.hs view
@@ -1,14 +1,14 @@--- | triggered signal averager+-- | (Undocumented class) module Sound.SC3.UGen.Record.TrigAvg where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data TrigAvg = TrigAvg {- input :: S.UGen,+ in :: S.UGen, trig :: S.UGen } deriving (Show) trigAvg :: TrigAvg trigAvg = TrigAvg {- input = 0.0,+ in = 0.0, trig = 0.0 } mkTrigAvg :: TrigAvg -> S.UGen
Sound/SC3/UGen/Record/Tumble.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.Tumble where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/TwoPole.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data TwoPole = TwoPole { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, radius :: S.UGen } deriving (Show) twoPole :: TwoPole twoPole = TwoPole { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, radius = 0.8 }
Sound/SC3/UGen/Record/TwoTube.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.TwoTube where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/TwoZero.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data TwoZero = TwoZero { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, freq :: S.UGen, radius :: S.UGen } deriving (Show) twoZero :: TwoZero twoZero = TwoZero { rate = S.AR,- input = 0.0,+ in = 0.0, freq = 440.0, radius = 0.8 }
Sound/SC3/UGen/Record/UHJ2B.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.UHJ2B where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/VBAP.hs view
@@ -1,10 +1,10 @@--- | Vector Base Amplitude Panner+-- | (Undocumented class) module Sound.SC3.UGen.Record.VBAP where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data VBAP = VBAP { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, bufnum :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen,@@ -13,7 +13,7 @@ vBAP :: VBAP vBAP = VBAP { rate = S.AR,- input = 0.0,+ in = 0.0, bufnum = 0.0, azimuth = 0.0, elevation = 1.0,
Sound/SC3/UGen/Record/VDiskIn.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data VDiskIn = VDiskIn { bufnum :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, loop :: S.UGen, sendID :: S.UGen } deriving (Show) vDiskIn :: VDiskIn vDiskIn = VDiskIn { bufnum = 0.0,- rate_ = 1.0,+ rate = 1.0, loop = 0.0, sendID = 0.0 }
Sound/SC3/UGen/Record/VMScan2D.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.VMScan2D where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/VOSIM.hs view
@@ -1,4 +1,4 @@--- | vosim pulse generator+-- | (Undocumented class) module Sound.SC3.UGen.Record.VOSIM where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/VarLag.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.UGen.Record data VarLag = VarLag { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, time :: S.UGen, curvature :: S.UGen, warp :: S.UGen,@@ -13,7 +13,7 @@ varLag :: VarLag varLag = VarLag { rate = S.AR,- input = 0.0,+ in = 0.0, time = 0.1, curvature = 0.0, warp = 5.0,
Sound/SC3/UGen/Record/Vibrato.hs view
@@ -5,7 +5,7 @@ data Vibrato = Vibrato { rate :: S.Rate, freq :: S.UGen,- rate_ :: S.UGen,+ rate :: S.UGen, depth :: S.UGen, delay :: S.UGen, onset :: S.UGen,@@ -17,7 +17,7 @@ vibrato = Vibrato { rate = S.AR, freq = 440.0,- rate_ = 6.0,+ rate = 6.0, depth = 0.02, delay = 0.0, onset = 0.0,
Sound/SC3/UGen/Record/WAmp.hs view
@@ -1,14 +1,14 @@--- | windowed amplitude follower+-- | (Undocumented class) module Sound.SC3.UGen.Record.WAmp where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data WAmp = WAmp {- input :: S.UGen,+ in :: S.UGen, winSize :: S.UGen } deriving (Show) wAmp :: WAmp wAmp = WAmp {- input = 0.0,+ in = 0.0, winSize = 0.1 } mkWAmp :: WAmp -> S.UGen
Sound/SC3/UGen/Record/WalshHadamard.hs view
@@ -1,4 +1,4 @@--- | decomposition into square waves, and reconstruction+-- | (Undocumented class) module Sound.SC3.UGen.Record.WalshHadamard where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/WarpZ.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.WarpZ where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/WaveLoss.hs view
@@ -1,19 +1,19 @@--- | Lose bits of your waves+-- | (Undocumented class) module Sound.SC3.UGen.Record.WaveLoss where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data WaveLoss = WaveLoss { rate :: S.Rate,- input :: S.UGen,- drop_ :: S.UGen,+ in :: S.UGen,+ drop :: S.UGen, outof :: S.UGen, mode :: S.UGen } deriving (Show) waveLoss :: WaveLoss waveLoss = WaveLoss { rate = S.AR,- input = 0.0,- drop_ = 20.0,+ in = 0.0,+ drop = 20.0, outof = 40.0, mode = 1.0 }
Sound/SC3/UGen/Record/WaveTerrain.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.WaveTerrain where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/WaveletDaub.hs view
@@ -1,4 +1,4 @@--- | decomposition into Daub4 wavelets, and reconstruction+-- | (Undocumented class) module Sound.SC3.UGen.Record.WaveletDaub where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/WeaklyNonlinear.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.WeaklyNonlinear where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/WeaklyNonlinear2.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.WeaklyNonlinear2 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/WidthFirstUGen.hs view
@@ -1,4 +1,4 @@--- | (not documented)+-- | (Undocumented class) module Sound.SC3.UGen.Record.WidthFirstUGen where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record
Sound/SC3/UGen/Record/Wrap.hs view
@@ -4,14 +4,14 @@ import Sound.SC3.UGen.Record data Wrap = Wrap { rate :: S.Rate,- input :: S.UGen,+ in :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) wrap :: Wrap wrap = Wrap { rate = S.AR,- input = 0.0,+ in = 0.0, lo = 0.0, hi = 1.0 }
Sound/SC3/UGen/Record/WrapIndex.hs view
@@ -5,13 +5,13 @@ data WrapIndex = WrapIndex { rate :: S.Rate, bufnum :: S.UGen,- input :: S.UGen+ in :: S.UGen } deriving (Show) wrapIndex :: WrapIndex wrapIndex = WrapIndex { rate = S.AR, bufnum = 0.0,- input = 0.0+ in = 0.0 } mkWrapIndex :: WrapIndex -> S.UGen mkWrapIndex (WrapIndex r a' b') = S.mkOsc r "WrapIndex" [a',b'] 1
Sound/SC3/UGen/Record/WrapSummer.hs view
@@ -1,4 +1,4 @@--- | Pulse counter with floating point steps+-- | (Undocumented class) module Sound.SC3.UGen.Record.WrapSummer where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record@@ -6,8 +6,8 @@ rate :: S.Rate, trig :: S.UGen, step :: S.UGen,- min_ :: S.UGen,- max_ :: S.UGen,+ min :: S.UGen,+ max :: S.UGen, reset :: S.UGen, resetval :: S.UGen } deriving (Show)@@ -16,8 +16,8 @@ rate = S.AR, trig = 0.0, step = 1.0,- min_ = 0.0,- max_ = 1.0,+ min = 0.0,+ max = 1.0, reset = 0.0, resetval = 0.0 }
− Sound/SC3/UGen/Record/XFade.hs
@@ -1,14 +0,0 @@-module Sound.SC3.UGen.Record.XFade where-import qualified Sound.SC3.UGen as S-import Sound.SC3.UGen.Record-data XFade = XFade {- maxSize :: S.UGen- } deriving (Show)-xFade :: XFade-xFade = XFade {- maxSize = 0.0- }-mkXFade :: XFade -> S.UGen-mkXFade (XFade a') = S.mkOsc S.AR "XFade" [a'] 1-instance Make XFade where- ugen = mkXFade
Sound/SC3/UGen/Record/XOut.hs view
@@ -6,14 +6,14 @@ rate :: S.Rate, bus :: S.UGen, xfade :: S.UGen,- input :: S.UGen+ channelsArray :: S.UGen } deriving (Show) xOut :: XOut xOut = XOut { rate = S.AR, bus = 0.0, xfade = 0.0,- input = 0.0+ channelsArray = 0.0 } mkXOut :: XOut -> S.UGen mkXOut (XOut r a' b' c') = S.mkOsc r "XOut" [a',b',c'] 1
Sound/SC3/UGen/Record/ZeroCrossing.hs view
@@ -4,12 +4,12 @@ import Sound.SC3.UGen.Record data ZeroCrossing = ZeroCrossing { rate :: S.Rate,- input :: S.UGen+ in :: S.UGen } deriving (Show) zeroCrossing :: ZeroCrossing zeroCrossing = ZeroCrossing { rate = S.AR,- input = 0.0+ in = 0.0 } mkZeroCrossing :: ZeroCrossing -> S.UGen mkZeroCrossing (ZeroCrossing r a') = S.mkOsc r "ZeroCrossing" [a'] 1
hsc3-rec.cabal view
@@ -1,16 +1,16 @@ Name: hsc3-rec-Version: 0.12+Version: 0.14 Synopsis: Haskell SuperCollider Record Variants Description: hsc3-rec provides record variants of the unit generator constructors at hsc3. License: GPL Category: Sound-Copyright: (c) Rohan Drape and others, 2008-2012+Copyright: (c) Rohan Drape and others, 2008-2013 Author: Rohan Drape Maintainer: rd@slavepianos.org Stability: Experimental-Homepage: http://slavepianos.org/rd/?t=hsc3-rec-Tested-With: GHC == 7.0.4+Homepage: http://rd.slavepianos.org/?t=hsc3-rec+Tested-With: GHC == 7.6.1 Build-Type: Simple Cabal-Version: >= 1.8 @@ -22,7 +22,7 @@ Library Build-Depends: base == 4.*,- hsc3 == 0.12.*+ hsc3 == 0.14.* GHC-Options: -Wall -fwarn-tabs Exposed-modules: Sound.SC3.UGen.Record -- the lines below are generated by running@@ -44,6 +44,8 @@ Sound.SC3.UGen.Record.APF Sound.SC3.UGen.Record.ArrayMax Sound.SC3.UGen.Record.ArrayMin+ Sound.SC3.UGen.Record.Astrocade+ Sound.SC3.UGen.Record.Atari2600 Sound.SC3.UGen.Record.AtsAmp Sound.SC3.UGen.Record.AtsBand Sound.SC3.UGen.Record.AtsFreq@@ -56,6 +58,7 @@ Sound.SC3.UGen.Record.AudioControl Sound.SC3.UGen.Record.AudioMSG Sound.SC3.UGen.Record.AverageOutput+ Sound.SC3.UGen.Record.AY8910 Sound.SC3.UGen.Record.AY Sound.SC3.UGen.Record.B2A Sound.SC3.UGen.Record.B2Ster@@ -69,6 +72,8 @@ Sound.SC3.UGen.Record.BBlockerBuf Sound.SC3.UGen.Record.BeatTrack2 Sound.SC3.UGen.Record.BeatTrack+ Sound.SC3.UGen.Record.Beep+ Sound.SC3.UGen.Record.BeepU Sound.SC3.UGen.Record.BEQSuite Sound.SC3.UGen.Record.BFDecode1 Sound.SC3.UGen.Record.BFDecoder@@ -83,6 +88,10 @@ Sound.SC3.UGen.Record.BiPanB2 Sound.SC3.UGen.Record.BLBufRd Sound.SC3.UGen.Record.Blip+ Sound.SC3.UGen.Record.BlitB3+ Sound.SC3.UGen.Record.BlitB3Saw+ Sound.SC3.UGen.Record.BlitB3Square+ Sound.SC3.UGen.Record.BlitB3Tri Sound.SC3.UGen.Record.BLowPass Sound.SC3.UGen.Record.BLowShelf Sound.SC3.UGen.Record.BMoog@@ -123,6 +132,7 @@ Sound.SC3.UGen.Record.Changed Sound.SC3.UGen.Record.ChaosGen Sound.SC3.UGen.Record.CheckBadValues+ Sound.SC3.UGen.Record.Chromagram Sound.SC3.UGen.Record.ChuaL Sound.SC3.UGen.Record.CircleRamp Sound.SC3.UGen.Record.ClearBuf@@ -191,6 +201,8 @@ Sound.SC3.UGen.Record.DoubleWell3 Sound.SC3.UGen.Record.DoubleWell Sound.SC3.UGen.Record.Dpoll+ Sound.SC3.UGen.Record.DPW3Tri+ Sound.SC3.UGen.Record.DPW4Saw Sound.SC3.UGen.Record.Drand Sound.SC3.UGen.Record.Dreset Sound.SC3.UGen.Record.DriveNoise@@ -207,7 +219,6 @@ Sound.SC3.UGen.Record.Dust Sound.SC3.UGen.Record.Duty Sound.SC3.UGen.Record.Dwhite- Sound.SC3.UGen.Record.Dwrand Sound.SC3.UGen.Record.Dxrand Sound.SC3.UGen.Record.DynKlang Sound.SC3.UGen.Record.DynKlank@@ -218,6 +229,7 @@ Sound.SC3.UGen.Record.FBSineC Sound.SC3.UGen.Record.FBSineL Sound.SC3.UGen.Record.FBSineN+ Sound.SC3.UGen.Record.FeatureSave Sound.SC3.UGen.Record.FFTCentroid Sound.SC3.UGen.Record.FFTComplexDev Sound.SC3.UGen.Record.FFTCrest@@ -225,14 +237,12 @@ Sound.SC3.UGen.Record.FFTFlux Sound.SC3.UGen.Record.FFTFluxPos Sound.SC3.UGen.Record.FFT- Sound.SC3.UGen.Record.FFTInterleave Sound.SC3.UGen.Record.FFTMKL Sound.SC3.UGen.Record.FFTPeak Sound.SC3.UGen.Record.FFTPhaseDev Sound.SC3.UGen.Record.FFTPower Sound.SC3.UGen.Record.FFTSlope Sound.SC3.UGen.Record.FFTSpread- Sound.SC3.UGen.Record.FFTTriggered Sound.SC3.UGen.Record.FFTTrigger Sound.SC3.UGen.Record.Fhn2DC Sound.SC3.UGen.Record.Fhn2DL@@ -243,6 +253,7 @@ Sound.SC3.UGen.Record.FincoSprottM Sound.SC3.UGen.Record.FincoSprottS Sound.SC3.UGen.Record.FitzHughNagumo+ Sound.SC3.UGen.Record.FM7 Sound.SC3.UGen.Record.FMGrainBBF Sound.SC3.UGen.Record.FMGrainBF Sound.SC3.UGen.Record.FMGrainB@@ -293,6 +304,7 @@ Sound.SC3.UGen.Record.FreqShift Sound.SC3.UGen.Record.Friction Sound.SC3.UGen.Record.FSinOsc+ Sound.SC3.UGen.Record.Gammatone Sound.SC3.UGen.Record.Gate Sound.SC3.UGen.Record.GaussClass Sound.SC3.UGen.Record.GaussTrig@@ -308,6 +320,8 @@ Sound.SC3.UGen.Record.Gendy4 Sound.SC3.UGen.Record.Gendy5 Sound.SC3.UGen.Record.Getenv+ Sound.SC3.UGen.Record.GlitchBPF+ Sound.SC3.UGen.Record.GlitchBRF Sound.SC3.UGen.Record.GlitchHPF Sound.SC3.UGen.Record.GlitchRHPF Sound.SC3.UGen.Record.Goertzel@@ -318,6 +332,7 @@ Sound.SC3.UGen.Record.GravityGrid2 Sound.SC3.UGen.Record.GravityGrid Sound.SC3.UGen.Record.GVerb+ Sound.SC3.UGen.Record.HairCell Sound.SC3.UGen.Record.Hasher Sound.SC3.UGen.Record.Henon2DC Sound.SC3.UGen.Record.Henon2DL@@ -361,6 +376,7 @@ Sound.SC3.UGen.Record.KeyTrack Sound.SC3.UGen.Record.Klang Sound.SC3.UGen.Record.Klank+ Sound.SC3.UGen.Record.KMeansRT Sound.SC3.UGen.Record.KmeansToBPSet1 Sound.SC3.UGen.Record.Lag2 Sound.SC3.UGen.Record.Lag2UD@@ -405,14 +421,12 @@ Sound.SC3.UGen.Record.Line Sound.SC3.UGen.Record.Linen Sound.SC3.UGen.Record.LinExp- Sound.SC3.UGen.Record.LinLin Sound.SC3.UGen.Record.LinPan2 Sound.SC3.UGen.Record.LinRand Sound.SC3.UGen.Record.LinXFade2 Sound.SC3.UGen.Record.ListDUGen Sound.SC3.UGen.Record.ListTrig2 Sound.SC3.UGen.Record.ListTrig- Sound.SC3.UGen.Record.LocalIn Sound.SC3.UGen.Record.LocalOut Sound.SC3.UGen.Record.Logger Sound.SC3.UGen.Record.Logistic@@ -441,6 +455,7 @@ Sound.SC3.UGen.Record.MCLDChaosGen Sound.SC3.UGen.Record.MdaPiano Sound.SC3.UGen.Record.MeanTriggered+ Sound.SC3.UGen.Record.Meddis Sound.SC3.UGen.Record.Median Sound.SC3.UGen.Record.MedianTriggered Sound.SC3.UGen.Record.MembraneCircle@@ -458,7 +473,9 @@ Sound.SC3.UGen.Record.MouseX Sound.SC3.UGen.Record.MouseY Sound.SC3.UGen.Record.MultiOutUGen+ Sound.SC3.UGen.Record.MZPokey Sound.SC3.UGen.Record.NeedleRect+ Sound.SC3.UGen.Record.Nes2 Sound.SC3.UGen.Record.NestedAllpassC Sound.SC3.UGen.Record.NestedAllpassL Sound.SC3.UGen.Record.NestedAllpassN@@ -489,7 +506,6 @@ Sound.SC3.UGen.Record.PanAz Sound.SC3.UGen.Record.PanB2 Sound.SC3.UGen.Record.PanB- Sound.SC3.UGen.Record.Panner Sound.SC3.UGen.Record.PanX2D Sound.SC3.UGen.Record.PanX Sound.SC3.UGen.Record.PartConv@@ -507,12 +523,14 @@ Sound.SC3.UGen.Record.PlaneTree Sound.SC3.UGen.Record.PlayBuf Sound.SC3.UGen.Record.Pluck+ Sound.SC3.UGen.Record.Pokey Sound.SC3.UGen.Record.PosRatio Sound.SC3.UGen.Record.PrintVal Sound.SC3.UGen.Record.PSinGrain Sound.SC3.UGen.Record.PulseCount Sound.SC3.UGen.Record.PulseDivider Sound.SC3.UGen.Record.Pulse+ Sound.SC3.UGen.Record.PureUGen Sound.SC3.UGen.Record.PV_Add Sound.SC3.UGen.Record.PV_BinBufRd Sound.SC3.UGen.Record.PV_BinDelay@@ -599,12 +617,23 @@ Sound.SC3.UGen.Record.Rand Sound.SC3.UGen.Record.RandID Sound.SC3.UGen.Record.RandSeed+ Sound.SC3.UGen.Record.RDelayMap+ Sound.SC3.UGen.Record.RDelaySetB+ Sound.SC3.UGen.Record.RDelaySet Sound.SC3.UGen.Record.RecordBuf+ Sound.SC3.UGen.Record.RedDPCMdecode+ Sound.SC3.UGen.Record.RedDPCMencode+ Sound.SC3.UGen.Record.RedLbyl+ Sound.SC3.UGen.Record.RedNoise+ Sound.SC3.UGen.Record.RedPhasor2+ Sound.SC3.UGen.Record.RedPhasor Sound.SC3.UGen.Record.RegaliaMitraEQ Sound.SC3.UGen.Record.ReplaceOut Sound.SC3.UGen.Record.Resonz+ Sound.SC3.UGen.Record.RFreezer Sound.SC3.UGen.Record.RHPF Sound.SC3.UGen.Record.Ringz+ Sound.SC3.UGen.Record.RLoopSet Sound.SC3.UGen.Record.RLPFD Sound.SC3.UGen.Record.RLPF Sound.SC3.UGen.Record.RMAFoodChainL@@ -616,6 +645,13 @@ Sound.SC3.UGen.Record.RosslerResL Sound.SC3.UGen.Record.Rotate2 Sound.SC3.UGen.Record.Rotate+ Sound.SC3.UGen.Record.RPlayTrace+ Sound.SC3.UGen.Record.RShufflerB+ Sound.SC3.UGen.Record.RShufflerL+ Sound.SC3.UGen.Record.RTraceRd+ Sound.SC3.UGen.Record.RTraceRdX+ Sound.SC3.UGen.Record.RTraceRdY+ Sound.SC3.UGen.Record.RTraceRdZ Sound.SC3.UGen.Record.RunningMax Sound.SC3.UGen.Record.RunningMin Sound.SC3.UGen.Record.RunningSum@@ -626,13 +662,12 @@ Sound.SC3.UGen.Record.ScopeOut Sound.SC3.UGen.Record.Select Sound.SC3.UGen.Record.SendTrig+ Sound.SC3.UGen.Record.SensoryDissonance Sound.SC3.UGen.Record.SetBuf Sound.SC3.UGen.Record.SetResetFF Sound.SC3.UGen.Record.Shaper- Sound.SC3.UGen.Record.SharedIn- Sound.SC3.UGen.Record.SharedOut+ Sound.SC3.UGen.Record.SID6581f Sound.SC3.UGen.Record.Sieve1- Sound.SC3.UGen.Record.Silent Sound.SC3.UGen.Record.SineShaper Sound.SC3.UGen.Record.SinGrainBBF Sound.SC3.UGen.Record.SinGrainBF@@ -647,8 +682,10 @@ Sound.SC3.UGen.Record.Slew Sound.SC3.UGen.Record.SLOnset Sound.SC3.UGen.Record.Slope+ Sound.SC3.UGen.Record.Slub Sound.SC3.UGen.Record.SmoothDecimator Sound.SC3.UGen.Record.SMS+ Sound.SC3.UGen.Record.SN76489 Sound.SC3.UGen.Record.SoftClipAmp4 Sound.SC3.UGen.Record.SoftClipAmp8 Sound.SC3.UGen.Record.SoftClipAmp@@ -662,6 +699,9 @@ Sound.SC3.UGen.Record.SpecCentroid Sound.SC3.UGen.Record.SpecFlatness Sound.SC3.UGen.Record.SpecPcile+ Sound.SC3.UGen.Record.SpectralEntropy+ Sound.SC3.UGen.Record.SplayAz+ Sound.SC3.UGen.Record.Splay Sound.SC3.UGen.Record.Spreader Sound.SC3.UGen.Record.Spring Sound.SC3.UGen.Record.SpruceBudworm@@ -720,7 +760,6 @@ Sound.SC3.UGen.Record.Trig Sound.SC3.UGen.Record.TTendency Sound.SC3.UGen.Record.Tumble- Sound.SC3.UGen.Record.TWChoose Sound.SC3.UGen.Record.TWindex Sound.SC3.UGen.Record.TwoPole Sound.SC3.UGen.Record.TwoTube@@ -750,7 +789,6 @@ Sound.SC3.UGen.Record.WrapIndex Sound.SC3.UGen.Record.WrapSummer Sound.SC3.UGen.Record.XFade2- Sound.SC3.UGen.Record.XFade Sound.SC3.UGen.Record.XLine Sound.SC3.UGen.Record.XOut Sound.SC3.UGen.Record.ZeroCrossing
mk/build.hs view
@@ -2,6 +2,7 @@ import Sound.SC3.UGen.Rate {- hsc3 -} import qualified Sound.SC3.UGen.DB.Data as D {- hsc3-db -} import qualified Sound.SC3.UGen.DB.Record as D+import qualified Sound.SC3.UGen.DB.Rename as D import System.FilePath {- filepath -} import Text.Printf @@ -19,11 +20,13 @@ [] -> D.ugen_default_rate u _ -> undefined +--u_input_nm u k = D.input_name (D.ugen_inputs u !! k)+ -- List of field names and types. inputs_of :: D.U -> [(String, String)] inputs_of u = let is = D.ugen_inputs u- bs = zip (map (input_name u) is) (repeat "S.UGen")+ bs = zip (map D.input_name is) (repeat "S.UGen") in if needs_rate u then ("rate", "S.Rate") : bs else bs@@ -60,12 +63,12 @@ gen_defaults :: D.U -> [String] gen_defaults u = let (D.U n _ r _ is _ _ _) = u- nm = rename_ugen (downcase_first_char n)+ nm = D.rename_ugen (downcase_first_char n) pre = [ printf "%s :: %s" nm n , printf "%s = %s {" nm n] post = [ " }" ] opt = if needs_rate u then [printf " rate = S.%s," (show r)] else []- f i = printf " %s = %f" (input_name u i) (D.input_default i)+ f i = printf " %s = %f" (D.input_name i) (D.input_default i) in pre ++ opt ++ with_comma (map f is) ++ post -- Generate a list of variable names (a,b..)