hsc3-rec (empty) → 0.7
raw patch · 368 files changed
+7371/−0 lines, 368 filesdep +basedep +hsc3setup-changed
Dependencies added: base, hsc3
Files
- Help/analog-bubbles.hs +31/−0
- Help/pitch.hs +12/−0
- Makefile +13/−0
- README +8/−0
- Setup.lhs +3/−0
- Sound/SC3/UGen/Record.hs +6/−0
- Sound/SC3/UGen/Record/A2K.hs +14/−0
- Sound/SC3/UGen/Record/APF.hs +20/−0
- Sound/SC3/UGen/Record/AbstractIn.hs +14/−0
- Sound/SC3/UGen/Record/AbstractOut.hs +14/−0
- Sound/SC3/UGen/Record/AllpassC.hs +22/−0
- Sound/SC3/UGen/Record/AllpassL.hs +22/−0
- Sound/SC3/UGen/Record/AllpassN.hs +22/−0
- Sound/SC3/UGen/Record/AmpComp.hs +20/−0
- Sound/SC3/UGen/Record/AmpCompA.hs +22/−0
- Sound/SC3/UGen/Record/Amplitude.hs +20/−0
- Sound/SC3/UGen/Record/BAllPass.hs +18/−0
- Sound/SC3/UGen/Record/BBandPass.hs +18/−0
- Sound/SC3/UGen/Record/BBandStop.hs +18/−0
- Sound/SC3/UGen/Record/BEQSuite.hs +14/−0
- Sound/SC3/UGen/Record/BHiPass.hs +18/−0
- Sound/SC3/UGen/Record/BHiShelf.hs +20/−0
- Sound/SC3/UGen/Record/BLowPass.hs +18/−0
- Sound/SC3/UGen/Record/BLowShelf.hs +20/−0
- Sound/SC3/UGen/Record/BPF.hs +20/−0
- Sound/SC3/UGen/Record/BPZ2.hs +16/−0
- Sound/SC3/UGen/Record/BPeakEQ.hs +20/−0
- Sound/SC3/UGen/Record/BRF.hs +20/−0
- Sound/SC3/UGen/Record/BRZ2.hs +16/−0
- Sound/SC3/UGen/Record/Balance2.hs +22/−0
- Sound/SC3/UGen/Record/Ball.hs +20/−0
- Sound/SC3/UGen/Record/BasicOpUGen.hs +14/−0
- Sound/SC3/UGen/Record/BeatTrack.hs +16/−0
- Sound/SC3/UGen/Record/BeatTrack2.hs +24/−0
- Sound/SC3/UGen/Record/BiPanB2.hs +22/−0
- Sound/SC3/UGen/Record/Blip.hs +16/−0
- Sound/SC3/UGen/Record/BufAllpassC.hs +20/−0
- Sound/SC3/UGen/Record/BufAllpassL.hs +20/−0
- Sound/SC3/UGen/Record/BufAllpassN.hs +20/−0
- Sound/SC3/UGen/Record/BufChannels.hs +16/−0
- Sound/SC3/UGen/Record/BufCombC.hs +20/−0
- Sound/SC3/UGen/Record/BufCombL.hs +20/−0
- Sound/SC3/UGen/Record/BufCombN.hs +20/−0
- Sound/SC3/UGen/Record/BufDelayC.hs +20/−0
- Sound/SC3/UGen/Record/BufDelayL.hs +20/−0
- Sound/SC3/UGen/Record/BufDelayN.hs +20/−0
- Sound/SC3/UGen/Record/BufDur.hs +16/−0
- Sound/SC3/UGen/Record/BufFrames.hs +16/−0
- Sound/SC3/UGen/Record/BufInfoUGenBase.hs +16/−0
- Sound/SC3/UGen/Record/BufRateScale.hs +16/−0
- Sound/SC3/UGen/Record/BufRd.hs +24/−0
- Sound/SC3/UGen/Record/BufSampleRate.hs +16/−0
- Sound/SC3/UGen/Record/BufSamples.hs +16/−0
- Sound/SC3/UGen/Record/BufWr.hs +22/−0
- Sound/SC3/UGen/Record/COsc.hs +20/−0
- Sound/SC3/UGen/Record/ChaosGen.hs +14/−0
- Sound/SC3/UGen/Record/CheckBadValues.hs +20/−0
- Sound/SC3/UGen/Record/ClearBuf.hs +14/−0
- Sound/SC3/UGen/Record/Clip.hs +20/−0
- Sound/SC3/UGen/Record/CoinGate.hs +18/−0
- Sound/SC3/UGen/Record/CombC.hs +22/−0
- Sound/SC3/UGen/Record/CombL.hs +22/−0
- Sound/SC3/UGen/Record/CombN.hs +22/−0
- Sound/SC3/UGen/Record/Compander.hs +26/−0
- Sound/SC3/UGen/Record/CompanderD.hs +24/−0
- Sound/SC3/UGen/Record/Control.hs +16/−0
- Sound/SC3/UGen/Record/Convolution.hs +18/−0
- Sound/SC3/UGen/Record/Convolution2.hs +20/−0
- Sound/SC3/UGen/Record/Convolution2L.hs +22/−0
- Sound/SC3/UGen/Record/Convolution3.hs +22/−0
- Sound/SC3/UGen/Record/Crackle.hs +16/−0
- Sound/SC3/UGen/Record/CuspL.hs +20/−0
- Sound/SC3/UGen/Record/CuspN.hs +20/−0
- Sound/SC3/UGen/Record/DC.hs +16/−0
- Sound/SC3/UGen/Record/DUGen.hs +14/−0
- Sound/SC3/UGen/Record/Dbrown.hs +20/−0
- Sound/SC3/UGen/Record/Dbufrd.hs +18/−0
- Sound/SC3/UGen/Record/Dbufwr.hs +20/−0
- Sound/SC3/UGen/Record/Decay.hs +18/−0
- Sound/SC3/UGen/Record/Decay2.hs +20/−0
- Sound/SC3/UGen/Record/DecodeB2.hs +24/−0
- Sound/SC3/UGen/Record/DegreeToKey.hs +20/−0
- Sound/SC3/UGen/Record/Delay1.hs +16/−0
- Sound/SC3/UGen/Record/Delay2.hs +16/−0
- Sound/SC3/UGen/Record/DelayC.hs +20/−0
- Sound/SC3/UGen/Record/DelayL.hs +20/−0
- Sound/SC3/UGen/Record/DelayN.hs +20/−0
- Sound/SC3/UGen/Record/Demand.hs +20/−0
- Sound/SC3/UGen/Record/DemandEnvGen.hs +34/−0
- Sound/SC3/UGen/Record/DetectIndex.hs +18/−0
- Sound/SC3/UGen/Record/DetectSilence.hs +22/−0
- Sound/SC3/UGen/Record/Dgeom.hs +18/−0
- Sound/SC3/UGen/Record/Dibrown.hs +20/−0
- Sound/SC3/UGen/Record/DiskIn.hs +18/−0
- Sound/SC3/UGen/Record/DiskOut.hs +16/−0
- Sound/SC3/UGen/Record/Diwhite.hs +18/−0
- Sound/SC3/UGen/Record/Donce.hs +14/−0
- Sound/SC3/UGen/Record/Done.hs +14/−0
- Sound/SC3/UGen/Record/Dpoll.hs +14/−0
- Sound/SC3/UGen/Record/Drand.hs +16/−0
- Sound/SC3/UGen/Record/Dseq.hs +16/−0
- Sound/SC3/UGen/Record/Dser.hs +16/−0
- Sound/SC3/UGen/Record/Dseries.hs +18/−0
- Sound/SC3/UGen/Record/Dstutter.hs +16/−0
- Sound/SC3/UGen/Record/Dswitch.hs +16/−0
- Sound/SC3/UGen/Record/Dswitch1.hs +16/−0
- Sound/SC3/UGen/Record/Dust.hs +16/−0
- Sound/SC3/UGen/Record/Dust2.hs +16/−0
- Sound/SC3/UGen/Record/Duty.hs +22/−0
- Sound/SC3/UGen/Record/Dwhite.hs +18/−0
- Sound/SC3/UGen/Record/Dxrand.hs +16/−0
- Sound/SC3/UGen/Record/DynKlang.hs +18/−0
- Sound/SC3/UGen/Record/DynKlank.hs +22/−0
- Sound/SC3/UGen/Record/EnvGen.hs +26/−0
- Sound/SC3/UGen/Record/ExpRand.hs +16/−0
- Sound/SC3/UGen/Record/FBSineC.hs +26/−0
- Sound/SC3/UGen/Record/FBSineL.hs +26/−0
- Sound/SC3/UGen/Record/FBSineN.hs +26/−0
- Sound/SC3/UGen/Record/FFT.hs +24/−0
- Sound/SC3/UGen/Record/FFTTrigger.hs +18/−0
- Sound/SC3/UGen/Record/FOS.hs +22/−0
- Sound/SC3/UGen/Record/FSinOsc.hs +18/−0
- Sound/SC3/UGen/Record/Filter.hs +14/−0
- Sound/SC3/UGen/Record/Fold.hs +20/−0
- Sound/SC3/UGen/Record/Formant.hs +18/−0
- Sound/SC3/UGen/Record/Formlet.hs +22/−0
- Sound/SC3/UGen/Record/Free.hs +16/−0
- Sound/SC3/UGen/Record/FreeSelf.hs +14/−0
- Sound/SC3/UGen/Record/FreeSelfWhenDone.hs +14/−0
- Sound/SC3/UGen/Record/FreeVerb.hs +20/−0
- Sound/SC3/UGen/Record/FreeVerb2.hs +22/−0
- Sound/SC3/UGen/Record/FreqShift.hs +18/−0
- Sound/SC3/UGen/Record/GVerb.hs +32/−0
- Sound/SC3/UGen/Record/Gate.hs +18/−0
- Sound/SC3/UGen/Record/GbmanL.hs +18/−0
- Sound/SC3/UGen/Record/GbmanN.hs +18/−0
- Sound/SC3/UGen/Record/Gendy1.hs +34/−0
- Sound/SC3/UGen/Record/Gendy2.hs +38/−0
- Sound/SC3/UGen/Record/Gendy3.hs +32/−0
- Sound/SC3/UGen/Record/GrainBuf.hs +30/−0
- Sound/SC3/UGen/Record/GrainFM.hs +28/−0
- Sound/SC3/UGen/Record/GrainIn.hs +24/−0
- Sound/SC3/UGen/Record/GrainSin.hs +24/−0
- Sound/SC3/UGen/Record/HPF.hs +18/−0
- Sound/SC3/UGen/Record/HPZ1.hs +16/−0
- Sound/SC3/UGen/Record/HPZ2.hs +16/−0
- Sound/SC3/UGen/Record/Hasher.hs +16/−0
- Sound/SC3/UGen/Record/HenonC.hs +22/−0
- Sound/SC3/UGen/Record/HenonL.hs +22/−0
- Sound/SC3/UGen/Record/HenonN.hs +22/−0
- Sound/SC3/UGen/Record/Hilbert.hs +14/−0
- Sound/SC3/UGen/Record/HilbertFIR.hs +16/−0
- Sound/SC3/UGen/Record/IEnvGen.hs +18/−0
- Sound/SC3/UGen/Record/IFFT.hs +18/−0
- Sound/SC3/UGen/Record/IRand.hs +16/−0
- Sound/SC3/UGen/Record/Impulse.hs +18/−0
- Sound/SC3/UGen/Record/In.hs +18/−0
- Sound/SC3/UGen/Record/InFeedback.hs +16/−0
- Sound/SC3/UGen/Record/InRange.hs +20/−0
- Sound/SC3/UGen/Record/InRect.hs +20/−0
- Sound/SC3/UGen/Record/InTrig.hs +16/−0
- Sound/SC3/UGen/Record/Index.hs +18/−0
- Sound/SC3/UGen/Record/IndexInBetween.hs +18/−0
- Sound/SC3/UGen/Record/Integrator.hs +18/−0
- Sound/SC3/UGen/Record/K2A.hs +14/−0
- Sound/SC3/UGen/Record/KeyState.hs +20/−0
- Sound/SC3/UGen/Record/KeyTrack.hs +18/−0
- Sound/SC3/UGen/Record/Klang.hs +18/−0
- Sound/SC3/UGen/Record/Klank.hs +22/−0
- Sound/SC3/UGen/Record/LFClipNoise.hs +16/−0
- Sound/SC3/UGen/Record/LFCub.hs +18/−0
- Sound/SC3/UGen/Record/LFDClipNoise.hs +16/−0
- Sound/SC3/UGen/Record/LFDNoise0.hs +16/−0
- Sound/SC3/UGen/Record/LFDNoise1.hs +16/−0
- Sound/SC3/UGen/Record/LFDNoise3.hs +16/−0
- Sound/SC3/UGen/Record/LFNoise0.hs +16/−0
- Sound/SC3/UGen/Record/LFNoise1.hs +16/−0
- Sound/SC3/UGen/Record/LFNoise2.hs +16/−0
- Sound/SC3/UGen/Record/LFPar.hs +18/−0
- Sound/SC3/UGen/Record/LFPulse.hs +20/−0
- Sound/SC3/UGen/Record/LFSaw.hs +18/−0
- Sound/SC3/UGen/Record/LFTri.hs +18/−0
- Sound/SC3/UGen/Record/LPF.hs +18/−0
- Sound/SC3/UGen/Record/LPZ1.hs +16/−0
- Sound/SC3/UGen/Record/LPZ2.hs +16/−0
- Sound/SC3/UGen/Record/Lag.hs +18/−0
- Sound/SC3/UGen/Record/Lag2.hs +18/−0
- Sound/SC3/UGen/Record/Lag2UD.hs +20/−0
- Sound/SC3/UGen/Record/Lag3.hs +18/−0
- Sound/SC3/UGen/Record/Lag3UD.hs +20/−0
- Sound/SC3/UGen/Record/LagControl.hs +18/−0
- Sound/SC3/UGen/Record/LagIn.hs +18/−0
- Sound/SC3/UGen/Record/LagUD.hs +20/−0
- Sound/SC3/UGen/Record/LastValue.hs +18/−0
- Sound/SC3/UGen/Record/Latch.hs +18/−0
- Sound/SC3/UGen/Record/LatoocarfianC.hs +26/−0
- Sound/SC3/UGen/Record/LatoocarfianL.hs +26/−0
- Sound/SC3/UGen/Record/LatoocarfianN.hs +26/−0
- Sound/SC3/UGen/Record/LeakDC.hs +18/−0
- Sound/SC3/UGen/Record/LeastChange.hs +18/−0
- Sound/SC3/UGen/Record/Limiter.hs +18/−0
- Sound/SC3/UGen/Record/LinCongC.hs +22/−0
- Sound/SC3/UGen/Record/LinCongL.hs +22/−0
- Sound/SC3/UGen/Record/LinCongN.hs +22/−0
- Sound/SC3/UGen/Record/LinExp.hs +24/−0
- Sound/SC3/UGen/Record/LinLin.hs +24/−0
- Sound/SC3/UGen/Record/LinPan2.hs +20/−0
- Sound/SC3/UGen/Record/LinRand.hs +18/−0
- Sound/SC3/UGen/Record/LinXFade2.hs +22/−0
- Sound/SC3/UGen/Record/Line.hs +22/−0
- Sound/SC3/UGen/Record/Linen.hs +22/−0
- Sound/SC3/UGen/Record/ListDUGen.hs +16/−0
- Sound/SC3/UGen/Record/LocalBuf.hs +18/−0
- Sound/SC3/UGen/Record/LocalIn.hs +16/−0
- Sound/SC3/UGen/Record/LocalOut.hs +16/−0
- Sound/SC3/UGen/Record/Logistic.hs +20/−0
- Sound/SC3/UGen/Record/LorenzL.hs +28/−0
- Sound/SC3/UGen/Record/Loudness.hs +18/−0
- Sound/SC3/UGen/Record/MFCC.hs +16/−0
- Sound/SC3/UGen/Record/MantissaMask.hs +18/−0
- Sound/SC3/UGen/Record/Median.hs +18/−0
- Sound/SC3/UGen/Record/MidEQ.hs +22/−0
- Sound/SC3/UGen/Record/MoogFF.hs +22/−0
- Sound/SC3/UGen/Record/MostChange.hs +18/−0
- Sound/SC3/UGen/Record/MouseButton.hs +18/−0
- Sound/SC3/UGen/Record/MouseX.hs +20/−0
- Sound/SC3/UGen/Record/MouseY.hs +20/−0
- Sound/SC3/UGen/Record/MultiOutUGen.hs +14/−0
- Sound/SC3/UGen/Record/NRand.hs +18/−0
- Sound/SC3/UGen/Record/Normalizer.hs +18/−0
- Sound/SC3/UGen/Record/OffsetOut.hs +18/−0
- Sound/SC3/UGen/Record/OnePole.hs +18/−0
- Sound/SC3/UGen/Record/OneZero.hs +18/−0
- Sound/SC3/UGen/Record/Onsets.hs +30/−0
- Sound/SC3/UGen/Record/Osc.hs +20/−0
- Sound/SC3/UGen/Record/OscN.hs +20/−0
- Sound/SC3/UGen/Record/Out.hs +18/−0
- Sound/SC3/UGen/Record/PSinGrain.hs +18/−0
- Sound/SC3/UGen/Record/PV_Add.hs +16/−0
- Sound/SC3/UGen/Record/PV_BinScramble.hs +20/−0
- Sound/SC3/UGen/Record/PV_BinShift.hs +18/−0
- Sound/SC3/UGen/Record/PV_BinWipe.hs +18/−0
- Sound/SC3/UGen/Record/PV_BrickWall.hs +16/−0
- Sound/SC3/UGen/Record/PV_ChainUGen.hs +14/−0
- Sound/SC3/UGen/Record/PV_ConformalMap.hs +18/−0
- Sound/SC3/UGen/Record/PV_Copy.hs +16/−0
- Sound/SC3/UGen/Record/PV_CopyPhase.hs +16/−0
- Sound/SC3/UGen/Record/PV_Diffuser.hs +16/−0
- Sound/SC3/UGen/Record/PV_HainsworthFoote.hs +22/−0
- Sound/SC3/UGen/Record/PV_JensenAndersen.hs +26/−0
- Sound/SC3/UGen/Record/PV_LocalMax.hs +16/−0
- Sound/SC3/UGen/Record/PV_MagAbove.hs +16/−0
- Sound/SC3/UGen/Record/PV_MagBelow.hs +16/−0
- Sound/SC3/UGen/Record/PV_MagClip.hs +16/−0
- Sound/SC3/UGen/Record/PV_MagDiv.hs +18/−0
- Sound/SC3/UGen/Record/PV_MagFreeze.hs +16/−0
- Sound/SC3/UGen/Record/PV_MagMul.hs +16/−0
- Sound/SC3/UGen/Record/PV_MagNoise.hs +14/−0
- Sound/SC3/UGen/Record/PV_MagShift.hs +18/−0
- Sound/SC3/UGen/Record/PV_MagSmear.hs +16/−0
- Sound/SC3/UGen/Record/PV_MagSquared.hs +14/−0
- Sound/SC3/UGen/Record/PV_Max.hs +16/−0
- Sound/SC3/UGen/Record/PV_Min.hs +16/−0
- Sound/SC3/UGen/Record/PV_Mul.hs +16/−0
- Sound/SC3/UGen/Record/PV_PhaseShift.hs +16/−0
- Sound/SC3/UGen/Record/PV_PhaseShift270.hs +14/−0
- Sound/SC3/UGen/Record/PV_PhaseShift90.hs +14/−0
- Sound/SC3/UGen/Record/PV_RandComb.hs +18/−0
- Sound/SC3/UGen/Record/PV_RandWipe.hs +20/−0
- Sound/SC3/UGen/Record/PV_RectComb.hs +20/−0
- Sound/SC3/UGen/Record/PV_RectComb2.hs +22/−0
- Sound/SC3/UGen/Record/Pan2.hs +20/−0
- Sound/SC3/UGen/Record/Pan4.hs +22/−0
- Sound/SC3/UGen/Record/PanAz.hs +26/−0
- Sound/SC3/UGen/Record/PanB.hs +22/−0
- Sound/SC3/UGen/Record/PanB2.hs +20/−0
- Sound/SC3/UGen/Record/Panner.hs +14/−0
- Sound/SC3/UGen/Record/PartConv.hs +18/−0
- Sound/SC3/UGen/Record/Pause.hs +16/−0
- Sound/SC3/UGen/Record/PauseSelf.hs +14/−0
- Sound/SC3/UGen/Record/PauseSelfWhenDone.hs +14/−0
- Sound/SC3/UGen/Record/Peak.hs +18/−0
- Sound/SC3/UGen/Record/PeakFollower.hs +18/−0
- Sound/SC3/UGen/Record/Phasor.hs +24/−0
- Sound/SC3/UGen/Record/Pitch.hs +32/−0
- Sound/SC3/UGen/Record/PitchShift.hs +22/−0
- Sound/SC3/UGen/Record/PlayBuf.hs +26/−0
- Sound/SC3/UGen/Record/Pluck.hs +24/−0
- Sound/SC3/UGen/Record/Pulse.hs +16/−0
- Sound/SC3/UGen/Record/PulseCount.hs +18/−0
- Sound/SC3/UGen/Record/PulseDivider.hs +20/−0
- Sound/SC3/UGen/Record/QuadC.hs +22/−0
- Sound/SC3/UGen/Record/QuadL.hs +22/−0
- Sound/SC3/UGen/Record/QuadN.hs +22/−0
- Sound/SC3/UGen/Record/RHPF.hs +20/−0
- Sound/SC3/UGen/Record/RLPF.hs +20/−0
- Sound/SC3/UGen/Record/Ramp.hs +18/−0
- Sound/SC3/UGen/Record/Rand.hs +16/−0
- Sound/SC3/UGen/Record/RandID.hs +16/−0
- Sound/SC3/UGen/Record/RandSeed.hs +18/−0
- Sound/SC3/UGen/Record/RecordBuf.hs +30/−0
- Sound/SC3/UGen/Record/ReplaceOut.hs +18/−0
- Sound/SC3/UGen/Record/Resonz.hs +20/−0
- Sound/SC3/UGen/Record/Ringz.hs +20/−0
- Sound/SC3/UGen/Record/Rotate2.hs +20/−0
- Sound/SC3/UGen/Record/RunningMax.hs +18/−0
- Sound/SC3/UGen/Record/RunningMin.hs +18/−0
- Sound/SC3/UGen/Record/RunningSum.hs +18/−0
- Sound/SC3/UGen/Record/SOS.hs +26/−0
- Sound/SC3/UGen/Record/Saw.hs +14/−0
- Sound/SC3/UGen/Record/Schmidt.hs +20/−0
- Sound/SC3/UGen/Record/ScopeOut.hs +18/−0
- Sound/SC3/UGen/Record/Select.hs +18/−0
- Sound/SC3/UGen/Record/SendTrig.hs +20/−0
- Sound/SC3/UGen/Record/SetBuf.hs +18/−0
- Sound/SC3/UGen/Record/SetResetFF.hs +18/−0
- Sound/SC3/UGen/Record/Shaper.hs +18/−0
- Sound/SC3/UGen/Record/SharedIn.hs +16/−0
- Sound/SC3/UGen/Record/SharedOut.hs +16/−0
- Sound/SC3/UGen/Record/Silent.hs +14/−0
- Sound/SC3/UGen/Record/SinOsc.hs +18/−0
- Sound/SC3/UGen/Record/SinOscFB.hs +18/−0
- Sound/SC3/UGen/Record/Slew.hs +20/−0
- Sound/SC3/UGen/Record/Slope.hs +16/−0
- Sound/SC3/UGen/Record/SpecCentroid.hs +14/−0
- Sound/SC3/UGen/Record/SpecFlatness.hs +14/−0
- Sound/SC3/UGen/Record/SpecPcile.hs +18/−0
- Sound/SC3/UGen/Record/Spring.hs +18/−0
- Sound/SC3/UGen/Record/StandardL.hs +20/−0
- Sound/SC3/UGen/Record/StandardN.hs +20/−0
- Sound/SC3/UGen/Record/Stepper.hs +26/−0
- Sound/SC3/UGen/Record/StereoConvolution2L.hs +24/−0
- Sound/SC3/UGen/Record/Sweep.hs +18/−0
- Sound/SC3/UGen/Record/SyncSaw.hs +18/−0
- Sound/SC3/UGen/Record/T2A.hs +16/−0
- Sound/SC3/UGen/Record/T2K.hs +14/−0
- Sound/SC3/UGen/Record/TBall.hs +20/−0
- Sound/SC3/UGen/Record/TDelay.hs +18/−0
- Sound/SC3/UGen/Record/TDuty.hs +24/−0
- Sound/SC3/UGen/Record/TExpRand.hs +20/−0
- Sound/SC3/UGen/Record/TGrains.hs +30/−0
- Sound/SC3/UGen/Record/TIRand.hs +20/−0
- Sound/SC3/UGen/Record/TRand.hs +20/−0
- Sound/SC3/UGen/Record/TWChoose.hs +22/−0
- Sound/SC3/UGen/Record/TWindex.hs +20/−0
- Sound/SC3/UGen/Record/Tap.hs +18/−0
- Sound/SC3/UGen/Record/Timer.hs +16/−0
- Sound/SC3/UGen/Record/ToggleFF.hs +16/−0
- Sound/SC3/UGen/Record/Trig.hs +18/−0
- Sound/SC3/UGen/Record/Trig1.hs +18/−0
- Sound/SC3/UGen/Record/TrigControl.hs +16/−0
- Sound/SC3/UGen/Record/TwoPole.hs +20/−0
- Sound/SC3/UGen/Record/TwoZero.hs +20/−0
- Sound/SC3/UGen/Record/Unpack1FFT.hs +20/−0
- Sound/SC3/UGen/Record/VDiskIn.hs +20/−0
- Sound/SC3/UGen/Record/VOsc.hs +20/−0
- Sound/SC3/UGen/Record/VOsc3.hs +22/−0
- Sound/SC3/UGen/Record/VarSaw.hs +20/−0
- Sound/SC3/UGen/Record/Vibrato.hs +30/−0
- Sound/SC3/UGen/Record/Warp1.hs +30/−0
- Sound/SC3/UGen/Record/Wrap.hs +20/−0
- Sound/SC3/UGen/Record/WrapIndex.hs +18/−0
- Sound/SC3/UGen/Record/XFade.hs +14/−0
- Sound/SC3/UGen/Record/XFade2.hs +22/−0
- Sound/SC3/UGen/Record/XLine.hs +22/−0
- Sound/SC3/UGen/Record/XOut.hs +20/−0
- Sound/SC3/UGen/Record/ZeroCrossing.hs +16/−0
- hsc3-rec.cabal +388/−0
+ Help/analog-bubbles.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE DisambiguateRecordFields #-}++import Sound.SC3+import Sound.SC3.UGen.Record+import Sound.SC3.UGen.Record.CombN+import Sound.SC3.UGen.Record.LFSaw+import Sound.SC3.UGen.Record.Out+import Sound.SC3.UGen.Record.SinOsc++analog_bubbles :: UGen+analog_bubbles =+ let o = ugen LFSaw { rate = KR+ , freq = mce2 8 7.23+ , iphase = 0 } * 3 + 80+ f = ugen LFSaw { rate = KR+ , freq = 0.4+ , iphase = 0 } * 24 + o+ s = ugen SinOsc { rate = AR+ , freq = midiCPS f+ , phase = 0} * 0.04+ c = ugen CombN { rate = AR+ , input = s+ , maxdelaytime = 0.2+ , delaytime = 0.2+ , decaytime = 4 }+ in ugen Out { rate = AR+ , bus = 0+ , input = c }++main :: IO ()+main = audition analog_bubbles
+ Help/pitch.hs view
@@ -0,0 +1,12 @@+import Sound.SC3+import Sound.SC3.UGen.Record+import Sound.SC3.UGen.Record.Pitch as P++main :: IO ()+main = + let x = mouseX KR 220 660 Linear 0.1+ y = mouseY KR 0.05 0.25 Linear 0.1+ s = saw AR x * y+ a = amplitude KR s 0.05 0.05+ MCE [f, _] = ugen P.pitch { P.input = s }+ in audition (out 0 (mce [s * 0.25, sinOsc AR (f / 2) 0 * a]))
+ Makefile view
@@ -0,0 +1,13 @@+all:+ ghc -Wall mk/build.hs -e main++clean:+ rm -f Sound/SC3/UGen/Record/*.hs+ rm -Rf dist++module_list:+ find Sound/SC3/UGen/Record -name "*.*hs" | \+ sort | \+ sed -e "s/^/ /" \+ -e "s,/,\.,g" \+ -e "s,.hs,," >> hsc3-rec.cabal
+ README view
@@ -0,0 +1,8 @@+hsc3-rec - haskell supercollider record variants++provides record constructors for all unit generators that take at+least one parameter. requires the record field disambiguation present+in ghc >= 6.10.1 to be practicable.++(c) rohan drape and others, 2008+ gpl, http://gnu.org/copyleft/
+ Setup.lhs view
@@ -0,0 +1,3 @@+#!/usr/bin/env runhaskell+> import Distribution.Simple+> main = defaultMain
+ Sound/SC3/UGen/Record.hs view
@@ -0,0 +1,6 @@+module Sound.SC3.UGen.Record where++import Sound.SC3.UGen.UGen++class Make a where+ ugen :: a -> UGen
+ Sound/SC3/UGen/Record/A2K.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.A2K where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data A2K = A2K {+ input :: S.UGen+ } deriving (Show)+a2K :: A2K+a2K = A2K {+ input = 0.0+ }+mkA2K :: A2K -> S.UGen+mkA2K (A2K a') = S.mkOsc S.KR "A2K" [a'] 1+instance Make A2K where+ ugen = mkA2K
+ Sound/SC3/UGen/Record/APF.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.APF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data APF = APF {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ radius :: S.UGen+ } deriving (Show)+aPF :: APF+aPF = APF {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ radius = 0.8+ }+mkAPF :: APF -> S.UGen+mkAPF (APF r a' b' c') = S.mkOsc r "APF" [a',b',c'] 1+instance Make APF where+ ugen = mkAPF
+ Sound/SC3/UGen/Record/AbstractIn.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.AbstractIn where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data AbstractIn = AbstractIn {+ maxSize :: S.UGen+ } deriving (Show)+abstractIn :: AbstractIn+abstractIn = AbstractIn {+ maxSize = 0.0+ }+mkAbstractIn :: AbstractIn -> S.UGen+mkAbstractIn (AbstractIn a') = S.mkOsc S.AR "AbstractIn" [a'] 1+instance Make AbstractIn where+ ugen = mkAbstractIn
+ Sound/SC3/UGen/Record/AbstractOut.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.AbstractOut where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data AbstractOut = AbstractOut {+ maxSize :: S.UGen+ } deriving (Show)+abstractOut :: AbstractOut+abstractOut = AbstractOut {+ maxSize = 0.0+ }+mkAbstractOut :: AbstractOut -> S.UGen+mkAbstractOut (AbstractOut a') = S.mkOsc S.AR "AbstractOut" [a'] 1+instance Make AbstractOut where+ ugen = mkAbstractOut
+ Sound/SC3/UGen/Record/AllpassC.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.AllpassC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data AllpassC = AllpassC {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+allpassC :: AllpassC+allpassC = AllpassC {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkAllpassC :: AllpassC -> S.UGen+mkAllpassC (AllpassC r a' b' c' d') = S.mkOsc r "AllpassC" [a',b',c',d'] 1+instance Make AllpassC where+ ugen = mkAllpassC
+ Sound/SC3/UGen/Record/AllpassL.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.AllpassL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data AllpassL = AllpassL {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+allpassL :: AllpassL+allpassL = AllpassL {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkAllpassL :: AllpassL -> S.UGen+mkAllpassL (AllpassL r a' b' c' d') = S.mkOsc r "AllpassL" [a',b',c',d'] 1+instance Make AllpassL where+ ugen = mkAllpassL
+ Sound/SC3/UGen/Record/AllpassN.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.AllpassN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data AllpassN = AllpassN {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+allpassN :: AllpassN+allpassN = AllpassN {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkAllpassN :: AllpassN -> S.UGen+mkAllpassN (AllpassN r a' b' c' d') = S.mkOsc r "AllpassN" [a',b',c',d'] 1+instance Make AllpassN where+ ugen = mkAllpassN
+ Sound/SC3/UGen/Record/AmpComp.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.AmpComp where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data AmpComp = AmpComp {+ rate :: S.Rate,+ freq :: S.UGen,+ root :: S.UGen,+ exp_ :: S.UGen+ } deriving (Show)+ampComp :: AmpComp+ampComp = AmpComp {+ rate = S.AR,+ freq = 0.0,+ root = 0.0,+ exp_ = 0.3333+ }+mkAmpComp :: AmpComp -> S.UGen+mkAmpComp (AmpComp r a' b' c') = S.mkOsc r "AmpComp" [a',b',c'] 1+instance Make AmpComp where+ ugen = mkAmpComp
+ Sound/SC3/UGen/Record/AmpCompA.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.AmpCompA where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data AmpCompA = AmpCompA {+ rate :: S.Rate,+ freq :: S.UGen,+ root :: S.UGen,+ minAmp :: S.UGen,+ rootAmp :: S.UGen+ } deriving (Show)+ampCompA :: AmpCompA+ampCompA = AmpCompA {+ rate = S.AR,+ freq = 1000.0,+ root = 0.0,+ minAmp = 0.32,+ rootAmp = 1.0+ }+mkAmpCompA :: AmpCompA -> S.UGen+mkAmpCompA (AmpCompA r a' b' c' d') = S.mkOsc r "AmpCompA" [a',b',c',d'] 1+instance Make AmpCompA where+ ugen = mkAmpCompA
+ Sound/SC3/UGen/Record/Amplitude.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Amplitude where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Amplitude = Amplitude {+ rate :: S.Rate,+ input :: S.UGen,+ attackTime :: S.UGen,+ releaseTime :: S.UGen+ } deriving (Show)+amplitude :: Amplitude+amplitude = Amplitude {+ rate = S.AR,+ input = 0.0,+ attackTime = 0.01,+ releaseTime = 0.01+ }+mkAmplitude :: Amplitude -> S.UGen+mkAmplitude (Amplitude r a' b' c') = S.mkOsc r "Amplitude" [a',b',c'] 1+instance Make Amplitude where+ ugen = mkAmplitude
+ Sound/SC3/UGen/Record/BAllPass.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.BAllPass where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BAllPass = BAllPass {+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+bAllPass :: BAllPass+bAllPass = BAllPass {+ input = 0.0,+ freq = 1200.0,+ rq = 1.0+ }+mkBAllPass :: BAllPass -> S.UGen+mkBAllPass (BAllPass a' b' c') = S.mkOsc S.AR "BAllPass" [a',b',c'] 1+instance Make BAllPass where+ ugen = mkBAllPass
+ Sound/SC3/UGen/Record/BBandPass.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.BBandPass where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BBandPass = BBandPass {+ input :: S.UGen,+ freq :: S.UGen,+ bw :: S.UGen+ } deriving (Show)+bBandPass :: BBandPass+bBandPass = BBandPass {+ input = 0.0,+ freq = 1200.0,+ bw = 1.0+ }+mkBBandPass :: BBandPass -> S.UGen+mkBBandPass (BBandPass a' b' c') = S.mkOsc S.AR "BBandPass" [a',b',c'] 1+instance Make BBandPass where+ ugen = mkBBandPass
+ Sound/SC3/UGen/Record/BBandStop.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.BBandStop where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BBandStop = BBandStop {+ input :: S.UGen,+ freq :: S.UGen,+ bw :: S.UGen+ } deriving (Show)+bBandStop :: BBandStop+bBandStop = BBandStop {+ input = 0.0,+ freq = 1200.0,+ bw = 1.0+ }+mkBBandStop :: BBandStop -> S.UGen+mkBBandStop (BBandStop a' b' c') = S.mkOsc S.AR "BBandStop" [a',b',c'] 1+instance Make BBandStop where+ ugen = mkBBandStop
+ Sound/SC3/UGen/Record/BEQSuite.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.BEQSuite where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BEQSuite = BEQSuite {+ maxSize :: S.UGen+ } deriving (Show)+bEQSuite :: BEQSuite+bEQSuite = BEQSuite {+ maxSize = 0.0+ }+mkBEQSuite :: BEQSuite -> S.UGen+mkBEQSuite (BEQSuite a') = S.mkOsc S.AR "BEQSuite" [a'] 1+instance Make BEQSuite where+ ugen = mkBEQSuite
+ Sound/SC3/UGen/Record/BHiPass.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.BHiPass where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BHiPass = BHiPass {+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+bHiPass :: BHiPass+bHiPass = BHiPass {+ input = 0.0,+ freq = 1200.0,+ rq = 1.0+ }+mkBHiPass :: BHiPass -> S.UGen+mkBHiPass (BHiPass a' b' c') = S.mkOsc S.AR "BHiPass" [a',b',c'] 1+instance Make BHiPass where+ ugen = mkBHiPass
+ Sound/SC3/UGen/Record/BHiShelf.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BHiShelf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BHiShelf = BHiShelf {+ input :: S.UGen,+ freq :: S.UGen,+ rs :: S.UGen,+ db :: S.UGen+ } deriving (Show)+bHiShelf :: BHiShelf+bHiShelf = BHiShelf {+ input = 0.0,+ freq = 1200.0,+ rs = 1.0,+ db = 0.0+ }+mkBHiShelf :: BHiShelf -> S.UGen+mkBHiShelf (BHiShelf a' b' c' d') = S.mkOsc S.AR "BHiShelf" [a',b',c',d'] 1+instance Make BHiShelf where+ ugen = mkBHiShelf
+ Sound/SC3/UGen/Record/BLowPass.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.BLowPass where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BLowPass = BLowPass {+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+bLowPass :: BLowPass+bLowPass = BLowPass {+ input = 0.0,+ freq = 1200.0,+ rq = 1.0+ }+mkBLowPass :: BLowPass -> S.UGen+mkBLowPass (BLowPass a' b' c') = S.mkOsc S.AR "BLowPass" [a',b',c'] 1+instance Make BLowPass where+ ugen = mkBLowPass
+ Sound/SC3/UGen/Record/BLowShelf.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BLowShelf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BLowShelf = BLowShelf {+ input :: S.UGen,+ freq :: S.UGen,+ rs :: S.UGen,+ db :: S.UGen+ } deriving (Show)+bLowShelf :: BLowShelf+bLowShelf = BLowShelf {+ input = 0.0,+ freq = 1200.0,+ rs = 1.0,+ db = 0.0+ }+mkBLowShelf :: BLowShelf -> S.UGen+mkBLowShelf (BLowShelf a' b' c' d') = S.mkOsc S.AR "BLowShelf" [a',b',c',d'] 1+instance Make BLowShelf where+ ugen = mkBLowShelf
+ Sound/SC3/UGen/Record/BPF.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BPF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BPF = BPF {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+bPF :: BPF+bPF = BPF {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ rq = 1.0+ }+mkBPF :: BPF -> S.UGen+mkBPF (BPF r a' b' c') = S.mkOsc r "BPF" [a',b',c'] 1+instance Make BPF where+ ugen = mkBPF
+ Sound/SC3/UGen/Record/BPZ2.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BPZ2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BPZ2 = BPZ2 {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+bPZ2 :: BPZ2+bPZ2 = BPZ2 {+ rate = S.AR,+ input = 0.0+ }+mkBPZ2 :: BPZ2 -> S.UGen+mkBPZ2 (BPZ2 r a') = S.mkOsc r "BPZ2" [a'] 1+instance Make BPZ2 where+ ugen = mkBPZ2
+ Sound/SC3/UGen/Record/BPeakEQ.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BPeakEQ where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BPeakEQ = BPeakEQ {+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen,+ db :: S.UGen+ } deriving (Show)+bPeakEQ :: BPeakEQ+bPeakEQ = BPeakEQ {+ input = 0.0,+ freq = 1200.0,+ rq = 1.0,+ db = 0.0+ }+mkBPeakEQ :: BPeakEQ -> S.UGen+mkBPeakEQ (BPeakEQ a' b' c' d') = S.mkOsc S.AR "BPeakEQ" [a',b',c',d'] 1+instance Make BPeakEQ where+ ugen = mkBPeakEQ
+ Sound/SC3/UGen/Record/BRF.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BRF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BRF = BRF {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+bRF :: BRF+bRF = BRF {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ rq = 1.0+ }+mkBRF :: BRF -> S.UGen+mkBRF (BRF r a' b' c') = S.mkOsc r "BRF" [a',b',c'] 1+instance Make BRF where+ ugen = mkBRF
+ Sound/SC3/UGen/Record/BRZ2.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BRZ2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BRZ2 = BRZ2 {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+bRZ2 :: BRZ2+bRZ2 = BRZ2 {+ rate = S.AR,+ input = 0.0+ }+mkBRZ2 :: BRZ2 -> S.UGen+mkBRZ2 (BRZ2 r a') = S.mkOsc r "BRZ2" [a'] 1+instance Make BRZ2 where+ ugen = mkBRZ2
+ Sound/SC3/UGen/Record/Balance2.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Balance2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Balance2 = Balance2 {+ rate :: S.Rate,+ left :: S.UGen,+ right :: S.UGen,+ pos :: S.UGen,+ level :: S.UGen+ } deriving (Show)+balance2 :: Balance2+balance2 = Balance2 {+ rate = S.AR,+ left = 0.0,+ right = 0.0,+ pos = 0.0,+ level = 1.0+ }+mkBalance2 :: Balance2 -> S.UGen+mkBalance2 (Balance2 r a' b' c' d') = S.mkOsc r "Balance2" [a',b',c',d'] 2+instance Make Balance2 where+ ugen = mkBalance2
+ Sound/SC3/UGen/Record/Ball.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Ball where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Ball = Ball {+ input :: S.UGen,+ g :: S.UGen,+ damp :: S.UGen,+ friction :: S.UGen+ } deriving (Show)+ball :: Ball+ball = Ball {+ input = 0.0,+ g = 1.0,+ damp = 0.0,+ friction = 0.01+ }+mkBall :: Ball -> S.UGen+mkBall (Ball a' b' c' d') = S.mkOsc S.AR "Ball" [a',b',c',d'] 1+instance Make Ball where+ ugen = mkBall
+ Sound/SC3/UGen/Record/BasicOpUGen.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.BasicOpUGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BasicOpUGen = BasicOpUGen {+ maxSize :: S.UGen+ } deriving (Show)+basicOpUGen :: BasicOpUGen+basicOpUGen = BasicOpUGen {+ maxSize = 0.0+ }+mkBasicOpUGen :: BasicOpUGen -> S.UGen+mkBasicOpUGen (BasicOpUGen a') = S.mkOsc S.AR "BasicOpUGen" [a'] 1+instance Make BasicOpUGen where+ ugen = mkBasicOpUGen
+ Sound/SC3/UGen/Record/BeatTrack.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BeatTrack where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BeatTrack = BeatTrack {+ chain :: S.UGen,+ lock :: S.UGen+ } deriving (Show)+beatTrack :: BeatTrack+beatTrack = BeatTrack {+ chain = 0.0,+ lock = 0.0+ }+mkBeatTrack :: BeatTrack -> S.UGen+mkBeatTrack (BeatTrack a' b') = S.mkOsc S.KR "BeatTrack" [a',b'] 4+instance Make BeatTrack where+ ugen = mkBeatTrack
+ Sound/SC3/UGen/Record/BeatTrack2.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.BeatTrack2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BeatTrack2 = BeatTrack2 {+ busindex :: S.UGen,+ numfeatures :: S.UGen,+ windowsize :: S.UGen,+ phaseaccuracy :: S.UGen,+ lock :: S.UGen,+ weightingscheme :: S.UGen+ } deriving (Show)+beatTrack2 :: BeatTrack2+beatTrack2 = BeatTrack2 {+ busindex = 0.0,+ numfeatures = 0.0,+ windowsize = 2.0,+ phaseaccuracy = 0.02,+ lock = 0.0,+ weightingscheme = 0.0+ }+mkBeatTrack2 :: BeatTrack2 -> S.UGen+mkBeatTrack2 (BeatTrack2 a' b' c' d' e' f') = S.mkOsc S.KR "BeatTrack2" [a',b',c',d',e',f'] 6+instance Make BeatTrack2 where+ ugen = mkBeatTrack2
+ Sound/SC3/UGen/Record/BiPanB2.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.BiPanB2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BiPanB2 = BiPanB2 {+ rate :: S.Rate,+ inA :: S.UGen,+ inB :: S.UGen,+ azimuth :: S.UGen,+ gain :: S.UGen+ } deriving (Show)+biPanB2 :: BiPanB2+biPanB2 = BiPanB2 {+ rate = S.AR,+ inA = 0.0,+ inB = 0.0,+ azimuth = 0.0,+ gain = 1.0+ }+mkBiPanB2 :: BiPanB2 -> S.UGen+mkBiPanB2 (BiPanB2 r a' b' c' d') = S.mkOsc r "BiPanB2" [a',b',c',d'] 3+instance Make BiPanB2 where+ ugen = mkBiPanB2
+ Sound/SC3/UGen/Record/Blip.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Blip where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Blip = Blip {+ freq :: S.UGen,+ numharm :: S.UGen+ } deriving (Show)+blip :: Blip+blip = Blip {+ freq = 440.0,+ numharm = 200.0+ }+mkBlip :: Blip -> S.UGen+mkBlip (Blip a' b') = S.mkOsc S.AR "Blip" [a',b'] 1+instance Make Blip where+ ugen = mkBlip
+ Sound/SC3/UGen/Record/BufAllpassC.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufAllpassC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufAllpassC = BufAllpassC {+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+bufAllpassC :: BufAllpassC+bufAllpassC = BufAllpassC {+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkBufAllpassC :: BufAllpassC -> S.UGen+mkBufAllpassC (BufAllpassC a' b' c' d') = S.mkOsc S.AR "BufAllpassC" [a',b',c',d'] 1+instance Make BufAllpassC where+ ugen = mkBufAllpassC
+ Sound/SC3/UGen/Record/BufAllpassL.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufAllpassL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufAllpassL = BufAllpassL {+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+bufAllpassL :: BufAllpassL+bufAllpassL = BufAllpassL {+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkBufAllpassL :: BufAllpassL -> S.UGen+mkBufAllpassL (BufAllpassL a' b' c' d') = S.mkOsc S.AR "BufAllpassL" [a',b',c',d'] 1+instance Make BufAllpassL where+ ugen = mkBufAllpassL
+ Sound/SC3/UGen/Record/BufAllpassN.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufAllpassN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufAllpassN = BufAllpassN {+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+bufAllpassN :: BufAllpassN+bufAllpassN = BufAllpassN {+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkBufAllpassN :: BufAllpassN -> S.UGen+mkBufAllpassN (BufAllpassN a' b' c' d') = S.mkOsc S.AR "BufAllpassN" [a',b',c',d'] 1+instance Make BufAllpassN where+ ugen = mkBufAllpassN
+ Sound/SC3/UGen/Record/BufChannels.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BufChannels where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufChannels = BufChannels {+ rate :: S.Rate,+ bufnum :: S.UGen+ } deriving (Show)+bufChannels :: BufChannels+bufChannels = BufChannels {+ rate = S.AR,+ bufnum = 0.0+ }+mkBufChannels :: BufChannels -> S.UGen+mkBufChannels (BufChannels r a') = S.mkOsc r "BufChannels" [a'] 1+instance Make BufChannels where+ ugen = mkBufChannels
+ Sound/SC3/UGen/Record/BufCombC.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufCombC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufCombC = BufCombC {+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+bufCombC :: BufCombC+bufCombC = BufCombC {+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkBufCombC :: BufCombC -> S.UGen+mkBufCombC (BufCombC a' b' c' d') = S.mkOsc S.AR "BufCombC" [a',b',c',d'] 1+instance Make BufCombC where+ ugen = mkBufCombC
+ Sound/SC3/UGen/Record/BufCombL.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufCombL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufCombL = BufCombL {+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+bufCombL :: BufCombL+bufCombL = BufCombL {+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkBufCombL :: BufCombL -> S.UGen+mkBufCombL (BufCombL a' b' c' d') = S.mkOsc S.AR "BufCombL" [a',b',c',d'] 1+instance Make BufCombL where+ ugen = mkBufCombL
+ Sound/SC3/UGen/Record/BufCombN.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufCombN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufCombN = BufCombN {+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+bufCombN :: BufCombN+bufCombN = BufCombN {+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkBufCombN :: BufCombN -> S.UGen+mkBufCombN (BufCombN a' b' c' d') = S.mkOsc S.AR "BufCombN" [a',b',c',d'] 1+instance Make BufCombN where+ ugen = mkBufCombN
+ Sound/SC3/UGen/Record/BufDelayC.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufDelayC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufDelayC = BufDelayC {+ rate :: S.Rate,+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen+ } deriving (Show)+bufDelayC :: BufDelayC+bufDelayC = BufDelayC {+ rate = S.AR,+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2+ }+mkBufDelayC :: BufDelayC -> S.UGen+mkBufDelayC (BufDelayC r a' b' c') = S.mkOsc r "BufDelayC" [a',b',c'] 1+instance Make BufDelayC where+ ugen = mkBufDelayC
+ Sound/SC3/UGen/Record/BufDelayL.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufDelayL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufDelayL = BufDelayL {+ rate :: S.Rate,+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen+ } deriving (Show)+bufDelayL :: BufDelayL+bufDelayL = BufDelayL {+ rate = S.AR,+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2+ }+mkBufDelayL :: BufDelayL -> S.UGen+mkBufDelayL (BufDelayL r a' b' c') = S.mkOsc r "BufDelayL" [a',b',c'] 1+instance Make BufDelayL where+ ugen = mkBufDelayL
+ Sound/SC3/UGen/Record/BufDelayN.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.BufDelayN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufDelayN = BufDelayN {+ rate :: S.Rate,+ buf :: S.UGen,+ input :: S.UGen,+ delaytime :: S.UGen+ } deriving (Show)+bufDelayN :: BufDelayN+bufDelayN = BufDelayN {+ rate = S.AR,+ buf = 0.0,+ input = 0.0,+ delaytime = 0.2+ }+mkBufDelayN :: BufDelayN -> S.UGen+mkBufDelayN (BufDelayN r a' b' c') = S.mkOsc r "BufDelayN" [a',b',c'] 1+instance Make BufDelayN where+ ugen = mkBufDelayN
+ Sound/SC3/UGen/Record/BufDur.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BufDur where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufDur = BufDur {+ rate :: S.Rate,+ bufnum :: S.UGen+ } deriving (Show)+bufDur :: BufDur+bufDur = BufDur {+ rate = S.AR,+ bufnum = 0.0+ }+mkBufDur :: BufDur -> S.UGen+mkBufDur (BufDur r a') = S.mkOsc r "BufDur" [a'] 1+instance Make BufDur where+ ugen = mkBufDur
+ Sound/SC3/UGen/Record/BufFrames.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BufFrames where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufFrames = BufFrames {+ rate :: S.Rate,+ bufnum :: S.UGen+ } deriving (Show)+bufFrames :: BufFrames+bufFrames = BufFrames {+ rate = S.AR,+ bufnum = 0.0+ }+mkBufFrames :: BufFrames -> S.UGen+mkBufFrames (BufFrames r a') = S.mkOsc r "BufFrames" [a'] 1+instance Make BufFrames where+ ugen = mkBufFrames
+ Sound/SC3/UGen/Record/BufInfoUGenBase.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BufInfoUGenBase where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufInfoUGenBase = BufInfoUGenBase {+ rate :: S.Rate,+ bufnum :: S.UGen+ } deriving (Show)+bufInfoUGenBase :: BufInfoUGenBase+bufInfoUGenBase = BufInfoUGenBase {+ rate = S.AR,+ bufnum = 0.0+ }+mkBufInfoUGenBase :: BufInfoUGenBase -> S.UGen+mkBufInfoUGenBase (BufInfoUGenBase r a') = S.mkOsc r "BufInfoUGenBase" [a'] 1+instance Make BufInfoUGenBase where+ ugen = mkBufInfoUGenBase
+ Sound/SC3/UGen/Record/BufRateScale.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BufRateScale where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufRateScale = BufRateScale {+ rate :: S.Rate,+ bufnum :: S.UGen+ } deriving (Show)+bufRateScale :: BufRateScale+bufRateScale = BufRateScale {+ rate = S.AR,+ bufnum = 0.0+ }+mkBufRateScale :: BufRateScale -> S.UGen+mkBufRateScale (BufRateScale r a') = S.mkOsc r "BufRateScale" [a'] 1+instance Make BufRateScale where+ ugen = mkBufRateScale
+ Sound/SC3/UGen/Record/BufRd.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.BufRd where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufRd = BufRd {+ rate :: S.Rate,+ numChannels :: S.UGen,+ bufnum :: S.UGen,+ phase :: S.UGen,+ loop :: S.UGen,+ interpolation :: S.UGen+ } deriving (Show)+bufRd :: BufRd+bufRd = BufRd {+ rate = S.AR,+ numChannels = 0.0,+ bufnum = 0.0,+ phase = 0.0,+ loop = 1.0,+ interpolation = 2.0+ }+mkBufRd :: BufRd -> S.UGen+mkBufRd (BufRd r a' b' c' d' e') = S.mkOsc r "BufRd" [a',b',c',d',e'] 1+instance Make BufRd where+ ugen = mkBufRd
+ Sound/SC3/UGen/Record/BufSampleRate.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BufSampleRate where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufSampleRate = BufSampleRate {+ rate :: S.Rate,+ bufnum :: S.UGen+ } deriving (Show)+bufSampleRate :: BufSampleRate+bufSampleRate = BufSampleRate {+ rate = S.AR,+ bufnum = 0.0+ }+mkBufSampleRate :: BufSampleRate -> S.UGen+mkBufSampleRate (BufSampleRate r a') = S.mkOsc r "BufSampleRate" [a'] 1+instance Make BufSampleRate where+ ugen = mkBufSampleRate
+ Sound/SC3/UGen/Record/BufSamples.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.BufSamples where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufSamples = BufSamples {+ rate :: S.Rate,+ bufnum :: S.UGen+ } deriving (Show)+bufSamples :: BufSamples+bufSamples = BufSamples {+ rate = S.AR,+ bufnum = 0.0+ }+mkBufSamples :: BufSamples -> S.UGen+mkBufSamples (BufSamples r a') = S.mkOsc r "BufSamples" [a'] 1+instance Make BufSamples where+ ugen = mkBufSamples
+ Sound/SC3/UGen/Record/BufWr.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.BufWr where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data BufWr = BufWr {+ rate :: S.Rate,+ inputArray :: S.UGen,+ bufnum :: S.UGen,+ phase :: S.UGen,+ loop :: S.UGen+ } deriving (Show)+bufWr :: BufWr+bufWr = BufWr {+ rate = S.AR,+ inputArray = 0.0,+ bufnum = 0.0,+ phase = 0.0,+ loop = 1.0+ }+mkBufWr :: BufWr -> S.UGen+mkBufWr (BufWr r a' b' c' d') = S.mkOsc r "BufWr" [a',b',c',d'] 1+instance Make BufWr where+ ugen = mkBufWr
+ Sound/SC3/UGen/Record/COsc.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.COsc where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data COsc = COsc {+ rate :: S.Rate,+ bufnum :: S.UGen,+ freq :: S.UGen,+ beats :: S.UGen+ } deriving (Show)+cOsc :: COsc+cOsc = COsc {+ rate = S.AR,+ bufnum = 0.0,+ freq = 440.0,+ beats = 0.5+ }+mkCOsc :: COsc -> S.UGen+mkCOsc (COsc r a' b' c') = S.mkOsc r "COsc" [a',b',c'] 1+instance Make COsc where+ ugen = mkCOsc
+ Sound/SC3/UGen/Record/ChaosGen.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.ChaosGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data ChaosGen = ChaosGen {+ maxSize :: S.UGen+ } deriving (Show)+chaosGen :: ChaosGen+chaosGen = ChaosGen {+ maxSize = 0.0+ }+mkChaosGen :: ChaosGen -> S.UGen+mkChaosGen (ChaosGen a') = S.mkOsc S.AR "ChaosGen" [a'] 1+instance Make ChaosGen where+ ugen = mkChaosGen
+ Sound/SC3/UGen/Record/CheckBadValues.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.CheckBadValues where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data CheckBadValues = CheckBadValues {+ rate :: S.Rate,+ input :: S.UGen,+ id_ :: S.UGen,+ post :: S.UGen+ } deriving (Show)+checkBadValues :: CheckBadValues+checkBadValues = CheckBadValues {+ rate = S.AR,+ input = 0.0,+ id_ = 0.0,+ post = 2.0+ }+mkCheckBadValues :: CheckBadValues -> S.UGen+mkCheckBadValues (CheckBadValues r a' b' c') = S.mkOsc r "CheckBadValues" [a',b',c'] 1+instance Make CheckBadValues where+ ugen = mkCheckBadValues
+ Sound/SC3/UGen/Record/ClearBuf.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.ClearBuf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data ClearBuf = ClearBuf {+ buf :: S.UGen+ } deriving (Show)+clearBuf :: ClearBuf+clearBuf = ClearBuf {+ buf = 0.0+ }+mkClearBuf :: ClearBuf -> S.UGen+mkClearBuf (ClearBuf a') = S.mkOsc S.IR "ClearBuf" [a'] 1+instance Make ClearBuf where+ ugen = mkClearBuf
+ Sound/SC3/UGen/Record/Clip.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Clip where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Clip = Clip {+ rate :: S.Rate,+ input :: S.UGen,+ lo :: S.UGen,+ hi :: S.UGen+ } deriving (Show)+clip :: Clip+clip = Clip {+ rate = S.AR,+ input = 0.0,+ lo = 0.0,+ hi = 1.0+ }+mkClip :: Clip -> S.UGen+mkClip (Clip r a' b' c') = S.mkOsc r "Clip" [a',b',c'] 1+instance Make Clip where+ ugen = mkClip
+ Sound/SC3/UGen/Record/CoinGate.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.CoinGate where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data CoinGate = CoinGate {+ rate :: S.Rate,+ prob :: S.UGen,+ input :: S.UGen+ } deriving (Show)+coinGate :: CoinGate+coinGate = CoinGate {+ rate = S.AR,+ prob = 0.0,+ input = 0.0+ }+mkCoinGate :: CoinGate -> S.UGen+mkCoinGate (CoinGate r a' b') = S.mkOsc r "CoinGate" [a',b'] 1+instance Make CoinGate where+ ugen = mkCoinGate
+ Sound/SC3/UGen/Record/CombC.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.CombC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data CombC = CombC {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+combC :: CombC+combC = CombC {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkCombC :: CombC -> S.UGen+mkCombC (CombC r a' b' c' d') = S.mkOsc r "CombC" [a',b',c',d'] 1+instance Make CombC where+ ugen = mkCombC
+ Sound/SC3/UGen/Record/CombL.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.CombL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data CombL = CombL {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+combL :: CombL+combL = CombL {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkCombL :: CombL -> S.UGen+mkCombL (CombL r a' b' c' d') = S.mkOsc r "CombL" [a',b',c',d'] 1+instance Make CombL where+ ugen = mkCombL
+ Sound/SC3/UGen/Record/CombN.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.CombN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data CombN = CombN {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+combN :: CombN+combN = CombN {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2,+ decaytime = 1.0+ }+mkCombN :: CombN -> S.UGen+mkCombN (CombN r a' b' c' d') = S.mkOsc r "CombN" [a',b',c',d'] 1+instance Make CombN where+ ugen = mkCombN
+ Sound/SC3/UGen/Record/Compander.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.Compander where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Compander = Compander {+ input :: S.UGen,+ control :: S.UGen,+ thresh :: S.UGen,+ slopeBelow :: S.UGen,+ slopeAbove :: S.UGen,+ clampTime :: S.UGen,+ relaxTime :: S.UGen+ } deriving (Show)+compander :: Compander+compander = Compander {+ input = 0.0,+ control = 0.0,+ thresh = 0.5,+ slopeBelow = 1.0,+ slopeAbove = 1.0,+ clampTime = 0.01,+ relaxTime = 0.1+ }+mkCompander :: Compander -> S.UGen+mkCompander (Compander a' b' c' d' e' f' g') = S.mkOsc S.AR "Compander" [a',b',c',d',e',f',g'] 1+instance Make Compander where+ ugen = mkCompander
+ Sound/SC3/UGen/Record/CompanderD.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.CompanderD where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data CompanderD = CompanderD {+ input :: S.UGen,+ thresh :: S.UGen,+ slopeBelow :: S.UGen,+ slopeAbove :: S.UGen,+ clampTime :: S.UGen,+ relaxTime :: S.UGen+ } deriving (Show)+companderD :: CompanderD+companderD = CompanderD {+ input = 0.0,+ thresh = 0.5,+ slopeBelow = 1.0,+ slopeAbove = 1.0,+ clampTime = 0.01,+ relaxTime = 0.01+ }+mkCompanderD :: CompanderD -> S.UGen+mkCompanderD (CompanderD a' b' c' d' e' f') = S.mkOsc S.AR "CompanderD" [a',b',c',d',e',f'] 1+instance Make CompanderD where+ ugen = mkCompanderD
+ Sound/SC3/UGen/Record/Control.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Control where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Control = Control {+ rate :: S.Rate,+ values :: S.UGen+ } deriving (Show)+control :: Control+control = Control {+ rate = S.AR,+ values = 0.0+ }+mkControl :: Control -> S.UGen+mkControl (Control r a') = S.mkOsc r "Control" [a'] 1+instance Make Control where+ ugen = mkControl
+ Sound/SC3/UGen/Record/Convolution.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Convolution where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Convolution = Convolution {+ input :: S.UGen,+ kernel :: S.UGen,+ framesize :: S.UGen+ } deriving (Show)+convolution :: Convolution+convolution = Convolution {+ input = 0.0,+ kernel = 0.0,+ framesize = 512.0+ }+mkConvolution :: Convolution -> S.UGen+mkConvolution (Convolution a' b' c') = S.mkOsc S.AR "Convolution" [a',b',c'] 1+instance Make Convolution where+ ugen = mkConvolution
+ Sound/SC3/UGen/Record/Convolution2.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Convolution2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Convolution2 = Convolution2 {+ input :: S.UGen,+ kernel :: S.UGen,+ trigger :: S.UGen,+ framesize :: S.UGen+ } deriving (Show)+convolution2 :: Convolution2+convolution2 = Convolution2 {+ input = 0.0,+ kernel = 0.0,+ trigger = 0.0,+ framesize = 0.0+ }+mkConvolution2 :: Convolution2 -> S.UGen+mkConvolution2 (Convolution2 a' b' c' d') = S.mkOsc S.AR "Convolution2" [a',b',c',d'] 1+instance Make Convolution2 where+ ugen = mkConvolution2
+ Sound/SC3/UGen/Record/Convolution2L.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Convolution2L where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Convolution2L = Convolution2L {+ input :: S.UGen,+ kernel :: S.UGen,+ trigger :: S.UGen,+ framesize :: S.UGen,+ crossfade :: S.UGen+ } deriving (Show)+convolution2L :: Convolution2L+convolution2L = Convolution2L {+ input = 0.0,+ kernel = 0.0,+ trigger = 0.0,+ framesize = 0.0,+ crossfade = 1.0+ }+mkConvolution2L :: Convolution2L -> S.UGen+mkConvolution2L (Convolution2L a' b' c' d' e') = S.mkOsc S.AR "Convolution2L" [a',b',c',d',e'] 1+instance Make Convolution2L where+ ugen = mkConvolution2L
+ Sound/SC3/UGen/Record/Convolution3.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Convolution3 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Convolution3 = Convolution3 {+ rate :: S.Rate,+ input :: S.UGen,+ kernel :: S.UGen,+ trigger :: S.UGen,+ framesize :: S.UGen+ } deriving (Show)+convolution3 :: Convolution3+convolution3 = Convolution3 {+ rate = S.AR,+ input = 0.0,+ kernel = 0.0,+ trigger = 0.0,+ framesize = 0.0+ }+mkConvolution3 :: Convolution3 -> S.UGen+mkConvolution3 (Convolution3 r a' b' c' d') = S.mkOsc r "Convolution3" [a',b',c',d'] 1+instance Make Convolution3 where+ ugen = mkConvolution3
+ Sound/SC3/UGen/Record/Crackle.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Crackle where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Crackle = Crackle {+ rate :: S.Rate,+ chaosParam :: S.UGen+ } deriving (Show)+crackle :: Crackle+crackle = Crackle {+ rate = S.AR,+ chaosParam = 1.5+ }+mkCrackle :: Crackle -> S.UGen+mkCrackle (Crackle r a') = S.mkOsc r "Crackle" [a'] 1+instance Make Crackle where+ ugen = mkCrackle
+ Sound/SC3/UGen/Record/CuspL.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.CuspL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data CuspL = CuspL {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ xi :: S.UGen+ } deriving (Show)+cuspL :: CuspL+cuspL = CuspL {+ freq = 22050.0,+ a = 1.0,+ b = 1.9,+ xi = 0.0+ }+mkCuspL :: CuspL -> S.UGen+mkCuspL (CuspL a' b' c' d') = S.mkOsc S.AR "CuspL" [a',b',c',d'] 1+instance Make CuspL where+ ugen = mkCuspL
+ Sound/SC3/UGen/Record/CuspN.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.CuspN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data CuspN = CuspN {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ xi :: S.UGen+ } deriving (Show)+cuspN :: CuspN+cuspN = CuspN {+ freq = 22050.0,+ a = 1.0,+ b = 1.9,+ xi = 0.0+ }+mkCuspN :: CuspN -> S.UGen+mkCuspN (CuspN a' b' c' d') = S.mkOsc S.AR "CuspN" [a',b',c',d'] 1+instance Make CuspN where+ ugen = mkCuspN
+ Sound/SC3/UGen/Record/DC.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.DC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DC = DC {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+dC :: DC+dC = DC {+ rate = S.AR,+ input = 0.0+ }+mkDC :: DC -> S.UGen+mkDC (DC r a') = S.mkOsc r "DC" [a'] 1+instance Make DC where+ ugen = mkDC
+ Sound/SC3/UGen/Record/DUGen.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.DUGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DUGen = DUGen {+ maxSize :: S.UGen+ } deriving (Show)+dUGen :: DUGen+dUGen = DUGen {+ maxSize = 0.0+ }+mkDUGen :: DUGen -> S.UGen+mkDUGen (DUGen a') = S.mkOsc S.AR "DUGen" [a'] 1+instance Make DUGen where+ ugen = mkDUGen
+ Sound/SC3/UGen/Record/Dbrown.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Dbrown where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dbrown = Dbrown {+ lo :: S.UGen,+ hi :: S.UGen,+ step :: S.UGen,+ length_ :: S.UGen+ } deriving (Show)+dbrown :: Dbrown+dbrown = Dbrown {+ lo = 0.0,+ hi = 1.0,+ step = 0.01,+ length_ = 100000000.0+ }+mkDbrown :: Dbrown -> S.UGen+mkDbrown (Dbrown a' b' c' d') = S.mkOsc S.DR "Dbrown" [a',b',c',d'] 1+instance Make Dbrown where+ ugen = mkDbrown
+ Sound/SC3/UGen/Record/Dbufrd.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Dbufrd where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dbufrd = Dbufrd {+ bufnum :: S.UGen,+ phase :: S.UGen,+ loop :: S.UGen+ } deriving (Show)+dbufrd :: Dbufrd+dbufrd = Dbufrd {+ bufnum = 0.0,+ phase = 0.0,+ loop = 1.0+ }+mkDbufrd :: Dbufrd -> S.UGen+mkDbufrd (Dbufrd a' b' c') = S.mkOsc S.DR "Dbufrd" [a',b',c'] 1+instance Make Dbufrd where+ ugen = mkDbufrd
+ Sound/SC3/UGen/Record/Dbufwr.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Dbufwr where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dbufwr = Dbufwr {+ input :: S.UGen,+ bufnum :: S.UGen,+ phase :: S.UGen,+ loop :: S.UGen+ } deriving (Show)+dbufwr :: Dbufwr+dbufwr = Dbufwr {+ input = 0.0,+ bufnum = 0.0,+ phase = 0.0,+ loop = 1.0+ }+mkDbufwr :: Dbufwr -> S.UGen+mkDbufwr (Dbufwr a' b' c' d') = S.mkOsc S.DR "Dbufwr" [a',b',c',d'] 1+instance Make Dbufwr where+ ugen = mkDbufwr
+ Sound/SC3/UGen/Record/Decay.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Decay where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Decay = Decay {+ rate :: S.Rate,+ input :: S.UGen,+ decayTime :: S.UGen+ } deriving (Show)+decay :: Decay+decay = Decay {+ rate = S.AR,+ input = 0.0,+ decayTime = 1.0+ }+mkDecay :: Decay -> S.UGen+mkDecay (Decay r a' b') = S.mkOsc r "Decay" [a',b'] 1+instance Make Decay where+ ugen = mkDecay
+ Sound/SC3/UGen/Record/Decay2.hs view
@@ -0,0 +1,20 @@+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,+ attackTime :: S.UGen,+ decayTime :: S.UGen+ } deriving (Show)+decay2 :: Decay2+decay2 = Decay2 {+ rate = S.AR,+ input = 0.0,+ attackTime = 0.01,+ decayTime = 1.0+ }+mkDecay2 :: Decay2 -> S.UGen+mkDecay2 (Decay2 r a' b' c') = S.mkOsc r "Decay2" [a',b',c'] 1+instance Make Decay2 where+ ugen = mkDecay2
+ Sound/SC3/UGen/Record/DecodeB2.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.DecodeB2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DecodeB2 = DecodeB2 {+ rate :: S.Rate,+ numChans :: S.UGen,+ w :: S.UGen,+ x :: S.UGen,+ y :: S.UGen,+ orientation :: S.UGen+ } deriving (Show)+decodeB2 :: DecodeB2+decodeB2 = DecodeB2 {+ rate = S.AR,+ numChans = 0.0,+ w = 0.0,+ x = 0.0,+ y = 0.0,+ orientation = 0.5+ }+mkDecodeB2 :: DecodeB2 -> S.UGen+mkDecodeB2 (DecodeB2 r a' b' c' d' e') = S.mkOsc r "DecodeB2" [a',b',c',d',e'] 1+instance Make DecodeB2 where+ ugen = mkDecodeB2
+ Sound/SC3/UGen/Record/DegreeToKey.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.DegreeToKey where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DegreeToKey = DegreeToKey {+ rate :: S.Rate,+ bufnum :: S.UGen,+ input :: S.UGen,+ octave :: S.UGen+ } deriving (Show)+degreeToKey :: DegreeToKey+degreeToKey = DegreeToKey {+ rate = S.AR,+ bufnum = 0.0,+ input = 0.0,+ octave = 12.0+ }+mkDegreeToKey :: DegreeToKey -> S.UGen+mkDegreeToKey (DegreeToKey r a' b' c') = S.mkOsc r "DegreeToKey" [a',b',c'] 1+instance Make DegreeToKey where+ ugen = mkDegreeToKey
+ Sound/SC3/UGen/Record/Delay1.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Delay1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Delay1 = Delay1 {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+delay1 :: Delay1+delay1 = Delay1 {+ rate = S.AR,+ input = 0.0+ }+mkDelay1 :: Delay1 -> S.UGen+mkDelay1 (Delay1 r a') = S.mkOsc r "Delay1" [a'] 1+instance Make Delay1 where+ ugen = mkDelay1
+ Sound/SC3/UGen/Record/Delay2.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Delay2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Delay2 = Delay2 {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+delay2 :: Delay2+delay2 = Delay2 {+ rate = S.AR,+ input = 0.0+ }+mkDelay2 :: Delay2 -> S.UGen+mkDelay2 (Delay2 r a') = S.mkOsc r "Delay2" [a'] 1+instance Make Delay2 where+ ugen = mkDelay2
+ Sound/SC3/UGen/Record/DelayC.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.DelayC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DelayC = DelayC {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen+ } deriving (Show)+delayC :: DelayC+delayC = DelayC {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2+ }+mkDelayC :: DelayC -> S.UGen+mkDelayC (DelayC r a' b' c') = S.mkOsc r "DelayC" [a',b',c'] 1+instance Make DelayC where+ ugen = mkDelayC
+ Sound/SC3/UGen/Record/DelayL.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.DelayL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DelayL = DelayL {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen+ } deriving (Show)+delayL :: DelayL+delayL = DelayL {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2+ }+mkDelayL :: DelayL -> S.UGen+mkDelayL (DelayL r a' b' c') = S.mkOsc r "DelayL" [a',b',c'] 1+instance Make DelayL where+ ugen = mkDelayL
+ Sound/SC3/UGen/Record/DelayN.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.DelayN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DelayN = DelayN {+ rate :: S.Rate,+ input :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen+ } deriving (Show)+delayN :: DelayN+delayN = DelayN {+ rate = S.AR,+ input = 0.0,+ maxdelaytime = 0.2,+ delaytime = 0.2+ }+mkDelayN :: DelayN -> S.UGen+mkDelayN (DelayN r a' b' c') = S.mkOsc r "DelayN" [a',b',c'] 1+instance Make DelayN where+ ugen = mkDelayN
+ Sound/SC3/UGen/Record/Demand.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Demand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Demand = Demand {+ rate :: S.Rate,+ trig :: S.UGen,+ reset :: S.UGen,+ demandUGens :: S.UGen+ } deriving (Show)+demand :: Demand+demand = Demand {+ rate = S.AR,+ trig = 0.0,+ reset = 0.0,+ demandUGens = 0.0+ }+mkDemand :: Demand -> S.UGen+mkDemand (Demand r a' b' c') = S.mkOsc r "Demand" [a',b',c'] 1+instance Make Demand where+ ugen = mkDemand
+ Sound/SC3/UGen/Record/DemandEnvGen.hs view
@@ -0,0 +1,34 @@+module Sound.SC3.UGen.Record.DemandEnvGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DemandEnvGen = DemandEnvGen {+ rate :: S.Rate,+ level :: S.UGen,+ dur :: S.UGen,+ shape :: S.UGen,+ curve :: S.UGen,+ gate :: S.UGen,+ reset :: S.UGen,+ levelScale :: S.UGen,+ levelBias :: S.UGen,+ timeScale :: S.UGen,+ doneAction :: S.UGen+ } deriving (Show)+demandEnvGen :: DemandEnvGen+demandEnvGen = DemandEnvGen {+ rate = S.AR,+ level = 0.0,+ dur = 0.0,+ shape = 1.0,+ curve = 0.0,+ gate = 1.0,+ reset = 1.0,+ levelScale = 1.0,+ levelBias = 0.0,+ timeScale = 1.0,+ doneAction = 0.0+ }+mkDemandEnvGen :: DemandEnvGen -> S.UGen+mkDemandEnvGen (DemandEnvGen r a' b' c' d' e' f' g' h' i' j') = S.mkOsc r "DemandEnvGen" [a',b',c',d',e',f',g',h',i',j'] 1+instance Make DemandEnvGen where+ ugen = mkDemandEnvGen
+ Sound/SC3/UGen/Record/DetectIndex.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.DetectIndex where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DetectIndex = DetectIndex {+ rate :: S.Rate,+ bufnum :: S.UGen,+ input :: S.UGen+ } deriving (Show)+detectIndex :: DetectIndex+detectIndex = DetectIndex {+ rate = S.AR,+ bufnum = 0.0,+ input = 0.0+ }+mkDetectIndex :: DetectIndex -> S.UGen+mkDetectIndex (DetectIndex r a' b') = S.mkOsc r "DetectIndex" [a',b'] 1+instance Make DetectIndex where+ ugen = mkDetectIndex
+ Sound/SC3/UGen/Record/DetectSilence.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.DetectSilence where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DetectSilence = DetectSilence {+ rate :: S.Rate,+ input :: S.UGen,+ amp :: S.UGen,+ time :: S.UGen,+ doneAction :: S.UGen+ } deriving (Show)+detectSilence :: DetectSilence+detectSilence = DetectSilence {+ rate = S.AR,+ input = 0.0,+ amp = 0.0001,+ time = 0.1,+ doneAction = 0.0+ }+mkDetectSilence :: DetectSilence -> S.UGen+mkDetectSilence (DetectSilence r a' b' c' d') = S.mkOsc r "DetectSilence" [a',b',c',d'] 1+instance Make DetectSilence where+ ugen = mkDetectSilence
+ Sound/SC3/UGen/Record/Dgeom.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Dgeom where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dgeom = Dgeom {+ start :: S.UGen,+ grow :: S.UGen,+ length_ :: S.UGen+ } deriving (Show)+dgeom :: Dgeom+dgeom = Dgeom {+ start = 1.0,+ grow = 2.0,+ length_ = 100.0+ }+mkDgeom :: Dgeom -> S.UGen+mkDgeom (Dgeom a' b' c') = S.mkOsc S.DR "Dgeom" [a',b',c'] 1+instance Make Dgeom where+ ugen = mkDgeom
+ Sound/SC3/UGen/Record/Dibrown.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Dibrown where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dibrown = Dibrown {+ lo :: S.UGen,+ hi :: S.UGen,+ step :: S.UGen,+ length_ :: S.UGen+ } deriving (Show)+dibrown :: Dibrown+dibrown = Dibrown {+ lo = 0.0,+ hi = 1.0,+ step = 0.01,+ length_ = 100000000.0+ }+mkDibrown :: Dibrown -> S.UGen+mkDibrown (Dibrown a' b' c' d') = S.mkOsc S.DR "Dibrown" [a',b',c',d'] 1+instance Make Dibrown where+ ugen = mkDibrown
+ Sound/SC3/UGen/Record/DiskIn.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.DiskIn where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DiskIn = DiskIn {+ numChannels :: S.UGen,+ bufnum :: S.UGen,+ loop :: S.UGen+ } deriving (Show)+diskIn :: DiskIn+diskIn = DiskIn {+ numChannels = 0.0,+ bufnum = 0.0,+ loop = 0.0+ }+mkDiskIn :: DiskIn -> S.UGen+mkDiskIn (DiskIn a' b' c') = S.mkOsc S.AR "DiskIn" [a',b',c'] 1+instance Make DiskIn where+ ugen = mkDiskIn
+ Sound/SC3/UGen/Record/DiskOut.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.DiskOut where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DiskOut = DiskOut {+ bufnum :: S.UGen,+ input :: S.UGen+ } deriving (Show)+diskOut :: DiskOut+diskOut = DiskOut {+ bufnum = 0.0,+ input = 0.0+ }+mkDiskOut :: DiskOut -> S.UGen+mkDiskOut (DiskOut a' b') = S.mkOsc S.AR "DiskOut" [a',b'] 1+instance Make DiskOut where+ ugen = mkDiskOut
+ Sound/SC3/UGen/Record/Diwhite.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Diwhite where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Diwhite = Diwhite {+ lo :: S.UGen,+ hi :: S.UGen,+ length_ :: S.UGen+ } deriving (Show)+diwhite :: Diwhite+diwhite = Diwhite {+ lo = 0.0,+ hi = 1.0,+ length_ = 100000000.0+ }+mkDiwhite :: Diwhite -> S.UGen+mkDiwhite (Diwhite a' b' c') = S.mkOsc S.DR "Diwhite" [a',b',c'] 1+instance Make Diwhite where+ ugen = mkDiwhite
+ Sound/SC3/UGen/Record/Donce.hs view
@@ -0,0 +1,14 @@+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+ } deriving (Show)+donce :: Donce+donce = Donce {+ input = 0.0+ }+mkDonce :: Donce -> S.UGen+mkDonce (Donce a') = S.mkOsc S.DR "Donce" [a'] 1+instance Make Donce where+ ugen = mkDonce
+ Sound/SC3/UGen/Record/Done.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.Done where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Done = Done {+ src :: S.UGen+ } deriving (Show)+done :: Done+done = Done {+ src = 0.0+ }+mkDone :: Done -> S.UGen+mkDone (Done a') = S.mkOsc S.KR "Done" [a'] 1+instance Make Done where+ ugen = mkDone
+ Sound/SC3/UGen/Record/Dpoll.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.Dpoll where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dpoll = Dpoll {+ input :: S.UGen+ } deriving (Show)+dpoll :: Dpoll+dpoll = Dpoll {+ input = 0.0+ }+mkDpoll :: Dpoll -> S.UGen+mkDpoll (Dpoll a') = S.mkOsc S.DR "Dpoll" [a'] 1+instance Make Dpoll where+ ugen = mkDpoll
+ Sound/SC3/UGen/Record/Drand.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Drand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Drand = Drand {+ list :: S.UGen,+ repeats :: S.UGen+ } deriving (Show)+drand :: Drand+drand = Drand {+ list = 0.0,+ repeats = 1.0+ }+mkDrand :: Drand -> S.UGen+mkDrand (Drand a' b') = S.mkOsc S.DR "Drand" [a',b'] 1+instance Make Drand where+ ugen = mkDrand
+ Sound/SC3/UGen/Record/Dseq.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Dseq where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dseq = Dseq {+ list :: S.UGen,+ repeats :: S.UGen+ } deriving (Show)+dseq :: Dseq+dseq = Dseq {+ list = 0.0,+ repeats = 1.0+ }+mkDseq :: Dseq -> S.UGen+mkDseq (Dseq a' b') = S.mkOsc S.DR "Dseq" [a',b'] 1+instance Make Dseq where+ ugen = mkDseq
+ Sound/SC3/UGen/Record/Dser.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Dser where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dser = Dser {+ list :: S.UGen,+ repeats :: S.UGen+ } deriving (Show)+dser :: Dser+dser = Dser {+ list = 0.0,+ repeats = 1.0+ }+mkDser :: Dser -> S.UGen+mkDser (Dser a' b') = S.mkOsc S.DR "Dser" [a',b'] 1+instance Make Dser where+ ugen = mkDser
+ Sound/SC3/UGen/Record/Dseries.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Dseries where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dseries = Dseries {+ start :: S.UGen,+ step :: S.UGen,+ length_ :: S.UGen+ } deriving (Show)+dseries :: Dseries+dseries = Dseries {+ start = 1.0,+ step = 1.0,+ length_ = 100.0+ }+mkDseries :: Dseries -> S.UGen+mkDseries (Dseries a' b' c') = S.mkOsc S.DR "Dseries" [a',b',c'] 1+instance Make Dseries where+ ugen = mkDseries
+ Sound/SC3/UGen/Record/Dstutter.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Dstutter where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dstutter = Dstutter {+ n :: S.UGen,+ input :: S.UGen+ } deriving (Show)+dstutter :: Dstutter+dstutter = Dstutter {+ n = 0.0,+ input = 0.0+ }+mkDstutter :: Dstutter -> S.UGen+mkDstutter (Dstutter a' b') = S.mkOsc S.DR "Dstutter" [a',b'] 1+instance Make Dstutter where+ ugen = mkDstutter
+ Sound/SC3/UGen/Record/Dswitch.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Dswitch where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dswitch = Dswitch {+ list :: S.UGen,+ index :: S.UGen+ } deriving (Show)+dswitch :: Dswitch+dswitch = Dswitch {+ list = 0.0,+ index = 0.0+ }+mkDswitch :: Dswitch -> S.UGen+mkDswitch (Dswitch a' b') = S.mkOsc S.DR "Dswitch" [a',b'] 1+instance Make Dswitch where+ ugen = mkDswitch
+ Sound/SC3/UGen/Record/Dswitch1.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Dswitch1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dswitch1 = Dswitch1 {+ list :: S.UGen,+ index :: S.UGen+ } deriving (Show)+dswitch1 :: Dswitch1+dswitch1 = Dswitch1 {+ list = 0.0,+ index = 0.0+ }+mkDswitch1 :: Dswitch1 -> S.UGen+mkDswitch1 (Dswitch1 a' b') = S.mkOsc S.DR "Dswitch1" [a',b'] 1+instance Make Dswitch1 where+ ugen = mkDswitch1
+ Sound/SC3/UGen/Record/Dust.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Dust where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dust = Dust {+ rate :: S.Rate,+ density :: S.UGen+ } deriving (Show)+dust :: Dust+dust = Dust {+ rate = S.AR,+ density = 0.0+ }+mkDust :: Dust -> S.UGen+mkDust (Dust r a') = S.mkOsc r "Dust" [a'] 1+instance Make Dust where+ ugen = mkDust
+ Sound/SC3/UGen/Record/Dust2.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Dust2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dust2 = Dust2 {+ rate :: S.Rate,+ density :: S.UGen+ } deriving (Show)+dust2 :: Dust2+dust2 = Dust2 {+ rate = S.AR,+ density = 0.0+ }+mkDust2 :: Dust2 -> S.UGen+mkDust2 (Dust2 r a') = S.mkOsc r "Dust2" [a'] 1+instance Make Dust2 where+ ugen = mkDust2
+ Sound/SC3/UGen/Record/Duty.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Duty where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Duty = Duty {+ rate :: S.Rate,+ dur :: S.UGen,+ reset :: S.UGen,+ level :: S.UGen,+ doneAction :: S.UGen+ } deriving (Show)+duty :: Duty+duty = Duty {+ rate = S.AR,+ dur = 1.0,+ reset = 0.0,+ level = 1.0,+ doneAction = 0.0+ }+mkDuty :: Duty -> S.UGen+mkDuty (Duty r a' b' c' d') = S.mkOsc r "Duty" [a',b',c',d'] 1+instance Make Duty where+ ugen = mkDuty
+ Sound/SC3/UGen/Record/Dwhite.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Dwhite where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dwhite = Dwhite {+ lo :: S.UGen,+ hi :: S.UGen,+ length_ :: S.UGen+ } deriving (Show)+dwhite :: Dwhite+dwhite = Dwhite {+ lo = 0.0,+ hi = 1.0,+ length_ = 100000000.0+ }+mkDwhite :: Dwhite -> S.UGen+mkDwhite (Dwhite a' b' c') = S.mkOsc S.DR "Dwhite" [a',b',c'] 1+instance Make Dwhite where+ ugen = mkDwhite
+ Sound/SC3/UGen/Record/Dxrand.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Dxrand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Dxrand = Dxrand {+ list :: S.UGen,+ repeats :: S.UGen+ } deriving (Show)+dxrand :: Dxrand+dxrand = Dxrand {+ list = 0.0,+ repeats = 1.0+ }+mkDxrand :: Dxrand -> S.UGen+mkDxrand (Dxrand a' b') = S.mkOsc S.DR "Dxrand" [a',b'] 1+instance Make Dxrand where+ ugen = mkDxrand
+ Sound/SC3/UGen/Record/DynKlang.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.DynKlang where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DynKlang = DynKlang {+ specificationsArrayRef :: S.UGen,+ freqscale :: S.UGen,+ freqoffset :: S.UGen+ } deriving (Show)+dynKlang :: DynKlang+dynKlang = DynKlang {+ specificationsArrayRef = 0.0,+ freqscale = 1.0,+ freqoffset = 0.0+ }+mkDynKlang :: DynKlang -> S.UGen+mkDynKlang (DynKlang a' b' c') = S.mkOsc S.AR "DynKlang" [a',b',c'] 1+instance Make DynKlang where+ ugen = mkDynKlang
+ Sound/SC3/UGen/Record/DynKlank.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.DynKlank where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data DynKlank = DynKlank {+ specificationsArrayRef :: S.UGen,+ input :: S.UGen,+ freqscale :: S.UGen,+ freqoffset :: S.UGen,+ decayscale :: S.UGen+ } deriving (Show)+dynKlank :: DynKlank+dynKlank = DynKlank {+ specificationsArrayRef = 0.0,+ input = 0.0,+ freqscale = 1.0,+ freqoffset = 0.0,+ decayscale = 1.0+ }+mkDynKlank :: DynKlank -> S.UGen+mkDynKlank (DynKlank a' b' c' d' e') = S.mkOsc S.AR "DynKlank" [a',b',c',d',e'] 1+instance Make DynKlank where+ ugen = mkDynKlank
+ Sound/SC3/UGen/Record/EnvGen.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.EnvGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data EnvGen = EnvGen {+ rate :: S.Rate,+ envelope :: S.UGen,+ gate :: S.UGen,+ levelScale :: S.UGen,+ levelBias :: S.UGen,+ timeScale :: S.UGen,+ doneAction :: S.UGen+ } deriving (Show)+envGen :: EnvGen+envGen = EnvGen {+ rate = S.AR,+ envelope = 0.0,+ gate = 1.0,+ levelScale = 1.0,+ levelBias = 0.0,+ timeScale = 1.0,+ doneAction = 0.0+ }+mkEnvGen :: EnvGen -> S.UGen+mkEnvGen (EnvGen r a' b' c' d' e' f') = S.mkOsc r "EnvGen" [a',b',c',d',e',f'] 1+instance Make EnvGen where+ ugen = mkEnvGen
+ Sound/SC3/UGen/Record/ExpRand.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.ExpRand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data ExpRand = ExpRand {+ lo :: S.UGen,+ hi :: S.UGen+ } deriving (Show)+expRand :: ExpRand+expRand = ExpRand {+ lo = 0.01,+ hi = 1.0+ }+mkExpRand :: ExpRand -> S.UGen+mkExpRand (ExpRand a' b') = S.mkOsc S.IR "ExpRand" [a',b'] 1+instance Make ExpRand where+ ugen = mkExpRand
+ Sound/SC3/UGen/Record/FBSineC.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.FBSineC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FBSineC = FBSineC {+ freq :: S.UGen,+ im :: S.UGen,+ fb :: S.UGen,+ a :: S.UGen,+ c :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+fBSineC :: FBSineC+fBSineC = FBSineC {+ freq = 22050.0,+ im = 1.0,+ fb = 0.1,+ a = 1.1,+ c = 0.5,+ xi = 0.1,+ yi = 0.1+ }+mkFBSineC :: FBSineC -> S.UGen+mkFBSineC (FBSineC a' b' c' d' e' f' g') = S.mkOsc S.AR "FBSineC" [a',b',c',d',e',f',g'] 1+instance Make FBSineC where+ ugen = mkFBSineC
+ Sound/SC3/UGen/Record/FBSineL.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.FBSineL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FBSineL = FBSineL {+ freq :: S.UGen,+ im :: S.UGen,+ fb :: S.UGen,+ a :: S.UGen,+ c :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+fBSineL :: FBSineL+fBSineL = FBSineL {+ freq = 22050.0,+ im = 1.0,+ fb = 0.1,+ a = 1.1,+ c = 0.5,+ xi = 0.1,+ yi = 0.1+ }+mkFBSineL :: FBSineL -> S.UGen+mkFBSineL (FBSineL a' b' c' d' e' f' g') = S.mkOsc S.AR "FBSineL" [a',b',c',d',e',f',g'] 1+instance Make FBSineL where+ ugen = mkFBSineL
+ Sound/SC3/UGen/Record/FBSineN.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.FBSineN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FBSineN = FBSineN {+ freq :: S.UGen,+ im :: S.UGen,+ fb :: S.UGen,+ a :: S.UGen,+ c :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+fBSineN :: FBSineN+fBSineN = FBSineN {+ freq = 22050.0,+ im = 1.0,+ fb = 0.1,+ a = 1.1,+ c = 0.5,+ xi = 0.1,+ yi = 0.1+ }+mkFBSineN :: FBSineN -> S.UGen+mkFBSineN (FBSineN a' b' c' d' e' f' g') = S.mkOsc S.AR "FBSineN" [a',b',c',d',e',f',g'] 1+instance Make FBSineN where+ ugen = mkFBSineN
+ Sound/SC3/UGen/Record/FFT.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.FFT where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FFT = FFT {+ buffer :: S.UGen,+ input :: S.UGen,+ hop :: S.UGen,+ wintype :: S.UGen,+ active :: S.UGen,+ winsize :: S.UGen+ } deriving (Show)+fFT :: FFT+fFT = FFT {+ buffer = 0.0,+ input = 0.0,+ hop = 0.5,+ wintype = 0.0,+ active = 1.0,+ winsize = 0.0+ }+mkFFT :: FFT -> S.UGen+mkFFT (FFT a' b' c' d' e' f') = S.mkOsc S.KR "FFT" [a',b',c',d',e',f'] 1+instance Make FFT where+ ugen = mkFFT
+ Sound/SC3/UGen/Record/FFTTrigger.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.FFTTrigger where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FFTTrigger = FFTTrigger {+ buffer :: S.UGen,+ hop :: S.UGen,+ polar :: S.UGen+ } deriving (Show)+fFTTrigger :: FFTTrigger+fFTTrigger = FFTTrigger {+ buffer = 0.0,+ hop = 0.5,+ polar = 0.0+ }+mkFFTTrigger :: FFTTrigger -> S.UGen+mkFFTTrigger (FFTTrigger a' b' c') = S.mkOsc S.KR "FFTTrigger" [a',b',c'] 1+instance Make FFTTrigger where+ ugen = mkFFTTrigger
+ Sound/SC3/UGen/Record/FOS.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.FOS where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FOS = FOS {+ rate :: S.Rate,+ input :: S.UGen,+ a0 :: S.UGen,+ a1 :: S.UGen,+ b1 :: S.UGen+ } deriving (Show)+fOS :: FOS+fOS = FOS {+ rate = S.AR,+ input = 0.0,+ a0 = 0.0,+ a1 = 0.0,+ b1 = 0.0+ }+mkFOS :: FOS -> S.UGen+mkFOS (FOS r a' b' c' d') = S.mkOsc r "FOS" [a',b',c',d'] 1+instance Make FOS where+ ugen = mkFOS
+ Sound/SC3/UGen/Record/FSinOsc.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.FSinOsc where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FSinOsc = FSinOsc {+ rate :: S.Rate,+ freq :: S.UGen,+ iphase :: S.UGen+ } deriving (Show)+fSinOsc :: FSinOsc+fSinOsc = FSinOsc {+ rate = S.AR,+ freq = 440.0,+ iphase = 0.0+ }+mkFSinOsc :: FSinOsc -> S.UGen+mkFSinOsc (FSinOsc r a' b') = S.mkOsc r "FSinOsc" [a',b'] 1+instance Make FSinOsc where+ ugen = mkFSinOsc
+ Sound/SC3/UGen/Record/Filter.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.Filter where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Filter = Filter {+ maxSize :: S.UGen+ } deriving (Show)+filter :: Filter+filter = Filter {+ maxSize = 0.0+ }+mkFilter :: Filter -> S.UGen+mkFilter (Filter a') = S.mkOsc S.AR "Filter" [a'] 1+instance Make Filter where+ ugen = mkFilter
+ Sound/SC3/UGen/Record/Fold.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Fold where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Fold = Fold {+ rate :: S.Rate,+ input :: S.UGen,+ lo :: S.UGen,+ hi :: S.UGen+ } deriving (Show)+fold :: Fold+fold = Fold {+ rate = S.AR,+ input = 0.0,+ lo = 0.0,+ hi = 1.0+ }+mkFold :: Fold -> S.UGen+mkFold (Fold r a' b' c') = S.mkOsc r "Fold" [a',b',c'] 1+instance Make Fold where+ ugen = mkFold
+ Sound/SC3/UGen/Record/Formant.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Formant where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Formant = Formant {+ fundfreq :: S.UGen,+ formfreq :: S.UGen,+ bwfreq :: S.UGen+ } deriving (Show)+formant :: Formant+formant = Formant {+ fundfreq = 440.0,+ formfreq = 1760.0,+ bwfreq = 880.0+ }+mkFormant :: Formant -> S.UGen+mkFormant (Formant a' b' c') = S.mkOsc S.AR "Formant" [a',b',c'] 1+instance Make Formant where+ ugen = mkFormant
+ Sound/SC3/UGen/Record/Formlet.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Formlet where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Formlet = Formlet {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ attacktime :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+formlet :: Formlet+formlet = Formlet {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ attacktime = 1.0,+ decaytime = 1.0+ }+mkFormlet :: Formlet -> S.UGen+mkFormlet (Formlet r a' b' c' d') = S.mkOsc r "Formlet" [a',b',c',d'] 1+instance Make Formlet where+ ugen = mkFormlet
+ Sound/SC3/UGen/Record/Free.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Free where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Free = Free {+ trig :: S.UGen,+ id_ :: S.UGen+ } deriving (Show)+free :: Free+free = Free {+ trig = 0.0,+ id_ = 0.0+ }+mkFree :: Free -> S.UGen+mkFree (Free a' b') = S.mkOsc S.KR "Free" [a',b'] 1+instance Make Free where+ ugen = mkFree
+ Sound/SC3/UGen/Record/FreeSelf.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.FreeSelf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FreeSelf = FreeSelf {+ input :: S.UGen+ } deriving (Show)+freeSelf :: FreeSelf+freeSelf = FreeSelf {+ input = 0.0+ }+mkFreeSelf :: FreeSelf -> S.UGen+mkFreeSelf (FreeSelf a') = S.mkOsc S.KR "FreeSelf" [a'] 1+instance Make FreeSelf where+ ugen = mkFreeSelf
+ Sound/SC3/UGen/Record/FreeSelfWhenDone.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.FreeSelfWhenDone where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FreeSelfWhenDone = FreeSelfWhenDone {+ src :: S.UGen+ } deriving (Show)+freeSelfWhenDone :: FreeSelfWhenDone+freeSelfWhenDone = FreeSelfWhenDone {+ src = 0.0+ }+mkFreeSelfWhenDone :: FreeSelfWhenDone -> S.UGen+mkFreeSelfWhenDone (FreeSelfWhenDone a') = S.mkOsc S.KR "FreeSelfWhenDone" [a'] 1+instance Make FreeSelfWhenDone where+ ugen = mkFreeSelfWhenDone
+ Sound/SC3/UGen/Record/FreeVerb.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.FreeVerb where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FreeVerb = FreeVerb {+ input :: S.UGen,+ mix :: S.UGen,+ room :: S.UGen,+ damp :: S.UGen+ } deriving (Show)+freeVerb :: FreeVerb+freeVerb = FreeVerb {+ input = 0.0,+ mix = 0.33,+ room = 0.5,+ damp = 0.5+ }+mkFreeVerb :: FreeVerb -> S.UGen+mkFreeVerb (FreeVerb a' b' c' d') = S.mkOsc S.AR "FreeVerb" [a',b',c',d'] 1+instance Make FreeVerb where+ ugen = mkFreeVerb
+ Sound/SC3/UGen/Record/FreeVerb2.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.FreeVerb2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FreeVerb2 = FreeVerb2 {+ input :: S.UGen,+ in2 :: S.UGen,+ mix :: S.UGen,+ room :: S.UGen,+ damp :: S.UGen+ } deriving (Show)+freeVerb2 :: FreeVerb2+freeVerb2 = FreeVerb2 {+ input = 0.0,+ in2 = 0.0,+ mix = 0.33,+ room = 0.5,+ damp = 0.5+ }+mkFreeVerb2 :: FreeVerb2 -> S.UGen+mkFreeVerb2 (FreeVerb2 a' b' c' d' e') = S.mkOsc S.AR "FreeVerb2" [a',b',c',d',e'] 2+instance Make FreeVerb2 where+ ugen = mkFreeVerb2
+ Sound/SC3/UGen/Record/FreqShift.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.FreqShift where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data FreqShift = FreqShift {+ input :: S.UGen,+ freq :: S.UGen,+ phase :: S.UGen+ } deriving (Show)+freqShift :: FreqShift+freqShift = FreqShift {+ input = 0.0,+ freq = 0.0,+ phase = 0.0+ }+mkFreqShift :: FreqShift -> S.UGen+mkFreqShift (FreqShift a' b' c') = S.mkOsc S.AR "FreqShift" [a',b',c'] 1+instance Make FreqShift where+ ugen = mkFreqShift
+ Sound/SC3/UGen/Record/GVerb.hs view
@@ -0,0 +1,32 @@+module Sound.SC3.UGen.Record.GVerb where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GVerb = GVerb {+ input :: S.UGen,+ roomsize :: S.UGen,+ revtime :: S.UGen,+ damping :: S.UGen,+ inputbw :: S.UGen,+ spread :: S.UGen,+ drylevel :: S.UGen,+ earlyreflevel :: S.UGen,+ taillevel :: S.UGen,+ maxroomsize :: S.UGen+ } deriving (Show)+gVerb :: GVerb+gVerb = GVerb {+ input = 0.0,+ roomsize = 10.0,+ revtime = 3.0,+ damping = 0.5,+ inputbw = 0.5,+ spread = 15.0,+ drylevel = 1.0,+ earlyreflevel = 0.7,+ taillevel = 0.5,+ maxroomsize = 300.0+ }+mkGVerb :: GVerb -> S.UGen+mkGVerb (GVerb a' b' c' d' e' f' g' h' i' j') = S.mkOsc S.AR "GVerb" [a',b',c',d',e',f',g',h',i',j'] 2+instance Make GVerb where+ ugen = mkGVerb
+ Sound/SC3/UGen/Record/Gate.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Gate where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Gate = Gate {+ rate :: S.Rate,+ input :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+gate :: Gate+gate = Gate {+ rate = S.AR,+ input = 0.0,+ trig = 0.0+ }+mkGate :: Gate -> S.UGen+mkGate (Gate r a' b') = S.mkOsc r "Gate" [a',b'] 1+instance Make Gate where+ ugen = mkGate
+ Sound/SC3/UGen/Record/GbmanL.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.GbmanL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GbmanL = GbmanL {+ freq :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+gbmanL :: GbmanL+gbmanL = GbmanL {+ freq = 22050.0,+ xi = 1.2,+ yi = 2.1+ }+mkGbmanL :: GbmanL -> S.UGen+mkGbmanL (GbmanL a' b' c') = S.mkOsc S.AR "GbmanL" [a',b',c'] 1+instance Make GbmanL where+ ugen = mkGbmanL
+ Sound/SC3/UGen/Record/GbmanN.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.GbmanN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GbmanN = GbmanN {+ freq :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+gbmanN :: GbmanN+gbmanN = GbmanN {+ freq = 22050.0,+ xi = 1.2,+ yi = 2.1+ }+mkGbmanN :: GbmanN -> S.UGen+mkGbmanN (GbmanN a' b' c') = S.mkOsc S.AR "GbmanN" [a',b',c'] 1+instance Make GbmanN where+ ugen = mkGbmanN
+ Sound/SC3/UGen/Record/Gendy1.hs view
@@ -0,0 +1,34 @@+module Sound.SC3.UGen.Record.Gendy1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Gendy1 = Gendy1 {+ rate :: S.Rate,+ ampdist :: S.UGen,+ durdist :: S.UGen,+ adparam :: S.UGen,+ ddparam :: S.UGen,+ minfreq :: S.UGen,+ maxfreq :: S.UGen,+ ampscale :: S.UGen,+ durscale :: S.UGen,+ initCPs :: S.UGen,+ knum :: S.UGen+ } deriving (Show)+gendy1 :: Gendy1+gendy1 = Gendy1 {+ rate = S.AR,+ ampdist = 1.0,+ durdist = 1.0,+ adparam = 1.0,+ ddparam = 1.0,+ minfreq = 440.0,+ maxfreq = 660.0,+ ampscale = 0.5,+ durscale = 0.5,+ initCPs = 12.0,+ knum = 0.0+ }+mkGendy1 :: Gendy1 -> S.UGen+mkGendy1 (Gendy1 r a' b' c' d' e' f' g' h' i' j') = S.mkOsc r "Gendy1" [a',b',c',d',e',f',g',h',i',j'] 1+instance Make Gendy1 where+ ugen = mkGendy1
+ Sound/SC3/UGen/Record/Gendy2.hs view
@@ -0,0 +1,38 @@+module Sound.SC3.UGen.Record.Gendy2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Gendy2 = Gendy2 {+ rate :: S.Rate,+ ampdist :: S.UGen,+ durdist :: S.UGen,+ adparam :: S.UGen,+ ddparam :: S.UGen,+ minfreq :: S.UGen,+ maxfreq :: S.UGen,+ ampscale :: S.UGen,+ durscale :: S.UGen,+ initCPs :: S.UGen,+ knum :: S.UGen,+ a :: S.UGen,+ c :: S.UGen+ } deriving (Show)+gendy2 :: Gendy2+gendy2 = Gendy2 {+ rate = S.AR,+ ampdist = 1.0,+ durdist = 1.0,+ adparam = 1.0,+ ddparam = 1.0,+ minfreq = 440.0,+ maxfreq = 660.0,+ ampscale = 0.5,+ durscale = 0.5,+ initCPs = 12.0,+ knum = 0.0,+ a = 1.17,+ c = 0.31+ }+mkGendy2 :: Gendy2 -> S.UGen+mkGendy2 (Gendy2 r a' b' c' d' e' f' g' h' i' j' k' l') = S.mkOsc r "Gendy2" [a',b',c',d',e',f',g',h',i',j',k',l'] 1+instance Make Gendy2 where+ ugen = mkGendy2
+ Sound/SC3/UGen/Record/Gendy3.hs view
@@ -0,0 +1,32 @@+module Sound.SC3.UGen.Record.Gendy3 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Gendy3 = Gendy3 {+ rate :: S.Rate,+ ampdist :: S.UGen,+ durdist :: S.UGen,+ adparam :: S.UGen,+ ddparam :: S.UGen,+ freq :: S.UGen,+ ampscale :: S.UGen,+ durscale :: S.UGen,+ initCPs :: S.UGen,+ knum :: S.UGen+ } deriving (Show)+gendy3 :: Gendy3+gendy3 = Gendy3 {+ rate = S.AR,+ ampdist = 1.0,+ durdist = 1.0,+ adparam = 1.0,+ ddparam = 1.0,+ freq = 440.0,+ ampscale = 0.5,+ durscale = 0.5,+ initCPs = 12.0,+ knum = 0.0+ }+mkGendy3 :: Gendy3 -> S.UGen+mkGendy3 (Gendy3 r a' b' c' d' e' f' g' h' i') = S.mkOsc r "Gendy3" [a',b',c',d',e',f',g',h',i'] 1+instance Make Gendy3 where+ ugen = mkGendy3
+ Sound/SC3/UGen/Record/GrainBuf.hs view
@@ -0,0 +1,30 @@+module Sound.SC3.UGen.Record.GrainBuf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GrainBuf = GrainBuf {+ numChannels :: S.UGen,+ trigger :: S.UGen,+ dur :: S.UGen,+ sndbuf :: S.UGen,+ rate_ :: S.UGen,+ pos :: S.UGen,+ interp :: S.UGen,+ pan :: S.UGen,+ envbufnum :: S.UGen+ } deriving (Show)+grainBuf :: GrainBuf+grainBuf = GrainBuf {+ numChannels = 1.0,+ trigger = 0.0,+ dur = 1.0,+ sndbuf = 0.0,+ rate_ = 1.0,+ pos = 0.0,+ interp = 2.0,+ pan = 0.0,+ envbufnum = -1.0+ }+mkGrainBuf :: GrainBuf -> S.UGen+mkGrainBuf (GrainBuf a' b' c' d' e' f' g' h' i') = S.mkOsc S.AR "GrainBuf" [a',b',c',d',e',f',g',h',i'] 1+instance Make GrainBuf where+ ugen = mkGrainBuf
+ Sound/SC3/UGen/Record/GrainFM.hs view
@@ -0,0 +1,28 @@+module Sound.SC3.UGen.Record.GrainFM where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GrainFM = GrainFM {+ numChannels :: S.UGen,+ trigger :: S.UGen,+ dur :: S.UGen,+ carfreq :: S.UGen,+ modfreq :: S.UGen,+ index :: S.UGen,+ pan :: S.UGen,+ envbufnum :: S.UGen+ } deriving (Show)+grainFM :: GrainFM+grainFM = GrainFM {+ numChannels = 1.0,+ trigger = 0.0,+ dur = 1.0,+ carfreq = 440.0,+ modfreq = 200.0,+ index = 1.0,+ pan = 0.0,+ envbufnum = -1.0+ }+mkGrainFM :: GrainFM -> S.UGen+mkGrainFM (GrainFM a' b' c' d' e' f' g' h') = S.mkOsc S.AR "GrainFM" [a',b',c',d',e',f',g',h'] 1+instance Make GrainFM where+ ugen = mkGrainFM
+ Sound/SC3/UGen/Record/GrainIn.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.GrainIn where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GrainIn = GrainIn {+ numChannels :: S.UGen,+ trigger :: S.UGen,+ dur :: S.UGen,+ input :: S.UGen,+ pan :: S.UGen,+ envbufnum :: S.UGen+ } deriving (Show)+grainIn :: GrainIn+grainIn = GrainIn {+ numChannels = 1.0,+ trigger = 0.0,+ dur = 1.0,+ input = 0.0,+ pan = 0.0,+ envbufnum = -1.0+ }+mkGrainIn :: GrainIn -> S.UGen+mkGrainIn (GrainIn a' b' c' d' e' f') = S.mkOsc S.AR "GrainIn" [a',b',c',d',e',f'] 1+instance Make GrainIn where+ ugen = mkGrainIn
+ Sound/SC3/UGen/Record/GrainSin.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.GrainSin where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data GrainSin = GrainSin {+ numChannels :: S.UGen,+ trigger :: S.UGen,+ dur :: S.UGen,+ freq :: S.UGen,+ pan :: S.UGen,+ envbufnum :: S.UGen+ } deriving (Show)+grainSin :: GrainSin+grainSin = GrainSin {+ numChannels = 1.0,+ trigger = 0.0,+ dur = 1.0,+ freq = 440.0,+ pan = 0.0,+ envbufnum = -1.0+ }+mkGrainSin :: GrainSin -> S.UGen+mkGrainSin (GrainSin a' b' c' d' e' f') = S.mkOsc S.AR "GrainSin" [a',b',c',d',e',f'] 1+instance Make GrainSin where+ ugen = mkGrainSin
+ Sound/SC3/UGen/Record/HPF.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.HPF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data HPF = HPF {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen+ } deriving (Show)+hPF :: HPF+hPF = HPF {+ rate = S.AR,+ input = 0.0,+ freq = 440.0+ }+mkHPF :: HPF -> S.UGen+mkHPF (HPF r a' b') = S.mkOsc r "HPF" [a',b'] 1+instance Make HPF where+ ugen = mkHPF
+ Sound/SC3/UGen/Record/HPZ1.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.HPZ1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data HPZ1 = HPZ1 {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+hPZ1 :: HPZ1+hPZ1 = HPZ1 {+ rate = S.AR,+ input = 0.0+ }+mkHPZ1 :: HPZ1 -> S.UGen+mkHPZ1 (HPZ1 r a') = S.mkOsc r "HPZ1" [a'] 1+instance Make HPZ1 where+ ugen = mkHPZ1
+ Sound/SC3/UGen/Record/HPZ2.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.HPZ2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data HPZ2 = HPZ2 {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+hPZ2 :: HPZ2+hPZ2 = HPZ2 {+ rate = S.AR,+ input = 0.0+ }+mkHPZ2 :: HPZ2 -> S.UGen+mkHPZ2 (HPZ2 r a') = S.mkOsc r "HPZ2" [a'] 1+instance Make HPZ2 where+ ugen = mkHPZ2
+ Sound/SC3/UGen/Record/Hasher.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Hasher where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Hasher = Hasher {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+hasher :: Hasher+hasher = Hasher {+ rate = S.AR,+ input = 0.0+ }+mkHasher :: Hasher -> S.UGen+mkHasher (Hasher r a') = S.mkOsc r "Hasher" [a'] 1+instance Make Hasher where+ ugen = mkHasher
+ Sound/SC3/UGen/Record/HenonC.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.HenonC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data HenonC = HenonC {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ x0 :: S.UGen,+ x1 :: S.UGen+ } deriving (Show)+henonC :: HenonC+henonC = HenonC {+ freq = 22050.0,+ a = 1.4,+ b = 0.3,+ x0 = 0.0,+ x1 = 0.0+ }+mkHenonC :: HenonC -> S.UGen+mkHenonC (HenonC a' b' c' d' e') = S.mkOsc S.AR "HenonC" [a',b',c',d',e'] 1+instance Make HenonC where+ ugen = mkHenonC
+ Sound/SC3/UGen/Record/HenonL.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.HenonL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data HenonL = HenonL {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ x0 :: S.UGen,+ x1 :: S.UGen+ } deriving (Show)+henonL :: HenonL+henonL = HenonL {+ freq = 22050.0,+ a = 1.4,+ b = 0.3,+ x0 = 0.0,+ x1 = 0.0+ }+mkHenonL :: HenonL -> S.UGen+mkHenonL (HenonL a' b' c' d' e') = S.mkOsc S.AR "HenonL" [a',b',c',d',e'] 1+instance Make HenonL where+ ugen = mkHenonL
+ Sound/SC3/UGen/Record/HenonN.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.HenonN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data HenonN = HenonN {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ x0 :: S.UGen,+ x1 :: S.UGen+ } deriving (Show)+henonN :: HenonN+henonN = HenonN {+ freq = 22050.0,+ a = 1.4,+ b = 0.3,+ x0 = 0.0,+ x1 = 0.0+ }+mkHenonN :: HenonN -> S.UGen+mkHenonN (HenonN a' b' c' d' e') = S.mkOsc S.AR "HenonN" [a',b',c',d',e'] 1+instance Make HenonN where+ ugen = mkHenonN
+ Sound/SC3/UGen/Record/Hilbert.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.Hilbert where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Hilbert = Hilbert {+ input :: S.UGen+ } deriving (Show)+hilbert :: Hilbert+hilbert = Hilbert {+ input = 0.0+ }+mkHilbert :: Hilbert -> S.UGen+mkHilbert (Hilbert a') = S.mkOsc S.AR "Hilbert" [a'] 2+instance Make Hilbert where+ ugen = mkHilbert
+ Sound/SC3/UGen/Record/HilbertFIR.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.HilbertFIR where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data HilbertFIR = HilbertFIR {+ input :: S.UGen,+ buffer :: S.UGen+ } deriving (Show)+hilbertFIR :: HilbertFIR+hilbertFIR = HilbertFIR {+ input = 0.0,+ buffer = 0.0+ }+mkHilbertFIR :: HilbertFIR -> S.UGen+mkHilbertFIR (HilbertFIR a' b') = S.mkOsc S.AR "HilbertFIR" [a',b'] 1+instance Make HilbertFIR where+ ugen = mkHilbertFIR
+ Sound/SC3/UGen/Record/IEnvGen.hs view
@@ -0,0 +1,18 @@+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,+ index :: S.UGen+ } deriving (Show)+iEnvGen :: IEnvGen+iEnvGen = IEnvGen {+ rate = S.AR,+ ienvelope = 0.0,+ index = 0.0+ }+mkIEnvGen :: IEnvGen -> S.UGen+mkIEnvGen (IEnvGen r a' b') = S.mkOsc r "IEnvGen" [a',b'] 1+instance Make IEnvGen where+ ugen = mkIEnvGen
+ Sound/SC3/UGen/Record/IFFT.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.IFFT where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data IFFT = IFFT {+ buffer :: S.UGen,+ wintype :: S.UGen,+ winsize :: S.UGen+ } deriving (Show)+iFFT :: IFFT+iFFT = IFFT {+ buffer = 0.0,+ wintype = 0.0,+ winsize = 0.0+ }+mkIFFT :: IFFT -> S.UGen+mkIFFT (IFFT a' b' c') = S.mkOsc S.AR "IFFT" [a',b',c'] 1+instance Make IFFT where+ ugen = mkIFFT
+ Sound/SC3/UGen/Record/IRand.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.IRand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data IRand = IRand {+ lo :: S.UGen,+ hi :: S.UGen+ } deriving (Show)+iRand :: IRand+iRand = IRand {+ lo = 0.0,+ hi = 127.0+ }+mkIRand :: IRand -> S.UGen+mkIRand (IRand a' b') = S.mkOsc S.IR "IRand" [a',b'] 1+instance Make IRand where+ ugen = mkIRand
+ Sound/SC3/UGen/Record/Impulse.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Impulse where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Impulse = Impulse {+ rate :: S.Rate,+ freq :: S.UGen,+ phase :: S.UGen+ } deriving (Show)+impulse :: Impulse+impulse = Impulse {+ rate = S.AR,+ freq = 440.0,+ phase = 0.0+ }+mkImpulse :: Impulse -> S.UGen+mkImpulse (Impulse r a' b') = S.mkOsc r "Impulse" [a',b'] 1+instance Make Impulse where+ ugen = mkImpulse
+ Sound/SC3/UGen/Record/In.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.In where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data In = In {+ rate :: S.Rate,+ bus :: S.UGen,+ numChannels :: S.UGen+ } deriving (Show)+in' :: In+in' = In {+ rate = S.AR,+ bus = 0.0,+ numChannels = 1.0+ }+mkIn :: In -> S.UGen+mkIn (In r a' b') = S.mkOsc r "In" [a',b'] 1+instance Make In where+ ugen = mkIn
+ Sound/SC3/UGen/Record/InFeedback.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.InFeedback where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data InFeedback = InFeedback {+ bus :: S.UGen,+ numChannels :: S.UGen+ } deriving (Show)+inFeedback :: InFeedback+inFeedback = InFeedback {+ bus = 0.0,+ numChannels = 1.0+ }+mkInFeedback :: InFeedback -> S.UGen+mkInFeedback (InFeedback a' b') = S.mkOsc S.AR "InFeedback" [a',b'] 1+instance Make InFeedback where+ ugen = mkInFeedback
+ Sound/SC3/UGen/Record/InRange.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.InRange where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data InRange = InRange {+ rate :: S.Rate,+ input :: S.UGen,+ lo :: S.UGen,+ hi :: S.UGen+ } deriving (Show)+inRange :: InRange+inRange = InRange {+ rate = S.AR,+ input = 0.0,+ lo = 0.0,+ hi = 1.0+ }+mkInRange :: InRange -> S.UGen+mkInRange (InRange r a' b' c') = S.mkOsc r "InRange" [a',b',c'] 1+instance Make InRange where+ ugen = mkInRange
+ Sound/SC3/UGen/Record/InRect.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.InRect where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data InRect = InRect {+ rate :: S.Rate,+ x :: S.UGen,+ y :: S.UGen,+ rect :: S.UGen+ } deriving (Show)+inRect :: InRect+inRect = InRect {+ rate = S.AR,+ x = 0.0,+ y = 0.0,+ rect = 0.0+ }+mkInRect :: InRect -> S.UGen+mkInRect (InRect r a' b' c') = S.mkOsc r "InRect" [a',b',c'] 1+instance Make InRect where+ ugen = mkInRect
+ Sound/SC3/UGen/Record/InTrig.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.InTrig where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data InTrig = InTrig {+ bus :: S.UGen,+ numChannels :: S.UGen+ } deriving (Show)+inTrig :: InTrig+inTrig = InTrig {+ bus = 0.0,+ numChannels = 1.0+ }+mkInTrig :: InTrig -> S.UGen+mkInTrig (InTrig a' b') = S.mkOsc S.KR "InTrig" [a',b'] 1+instance Make InTrig where+ ugen = mkInTrig
+ Sound/SC3/UGen/Record/Index.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Index where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Index = Index {+ rate :: S.Rate,+ bufnum :: S.UGen,+ input :: S.UGen+ } deriving (Show)+index :: Index+index = Index {+ rate = S.AR,+ bufnum = 0.0,+ input = 0.0+ }+mkIndex :: Index -> S.UGen+mkIndex (Index r a' b') = S.mkOsc r "Index" [a',b'] 1+instance Make Index where+ ugen = mkIndex
+ Sound/SC3/UGen/Record/IndexInBetween.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.IndexInBetween where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data IndexInBetween = IndexInBetween {+ rate :: S.Rate,+ bufnum :: S.UGen,+ input :: S.UGen+ } deriving (Show)+indexInBetween :: IndexInBetween+indexInBetween = IndexInBetween {+ rate = S.AR,+ bufnum = 0.0,+ input = 0.0+ }+mkIndexInBetween :: IndexInBetween -> S.UGen+mkIndexInBetween (IndexInBetween r a' b') = S.mkOsc r "IndexInBetween" [a',b'] 1+instance Make IndexInBetween where+ ugen = mkIndexInBetween
+ Sound/SC3/UGen/Record/Integrator.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Integrator where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Integrator = Integrator {+ rate :: S.Rate,+ input :: S.UGen,+ coef :: S.UGen+ } deriving (Show)+integrator :: Integrator+integrator = Integrator {+ rate = S.AR,+ input = 0.0,+ coef = 1.0+ }+mkIntegrator :: Integrator -> S.UGen+mkIntegrator (Integrator r a' b') = S.mkOsc r "Integrator" [a',b'] 1+instance Make Integrator where+ ugen = mkIntegrator
+ Sound/SC3/UGen/Record/K2A.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.K2A where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data K2A = K2A {+ input :: S.UGen+ } deriving (Show)+k2A :: K2A+k2A = K2A {+ input = 0.0+ }+mkK2A :: K2A -> S.UGen+mkK2A (K2A a') = S.mkOsc S.AR "K2A" [a'] 1+instance Make K2A where+ ugen = mkK2A
+ Sound/SC3/UGen/Record/KeyState.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.KeyState where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data KeyState = KeyState {+ keycode :: S.UGen,+ minval :: S.UGen,+ maxval :: S.UGen,+ lag :: S.UGen+ } deriving (Show)+keyState :: KeyState+keyState = KeyState {+ keycode = 0.0,+ minval = 0.0,+ maxval = 1.0,+ lag = 0.2+ }+mkKeyState :: KeyState -> S.UGen+mkKeyState (KeyState a' b' c' d') = S.mkOsc S.KR "KeyState" [a',b',c',d'] 1+instance Make KeyState where+ ugen = mkKeyState
+ Sound/SC3/UGen/Record/KeyTrack.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.KeyTrack where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data KeyTrack = KeyTrack {+ chain :: S.UGen,+ keydecay :: S.UGen,+ chromaleak :: S.UGen+ } deriving (Show)+keyTrack :: KeyTrack+keyTrack = KeyTrack {+ chain = 0.0,+ keydecay = 2.0,+ chromaleak = 0.5+ }+mkKeyTrack :: KeyTrack -> S.UGen+mkKeyTrack (KeyTrack a' b' c') = S.mkOsc S.KR "KeyTrack" [a',b',c'] 1+instance Make KeyTrack where+ ugen = mkKeyTrack
+ Sound/SC3/UGen/Record/Klang.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Klang where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Klang = Klang {+ specificationsArrayRef :: S.UGen,+ freqscale :: S.UGen,+ freqoffset :: S.UGen+ } deriving (Show)+klang :: Klang+klang = Klang {+ specificationsArrayRef = 0.0,+ freqscale = 1.0,+ freqoffset = 0.0+ }+mkKlang :: Klang -> S.UGen+mkKlang (Klang a' b' c') = S.mkOsc S.AR "Klang" [a',b',c'] 1+instance Make Klang where+ ugen = mkKlang
+ Sound/SC3/UGen/Record/Klank.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Klank where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Klank = Klank {+ specificationsArrayRef :: S.UGen,+ input :: S.UGen,+ freqscale :: S.UGen,+ freqoffset :: S.UGen,+ decayscale :: S.UGen+ } deriving (Show)+klank :: Klank+klank = Klank {+ specificationsArrayRef = 0.0,+ input = 0.0,+ freqscale = 1.0,+ freqoffset = 0.0,+ decayscale = 1.0+ }+mkKlank :: Klank -> S.UGen+mkKlank (Klank a' b' c' d' e') = S.mkOsc S.AR "Klank" [a',b',c',d',e'] 1+instance Make Klank where+ ugen = mkKlank
+ Sound/SC3/UGen/Record/LFClipNoise.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LFClipNoise where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFClipNoise = LFClipNoise {+ rate :: S.Rate,+ freq :: S.UGen+ } deriving (Show)+lFClipNoise :: LFClipNoise+lFClipNoise = LFClipNoise {+ rate = S.AR,+ freq = 500.0+ }+mkLFClipNoise :: LFClipNoise -> S.UGen+mkLFClipNoise (LFClipNoise r a') = S.mkOsc r "LFClipNoise" [a'] 1+instance Make LFClipNoise where+ ugen = mkLFClipNoise
+ Sound/SC3/UGen/Record/LFCub.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LFCub where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFCub = LFCub {+ rate :: S.Rate,+ freq :: S.UGen,+ iphase :: S.UGen+ } deriving (Show)+lFCub :: LFCub+lFCub = LFCub {+ rate = S.AR,+ freq = 440.0,+ iphase = 0.0+ }+mkLFCub :: LFCub -> S.UGen+mkLFCub (LFCub r a' b') = S.mkOsc r "LFCub" [a',b'] 1+instance Make LFCub where+ ugen = mkLFCub
+ Sound/SC3/UGen/Record/LFDClipNoise.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LFDClipNoise where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFDClipNoise = LFDClipNoise {+ rate :: S.Rate,+ freq :: S.UGen+ } deriving (Show)+lFDClipNoise :: LFDClipNoise+lFDClipNoise = LFDClipNoise {+ rate = S.AR,+ freq = 500.0+ }+mkLFDClipNoise :: LFDClipNoise -> S.UGen+mkLFDClipNoise (LFDClipNoise r a') = S.mkOsc r "LFDClipNoise" [a'] 1+instance Make LFDClipNoise where+ ugen = mkLFDClipNoise
+ Sound/SC3/UGen/Record/LFDNoise0.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LFDNoise0 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFDNoise0 = LFDNoise0 {+ rate :: S.Rate,+ freq :: S.UGen+ } deriving (Show)+lFDNoise0 :: LFDNoise0+lFDNoise0 = LFDNoise0 {+ rate = S.AR,+ freq = 500.0+ }+mkLFDNoise0 :: LFDNoise0 -> S.UGen+mkLFDNoise0 (LFDNoise0 r a') = S.mkOsc r "LFDNoise0" [a'] 1+instance Make LFDNoise0 where+ ugen = mkLFDNoise0
+ Sound/SC3/UGen/Record/LFDNoise1.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LFDNoise1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFDNoise1 = LFDNoise1 {+ rate :: S.Rate,+ freq :: S.UGen+ } deriving (Show)+lFDNoise1 :: LFDNoise1+lFDNoise1 = LFDNoise1 {+ rate = S.AR,+ freq = 500.0+ }+mkLFDNoise1 :: LFDNoise1 -> S.UGen+mkLFDNoise1 (LFDNoise1 r a') = S.mkOsc r "LFDNoise1" [a'] 1+instance Make LFDNoise1 where+ ugen = mkLFDNoise1
+ Sound/SC3/UGen/Record/LFDNoise3.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LFDNoise3 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFDNoise3 = LFDNoise3 {+ rate :: S.Rate,+ freq :: S.UGen+ } deriving (Show)+lFDNoise3 :: LFDNoise3+lFDNoise3 = LFDNoise3 {+ rate = S.AR,+ freq = 500.0+ }+mkLFDNoise3 :: LFDNoise3 -> S.UGen+mkLFDNoise3 (LFDNoise3 r a') = S.mkOsc r "LFDNoise3" [a'] 1+instance Make LFDNoise3 where+ ugen = mkLFDNoise3
+ Sound/SC3/UGen/Record/LFNoise0.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LFNoise0 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFNoise0 = LFNoise0 {+ rate :: S.Rate,+ freq :: S.UGen+ } deriving (Show)+lFNoise0 :: LFNoise0+lFNoise0 = LFNoise0 {+ rate = S.AR,+ freq = 500.0+ }+mkLFNoise0 :: LFNoise0 -> S.UGen+mkLFNoise0 (LFNoise0 r a') = S.mkOsc r "LFNoise0" [a'] 1+instance Make LFNoise0 where+ ugen = mkLFNoise0
+ Sound/SC3/UGen/Record/LFNoise1.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LFNoise1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFNoise1 = LFNoise1 {+ rate :: S.Rate,+ freq :: S.UGen+ } deriving (Show)+lFNoise1 :: LFNoise1+lFNoise1 = LFNoise1 {+ rate = S.AR,+ freq = 500.0+ }+mkLFNoise1 :: LFNoise1 -> S.UGen+mkLFNoise1 (LFNoise1 r a') = S.mkOsc r "LFNoise1" [a'] 1+instance Make LFNoise1 where+ ugen = mkLFNoise1
+ Sound/SC3/UGen/Record/LFNoise2.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LFNoise2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFNoise2 = LFNoise2 {+ rate :: S.Rate,+ freq :: S.UGen+ } deriving (Show)+lFNoise2 :: LFNoise2+lFNoise2 = LFNoise2 {+ rate = S.AR,+ freq = 500.0+ }+mkLFNoise2 :: LFNoise2 -> S.UGen+mkLFNoise2 (LFNoise2 r a') = S.mkOsc r "LFNoise2" [a'] 1+instance Make LFNoise2 where+ ugen = mkLFNoise2
+ Sound/SC3/UGen/Record/LFPar.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LFPar where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFPar = LFPar {+ rate :: S.Rate,+ freq :: S.UGen,+ iphase :: S.UGen+ } deriving (Show)+lFPar :: LFPar+lFPar = LFPar {+ rate = S.AR,+ freq = 440.0,+ iphase = 0.0+ }+mkLFPar :: LFPar -> S.UGen+mkLFPar (LFPar r a' b') = S.mkOsc r "LFPar" [a',b'] 1+instance Make LFPar where+ ugen = mkLFPar
+ Sound/SC3/UGen/Record/LFPulse.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.LFPulse where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFPulse = LFPulse {+ rate :: S.Rate,+ freq :: S.UGen,+ iphase :: S.UGen,+ width :: S.UGen+ } deriving (Show)+lFPulse :: LFPulse+lFPulse = LFPulse {+ rate = S.AR,+ freq = 440.0,+ iphase = 0.0,+ width = 0.5+ }+mkLFPulse :: LFPulse -> S.UGen+mkLFPulse (LFPulse r a' b' c') = S.mkOsc r "LFPulse" [a',b',c'] 1+instance Make LFPulse where+ ugen = mkLFPulse
+ Sound/SC3/UGen/Record/LFSaw.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LFSaw where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFSaw = LFSaw {+ rate :: S.Rate,+ freq :: S.UGen,+ iphase :: S.UGen+ } deriving (Show)+lFSaw :: LFSaw+lFSaw = LFSaw {+ rate = S.AR,+ freq = 440.0,+ iphase = 0.0+ }+mkLFSaw :: LFSaw -> S.UGen+mkLFSaw (LFSaw r a' b') = S.mkOsc r "LFSaw" [a',b'] 1+instance Make LFSaw where+ ugen = mkLFSaw
+ Sound/SC3/UGen/Record/LFTri.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LFTri where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LFTri = LFTri {+ rate :: S.Rate,+ freq :: S.UGen,+ iphase :: S.UGen+ } deriving (Show)+lFTri :: LFTri+lFTri = LFTri {+ rate = S.AR,+ freq = 440.0,+ iphase = 0.0+ }+mkLFTri :: LFTri -> S.UGen+mkLFTri (LFTri r a' b') = S.mkOsc r "LFTri" [a',b'] 1+instance Make LFTri where+ ugen = mkLFTri
+ Sound/SC3/UGen/Record/LPF.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LPF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LPF = LPF {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen+ } deriving (Show)+lPF :: LPF+lPF = LPF {+ rate = S.AR,+ input = 0.0,+ freq = 440.0+ }+mkLPF :: LPF -> S.UGen+mkLPF (LPF r a' b') = S.mkOsc r "LPF" [a',b'] 1+instance Make LPF where+ ugen = mkLPF
+ Sound/SC3/UGen/Record/LPZ1.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LPZ1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LPZ1 = LPZ1 {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+lPZ1 :: LPZ1+lPZ1 = LPZ1 {+ rate = S.AR,+ input = 0.0+ }+mkLPZ1 :: LPZ1 -> S.UGen+mkLPZ1 (LPZ1 r a') = S.mkOsc r "LPZ1" [a'] 1+instance Make LPZ1 where+ ugen = mkLPZ1
+ Sound/SC3/UGen/Record/LPZ2.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LPZ2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LPZ2 = LPZ2 {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+lPZ2 :: LPZ2+lPZ2 = LPZ2 {+ rate = S.AR,+ input = 0.0+ }+mkLPZ2 :: LPZ2 -> S.UGen+mkLPZ2 (LPZ2 r a') = S.mkOsc r "LPZ2" [a'] 1+instance Make LPZ2 where+ ugen = mkLPZ2
+ Sound/SC3/UGen/Record/Lag.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Lag where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Lag = Lag {+ rate :: S.Rate,+ input :: S.UGen,+ lagTime :: S.UGen+ } deriving (Show)+lag :: Lag+lag = Lag {+ rate = S.AR,+ input = 0.0,+ lagTime = 0.1+ }+mkLag :: Lag -> S.UGen+mkLag (Lag r a' b') = S.mkOsc r "Lag" [a',b'] 1+instance Make Lag where+ ugen = mkLag
+ Sound/SC3/UGen/Record/Lag2.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Lag2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Lag2 = Lag2 {+ rate :: S.Rate,+ input :: S.UGen,+ lagTime :: S.UGen+ } deriving (Show)+lag2 :: Lag2+lag2 = Lag2 {+ rate = S.AR,+ input = 0.0,+ lagTime = 0.1+ }+mkLag2 :: Lag2 -> S.UGen+mkLag2 (Lag2 r a' b') = S.mkOsc r "Lag2" [a',b'] 1+instance Make Lag2 where+ ugen = mkLag2
+ Sound/SC3/UGen/Record/Lag2UD.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Lag2UD where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Lag2UD = Lag2UD {+ rate :: S.Rate,+ input :: S.UGen,+ lagTimeU :: S.UGen,+ lagTimeD :: S.UGen+ } deriving (Show)+lag2UD :: Lag2UD+lag2UD = Lag2UD {+ rate = S.AR,+ input = 0.0,+ lagTimeU = 0.1,+ lagTimeD = 0.1+ }+mkLag2UD :: Lag2UD -> S.UGen+mkLag2UD (Lag2UD r a' b' c') = S.mkOsc r "Lag2UD" [a',b',c'] 1+instance Make Lag2UD where+ ugen = mkLag2UD
+ Sound/SC3/UGen/Record/Lag3.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Lag3 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Lag3 = Lag3 {+ rate :: S.Rate,+ input :: S.UGen,+ lagTime :: S.UGen+ } deriving (Show)+lag3 :: Lag3+lag3 = Lag3 {+ rate = S.AR,+ input = 0.0,+ lagTime = 0.1+ }+mkLag3 :: Lag3 -> S.UGen+mkLag3 (Lag3 r a' b') = S.mkOsc r "Lag3" [a',b'] 1+instance Make Lag3 where+ ugen = mkLag3
+ Sound/SC3/UGen/Record/Lag3UD.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Lag3UD where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Lag3UD = Lag3UD {+ rate :: S.Rate,+ input :: S.UGen,+ lagTimeU :: S.UGen,+ lagTimeD :: S.UGen+ } deriving (Show)+lag3UD :: Lag3UD+lag3UD = Lag3UD {+ rate = S.AR,+ input = 0.0,+ lagTimeU = 0.1,+ lagTimeD = 0.1+ }+mkLag3UD :: Lag3UD -> S.UGen+mkLag3UD (Lag3UD r a' b' c') = S.mkOsc r "Lag3UD" [a',b',c'] 1+instance Make Lag3UD where+ ugen = mkLag3UD
+ Sound/SC3/UGen/Record/LagControl.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LagControl where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LagControl = LagControl {+ rate :: S.Rate,+ values :: S.UGen,+ lags :: S.UGen+ } deriving (Show)+lagControl :: LagControl+lagControl = LagControl {+ rate = S.AR,+ values = 0.0,+ lags = 0.0+ }+mkLagControl :: LagControl -> S.UGen+mkLagControl (LagControl r a' b') = S.mkOsc r "LagControl" [a',b'] 1+instance Make LagControl where+ ugen = mkLagControl
+ Sound/SC3/UGen/Record/LagIn.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LagIn where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LagIn = LagIn {+ bus :: S.UGen,+ numChannels :: S.UGen,+ lag :: S.UGen+ } deriving (Show)+lagIn :: LagIn+lagIn = LagIn {+ bus = 0.0,+ numChannels = 1.0,+ lag = 0.1+ }+mkLagIn :: LagIn -> S.UGen+mkLagIn (LagIn a' b' c') = S.mkOsc S.KR "LagIn" [a',b',c'] 1+instance Make LagIn where+ ugen = mkLagIn
+ Sound/SC3/UGen/Record/LagUD.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.LagUD where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LagUD = LagUD {+ rate :: S.Rate,+ input :: S.UGen,+ lagTimeU :: S.UGen,+ lagTimeD :: S.UGen+ } deriving (Show)+lagUD :: LagUD+lagUD = LagUD {+ rate = S.AR,+ input = 0.0,+ lagTimeU = 0.1,+ lagTimeD = 0.1+ }+mkLagUD :: LagUD -> S.UGen+mkLagUD (LagUD r a' b' c') = S.mkOsc r "LagUD" [a',b',c'] 1+instance Make LagUD where+ ugen = mkLagUD
+ Sound/SC3/UGen/Record/LastValue.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LastValue where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LastValue = LastValue {+ rate :: S.Rate,+ input :: S.UGen,+ diff :: S.UGen+ } deriving (Show)+lastValue :: LastValue+lastValue = LastValue {+ rate = S.AR,+ input = 0.0,+ diff = 0.01+ }+mkLastValue :: LastValue -> S.UGen+mkLastValue (LastValue r a' b') = S.mkOsc r "LastValue" [a',b'] 1+instance Make LastValue where+ ugen = mkLastValue
+ Sound/SC3/UGen/Record/Latch.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Latch where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Latch = Latch {+ rate :: S.Rate,+ input :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+latch :: Latch+latch = Latch {+ rate = S.AR,+ input = 0.0,+ trig = 0.0+ }+mkLatch :: Latch -> S.UGen+mkLatch (Latch r a' b') = S.mkOsc r "Latch" [a',b'] 1+instance Make Latch where+ ugen = mkLatch
+ Sound/SC3/UGen/Record/LatoocarfianC.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.LatoocarfianC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LatoocarfianC = LatoocarfianC {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ c :: S.UGen,+ d :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+latoocarfianC :: LatoocarfianC+latoocarfianC = LatoocarfianC {+ freq = 22050.0,+ a = 1.0,+ b = 3.0,+ c = 0.5,+ d = 0.5,+ xi = 0.5,+ yi = 0.5+ }+mkLatoocarfianC :: LatoocarfianC -> S.UGen+mkLatoocarfianC (LatoocarfianC a' b' c' d' e' f' g') = S.mkOsc S.AR "LatoocarfianC" [a',b',c',d',e',f',g'] 1+instance Make LatoocarfianC where+ ugen = mkLatoocarfianC
+ Sound/SC3/UGen/Record/LatoocarfianL.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.LatoocarfianL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LatoocarfianL = LatoocarfianL {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ c :: S.UGen,+ d :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+latoocarfianL :: LatoocarfianL+latoocarfianL = LatoocarfianL {+ freq = 22050.0,+ a = 1.0,+ b = 3.0,+ c = 0.5,+ d = 0.5,+ xi = 0.5,+ yi = 0.5+ }+mkLatoocarfianL :: LatoocarfianL -> S.UGen+mkLatoocarfianL (LatoocarfianL a' b' c' d' e' f' g') = S.mkOsc S.AR "LatoocarfianL" [a',b',c',d',e',f',g'] 1+instance Make LatoocarfianL where+ ugen = mkLatoocarfianL
+ Sound/SC3/UGen/Record/LatoocarfianN.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.LatoocarfianN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LatoocarfianN = LatoocarfianN {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ c :: S.UGen,+ d :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+latoocarfianN :: LatoocarfianN+latoocarfianN = LatoocarfianN {+ freq = 22050.0,+ a = 1.0,+ b = 3.0,+ c = 0.5,+ d = 0.5,+ xi = 0.5,+ yi = 0.5+ }+mkLatoocarfianN :: LatoocarfianN -> S.UGen+mkLatoocarfianN (LatoocarfianN a' b' c' d' e' f' g') = S.mkOsc S.AR "LatoocarfianN" [a',b',c',d',e',f',g'] 1+instance Make LatoocarfianN where+ ugen = mkLatoocarfianN
+ Sound/SC3/UGen/Record/LeakDC.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LeakDC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LeakDC = LeakDC {+ rate :: S.Rate,+ input :: S.UGen,+ coef :: S.UGen+ } deriving (Show)+leakDC :: LeakDC+leakDC = LeakDC {+ rate = S.AR,+ input = 0.0,+ coef = 0.995+ }+mkLeakDC :: LeakDC -> S.UGen+mkLeakDC (LeakDC r a' b') = S.mkOsc r "LeakDC" [a',b'] 1+instance Make LeakDC where+ ugen = mkLeakDC
+ Sound/SC3/UGen/Record/LeastChange.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LeastChange where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LeastChange = LeastChange {+ rate :: S.Rate,+ a :: S.UGen,+ b :: S.UGen+ } deriving (Show)+leastChange :: LeastChange+leastChange = LeastChange {+ rate = S.AR,+ a = 0.0,+ b = 0.0+ }+mkLeastChange :: LeastChange -> S.UGen+mkLeastChange (LeastChange r a' b') = S.mkOsc r "LeastChange" [a',b'] 1+instance Make LeastChange where+ ugen = mkLeastChange
+ Sound/SC3/UGen/Record/Limiter.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Limiter where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Limiter = Limiter {+ input :: S.UGen,+ level :: S.UGen,+ dur :: S.UGen+ } deriving (Show)+limiter :: Limiter+limiter = Limiter {+ input = 0.0,+ level = 1.0,+ dur = 0.01+ }+mkLimiter :: Limiter -> S.UGen+mkLimiter (Limiter a' b' c') = S.mkOsc S.AR "Limiter" [a',b',c'] 1+instance Make Limiter where+ ugen = mkLimiter
+ Sound/SC3/UGen/Record/LinCongC.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.LinCongC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LinCongC = LinCongC {+ freq :: S.UGen,+ a :: S.UGen,+ c :: S.UGen,+ m :: S.UGen,+ xi :: S.UGen+ } deriving (Show)+linCongC :: LinCongC+linCongC = LinCongC {+ freq = 22050.0,+ a = 1.1,+ c = 0.13,+ m = 1.0,+ xi = 0.0+ }+mkLinCongC :: LinCongC -> S.UGen+mkLinCongC (LinCongC a' b' c' d' e') = S.mkOsc S.AR "LinCongC" [a',b',c',d',e'] 1+instance Make LinCongC where+ ugen = mkLinCongC
+ Sound/SC3/UGen/Record/LinCongL.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.LinCongL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LinCongL = LinCongL {+ freq :: S.UGen,+ a :: S.UGen,+ c :: S.UGen,+ m :: S.UGen,+ xi :: S.UGen+ } deriving (Show)+linCongL :: LinCongL+linCongL = LinCongL {+ freq = 22050.0,+ a = 1.1,+ c = 0.13,+ m = 1.0,+ xi = 0.0+ }+mkLinCongL :: LinCongL -> S.UGen+mkLinCongL (LinCongL a' b' c' d' e') = S.mkOsc S.AR "LinCongL" [a',b',c',d',e'] 1+instance Make LinCongL where+ ugen = mkLinCongL
+ Sound/SC3/UGen/Record/LinCongN.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.LinCongN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LinCongN = LinCongN {+ freq :: S.UGen,+ a :: S.UGen,+ c :: S.UGen,+ m :: S.UGen,+ xi :: S.UGen+ } deriving (Show)+linCongN :: LinCongN+linCongN = LinCongN {+ freq = 22050.0,+ a = 1.1,+ c = 0.13,+ m = 1.0,+ xi = 0.0+ }+mkLinCongN :: LinCongN -> S.UGen+mkLinCongN (LinCongN a' b' c' d' e') = S.mkOsc S.AR "LinCongN" [a',b',c',d',e'] 1+instance Make LinCongN where+ ugen = mkLinCongN
+ Sound/SC3/UGen/Record/LinExp.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.LinExp where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LinExp = LinExp {+ rate :: S.Rate,+ input :: S.UGen,+ srclo :: S.UGen,+ srchi :: S.UGen,+ dstlo :: S.UGen,+ dsthi :: S.UGen+ } deriving (Show)+linExp :: LinExp+linExp = LinExp {+ rate = S.AR,+ input = 0.0,+ srclo = 0.0,+ srchi = 1.0,+ dstlo = 1.0,+ dsthi = 2.0+ }+mkLinExp :: LinExp -> S.UGen+mkLinExp (LinExp r a' b' c' d' e') = S.mkOsc r "LinExp" [a',b',c',d',e'] 1+instance Make LinExp where+ ugen = mkLinExp
+ Sound/SC3/UGen/Record/LinLin.hs view
@@ -0,0 +1,24 @@+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
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.LinPan2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LinPan2 = LinPan2 {+ rate :: S.Rate,+ input :: S.UGen,+ pos :: S.UGen,+ level :: S.UGen+ } deriving (Show)+linPan2 :: LinPan2+linPan2 = LinPan2 {+ rate = S.AR,+ input = 0.0,+ pos = 0.0,+ level = 1.0+ }+mkLinPan2 :: LinPan2 -> S.UGen+mkLinPan2 (LinPan2 r a' b' c') = S.mkOsc r "LinPan2" [a',b',c'] 2+instance Make LinPan2 where+ ugen = mkLinPan2
+ Sound/SC3/UGen/Record/LinRand.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LinRand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LinRand = LinRand {+ lo :: S.UGen,+ hi :: S.UGen,+ minmax :: S.UGen+ } deriving (Show)+linRand :: LinRand+linRand = LinRand {+ lo = 0.0,+ hi = 1.0,+ minmax = 0.0+ }+mkLinRand :: LinRand -> S.UGen+mkLinRand (LinRand a' b' c') = S.mkOsc S.IR "LinRand" [a',b',c'] 1+instance Make LinRand where+ ugen = mkLinRand
+ Sound/SC3/UGen/Record/LinXFade2.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.LinXFade2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LinXFade2 = LinXFade2 {+ rate :: S.Rate,+ inA :: S.UGen,+ inB :: S.UGen,+ pan :: S.UGen,+ level :: S.UGen+ } deriving (Show)+linXFade2 :: LinXFade2+linXFade2 = LinXFade2 {+ rate = S.AR,+ inA = 0.0,+ inB = 0.0,+ pan = 0.0,+ level = 1.0+ }+mkLinXFade2 :: LinXFade2 -> S.UGen+mkLinXFade2 (LinXFade2 r a' b' c' d') = S.mkOsc r "LinXFade2" [a',b',c',d'] 1+instance Make LinXFade2 where+ ugen = mkLinXFade2
+ Sound/SC3/UGen/Record/Line.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Line where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Line = Line {+ rate :: S.Rate,+ start :: S.UGen,+ end :: S.UGen,+ dur :: S.UGen,+ doneAction :: S.UGen+ } deriving (Show)+line :: Line+line = Line {+ rate = S.AR,+ start = 0.0,+ end = 1.0,+ dur = 1.0,+ doneAction = 0.0+ }+mkLine :: Line -> S.UGen+mkLine (Line r a' b' c' d') = S.mkOsc r "Line" [a',b',c',d'] 1+instance Make Line where+ ugen = mkLine
+ Sound/SC3/UGen/Record/Linen.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Linen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Linen = Linen {+ gate :: S.UGen,+ attackTime :: S.UGen,+ susLevel :: S.UGen,+ releaseTime :: S.UGen,+ doneAction :: S.UGen+ } deriving (Show)+linen :: Linen+linen = Linen {+ gate = 1.0,+ attackTime = 0.01,+ susLevel = 1.0,+ releaseTime = 1.0,+ doneAction = 0.0+ }+mkLinen :: Linen -> S.UGen+mkLinen (Linen a' b' c' d' e') = S.mkOsc S.KR "Linen" [a',b',c',d',e'] 1+instance Make Linen where+ ugen = mkLinen
+ Sound/SC3/UGen/Record/ListDUGen.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.ListDUGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data ListDUGen = ListDUGen {+ list :: S.UGen,+ repeats :: S.UGen+ } deriving (Show)+listDUGen :: ListDUGen+listDUGen = ListDUGen {+ list = 0.0,+ repeats = 1.0+ }+mkListDUGen :: ListDUGen -> S.UGen+mkListDUGen (ListDUGen a' b') = S.mkOsc S.DR "ListDUGen" [a',b'] 1+instance Make ListDUGen where+ ugen = mkListDUGen
+ Sound/SC3/UGen/Record/LocalBuf.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.LocalBuf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LocalBuf = LocalBuf {+ numFrames :: S.UGen,+ numChannels :: S.UGen,+ maxLocalBufs :: S.UGen+ } deriving (Show)+localBuf :: LocalBuf+localBuf = LocalBuf {+ numFrames = 1.0,+ numChannels = 1.0,+ maxLocalBufs = 8.0+ }+mkLocalBuf :: LocalBuf -> S.UGen+mkLocalBuf (LocalBuf a' b' c') = S.mkOsc S.IR "LocalBuf" [a',b',c'] 1+instance Make LocalBuf where+ ugen = mkLocalBuf
+ Sound/SC3/UGen/Record/LocalIn.hs view
@@ -0,0 +1,16 @@+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+ } deriving (Show)+localIn :: LocalIn+localIn = LocalIn {+ rate = S.AR,+ numChannels = 1.0+ }+mkLocalIn :: LocalIn -> S.UGen+mkLocalIn (LocalIn r a') = S.mkOsc r "LocalIn" [a'] 1+instance Make LocalIn where+ ugen = mkLocalIn
+ Sound/SC3/UGen/Record/LocalOut.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.LocalOut where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LocalOut = LocalOut {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+localOut :: LocalOut+localOut = LocalOut {+ rate = S.AR,+ input = 0.0+ }+mkLocalOut :: LocalOut -> S.UGen+mkLocalOut (LocalOut r a') = S.mkOsc r "LocalOut" [a'] 1+instance Make LocalOut where+ ugen = mkLocalOut
+ Sound/SC3/UGen/Record/Logistic.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Logistic where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Logistic = Logistic {+ rate :: S.Rate,+ chaosParam :: S.UGen,+ freq :: S.UGen,+ init_ :: S.UGen+ } deriving (Show)+logistic :: Logistic+logistic = Logistic {+ rate = S.AR,+ chaosParam = 3.0,+ freq = 1000.0,+ init_ = 0.5+ }+mkLogistic :: Logistic -> S.UGen+mkLogistic (Logistic r a' b' c') = S.mkOsc r "Logistic" [a',b',c'] 1+instance Make Logistic where+ ugen = mkLogistic
+ Sound/SC3/UGen/Record/LorenzL.hs view
@@ -0,0 +1,28 @@+module Sound.SC3.UGen.Record.LorenzL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data LorenzL = LorenzL {+ freq :: S.UGen,+ s :: S.UGen,+ r :: S.UGen,+ b :: S.UGen,+ h :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen,+ zi :: S.UGen+ } deriving (Show)+lorenzL :: LorenzL+lorenzL = LorenzL {+ freq = 22050.0,+ s = 10.0,+ r = 28.0,+ b = 2.667,+ h = 0.05,+ xi = 0.1,+ yi = 0.0,+ zi = 0.0+ }+mkLorenzL :: LorenzL -> S.UGen+mkLorenzL (LorenzL a' b' c' d' e' f' g' h') = S.mkOsc S.AR "LorenzL" [a',b',c',d',e',f',g',h'] 1+instance Make LorenzL where+ ugen = mkLorenzL
+ Sound/SC3/UGen/Record/Loudness.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Loudness where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Loudness = Loudness {+ chain :: S.UGen,+ smask :: S.UGen,+ tmask :: S.UGen+ } deriving (Show)+loudness :: Loudness+loudness = Loudness {+ chain = 0.0,+ smask = 0.25,+ tmask = 1.0+ }+mkLoudness :: Loudness -> S.UGen+mkLoudness (Loudness a' b' c') = S.mkOsc S.KR "Loudness" [a',b',c'] 1+instance Make Loudness where+ ugen = mkLoudness
+ Sound/SC3/UGen/Record/MFCC.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.MFCC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MFCC = MFCC {+ chain :: S.UGen,+ numcoeff :: S.UGen+ } deriving (Show)+mFCC :: MFCC+mFCC = MFCC {+ chain = 0.0,+ numcoeff = 13.0+ }+mkMFCC :: MFCC -> S.UGen+mkMFCC (MFCC a' b') = S.mkOsc S.KR "MFCC" [a',b'] 1+instance Make MFCC where+ ugen = mkMFCC
+ Sound/SC3/UGen/Record/MantissaMask.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.MantissaMask where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MantissaMask = MantissaMask {+ rate :: S.Rate,+ input :: S.UGen,+ bits :: S.UGen+ } deriving (Show)+mantissaMask :: MantissaMask+mantissaMask = MantissaMask {+ rate = S.AR,+ input = 0.0,+ bits = 3.0+ }+mkMantissaMask :: MantissaMask -> S.UGen+mkMantissaMask (MantissaMask r a' b') = S.mkOsc r "MantissaMask" [a',b'] 1+instance Make MantissaMask where+ ugen = mkMantissaMask
+ Sound/SC3/UGen/Record/Median.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Median where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Median = Median {+ rate :: S.Rate,+ length_ :: S.UGen,+ input :: S.UGen+ } deriving (Show)+median :: Median+median = Median {+ rate = S.AR,+ length_ = 3.0,+ input = 0.0+ }+mkMedian :: Median -> S.UGen+mkMedian (Median r a' b') = S.mkOsc r "Median" [a',b'] 1+instance Make Median where+ ugen = mkMedian
+ Sound/SC3/UGen/Record/MidEQ.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.MidEQ where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MidEQ = MidEQ {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen,+ db :: S.UGen+ } deriving (Show)+midEQ :: MidEQ+midEQ = MidEQ {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ rq = 1.0,+ db = 0.0+ }+mkMidEQ :: MidEQ -> S.UGen+mkMidEQ (MidEQ r a' b' c' d') = S.mkOsc r "MidEQ" [a',b',c',d'] 1+instance Make MidEQ where+ ugen = mkMidEQ
+ Sound/SC3/UGen/Record/MoogFF.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.MoogFF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MoogFF = MoogFF {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ gain :: S.UGen,+ reset :: S.UGen+ } deriving (Show)+moogFF :: MoogFF+moogFF = MoogFF {+ rate = S.AR,+ input = 0.0,+ freq = 100.0,+ gain = 2.0,+ reset = 0.0+ }+mkMoogFF :: MoogFF -> S.UGen+mkMoogFF (MoogFF r a' b' c' d') = S.mkOsc r "MoogFF" [a',b',c',d'] 1+instance Make MoogFF where+ ugen = mkMoogFF
+ Sound/SC3/UGen/Record/MostChange.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.MostChange where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MostChange = MostChange {+ rate :: S.Rate,+ a :: S.UGen,+ b :: S.UGen+ } deriving (Show)+mostChange :: MostChange+mostChange = MostChange {+ rate = S.AR,+ a = 0.0,+ b = 0.0+ }+mkMostChange :: MostChange -> S.UGen+mkMostChange (MostChange r a' b') = S.mkOsc r "MostChange" [a',b'] 1+instance Make MostChange where+ ugen = mkMostChange
+ Sound/SC3/UGen/Record/MouseButton.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.MouseButton where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MouseButton = MouseButton {+ minval :: S.UGen,+ maxval :: S.UGen,+ lag :: S.UGen+ } deriving (Show)+mouseButton :: MouseButton+mouseButton = MouseButton {+ minval = 0.0,+ maxval = 1.0,+ lag = 0.2+ }+mkMouseButton :: MouseButton -> S.UGen+mkMouseButton (MouseButton a' b' c') = S.mkOsc S.KR "MouseButton" [a',b',c'] 1+instance Make MouseButton where+ ugen = mkMouseButton
+ Sound/SC3/UGen/Record/MouseX.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.MouseX where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MouseX = MouseX {+ minval :: S.UGen,+ maxval :: S.UGen,+ warp :: S.UGen,+ lag :: S.UGen+ } deriving (Show)+mouseX :: MouseX+mouseX = MouseX {+ minval = 0.0,+ maxval = 1.0,+ warp = 0.0,+ lag = 0.2+ }+mkMouseX :: MouseX -> S.UGen+mkMouseX (MouseX a' b' c' d') = S.mkOsc S.KR "MouseX" [a',b',c',d'] 1+instance Make MouseX where+ ugen = mkMouseX
+ Sound/SC3/UGen/Record/MouseY.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.MouseY where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MouseY = MouseY {+ minval :: S.UGen,+ maxval :: S.UGen,+ warp :: S.UGen,+ lag :: S.UGen+ } deriving (Show)+mouseY :: MouseY+mouseY = MouseY {+ minval = 0.0,+ maxval = 1.0,+ warp = 0.0,+ lag = 0.2+ }+mkMouseY :: MouseY -> S.UGen+mkMouseY (MouseY a' b' c' d') = S.mkOsc S.KR "MouseY" [a',b',c',d'] 1+instance Make MouseY where+ ugen = mkMouseY
+ Sound/SC3/UGen/Record/MultiOutUGen.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.MultiOutUGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data MultiOutUGen = MultiOutUGen {+ maxSize :: S.UGen+ } deriving (Show)+multiOutUGen :: MultiOutUGen+multiOutUGen = MultiOutUGen {+ maxSize = 0.0+ }+mkMultiOutUGen :: MultiOutUGen -> S.UGen+mkMultiOutUGen (MultiOutUGen a') = S.mkOsc S.AR "MultiOutUGen" [a'] 1+instance Make MultiOutUGen where+ ugen = mkMultiOutUGen
+ Sound/SC3/UGen/Record/NRand.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.NRand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data NRand = NRand {+ lo :: S.UGen,+ hi :: S.UGen,+ n :: S.UGen+ } deriving (Show)+nRand :: NRand+nRand = NRand {+ lo = 0.0,+ hi = 1.0,+ n = 0.0+ }+mkNRand :: NRand -> S.UGen+mkNRand (NRand a' b' c') = S.mkOsc S.IR "NRand" [a',b',c'] 1+instance Make NRand where+ ugen = mkNRand
+ Sound/SC3/UGen/Record/Normalizer.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Normalizer where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Normalizer = Normalizer {+ input :: S.UGen,+ level :: S.UGen,+ dur :: S.UGen+ } deriving (Show)+normalizer :: Normalizer+normalizer = Normalizer {+ input = 0.0,+ level = 1.0,+ dur = 0.01+ }+mkNormalizer :: Normalizer -> S.UGen+mkNormalizer (Normalizer a' b' c') = S.mkOsc S.AR "Normalizer" [a',b',c'] 1+instance Make Normalizer where+ ugen = mkNormalizer
+ Sound/SC3/UGen/Record/OffsetOut.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.OffsetOut where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data OffsetOut = OffsetOut {+ rate :: S.Rate,+ bus :: S.UGen,+ input :: S.UGen+ } deriving (Show)+offsetOut :: OffsetOut+offsetOut = OffsetOut {+ rate = S.AR,+ bus = 0.0,+ input = 0.0+ }+mkOffsetOut :: OffsetOut -> S.UGen+mkOffsetOut (OffsetOut r a' b') = S.mkOsc r "OffsetOut" [a',b'] 1+instance Make OffsetOut where+ ugen = mkOffsetOut
+ Sound/SC3/UGen/Record/OnePole.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.OnePole where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data OnePole = OnePole {+ rate :: S.Rate,+ input :: S.UGen,+ coef :: S.UGen+ } deriving (Show)+onePole :: OnePole+onePole = OnePole {+ rate = S.AR,+ input = 0.0,+ coef = 0.5+ }+mkOnePole :: OnePole -> S.UGen+mkOnePole (OnePole r a' b') = S.mkOsc r "OnePole" [a',b'] 1+instance Make OnePole where+ ugen = mkOnePole
+ Sound/SC3/UGen/Record/OneZero.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.OneZero where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data OneZero = OneZero {+ rate :: S.Rate,+ input :: S.UGen,+ coef :: S.UGen+ } deriving (Show)+oneZero :: OneZero+oneZero = OneZero {+ rate = S.AR,+ input = 0.0,+ coef = 0.5+ }+mkOneZero :: OneZero -> S.UGen+mkOneZero (OneZero r a' b') = S.mkOsc r "OneZero" [a',b'] 1+instance Make OneZero where+ ugen = mkOneZero
+ Sound/SC3/UGen/Record/Onsets.hs view
@@ -0,0 +1,30 @@+module Sound.SC3.UGen.Record.Onsets where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Onsets = Onsets {+ chain :: S.UGen,+ threshold :: S.UGen,+ odftype :: S.UGen,+ relaxtime :: S.UGen,+ floor_ :: S.UGen,+ mingap :: S.UGen,+ medianspan :: S.UGen,+ whtype :: S.UGen,+ rawodf :: S.UGen+ } deriving (Show)+onsets :: Onsets+onsets = Onsets {+ chain = 0.0,+ threshold = 0.5,+ odftype = 3.0,+ relaxtime = 1.0,+ floor_ = 0.1,+ mingap = 10.0,+ medianspan = 11.0,+ whtype = 1.0,+ rawodf = 0.0+ }+mkOnsets :: Onsets -> S.UGen+mkOnsets (Onsets a' b' c' d' e' f' g' h' i') = S.mkOsc S.KR "Onsets" [a',b',c',d',e',f',g',h',i'] 1+instance Make Onsets where+ ugen = mkOnsets
+ Sound/SC3/UGen/Record/Osc.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Osc where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Osc = Osc {+ rate :: S.Rate,+ bufnum :: S.UGen,+ freq :: S.UGen,+ phase :: S.UGen+ } deriving (Show)+osc :: Osc+osc = Osc {+ rate = S.AR,+ bufnum = 0.0,+ freq = 440.0,+ phase = 0.0+ }+mkOsc :: Osc -> S.UGen+mkOsc (Osc r a' b' c') = S.mkOsc r "Osc" [a',b',c'] 1+instance Make Osc where+ ugen = mkOsc
+ Sound/SC3/UGen/Record/OscN.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.OscN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data OscN = OscN {+ rate :: S.Rate,+ bufnum :: S.UGen,+ freq :: S.UGen,+ phase :: S.UGen+ } deriving (Show)+oscN :: OscN+oscN = OscN {+ rate = S.AR,+ bufnum = 0.0,+ freq = 440.0,+ phase = 0.0+ }+mkOscN :: OscN -> S.UGen+mkOscN (OscN r a' b' c') = S.mkOsc r "OscN" [a',b',c'] 1+instance Make OscN where+ ugen = mkOscN
+ Sound/SC3/UGen/Record/Out.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Out where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Out = Out {+ rate :: S.Rate,+ bus :: S.UGen,+ input :: S.UGen+ } deriving (Show)+out :: Out+out = Out {+ rate = S.AR,+ bus = 0.0,+ input = 0.0+ }+mkOut :: Out -> S.UGen+mkOut (Out r a' b') = S.mkOsc r "Out" [a',b'] 1+instance Make Out where+ ugen = mkOut
+ Sound/SC3/UGen/Record/PSinGrain.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PSinGrain where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PSinGrain = PSinGrain {+ freq :: S.UGen,+ dur :: S.UGen,+ amp :: S.UGen+ } deriving (Show)+pSinGrain :: PSinGrain+pSinGrain = PSinGrain {+ freq = 440.0,+ dur = 0.2,+ amp = 1.0+ }+mkPSinGrain :: PSinGrain -> S.UGen+mkPSinGrain (PSinGrain a' b' c') = S.mkOsc S.AR "PSinGrain" [a',b',c'] 1+instance Make PSinGrain where+ ugen = mkPSinGrain
+ Sound/SC3/UGen/Record/PV_Add.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_Add where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_Add = PV_Add {+ bufferA :: S.UGen,+ bufferB :: S.UGen+ } deriving (Show)+pV_Add :: PV_Add+pV_Add = PV_Add {+ bufferA = 0.0,+ bufferB = 0.0+ }+mkPV_Add :: PV_Add -> S.UGen+mkPV_Add (PV_Add a' b') = S.mkOsc S.KR "PV_Add" [a',b'] 1+instance Make PV_Add where+ ugen = mkPV_Add
+ Sound/SC3/UGen/Record/PV_BinScramble.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.PV_BinScramble where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_BinScramble = PV_BinScramble {+ buffer :: S.UGen,+ wipe :: S.UGen,+ width :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+pV_BinScramble :: PV_BinScramble+pV_BinScramble = PV_BinScramble {+ buffer = 0.0,+ wipe = 0.0,+ width = 0.2,+ trig = 0.0+ }+mkPV_BinScramble :: PV_BinScramble -> S.UGen+mkPV_BinScramble (PV_BinScramble a' b' c' d') = S.mkOsc S.KR "PV_BinScramble" [a',b',c',d'] 1+instance Make PV_BinScramble where+ ugen = mkPV_BinScramble
+ Sound/SC3/UGen/Record/PV_BinShift.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PV_BinShift where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_BinShift = PV_BinShift {+ buffer :: S.UGen,+ stretch :: S.UGen,+ shift :: S.UGen+ } deriving (Show)+pV_BinShift :: PV_BinShift+pV_BinShift = PV_BinShift {+ buffer = 0.0,+ stretch = 1.0,+ shift = 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+instance Make PV_BinShift where+ ugen = mkPV_BinShift
+ Sound/SC3/UGen/Record/PV_BinWipe.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PV_BinWipe where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_BinWipe = PV_BinWipe {+ bufferA :: S.UGen,+ bufferB :: S.UGen,+ wipe :: S.UGen+ } deriving (Show)+pV_BinWipe :: PV_BinWipe+pV_BinWipe = PV_BinWipe {+ bufferA = 0.0,+ bufferB = 0.0,+ wipe = 0.0+ }+mkPV_BinWipe :: PV_BinWipe -> S.UGen+mkPV_BinWipe (PV_BinWipe a' b' c') = S.mkOsc S.KR "PV_BinWipe" [a',b',c'] 1+instance Make PV_BinWipe where+ ugen = mkPV_BinWipe
+ Sound/SC3/UGen/Record/PV_BrickWall.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_BrickWall where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_BrickWall = PV_BrickWall {+ buffer :: S.UGen,+ wipe :: S.UGen+ } deriving (Show)+pV_BrickWall :: PV_BrickWall+pV_BrickWall = PV_BrickWall {+ buffer = 0.0,+ wipe = 0.0+ }+mkPV_BrickWall :: PV_BrickWall -> S.UGen+mkPV_BrickWall (PV_BrickWall a' b') = S.mkOsc S.KR "PV_BrickWall" [a',b'] 1+instance Make PV_BrickWall where+ ugen = mkPV_BrickWall
+ Sound/SC3/UGen/Record/PV_ChainUGen.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.PV_ChainUGen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_ChainUGen = PV_ChainUGen {+ maxSize :: S.UGen+ } deriving (Show)+pV_ChainUGen :: PV_ChainUGen+pV_ChainUGen = PV_ChainUGen {+ maxSize = 0.0+ }+mkPV_ChainUGen :: PV_ChainUGen -> S.UGen+mkPV_ChainUGen (PV_ChainUGen a') = S.mkOsc S.AR "PV_ChainUGen" [a'] 1+instance Make PV_ChainUGen where+ ugen = mkPV_ChainUGen
+ Sound/SC3/UGen/Record/PV_ConformalMap.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PV_ConformalMap where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_ConformalMap = PV_ConformalMap {+ buffer :: S.UGen,+ areal :: S.UGen,+ aimag :: S.UGen+ } deriving (Show)+pV_ConformalMap :: PV_ConformalMap+pV_ConformalMap = PV_ConformalMap {+ buffer = 0.0,+ areal = 0.0,+ aimag = 0.0+ }+mkPV_ConformalMap :: PV_ConformalMap -> S.UGen+mkPV_ConformalMap (PV_ConformalMap a' b' c') = S.mkOsc S.KR "PV_ConformalMap" [a',b',c'] 1+instance Make PV_ConformalMap where+ ugen = mkPV_ConformalMap
+ Sound/SC3/UGen/Record/PV_Copy.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_Copy where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_Copy = PV_Copy {+ bufferA :: S.UGen,+ bufferB :: S.UGen+ } deriving (Show)+pV_Copy :: PV_Copy+pV_Copy = PV_Copy {+ bufferA = 0.0,+ bufferB = 0.0+ }+mkPV_Copy :: PV_Copy -> S.UGen+mkPV_Copy (PV_Copy a' b') = S.mkOsc S.KR "PV_Copy" [a',b'] 1+instance Make PV_Copy where+ ugen = mkPV_Copy
+ Sound/SC3/UGen/Record/PV_CopyPhase.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_CopyPhase where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_CopyPhase = PV_CopyPhase {+ bufferA :: S.UGen,+ bufferB :: S.UGen+ } deriving (Show)+pV_CopyPhase :: PV_CopyPhase+pV_CopyPhase = PV_CopyPhase {+ bufferA = 0.0,+ bufferB = 0.0+ }+mkPV_CopyPhase :: PV_CopyPhase -> S.UGen+mkPV_CopyPhase (PV_CopyPhase a' b') = S.mkOsc S.KR "PV_CopyPhase" [a',b'] 1+instance Make PV_CopyPhase where+ ugen = mkPV_CopyPhase
+ Sound/SC3/UGen/Record/PV_Diffuser.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_Diffuser where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_Diffuser = PV_Diffuser {+ buffer :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+pV_Diffuser :: PV_Diffuser+pV_Diffuser = PV_Diffuser {+ buffer = 0.0,+ trig = 0.0+ }+mkPV_Diffuser :: PV_Diffuser -> S.UGen+mkPV_Diffuser (PV_Diffuser a' b') = S.mkOsc S.KR "PV_Diffuser" [a',b'] 1+instance Make PV_Diffuser where+ ugen = mkPV_Diffuser
+ Sound/SC3/UGen/Record/PV_HainsworthFoote.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.PV_HainsworthFoote where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_HainsworthFoote = PV_HainsworthFoote {+ buffer :: S.UGen,+ proph :: S.UGen,+ propf :: S.UGen,+ threshold :: S.UGen,+ waittime :: S.UGen+ } deriving (Show)+pV_HainsworthFoote :: PV_HainsworthFoote+pV_HainsworthFoote = PV_HainsworthFoote {+ buffer = 0.0,+ proph = 0.0,+ propf = 0.0,+ threshold = 1.0,+ waittime = 0.04+ }+mkPV_HainsworthFoote :: PV_HainsworthFoote -> S.UGen+mkPV_HainsworthFoote (PV_HainsworthFoote a' b' c' d' e') = S.mkOsc S.AR "PV_HainsworthFoote" [a',b',c',d',e'] 1+instance Make PV_HainsworthFoote where+ ugen = mkPV_HainsworthFoote
+ Sound/SC3/UGen/Record/PV_JensenAndersen.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.PV_JensenAndersen where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_JensenAndersen = PV_JensenAndersen {+ buffer :: S.UGen,+ propsc :: S.UGen,+ prophfe :: S.UGen,+ prophfc :: S.UGen,+ propsf :: S.UGen,+ threshold :: S.UGen,+ waittime :: S.UGen+ } deriving (Show)+pV_JensenAndersen :: PV_JensenAndersen+pV_JensenAndersen = PV_JensenAndersen {+ buffer = 0.0,+ propsc = 0.25,+ prophfe = 0.25,+ prophfc = 0.25,+ propsf = 0.25,+ threshold = 1.0,+ waittime = 0.04+ }+mkPV_JensenAndersen :: PV_JensenAndersen -> S.UGen+mkPV_JensenAndersen (PV_JensenAndersen a' b' c' d' e' f' g') = S.mkOsc S.AR "PV_JensenAndersen" [a',b',c',d',e',f',g'] 1+instance Make PV_JensenAndersen where+ ugen = mkPV_JensenAndersen
+ Sound/SC3/UGen/Record/PV_LocalMax.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_LocalMax where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_LocalMax = PV_LocalMax {+ buffer :: S.UGen,+ threshold :: S.UGen+ } deriving (Show)+pV_LocalMax :: PV_LocalMax+pV_LocalMax = PV_LocalMax {+ buffer = 0.0,+ threshold = 0.0+ }+mkPV_LocalMax :: PV_LocalMax -> S.UGen+mkPV_LocalMax (PV_LocalMax a' b') = S.mkOsc S.KR "PV_LocalMax" [a',b'] 1+instance Make PV_LocalMax where+ ugen = mkPV_LocalMax
+ Sound/SC3/UGen/Record/PV_MagAbove.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_MagAbove where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagAbove = PV_MagAbove {+ buffer :: S.UGen,+ threshold :: S.UGen+ } deriving (Show)+pV_MagAbove :: PV_MagAbove+pV_MagAbove = PV_MagAbove {+ buffer = 0.0,+ threshold = 0.0+ }+mkPV_MagAbove :: PV_MagAbove -> S.UGen+mkPV_MagAbove (PV_MagAbove a' b') = S.mkOsc S.KR "PV_MagAbove" [a',b'] 1+instance Make PV_MagAbove where+ ugen = mkPV_MagAbove
+ Sound/SC3/UGen/Record/PV_MagBelow.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_MagBelow where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagBelow = PV_MagBelow {+ buffer :: S.UGen,+ threshold :: S.UGen+ } deriving (Show)+pV_MagBelow :: PV_MagBelow+pV_MagBelow = PV_MagBelow {+ buffer = 0.0,+ threshold = 0.0+ }+mkPV_MagBelow :: PV_MagBelow -> S.UGen+mkPV_MagBelow (PV_MagBelow a' b') = S.mkOsc S.KR "PV_MagBelow" [a',b'] 1+instance Make PV_MagBelow where+ ugen = mkPV_MagBelow
+ Sound/SC3/UGen/Record/PV_MagClip.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_MagClip where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagClip = PV_MagClip {+ buffer :: S.UGen,+ threshold :: S.UGen+ } deriving (Show)+pV_MagClip :: PV_MagClip+pV_MagClip = PV_MagClip {+ buffer = 0.0,+ threshold = 0.0+ }+mkPV_MagClip :: PV_MagClip -> S.UGen+mkPV_MagClip (PV_MagClip a' b') = S.mkOsc S.KR "PV_MagClip" [a',b'] 1+instance Make PV_MagClip where+ ugen = mkPV_MagClip
+ Sound/SC3/UGen/Record/PV_MagDiv.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PV_MagDiv where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagDiv = PV_MagDiv {+ bufferA :: S.UGen,+ bufferB :: S.UGen,+ zeroed :: S.UGen+ } deriving (Show)+pV_MagDiv :: PV_MagDiv+pV_MagDiv = PV_MagDiv {+ bufferA = 0.0,+ bufferB = 0.0,+ zeroed = 0.0001+ }+mkPV_MagDiv :: PV_MagDiv -> S.UGen+mkPV_MagDiv (PV_MagDiv a' b' c') = S.mkOsc S.KR "PV_MagDiv" [a',b',c'] 1+instance Make PV_MagDiv where+ ugen = mkPV_MagDiv
+ Sound/SC3/UGen/Record/PV_MagFreeze.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_MagFreeze where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagFreeze = PV_MagFreeze {+ buffer :: S.UGen,+ freeze :: S.UGen+ } deriving (Show)+pV_MagFreeze :: PV_MagFreeze+pV_MagFreeze = PV_MagFreeze {+ buffer = 0.0,+ freeze = 0.0+ }+mkPV_MagFreeze :: PV_MagFreeze -> S.UGen+mkPV_MagFreeze (PV_MagFreeze a' b') = S.mkOsc S.KR "PV_MagFreeze" [a',b'] 1+instance Make PV_MagFreeze where+ ugen = mkPV_MagFreeze
+ Sound/SC3/UGen/Record/PV_MagMul.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_MagMul where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagMul = PV_MagMul {+ bufferA :: S.UGen,+ bufferB :: S.UGen+ } deriving (Show)+pV_MagMul :: PV_MagMul+pV_MagMul = PV_MagMul {+ bufferA = 0.0,+ bufferB = 0.0+ }+mkPV_MagMul :: PV_MagMul -> S.UGen+mkPV_MagMul (PV_MagMul a' b') = S.mkOsc S.KR "PV_MagMul" [a',b'] 1+instance Make PV_MagMul where+ ugen = mkPV_MagMul
+ Sound/SC3/UGen/Record/PV_MagNoise.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.PV_MagNoise where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagNoise = PV_MagNoise {+ buffer :: S.UGen+ } deriving (Show)+pV_MagNoise :: PV_MagNoise+pV_MagNoise = PV_MagNoise {+ buffer = 0.0+ }+mkPV_MagNoise :: PV_MagNoise -> S.UGen+mkPV_MagNoise (PV_MagNoise a') = S.mkOsc S.KR "PV_MagNoise" [a'] 1+instance Make PV_MagNoise where+ ugen = mkPV_MagNoise
+ Sound/SC3/UGen/Record/PV_MagShift.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PV_MagShift where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagShift = PV_MagShift {+ buffer :: S.UGen,+ stretch :: S.UGen,+ shift :: S.UGen+ } deriving (Show)+pV_MagShift :: PV_MagShift+pV_MagShift = PV_MagShift {+ buffer = 0.0,+ stretch = 1.0,+ shift = 0.0+ }+mkPV_MagShift :: PV_MagShift -> S.UGen+mkPV_MagShift (PV_MagShift a' b' c') = S.mkOsc S.KR "PV_MagShift" [a',b',c'] 1+instance Make PV_MagShift where+ ugen = mkPV_MagShift
+ Sound/SC3/UGen/Record/PV_MagSmear.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_MagSmear where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagSmear = PV_MagSmear {+ buffer :: S.UGen,+ bins :: S.UGen+ } deriving (Show)+pV_MagSmear :: PV_MagSmear+pV_MagSmear = PV_MagSmear {+ buffer = 0.0,+ bins = 0.0+ }+mkPV_MagSmear :: PV_MagSmear -> S.UGen+mkPV_MagSmear (PV_MagSmear a' b') = S.mkOsc S.KR "PV_MagSmear" [a',b'] 1+instance Make PV_MagSmear where+ ugen = mkPV_MagSmear
+ Sound/SC3/UGen/Record/PV_MagSquared.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.PV_MagSquared where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_MagSquared = PV_MagSquared {+ buffer :: S.UGen+ } deriving (Show)+pV_MagSquared :: PV_MagSquared+pV_MagSquared = PV_MagSquared {+ buffer = 0.0+ }+mkPV_MagSquared :: PV_MagSquared -> S.UGen+mkPV_MagSquared (PV_MagSquared a') = S.mkOsc S.KR "PV_MagSquared" [a'] 1+instance Make PV_MagSquared where+ ugen = mkPV_MagSquared
+ Sound/SC3/UGen/Record/PV_Max.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_Max where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_Max = PV_Max {+ bufferA :: S.UGen,+ bufferB :: S.UGen+ } deriving (Show)+pV_Max :: PV_Max+pV_Max = PV_Max {+ bufferA = 0.0,+ bufferB = 0.0+ }+mkPV_Max :: PV_Max -> S.UGen+mkPV_Max (PV_Max a' b') = S.mkOsc S.KR "PV_Max" [a',b'] 1+instance Make PV_Max where+ ugen = mkPV_Max
+ Sound/SC3/UGen/Record/PV_Min.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_Min where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_Min = PV_Min {+ bufferA :: S.UGen,+ bufferB :: S.UGen+ } deriving (Show)+pV_Min :: PV_Min+pV_Min = PV_Min {+ bufferA = 0.0,+ bufferB = 0.0+ }+mkPV_Min :: PV_Min -> S.UGen+mkPV_Min (PV_Min a' b') = S.mkOsc S.KR "PV_Min" [a',b'] 1+instance Make PV_Min where+ ugen = mkPV_Min
+ Sound/SC3/UGen/Record/PV_Mul.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_Mul where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_Mul = PV_Mul {+ bufferA :: S.UGen,+ bufferB :: S.UGen+ } deriving (Show)+pV_Mul :: PV_Mul+pV_Mul = PV_Mul {+ bufferA = 0.0,+ bufferB = 0.0+ }+mkPV_Mul :: PV_Mul -> S.UGen+mkPV_Mul (PV_Mul a' b') = S.mkOsc S.KR "PV_Mul" [a',b'] 1+instance Make PV_Mul where+ ugen = mkPV_Mul
+ Sound/SC3/UGen/Record/PV_PhaseShift.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.PV_PhaseShift where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_PhaseShift = PV_PhaseShift {+ buffer :: S.UGen,+ shift :: S.UGen+ } deriving (Show)+pV_PhaseShift :: PV_PhaseShift+pV_PhaseShift = PV_PhaseShift {+ buffer = 0.0,+ shift = 0.0+ }+mkPV_PhaseShift :: PV_PhaseShift -> S.UGen+mkPV_PhaseShift (PV_PhaseShift a' b') = S.mkOsc S.KR "PV_PhaseShift" [a',b'] 1+instance Make PV_PhaseShift where+ ugen = mkPV_PhaseShift
+ Sound/SC3/UGen/Record/PV_PhaseShift270.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.PV_PhaseShift270 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_PhaseShift270 = PV_PhaseShift270 {+ buffer :: S.UGen+ } deriving (Show)+pV_PhaseShift270 :: PV_PhaseShift270+pV_PhaseShift270 = PV_PhaseShift270 {+ buffer = 0.0+ }+mkPV_PhaseShift270 :: PV_PhaseShift270 -> S.UGen+mkPV_PhaseShift270 (PV_PhaseShift270 a') = S.mkOsc S.KR "PV_PhaseShift270" [a'] 1+instance Make PV_PhaseShift270 where+ ugen = mkPV_PhaseShift270
+ Sound/SC3/UGen/Record/PV_PhaseShift90.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.PV_PhaseShift90 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_PhaseShift90 = PV_PhaseShift90 {+ buffer :: S.UGen+ } deriving (Show)+pV_PhaseShift90 :: PV_PhaseShift90+pV_PhaseShift90 = PV_PhaseShift90 {+ buffer = 0.0+ }+mkPV_PhaseShift90 :: PV_PhaseShift90 -> S.UGen+mkPV_PhaseShift90 (PV_PhaseShift90 a') = S.mkOsc S.KR "PV_PhaseShift90" [a'] 1+instance Make PV_PhaseShift90 where+ ugen = mkPV_PhaseShift90
+ Sound/SC3/UGen/Record/PV_RandComb.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PV_RandComb where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_RandComb = PV_RandComb {+ buffer :: S.UGen,+ wipe :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+pV_RandComb :: PV_RandComb+pV_RandComb = PV_RandComb {+ buffer = 0.0,+ wipe = 0.0,+ trig = 0.0+ }+mkPV_RandComb :: PV_RandComb -> S.UGen+mkPV_RandComb (PV_RandComb a' b' c') = S.mkOsc S.KR "PV_RandComb" [a',b',c'] 1+instance Make PV_RandComb where+ ugen = mkPV_RandComb
+ Sound/SC3/UGen/Record/PV_RandWipe.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.PV_RandWipe where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_RandWipe = PV_RandWipe {+ bufferA :: S.UGen,+ bufferB :: S.UGen,+ wipe :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+pV_RandWipe :: PV_RandWipe+pV_RandWipe = PV_RandWipe {+ bufferA = 0.0,+ bufferB = 0.0,+ wipe = 0.0,+ trig = 0.0+ }+mkPV_RandWipe :: PV_RandWipe -> S.UGen+mkPV_RandWipe (PV_RandWipe a' b' c' d') = S.mkOsc S.KR "PV_RandWipe" [a',b',c',d'] 1+instance Make PV_RandWipe where+ ugen = mkPV_RandWipe
+ Sound/SC3/UGen/Record/PV_RectComb.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.PV_RectComb where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_RectComb = PV_RectComb {+ buffer :: S.UGen,+ numTeeth :: S.UGen,+ phase :: S.UGen,+ width :: S.UGen+ } deriving (Show)+pV_RectComb :: PV_RectComb+pV_RectComb = PV_RectComb {+ buffer = 0.0,+ numTeeth = 0.0,+ phase = 0.0,+ width = 0.5+ }+mkPV_RectComb :: PV_RectComb -> S.UGen+mkPV_RectComb (PV_RectComb a' b' c' d') = S.mkOsc S.KR "PV_RectComb" [a',b',c',d'] 1+instance Make PV_RectComb where+ ugen = mkPV_RectComb
+ Sound/SC3/UGen/Record/PV_RectComb2.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.PV_RectComb2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PV_RectComb2 = PV_RectComb2 {+ bufferA :: S.UGen,+ bufferB :: S.UGen,+ numTeeth :: S.UGen,+ phase :: S.UGen,+ width :: S.UGen+ } deriving (Show)+pV_RectComb2 :: PV_RectComb2+pV_RectComb2 = PV_RectComb2 {+ bufferA = 0.0,+ bufferB = 0.0,+ numTeeth = 0.0,+ phase = 0.0,+ width = 0.5+ }+mkPV_RectComb2 :: PV_RectComb2 -> S.UGen+mkPV_RectComb2 (PV_RectComb2 a' b' c' d' e') = S.mkOsc S.KR "PV_RectComb2" [a',b',c',d',e'] 1+instance Make PV_RectComb2 where+ ugen = mkPV_RectComb2
+ Sound/SC3/UGen/Record/Pan2.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Pan2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Pan2 = Pan2 {+ rate :: S.Rate,+ input :: S.UGen,+ pos :: S.UGen,+ level :: S.UGen+ } deriving (Show)+pan2 :: Pan2+pan2 = Pan2 {+ rate = S.AR,+ input = 0.0,+ pos = 0.0,+ level = 1.0+ }+mkPan2 :: Pan2 -> S.UGen+mkPan2 (Pan2 r a' b' c') = S.mkOsc r "Pan2" [a',b',c'] 2+instance Make Pan2 where+ ugen = mkPan2
+ Sound/SC3/UGen/Record/Pan4.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.Pan4 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Pan4 = Pan4 {+ rate :: S.Rate,+ input :: S.UGen,+ xpos :: S.UGen,+ ypos :: S.UGen,+ level :: S.UGen+ } deriving (Show)+pan4 :: Pan4+pan4 = Pan4 {+ rate = S.AR,+ input = 0.0,+ xpos = 0.0,+ ypos = 0.0,+ level = 1.0+ }+mkPan4 :: Pan4 -> S.UGen+mkPan4 (Pan4 r a' b' c' d') = S.mkOsc r "Pan4" [a',b',c',d'] 4+instance Make Pan4 where+ ugen = mkPan4
+ Sound/SC3/UGen/Record/PanAz.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.PanAz where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PanAz = PanAz {+ rate :: S.Rate,+ numChans :: S.UGen,+ input :: S.UGen,+ pos :: S.UGen,+ level :: S.UGen,+ width :: S.UGen,+ orientation :: S.UGen+ } deriving (Show)+panAz :: PanAz+panAz = PanAz {+ rate = S.AR,+ numChans = 0.0,+ input = 0.0,+ pos = 0.0,+ level = 1.0,+ width = 2.0,+ orientation = 0.5+ }+mkPanAz :: PanAz -> S.UGen+mkPanAz (PanAz r a' b' c' d' e' f') = S.mkOsc r "PanAz" [a',b',c',d',e',f'] 1+instance Make PanAz where+ ugen = mkPanAz
+ Sound/SC3/UGen/Record/PanB.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.PanB where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PanB = PanB {+ rate :: S.Rate,+ input :: S.UGen,+ azimuth :: S.UGen,+ elevation :: S.UGen,+ gain :: S.UGen+ } deriving (Show)+panB :: PanB+panB = PanB {+ rate = S.AR,+ input = 0.0,+ azimuth = 0.0,+ elevation = 0.0,+ gain = 1.0+ }+mkPanB :: PanB -> S.UGen+mkPanB (PanB r a' b' c' d') = S.mkOsc r "PanB" [a',b',c',d'] 4+instance Make PanB where+ ugen = mkPanB
+ Sound/SC3/UGen/Record/PanB2.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.PanB2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PanB2 = PanB2 {+ rate :: S.Rate,+ input :: S.UGen,+ azimuth :: S.UGen,+ gain :: S.UGen+ } deriving (Show)+panB2 :: PanB2+panB2 = PanB2 {+ rate = S.AR,+ input = 0.0,+ azimuth = 0.0,+ gain = 1.0+ }+mkPanB2 :: PanB2 -> S.UGen+mkPanB2 (PanB2 r a' b' c') = S.mkOsc r "PanB2" [a',b',c'] 3+instance Make PanB2 where+ ugen = mkPanB2
+ Sound/SC3/UGen/Record/Panner.hs view
@@ -0,0 +1,14 @@+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
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PartConv where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PartConv = PartConv {+ input :: S.UGen,+ fftsize :: S.UGen,+ irbufnum :: S.UGen+ } deriving (Show)+partConv :: PartConv+partConv = PartConv {+ input = 0.0,+ fftsize = 0.0,+ irbufnum = 0.0+ }+mkPartConv :: PartConv -> S.UGen+mkPartConv (PartConv a' b' c') = S.mkOsc S.AR "PartConv" [a',b',c'] 1+instance Make PartConv where+ ugen = mkPartConv
+ Sound/SC3/UGen/Record/Pause.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Pause where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Pause = Pause {+ gate :: S.UGen,+ id_ :: S.UGen+ } deriving (Show)+pause :: Pause+pause = Pause {+ gate = 0.0,+ id_ = 0.0+ }+mkPause :: Pause -> S.UGen+mkPause (Pause a' b') = S.mkOsc S.KR "Pause" [a',b'] 1+instance Make Pause where+ ugen = mkPause
+ Sound/SC3/UGen/Record/PauseSelf.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.PauseSelf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PauseSelf = PauseSelf {+ input :: S.UGen+ } deriving (Show)+pauseSelf :: PauseSelf+pauseSelf = PauseSelf {+ input = 0.0+ }+mkPauseSelf :: PauseSelf -> S.UGen+mkPauseSelf (PauseSelf a') = S.mkOsc S.KR "PauseSelf" [a'] 1+instance Make PauseSelf where+ ugen = mkPauseSelf
+ Sound/SC3/UGen/Record/PauseSelfWhenDone.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.PauseSelfWhenDone where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PauseSelfWhenDone = PauseSelfWhenDone {+ src :: S.UGen+ } deriving (Show)+pauseSelfWhenDone :: PauseSelfWhenDone+pauseSelfWhenDone = PauseSelfWhenDone {+ src = 0.0+ }+mkPauseSelfWhenDone :: PauseSelfWhenDone -> S.UGen+mkPauseSelfWhenDone (PauseSelfWhenDone a') = S.mkOsc S.KR "PauseSelfWhenDone" [a'] 1+instance Make PauseSelfWhenDone where+ ugen = mkPauseSelfWhenDone
+ Sound/SC3/UGen/Record/Peak.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Peak where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Peak = Peak {+ rate :: S.Rate,+ trig :: S.UGen,+ reset :: S.UGen+ } deriving (Show)+peak :: Peak+peak = Peak {+ rate = S.AR,+ trig = 0.0,+ reset = 0.0+ }+mkPeak :: Peak -> S.UGen+mkPeak (Peak r a' b') = S.mkOsc r "Peak" [a',b'] 1+instance Make Peak where+ ugen = mkPeak
+ Sound/SC3/UGen/Record/PeakFollower.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PeakFollower where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PeakFollower = PeakFollower {+ rate :: S.Rate,+ input :: S.UGen,+ decay :: S.UGen+ } deriving (Show)+peakFollower :: PeakFollower+peakFollower = PeakFollower {+ rate = S.AR,+ input = 0.0,+ decay = 0.999+ }+mkPeakFollower :: PeakFollower -> S.UGen+mkPeakFollower (PeakFollower r a' b') = S.mkOsc r "PeakFollower" [a',b'] 1+instance Make PeakFollower where+ ugen = mkPeakFollower
+ Sound/SC3/UGen/Record/Phasor.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.Phasor where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Phasor = Phasor {+ rate :: S.Rate,+ trig :: S.UGen,+ rate_ :: S.UGen,+ start :: S.UGen,+ end :: S.UGen,+ resetPos :: S.UGen+ } deriving (Show)+phasor :: Phasor+phasor = Phasor {+ rate = S.AR,+ trig = 0.0,+ rate_ = 1.0,+ start = 0.0,+ end = 1.0,+ resetPos = 0.0+ }+mkPhasor :: Phasor -> S.UGen+mkPhasor (Phasor r a' b' c' d' e') = S.mkOsc r "Phasor" [a',b',c',d',e'] 1+instance Make Phasor where+ ugen = mkPhasor
+ Sound/SC3/UGen/Record/Pitch.hs view
@@ -0,0 +1,32 @@+module Sound.SC3.UGen.Record.Pitch where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Pitch = Pitch {+ input :: S.UGen,+ initFreq :: S.UGen,+ minFreq :: S.UGen,+ maxFreq :: S.UGen,+ execFreq :: S.UGen,+ maxBinsPerOctave :: S.UGen,+ median :: S.UGen,+ ampThreshold :: S.UGen,+ peakThreshold :: S.UGen,+ downSample :: S.UGen+ } deriving (Show)+pitch :: Pitch+pitch = Pitch {+ input = 0.0,+ initFreq = 440.0,+ minFreq = 60.0,+ maxFreq = 4000.0,+ execFreq = 100.0,+ maxBinsPerOctave = 16.0,+ median = 1.0,+ ampThreshold = 0.01,+ peakThreshold = 0.5,+ downSample = 1.0+ }+mkPitch :: Pitch -> S.UGen+mkPitch (Pitch a' b' c' d' e' f' g' h' i' j') = S.mkOsc S.KR "Pitch" [a',b',c',d',e',f',g',h',i',j'] 2+instance Make Pitch where+ ugen = mkPitch
+ Sound/SC3/UGen/Record/PitchShift.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.PitchShift where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PitchShift = PitchShift {+ input :: S.UGen,+ windowSize :: S.UGen,+ pitchRatio :: S.UGen,+ pitchDispersion :: S.UGen,+ timeDispersion :: S.UGen+ } deriving (Show)+pitchShift :: PitchShift+pitchShift = PitchShift {+ input = 0.0,+ windowSize = 0.2,+ pitchRatio = 1.0,+ pitchDispersion = 0.0,+ timeDispersion = 0.0+ }+mkPitchShift :: PitchShift -> S.UGen+mkPitchShift (PitchShift a' b' c' d' e') = S.mkOsc S.AR "PitchShift" [a',b',c',d',e'] 1+instance Make PitchShift where+ ugen = mkPitchShift
+ Sound/SC3/UGen/Record/PlayBuf.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.PlayBuf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PlayBuf = PlayBuf {+ rate :: S.Rate,+ numChannels :: S.UGen,+ bufnum :: S.UGen,+ rate_ :: S.UGen,+ trigger :: S.UGen,+ startPos :: S.UGen,+ loop :: S.UGen+ } deriving (Show)+playBuf :: PlayBuf+playBuf = PlayBuf {+ rate = S.AR,+ numChannels = 0.0,+ bufnum = 0.0,+ rate_ = 1.0,+ trigger = 1.0,+ startPos = 0.0,+ loop = 0.0+ }+mkPlayBuf :: PlayBuf -> S.UGen+mkPlayBuf (PlayBuf r a' b' c' d' e' f') = S.mkOsc r "PlayBuf" [a',b',c',d',e',f'] 1+instance Make PlayBuf where+ ugen = mkPlayBuf
+ Sound/SC3/UGen/Record/Pluck.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.Pluck where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Pluck = Pluck {+ input :: S.UGen,+ trig :: S.UGen,+ maxdelaytime :: S.UGen,+ delaytime :: S.UGen,+ decaytime :: S.UGen,+ coef :: S.UGen+ } deriving (Show)+pluck :: Pluck+pluck = Pluck {+ input = 0.0,+ trig = 1.0,+ maxdelaytime = 0.2,+ delaytime = 0.2,+ decaytime = 1.0,+ coef = 0.5+ }+mkPluck :: Pluck -> S.UGen+mkPluck (Pluck a' b' c' d' e' f') = S.mkOsc S.AR "Pluck" [a',b',c',d',e',f'] 1+instance Make Pluck where+ ugen = mkPluck
+ Sound/SC3/UGen/Record/Pulse.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Pulse where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Pulse = Pulse {+ freq :: S.UGen,+ width :: S.UGen+ } deriving (Show)+pulse :: Pulse+pulse = Pulse {+ freq = 440.0,+ width = 0.5+ }+mkPulse :: Pulse -> S.UGen+mkPulse (Pulse a' b') = S.mkOsc S.AR "Pulse" [a',b'] 1+instance Make Pulse where+ ugen = mkPulse
+ Sound/SC3/UGen/Record/PulseCount.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.PulseCount where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PulseCount = PulseCount {+ rate :: S.Rate,+ trig :: S.UGen,+ reset :: S.UGen+ } deriving (Show)+pulseCount :: PulseCount+pulseCount = PulseCount {+ rate = S.AR,+ trig = 0.0,+ reset = 0.0+ }+mkPulseCount :: PulseCount -> S.UGen+mkPulseCount (PulseCount r a' b') = S.mkOsc r "PulseCount" [a',b'] 1+instance Make PulseCount where+ ugen = mkPulseCount
+ Sound/SC3/UGen/Record/PulseDivider.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.PulseDivider where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data PulseDivider = PulseDivider {+ rate :: S.Rate,+ trig :: S.UGen,+ div_ :: S.UGen,+ start :: S.UGen+ } deriving (Show)+pulseDivider :: PulseDivider+pulseDivider = PulseDivider {+ rate = S.AR,+ trig = 0.0,+ div_ = 2.0,+ start = 0.0+ }+mkPulseDivider :: PulseDivider -> S.UGen+mkPulseDivider (PulseDivider r a' b' c') = S.mkOsc r "PulseDivider" [a',b',c'] 1+instance Make PulseDivider where+ ugen = mkPulseDivider
+ Sound/SC3/UGen/Record/QuadC.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.QuadC where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data QuadC = QuadC {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ c :: S.UGen,+ xi :: S.UGen+ } deriving (Show)+quadC :: QuadC+quadC = QuadC {+ freq = 22050.0,+ a = 1.0,+ b = -1.0,+ c = -0.75,+ xi = 0.0+ }+mkQuadC :: QuadC -> S.UGen+mkQuadC (QuadC a' b' c' d' e') = S.mkOsc S.AR "QuadC" [a',b',c',d',e'] 1+instance Make QuadC where+ ugen = mkQuadC
+ Sound/SC3/UGen/Record/QuadL.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.QuadL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data QuadL = QuadL {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ c :: S.UGen,+ xi :: S.UGen+ } deriving (Show)+quadL :: QuadL+quadL = QuadL {+ freq = 22050.0,+ a = 1.0,+ b = -1.0,+ c = -0.75,+ xi = 0.0+ }+mkQuadL :: QuadL -> S.UGen+mkQuadL (QuadL a' b' c' d' e') = S.mkOsc S.AR "QuadL" [a',b',c',d',e'] 1+instance Make QuadL where+ ugen = mkQuadL
+ Sound/SC3/UGen/Record/QuadN.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.QuadN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data QuadN = QuadN {+ freq :: S.UGen,+ a :: S.UGen,+ b :: S.UGen,+ c :: S.UGen,+ xi :: S.UGen+ } deriving (Show)+quadN :: QuadN+quadN = QuadN {+ freq = 22050.0,+ a = 1.0,+ b = -1.0,+ c = -0.75,+ xi = 0.0+ }+mkQuadN :: QuadN -> S.UGen+mkQuadN (QuadN a' b' c' d' e') = S.mkOsc S.AR "QuadN" [a',b',c',d',e'] 1+instance Make QuadN where+ ugen = mkQuadN
+ Sound/SC3/UGen/Record/RHPF.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.RHPF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RHPF = RHPF {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+rHPF :: RHPF+rHPF = RHPF {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ rq = 1.0+ }+mkRHPF :: RHPF -> S.UGen+mkRHPF (RHPF r a' b' c') = S.mkOsc r "RHPF" [a',b',c'] 1+instance Make RHPF where+ ugen = mkRHPF
+ Sound/SC3/UGen/Record/RLPF.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.RLPF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RLPF = RLPF {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ rq :: S.UGen+ } deriving (Show)+rLPF :: RLPF+rLPF = RLPF {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ rq = 1.0+ }+mkRLPF :: RLPF -> S.UGen+mkRLPF (RLPF r a' b' c') = S.mkOsc r "RLPF" [a',b',c'] 1+instance Make RLPF where+ ugen = mkRLPF
+ Sound/SC3/UGen/Record/Ramp.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Ramp where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Ramp = Ramp {+ rate :: S.Rate,+ input :: S.UGen,+ lagTime :: S.UGen+ } deriving (Show)+ramp :: Ramp+ramp = Ramp {+ rate = S.AR,+ input = 0.0,+ lagTime = 0.1+ }+mkRamp :: Ramp -> S.UGen+mkRamp (Ramp r a' b') = S.mkOsc r "Ramp" [a',b'] 1+instance Make Ramp where+ ugen = mkRamp
+ Sound/SC3/UGen/Record/Rand.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Rand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Rand = Rand {+ lo :: S.UGen,+ hi :: S.UGen+ } deriving (Show)+rand :: Rand+rand = Rand {+ lo = 0.0,+ hi = 1.0+ }+mkRand :: Rand -> S.UGen+mkRand (Rand a' b') = S.mkOsc S.IR "Rand" [a',b'] 1+instance Make Rand where+ ugen = mkRand
+ Sound/SC3/UGen/Record/RandID.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.RandID where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RandID = RandID {+ rate :: S.Rate,+ id_ :: S.UGen+ } deriving (Show)+randID :: RandID+randID = RandID {+ rate = S.AR,+ id_ = 0.0+ }+mkRandID :: RandID -> S.UGen+mkRandID (RandID r a') = S.mkOsc r "RandID" [a'] 1+instance Make RandID where+ ugen = mkRandID
+ Sound/SC3/UGen/Record/RandSeed.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.RandSeed where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RandSeed = RandSeed {+ rate :: S.Rate,+ trig :: S.UGen,+ seed :: S.UGen+ } deriving (Show)+randSeed :: RandSeed+randSeed = RandSeed {+ rate = S.AR,+ trig = 0.0,+ seed = 56789.0+ }+mkRandSeed :: RandSeed -> S.UGen+mkRandSeed (RandSeed r a' b') = S.mkOsc r "RandSeed" [a',b'] 1+instance Make RandSeed where+ ugen = mkRandSeed
+ Sound/SC3/UGen/Record/RecordBuf.hs view
@@ -0,0 +1,30 @@+module Sound.SC3.UGen.Record.RecordBuf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RecordBuf = RecordBuf {+ rate :: S.Rate,+ inputArray :: S.UGen,+ bufnum :: S.UGen,+ offset :: S.UGen,+ recLevel :: S.UGen,+ preLevel :: S.UGen,+ run :: S.UGen,+ loop :: S.UGen,+ trigger :: S.UGen+ } deriving (Show)+recordBuf :: RecordBuf+recordBuf = RecordBuf {+ rate = S.AR,+ inputArray = 0.0,+ bufnum = 0.0,+ offset = 0.0,+ recLevel = 1.0,+ preLevel = 0.0,+ run = 1.0,+ loop = 1.0,+ trigger = 1.0+ }+mkRecordBuf :: RecordBuf -> S.UGen+mkRecordBuf (RecordBuf r a' b' c' d' e' f' g' h') = S.mkOsc r "RecordBuf" [a',b',c',d',e',f',g',h'] 1+instance Make RecordBuf where+ ugen = mkRecordBuf
+ Sound/SC3/UGen/Record/ReplaceOut.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.ReplaceOut where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data ReplaceOut = ReplaceOut {+ rate :: S.Rate,+ bus :: S.UGen,+ input :: S.UGen+ } deriving (Show)+replaceOut :: ReplaceOut+replaceOut = ReplaceOut {+ rate = S.AR,+ bus = 0.0,+ input = 0.0+ }+mkReplaceOut :: ReplaceOut -> S.UGen+mkReplaceOut (ReplaceOut r a' b') = S.mkOsc r "ReplaceOut" [a',b'] 1+instance Make ReplaceOut where+ ugen = mkReplaceOut
+ Sound/SC3/UGen/Record/Resonz.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Resonz where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Resonz = Resonz {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ bwr :: S.UGen+ } deriving (Show)+resonz :: Resonz+resonz = Resonz {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ bwr = 1.0+ }+mkResonz :: Resonz -> S.UGen+mkResonz (Resonz r a' b' c') = S.mkOsc r "Resonz" [a',b',c'] 1+instance Make Resonz where+ ugen = mkResonz
+ Sound/SC3/UGen/Record/Ringz.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Ringz where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Ringz = Ringz {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ decaytime :: S.UGen+ } deriving (Show)+ringz :: Ringz+ringz = Ringz {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ decaytime = 1.0+ }+mkRingz :: Ringz -> S.UGen+mkRingz (Ringz r a' b' c') = S.mkOsc r "Ringz" [a',b',c'] 1+instance Make Ringz where+ ugen = mkRingz
+ Sound/SC3/UGen/Record/Rotate2.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Rotate2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Rotate2 = Rotate2 {+ rate :: S.Rate,+ x :: S.UGen,+ y :: S.UGen,+ pos :: S.UGen+ } deriving (Show)+rotate2 :: Rotate2+rotate2 = Rotate2 {+ rate = S.AR,+ x = 0.0,+ y = 0.0,+ pos = 0.0+ }+mkRotate2 :: Rotate2 -> S.UGen+mkRotate2 (Rotate2 r a' b' c') = S.mkOsc r "Rotate2" [a',b',c'] 2+instance Make Rotate2 where+ ugen = mkRotate2
+ Sound/SC3/UGen/Record/RunningMax.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.RunningMax where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RunningMax = RunningMax {+ rate :: S.Rate,+ trig :: S.UGen,+ reset :: S.UGen+ } deriving (Show)+runningMax :: RunningMax+runningMax = RunningMax {+ rate = S.AR,+ trig = 0.0,+ reset = 0.0+ }+mkRunningMax :: RunningMax -> S.UGen+mkRunningMax (RunningMax r a' b') = S.mkOsc r "RunningMax" [a',b'] 1+instance Make RunningMax where+ ugen = mkRunningMax
+ Sound/SC3/UGen/Record/RunningMin.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.RunningMin where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RunningMin = RunningMin {+ rate :: S.Rate,+ trig :: S.UGen,+ reset :: S.UGen+ } deriving (Show)+runningMin :: RunningMin+runningMin = RunningMin {+ rate = S.AR,+ trig = 0.0,+ reset = 0.0+ }+mkRunningMin :: RunningMin -> S.UGen+mkRunningMin (RunningMin r a' b') = S.mkOsc r "RunningMin" [a',b'] 1+instance Make RunningMin where+ ugen = mkRunningMin
+ Sound/SC3/UGen/Record/RunningSum.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.RunningSum where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data RunningSum = RunningSum {+ rate :: S.Rate,+ input :: S.UGen,+ numsamp :: S.UGen+ } deriving (Show)+runningSum :: RunningSum+runningSum = RunningSum {+ rate = S.AR,+ input = 0.0,+ numsamp = 40.0+ }+mkRunningSum :: RunningSum -> S.UGen+mkRunningSum (RunningSum r a' b') = S.mkOsc r "RunningSum" [a',b'] 1+instance Make RunningSum where+ ugen = mkRunningSum
+ Sound/SC3/UGen/Record/SOS.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.SOS where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SOS = SOS {+ rate :: S.Rate,+ input :: S.UGen,+ a0 :: S.UGen,+ a1 :: S.UGen,+ a2 :: S.UGen,+ b1 :: S.UGen,+ b2 :: S.UGen+ } deriving (Show)+sOS :: SOS+sOS = SOS {+ rate = S.AR,+ input = 0.0,+ a0 = 0.0,+ a1 = 0.0,+ a2 = 0.0,+ b1 = 0.0,+ b2 = 0.0+ }+mkSOS :: SOS -> S.UGen+mkSOS (SOS r a' b' c' d' e' f') = S.mkOsc r "SOS" [a',b',c',d',e',f'] 1+instance Make SOS where+ ugen = mkSOS
+ Sound/SC3/UGen/Record/Saw.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.Saw where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Saw = Saw {+ freq :: S.UGen+ } deriving (Show)+saw :: Saw+saw = Saw {+ freq = 440.0+ }+mkSaw :: Saw -> S.UGen+mkSaw (Saw a') = S.mkOsc S.AR "Saw" [a'] 1+instance Make Saw where+ ugen = mkSaw
+ Sound/SC3/UGen/Record/Schmidt.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Schmidt where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Schmidt = Schmidt {+ rate :: S.Rate,+ input :: S.UGen,+ lo :: S.UGen,+ hi :: S.UGen+ } deriving (Show)+schmidt :: Schmidt+schmidt = Schmidt {+ rate = S.AR,+ input = 0.0,+ lo = 0.0,+ hi = 1.0+ }+mkSchmidt :: Schmidt -> S.UGen+mkSchmidt (Schmidt r a' b' c') = S.mkOsc r "Schmidt" [a',b',c'] 1+instance Make Schmidt where+ ugen = mkSchmidt
+ Sound/SC3/UGen/Record/ScopeOut.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.ScopeOut where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data ScopeOut = ScopeOut {+ rate :: S.Rate,+ inputArray :: S.UGen,+ bufnum :: S.UGen+ } deriving (Show)+scopeOut :: ScopeOut+scopeOut = ScopeOut {+ rate = S.AR,+ inputArray = 0.0,+ bufnum = 0.0+ }+mkScopeOut :: ScopeOut -> S.UGen+mkScopeOut (ScopeOut r a' b') = S.mkOsc r "ScopeOut" [a',b'] 1+instance Make ScopeOut where+ ugen = mkScopeOut
+ Sound/SC3/UGen/Record/Select.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Select where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Select = Select {+ rate :: S.Rate,+ which :: S.UGen,+ array :: S.UGen+ } deriving (Show)+select :: Select+select = Select {+ rate = S.AR,+ which = 0.0,+ array = 0.0+ }+mkSelect :: Select -> S.UGen+mkSelect (Select r a' b') = S.mkOsc r "Select" [a',b'] 1+instance Make Select where+ ugen = mkSelect
+ Sound/SC3/UGen/Record/SendTrig.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.SendTrig where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SendTrig = SendTrig {+ rate :: S.Rate,+ input :: S.UGen,+ id_ :: S.UGen,+ value :: S.UGen+ } deriving (Show)+sendTrig :: SendTrig+sendTrig = SendTrig {+ rate = S.AR,+ input = 0.0,+ id_ = 0.0,+ value = 0.0+ }+mkSendTrig :: SendTrig -> S.UGen+mkSendTrig (SendTrig r a' b' c') = S.mkOsc r "SendTrig" [a',b',c'] 1+instance Make SendTrig where+ ugen = mkSendTrig
+ Sound/SC3/UGen/Record/SetBuf.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.SetBuf where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SetBuf = SetBuf {+ buf :: S.UGen,+ values :: S.UGen,+ offset :: S.UGen+ } deriving (Show)+setBuf :: SetBuf+setBuf = SetBuf {+ buf = 0.0,+ values = 0.0,+ offset = 0.0+ }+mkSetBuf :: SetBuf -> S.UGen+mkSetBuf (SetBuf a' b' c') = S.mkOsc S.IR "SetBuf" [a',b',c'] 1+instance Make SetBuf where+ ugen = mkSetBuf
+ Sound/SC3/UGen/Record/SetResetFF.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.SetResetFF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SetResetFF = SetResetFF {+ rate :: S.Rate,+ trig :: S.UGen,+ reset :: S.UGen+ } deriving (Show)+setResetFF :: SetResetFF+setResetFF = SetResetFF {+ rate = S.AR,+ trig = 0.0,+ reset = 0.0+ }+mkSetResetFF :: SetResetFF -> S.UGen+mkSetResetFF (SetResetFF r a' b') = S.mkOsc r "SetResetFF" [a',b'] 1+instance Make SetResetFF where+ ugen = mkSetResetFF
+ Sound/SC3/UGen/Record/Shaper.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Shaper where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Shaper = Shaper {+ rate :: S.Rate,+ bufnum :: S.UGen,+ input :: S.UGen+ } deriving (Show)+shaper :: Shaper+shaper = Shaper {+ rate = S.AR,+ bufnum = 0.0,+ input = 0.0+ }+mkShaper :: Shaper -> S.UGen+mkShaper (Shaper r a' b') = S.mkOsc r "Shaper" [a',b'] 1+instance Make Shaper where+ ugen = mkShaper
@@ -0,0 +1,16 @@+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
@@ -0,0 +1,16 @@+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/Silent.hs view
@@ -0,0 +1,14 @@+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/SinOsc.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.SinOsc where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SinOsc = SinOsc {+ rate :: S.Rate,+ freq :: S.UGen,+ phase :: S.UGen+ } deriving (Show)+sinOsc :: SinOsc+sinOsc = SinOsc {+ rate = S.AR,+ freq = 440.0,+ phase = 0.0+ }+mkSinOsc :: SinOsc -> S.UGen+mkSinOsc (SinOsc r a' b') = S.mkOsc r "SinOsc" [a',b'] 1+instance Make SinOsc where+ ugen = mkSinOsc
+ Sound/SC3/UGen/Record/SinOscFB.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.SinOscFB where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SinOscFB = SinOscFB {+ rate :: S.Rate,+ freq :: S.UGen,+ feedback :: S.UGen+ } deriving (Show)+sinOscFB :: SinOscFB+sinOscFB = SinOscFB {+ rate = S.AR,+ freq = 440.0,+ feedback = 0.0+ }+mkSinOscFB :: SinOscFB -> S.UGen+mkSinOscFB (SinOscFB r a' b') = S.mkOsc r "SinOscFB" [a',b'] 1+instance Make SinOscFB where+ ugen = mkSinOscFB
+ Sound/SC3/UGen/Record/Slew.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Slew where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Slew = Slew {+ rate :: S.Rate,+ input :: S.UGen,+ up :: S.UGen,+ dn :: S.UGen+ } deriving (Show)+slew :: Slew+slew = Slew {+ rate = S.AR,+ input = 0.0,+ up = 1.0,+ dn = 1.0+ }+mkSlew :: Slew -> S.UGen+mkSlew (Slew r a' b' c') = S.mkOsc r "Slew" [a',b',c'] 1+instance Make Slew where+ ugen = mkSlew
+ Sound/SC3/UGen/Record/Slope.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Slope where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Slope = Slope {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+slope :: Slope+slope = Slope {+ rate = S.AR,+ input = 0.0+ }+mkSlope :: Slope -> S.UGen+mkSlope (Slope r a') = S.mkOsc r "Slope" [a'] 1+instance Make Slope where+ ugen = mkSlope
+ Sound/SC3/UGen/Record/SpecCentroid.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.SpecCentroid where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SpecCentroid = SpecCentroid {+ buffer :: S.UGen+ } deriving (Show)+specCentroid :: SpecCentroid+specCentroid = SpecCentroid {+ buffer = 0.0+ }+mkSpecCentroid :: SpecCentroid -> S.UGen+mkSpecCentroid (SpecCentroid a') = S.mkOsc S.KR "SpecCentroid" [a'] 1+instance Make SpecCentroid where+ ugen = mkSpecCentroid
+ Sound/SC3/UGen/Record/SpecFlatness.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.SpecFlatness where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SpecFlatness = SpecFlatness {+ buffer :: S.UGen+ } deriving (Show)+specFlatness :: SpecFlatness+specFlatness = SpecFlatness {+ buffer = 0.0+ }+mkSpecFlatness :: SpecFlatness -> S.UGen+mkSpecFlatness (SpecFlatness a') = S.mkOsc S.KR "SpecFlatness" [a'] 1+instance Make SpecFlatness where+ ugen = mkSpecFlatness
+ Sound/SC3/UGen/Record/SpecPcile.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.SpecPcile where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SpecPcile = SpecPcile {+ buffer :: S.UGen,+ fraction :: S.UGen,+ interpolate :: S.UGen+ } deriving (Show)+specPcile :: SpecPcile+specPcile = SpecPcile {+ buffer = 0.0,+ fraction = 0.5,+ interpolate = 0.0+ }+mkSpecPcile :: SpecPcile -> S.UGen+mkSpecPcile (SpecPcile a' b' c') = S.mkOsc S.KR "SpecPcile" [a',b',c'] 1+instance Make SpecPcile where+ ugen = mkSpecPcile
+ Sound/SC3/UGen/Record/Spring.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Spring where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Spring = Spring {+ input :: S.UGen,+ spring_ :: S.UGen,+ damp :: S.UGen+ } deriving (Show)+spring :: Spring+spring = Spring {+ input = 0.0,+ spring_ = 1.0,+ damp = 0.0+ }+mkSpring :: Spring -> S.UGen+mkSpring (Spring a' b' c') = S.mkOsc S.AR "Spring" [a',b',c'] 1+instance Make Spring where+ ugen = mkSpring
+ Sound/SC3/UGen/Record/StandardL.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.StandardL where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data StandardL = StandardL {+ freq :: S.UGen,+ k :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+standardL :: StandardL+standardL = StandardL {+ freq = 22050.0,+ k = 1.0,+ xi = 0.5,+ yi = 0.0+ }+mkStandardL :: StandardL -> S.UGen+mkStandardL (StandardL a' b' c' d') = S.mkOsc S.AR "StandardL" [a',b',c',d'] 1+instance Make StandardL where+ ugen = mkStandardL
+ Sound/SC3/UGen/Record/StandardN.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.StandardN where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data StandardN = StandardN {+ freq :: S.UGen,+ k :: S.UGen,+ xi :: S.UGen,+ yi :: S.UGen+ } deriving (Show)+standardN :: StandardN+standardN = StandardN {+ freq = 22050.0,+ k = 1.0,+ xi = 0.5,+ yi = 0.0+ }+mkStandardN :: StandardN -> S.UGen+mkStandardN (StandardN a' b' c' d') = S.mkOsc S.AR "StandardN" [a',b',c',d'] 1+instance Make StandardN where+ ugen = mkStandardN
+ Sound/SC3/UGen/Record/Stepper.hs view
@@ -0,0 +1,26 @@+module Sound.SC3.UGen.Record.Stepper where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Stepper = Stepper {+ rate :: S.Rate,+ trig :: S.UGen,+ reset :: S.UGen,+ min_ :: S.UGen,+ max_ :: S.UGen,+ step :: S.UGen,+ resetval :: S.UGen+ } deriving (Show)+stepper :: Stepper+stepper = Stepper {+ rate = S.AR,+ trig = 0.0,+ reset = 0.0,+ min_ = 0.0,+ max_ = 7.0,+ step = 1.0,+ resetval = 0.0+ }+mkStepper :: Stepper -> S.UGen+mkStepper (Stepper r a' b' c' d' e' f') = S.mkOsc r "Stepper" [a',b',c',d',e',f'] 1+instance Make Stepper where+ ugen = mkStepper
+ Sound/SC3/UGen/Record/StereoConvolution2L.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.StereoConvolution2L where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data StereoConvolution2L = StereoConvolution2L {+ input :: S.UGen,+ kernelL :: S.UGen,+ kernelR :: S.UGen,+ trigger :: S.UGen,+ framesize :: S.UGen,+ crossfade :: S.UGen+ } deriving (Show)+stereoConvolution2L :: StereoConvolution2L+stereoConvolution2L = StereoConvolution2L {+ input = 0.0,+ kernelL = 0.0,+ kernelR = 0.0,+ trigger = 0.0,+ framesize = 0.0,+ crossfade = 1.0+ }+mkStereoConvolution2L :: StereoConvolution2L -> S.UGen+mkStereoConvolution2L (StereoConvolution2L a' b' c' d' e' f') = S.mkOsc S.AR "StereoConvolution2L" [a',b',c',d',e',f'] 2+instance Make StereoConvolution2L where+ ugen = mkStereoConvolution2L
+ Sound/SC3/UGen/Record/Sweep.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Sweep where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Sweep = Sweep {+ rate :: S.Rate,+ trig :: S.UGen,+ rate_ :: S.UGen+ } deriving (Show)+sweep :: Sweep+sweep = Sweep {+ rate = S.AR,+ trig = 0.0,+ rate_ = 1.0+ }+mkSweep :: Sweep -> S.UGen+mkSweep (Sweep r a' b') = S.mkOsc r "Sweep" [a',b'] 1+instance Make Sweep where+ ugen = mkSweep
+ Sound/SC3/UGen/Record/SyncSaw.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.SyncSaw where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data SyncSaw = SyncSaw {+ rate :: S.Rate,+ syncFreq :: S.UGen,+ sawFreq :: S.UGen+ } deriving (Show)+syncSaw :: SyncSaw+syncSaw = SyncSaw {+ rate = S.AR,+ syncFreq = 440.0,+ sawFreq = 440.0+ }+mkSyncSaw :: SyncSaw -> S.UGen+mkSyncSaw (SyncSaw r a' b') = S.mkOsc r "SyncSaw" [a',b'] 1+instance Make SyncSaw where+ ugen = mkSyncSaw
+ Sound/SC3/UGen/Record/T2A.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.T2A where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data T2A = T2A {+ input :: S.UGen,+ offset :: S.UGen+ } deriving (Show)+t2A :: T2A+t2A = T2A {+ input = 0.0,+ offset = 0.0+ }+mkT2A :: T2A -> S.UGen+mkT2A (T2A a' b') = S.mkOsc S.AR "T2A" [a',b'] 1+instance Make T2A where+ ugen = mkT2A
+ Sound/SC3/UGen/Record/T2K.hs view
@@ -0,0 +1,14 @@+module Sound.SC3.UGen.Record.T2K where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data T2K = T2K {+ input :: S.UGen+ } deriving (Show)+t2K :: T2K+t2K = T2K {+ input = 0.0+ }+mkT2K :: T2K -> S.UGen+mkT2K (T2K a') = S.mkOsc S.KR "T2K" [a'] 1+instance Make T2K where+ ugen = mkT2K
+ Sound/SC3/UGen/Record/TBall.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.TBall where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TBall = TBall {+ input :: S.UGen,+ g :: S.UGen,+ damp :: S.UGen,+ friction :: S.UGen+ } deriving (Show)+tBall :: TBall+tBall = TBall {+ input = 0.0,+ g = 10.0,+ damp = 0.0,+ friction = 0.01+ }+mkTBall :: TBall -> S.UGen+mkTBall (TBall a' b' c' d') = S.mkOsc S.AR "TBall" [a',b',c',d'] 1+instance Make TBall where+ ugen = mkTBall
+ Sound/SC3/UGen/Record/TDelay.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.TDelay where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TDelay = TDelay {+ rate :: S.Rate,+ input :: S.UGen,+ dur :: S.UGen+ } deriving (Show)+tDelay :: TDelay+tDelay = TDelay {+ rate = S.AR,+ input = 0.0,+ dur = 0.1+ }+mkTDelay :: TDelay -> S.UGen+mkTDelay (TDelay r a' b') = S.mkOsc r "TDelay" [a',b'] 1+instance Make TDelay where+ ugen = mkTDelay
+ Sound/SC3/UGen/Record/TDuty.hs view
@@ -0,0 +1,24 @@+module Sound.SC3.UGen.Record.TDuty where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TDuty = TDuty {+ rate :: S.Rate,+ dur :: S.UGen,+ reset :: S.UGen,+ level :: S.UGen,+ doneAction :: S.UGen,+ gapFirst :: S.UGen+ } deriving (Show)+tDuty :: TDuty+tDuty = TDuty {+ rate = S.AR,+ dur = 1.0,+ reset = 0.0,+ level = 1.0,+ doneAction = 0.0,+ gapFirst = 0.0+ }+mkTDuty :: TDuty -> S.UGen+mkTDuty (TDuty r a' b' c' d' e') = S.mkOsc r "TDuty" [a',b',c',d',e'] 1+instance Make TDuty where+ ugen = mkTDuty
+ Sound/SC3/UGen/Record/TExpRand.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.TExpRand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TExpRand = TExpRand {+ rate :: S.Rate,+ lo :: S.UGen,+ hi :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+tExpRand :: TExpRand+tExpRand = TExpRand {+ rate = S.AR,+ lo = 0.01,+ hi = 1.0,+ trig = 0.0+ }+mkTExpRand :: TExpRand -> S.UGen+mkTExpRand (TExpRand r a' b' c') = S.mkOsc r "TExpRand" [a',b',c'] 1+instance Make TExpRand where+ ugen = mkTExpRand
+ Sound/SC3/UGen/Record/TGrains.hs view
@@ -0,0 +1,30 @@+module Sound.SC3.UGen.Record.TGrains where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TGrains = TGrains {+ numChannels :: S.UGen,+ trigger :: S.UGen,+ bufnum :: S.UGen,+ rate_ :: S.UGen,+ centerPos :: S.UGen,+ dur :: S.UGen,+ pan :: S.UGen,+ amp :: S.UGen,+ interp :: S.UGen+ } deriving (Show)+tGrains :: TGrains+tGrains = TGrains {+ numChannels = 0.0,+ trigger = 0.0,+ bufnum = 0.0,+ rate_ = 1.0,+ centerPos = 0.0,+ dur = 0.1,+ pan = 0.0,+ amp = 0.1,+ interp = 4.0+ }+mkTGrains :: TGrains -> S.UGen+mkTGrains (TGrains a' b' c' d' e' f' g' h' i') = S.mkOsc S.AR "TGrains" [a',b',c',d',e',f',g',h',i'] 1+instance Make TGrains where+ ugen = mkTGrains
+ Sound/SC3/UGen/Record/TIRand.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.TIRand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TIRand = TIRand {+ rate :: S.Rate,+ lo :: S.UGen,+ hi :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+tIRand :: TIRand+tIRand = TIRand {+ rate = S.AR,+ lo = 0.0,+ hi = 127.0,+ trig = 0.0+ }+mkTIRand :: TIRand -> S.UGen+mkTIRand (TIRand r a' b' c') = S.mkOsc r "TIRand" [a',b',c'] 1+instance Make TIRand where+ ugen = mkTIRand
+ Sound/SC3/UGen/Record/TRand.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.TRand where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TRand = TRand {+ rate :: S.Rate,+ lo :: S.UGen,+ hi :: S.UGen,+ trig :: S.UGen+ } deriving (Show)+tRand :: TRand+tRand = TRand {+ rate = S.AR,+ lo = 0.0,+ hi = 1.0,+ trig = 0.0+ }+mkTRand :: TRand -> S.UGen+mkTRand (TRand r a' b' c') = S.mkOsc r "TRand" [a',b',c'] 1+instance Make TRand where+ ugen = mkTRand
+ Sound/SC3/UGen/Record/TWChoose.hs view
@@ -0,0 +1,22 @@+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
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.TWindex where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TWindex = TWindex {+ rate :: S.Rate,+ input :: S.UGen,+ array :: S.UGen,+ normalize :: S.UGen+ } deriving (Show)+tWindex :: TWindex+tWindex = TWindex {+ rate = S.AR,+ input = 0.0,+ array = 0.0,+ normalize = 0.0+ }+mkTWindex :: TWindex -> S.UGen+mkTWindex (TWindex r a' b' c') = S.mkOsc r "TWindex" [a',b',c'] 1+instance Make TWindex where+ ugen = mkTWindex
+ Sound/SC3/UGen/Record/Tap.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Tap where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Tap = Tap {+ bufnum :: S.UGen,+ numChannels :: S.UGen,+ delaytime :: S.UGen+ } deriving (Show)+tap :: Tap+tap = Tap {+ bufnum = 0.0,+ numChannels = 1.0,+ delaytime = 0.2+ }+mkTap :: Tap -> S.UGen+mkTap (Tap a' b' c') = S.mkOsc S.AR "Tap" [a',b',c'] 1+instance Make Tap where+ ugen = mkTap
+ Sound/SC3/UGen/Record/Timer.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.Timer where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Timer = Timer {+ rate :: S.Rate,+ trig :: S.UGen+ } deriving (Show)+timer :: Timer+timer = Timer {+ rate = S.AR,+ trig = 0.0+ }+mkTimer :: Timer -> S.UGen+mkTimer (Timer r a') = S.mkOsc r "Timer" [a'] 1+instance Make Timer where+ ugen = mkTimer
+ Sound/SC3/UGen/Record/ToggleFF.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.ToggleFF where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data ToggleFF = ToggleFF {+ rate :: S.Rate,+ trig :: S.UGen+ } deriving (Show)+toggleFF :: ToggleFF+toggleFF = ToggleFF {+ rate = S.AR,+ trig = 0.0+ }+mkToggleFF :: ToggleFF -> S.UGen+mkToggleFF (ToggleFF r a') = S.mkOsc r "ToggleFF" [a'] 1+instance Make ToggleFF where+ ugen = mkToggleFF
+ Sound/SC3/UGen/Record/Trig.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Trig where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Trig = Trig {+ rate :: S.Rate,+ input :: S.UGen,+ dur :: S.UGen+ } deriving (Show)+trig :: Trig+trig = Trig {+ rate = S.AR,+ input = 0.0,+ dur = 0.1+ }+mkTrig :: Trig -> S.UGen+mkTrig (Trig r a' b') = S.mkOsc r "Trig" [a',b'] 1+instance Make Trig where+ ugen = mkTrig
+ Sound/SC3/UGen/Record/Trig1.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.Trig1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Trig1 = Trig1 {+ rate :: S.Rate,+ input :: S.UGen,+ dur :: S.UGen+ } deriving (Show)+trig1 :: Trig1+trig1 = Trig1 {+ rate = S.AR,+ input = 0.0,+ dur = 0.1+ }+mkTrig1 :: Trig1 -> S.UGen+mkTrig1 (Trig1 r a' b') = S.mkOsc r "Trig1" [a',b'] 1+instance Make Trig1 where+ ugen = mkTrig1
+ Sound/SC3/UGen/Record/TrigControl.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.TrigControl where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TrigControl = TrigControl {+ rate :: S.Rate,+ values :: S.UGen+ } deriving (Show)+trigControl :: TrigControl+trigControl = TrigControl {+ rate = S.AR,+ values = 0.0+ }+mkTrigControl :: TrigControl -> S.UGen+mkTrigControl (TrigControl r a') = S.mkOsc r "TrigControl" [a'] 1+instance Make TrigControl where+ ugen = mkTrigControl
+ Sound/SC3/UGen/Record/TwoPole.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.TwoPole where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TwoPole = TwoPole {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ radius :: S.UGen+ } deriving (Show)+twoPole :: TwoPole+twoPole = TwoPole {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ radius = 0.8+ }+mkTwoPole :: TwoPole -> S.UGen+mkTwoPole (TwoPole r a' b' c') = S.mkOsc r "TwoPole" [a',b',c'] 1+instance Make TwoPole where+ ugen = mkTwoPole
+ Sound/SC3/UGen/Record/TwoZero.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.TwoZero where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data TwoZero = TwoZero {+ rate :: S.Rate,+ input :: S.UGen,+ freq :: S.UGen,+ radius :: S.UGen+ } deriving (Show)+twoZero :: TwoZero+twoZero = TwoZero {+ rate = S.AR,+ input = 0.0,+ freq = 440.0,+ radius = 0.8+ }+mkTwoZero :: TwoZero -> S.UGen+mkTwoZero (TwoZero r a' b' c') = S.mkOsc r "TwoZero" [a',b',c'] 1+instance Make TwoZero where+ ugen = mkTwoZero
+ Sound/SC3/UGen/Record/Unpack1FFT.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Unpack1FFT where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Unpack1FFT = Unpack1FFT {+ chain :: S.UGen,+ bufsize :: S.UGen,+ binindex :: S.UGen,+ whichmeasure :: S.UGen+ } deriving (Show)+unpack1FFT :: Unpack1FFT+unpack1FFT = Unpack1FFT {+ chain = 0.0,+ bufsize = 0.0,+ binindex = 0.0,+ whichmeasure = 0.0+ }+mkUnpack1FFT :: Unpack1FFT -> S.UGen+mkUnpack1FFT (Unpack1FFT a' b' c' d') = S.mkOsc S.DR "Unpack1FFT" [a',b',c',d'] 1+instance Make Unpack1FFT where+ ugen = mkUnpack1FFT
+ Sound/SC3/UGen/Record/VDiskIn.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.VDiskIn where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data VDiskIn = VDiskIn {+ numChannels :: S.UGen,+ bufnum :: S.UGen,+ rate_ :: S.UGen,+ loop :: S.UGen+ } deriving (Show)+vDiskIn :: VDiskIn+vDiskIn = VDiskIn {+ numChannels = 0.0,+ bufnum = 0.0,+ rate_ = 1.0,+ loop = 0.0+ }+mkVDiskIn :: VDiskIn -> S.UGen+mkVDiskIn (VDiskIn a' b' c' d') = S.mkOsc S.AR "VDiskIn" [a',b',c',d'] 1+instance Make VDiskIn where+ ugen = mkVDiskIn
+ Sound/SC3/UGen/Record/VOsc.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.VOsc where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data VOsc = VOsc {+ rate :: S.Rate,+ bufpos :: S.UGen,+ freq :: S.UGen,+ phase :: S.UGen+ } deriving (Show)+vOsc :: VOsc+vOsc = VOsc {+ rate = S.AR,+ bufpos = 0.0,+ freq = 440.0,+ phase = 0.0+ }+mkVOsc :: VOsc -> S.UGen+mkVOsc (VOsc r a' b' c') = S.mkOsc r "VOsc" [a',b',c'] 1+instance Make VOsc where+ ugen = mkVOsc
+ Sound/SC3/UGen/Record/VOsc3.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.VOsc3 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data VOsc3 = VOsc3 {+ rate :: S.Rate,+ bufpos :: S.UGen,+ freq1 :: S.UGen,+ freq2 :: S.UGen,+ freq3 :: S.UGen+ } deriving (Show)+vOsc3 :: VOsc3+vOsc3 = VOsc3 {+ rate = S.AR,+ bufpos = 0.0,+ freq1 = 110.0,+ freq2 = 220.0,+ freq3 = 440.0+ }+mkVOsc3 :: VOsc3 -> S.UGen+mkVOsc3 (VOsc3 r a' b' c' d') = S.mkOsc r "VOsc3" [a',b',c',d'] 1+instance Make VOsc3 where+ ugen = mkVOsc3
+ Sound/SC3/UGen/Record/VarSaw.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.VarSaw where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data VarSaw = VarSaw {+ rate :: S.Rate,+ freq :: S.UGen,+ iphase :: S.UGen,+ width :: S.UGen+ } deriving (Show)+varSaw :: VarSaw+varSaw = VarSaw {+ rate = S.AR,+ freq = 440.0,+ iphase = 0.0,+ width = 0.5+ }+mkVarSaw :: VarSaw -> S.UGen+mkVarSaw (VarSaw r a' b' c') = S.mkOsc r "VarSaw" [a',b',c'] 1+instance Make VarSaw where+ ugen = mkVarSaw
+ Sound/SC3/UGen/Record/Vibrato.hs view
@@ -0,0 +1,30 @@+module Sound.SC3.UGen.Record.Vibrato where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Vibrato = Vibrato {+ rate :: S.Rate,+ freq :: S.UGen,+ rate_ :: S.UGen,+ depth :: S.UGen,+ delay :: S.UGen,+ onset :: S.UGen,+ rateVariation :: S.UGen,+ depthVariation :: S.UGen,+ iphase :: S.UGen+ } deriving (Show)+vibrato :: Vibrato+vibrato = Vibrato {+ rate = S.AR,+ freq = 440.0,+ rate_ = 6.0,+ depth = 0.02,+ delay = 0.0,+ onset = 0.0,+ rateVariation = 0.04,+ depthVariation = 0.1,+ iphase = 0.0+ }+mkVibrato :: Vibrato -> S.UGen+mkVibrato (Vibrato r a' b' c' d' e' f' g' h') = S.mkOsc r "Vibrato" [a',b',c',d',e',f',g',h'] 1+instance Make Vibrato where+ ugen = mkVibrato
+ Sound/SC3/UGen/Record/Warp1.hs view
@@ -0,0 +1,30 @@+module Sound.SC3.UGen.Record.Warp1 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Warp1 = Warp1 {+ numChannels :: S.UGen,+ bufnum :: S.UGen,+ pointer :: S.UGen,+ freqScale :: S.UGen,+ windowSize :: S.UGen,+ envbufnum :: S.UGen,+ overlaps :: S.UGen,+ windowRandRatio :: S.UGen,+ interp :: S.UGen+ } deriving (Show)+warp1 :: Warp1+warp1 = Warp1 {+ numChannels = 1.0,+ bufnum = 0.0,+ pointer = 0.0,+ freqScale = 1.0,+ windowSize = 0.2,+ envbufnum = -1.0,+ overlaps = 8.0,+ windowRandRatio = 0.0,+ interp = 1.0+ }+mkWarp1 :: Warp1 -> S.UGen+mkWarp1 (Warp1 a' b' c' d' e' f' g' h' i') = S.mkOsc S.AR "Warp1" [a',b',c',d',e',f',g',h',i'] 1+instance Make Warp1 where+ ugen = mkWarp1
+ Sound/SC3/UGen/Record/Wrap.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.Wrap where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data Wrap = Wrap {+ rate :: S.Rate,+ input :: S.UGen,+ lo :: S.UGen,+ hi :: S.UGen+ } deriving (Show)+wrap :: Wrap+wrap = Wrap {+ rate = S.AR,+ input = 0.0,+ lo = 0.0,+ hi = 1.0+ }+mkWrap :: Wrap -> S.UGen+mkWrap (Wrap r a' b' c') = S.mkOsc r "Wrap" [a',b',c'] 1+instance Make Wrap where+ ugen = mkWrap
+ Sound/SC3/UGen/Record/WrapIndex.hs view
@@ -0,0 +1,18 @@+module Sound.SC3.UGen.Record.WrapIndex where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data WrapIndex = WrapIndex {+ rate :: S.Rate,+ bufnum :: S.UGen,+ input :: S.UGen+ } deriving (Show)+wrapIndex :: WrapIndex+wrapIndex = WrapIndex {+ rate = S.AR,+ bufnum = 0.0,+ input = 0.0+ }+mkWrapIndex :: WrapIndex -> S.UGen+mkWrapIndex (WrapIndex r a' b') = S.mkOsc r "WrapIndex" [a',b'] 1+instance Make WrapIndex where+ ugen = mkWrapIndex
+ Sound/SC3/UGen/Record/XFade.hs view
@@ -0,0 +1,14 @@+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/XFade2.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.XFade2 where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data XFade2 = XFade2 {+ rate :: S.Rate,+ inA :: S.UGen,+ inB :: S.UGen,+ pan :: S.UGen,+ level :: S.UGen+ } deriving (Show)+xFade2 :: XFade2+xFade2 = XFade2 {+ rate = S.AR,+ inA = 0.0,+ inB = 0.0,+ pan = 0.0,+ level = 1.0+ }+mkXFade2 :: XFade2 -> S.UGen+mkXFade2 (XFade2 r a' b' c' d') = S.mkOsc r "XFade2" [a',b',c',d'] 1+instance Make XFade2 where+ ugen = mkXFade2
+ Sound/SC3/UGen/Record/XLine.hs view
@@ -0,0 +1,22 @@+module Sound.SC3.UGen.Record.XLine where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data XLine = XLine {+ rate :: S.Rate,+ start :: S.UGen,+ end :: S.UGen,+ dur :: S.UGen,+ doneAction :: S.UGen+ } deriving (Show)+xLine :: XLine+xLine = XLine {+ rate = S.AR,+ start = 1.0,+ end = 2.0,+ dur = 1.0,+ doneAction = 0.0+ }+mkXLine :: XLine -> S.UGen+mkXLine (XLine r a' b' c' d') = S.mkOsc r "XLine" [a',b',c',d'] 1+instance Make XLine where+ ugen = mkXLine
+ Sound/SC3/UGen/Record/XOut.hs view
@@ -0,0 +1,20 @@+module Sound.SC3.UGen.Record.XOut where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data XOut = XOut {+ rate :: S.Rate,+ bus :: S.UGen,+ xfade :: S.UGen,+ input :: S.UGen+ } deriving (Show)+xOut :: XOut+xOut = XOut {+ rate = S.AR,+ bus = 0.0,+ xfade = 0.0,+ input = 0.0+ }+mkXOut :: XOut -> S.UGen+mkXOut (XOut r a' b' c') = S.mkOsc r "XOut" [a',b',c'] 1+instance Make XOut where+ ugen = mkXOut
+ Sound/SC3/UGen/Record/ZeroCrossing.hs view
@@ -0,0 +1,16 @@+module Sound.SC3.UGen.Record.ZeroCrossing where+import qualified Sound.SC3.UGen as S+import Sound.SC3.UGen.Record+data ZeroCrossing = ZeroCrossing {+ rate :: S.Rate,+ input :: S.UGen+ } deriving (Show)+zeroCrossing :: ZeroCrossing+zeroCrossing = ZeroCrossing {+ rate = S.AR,+ input = 0.0+ }+mkZeroCrossing :: ZeroCrossing -> S.UGen+mkZeroCrossing (ZeroCrossing r a') = S.mkOsc r "ZeroCrossing" [a'] 1+instance Make ZeroCrossing where+ ugen = mkZeroCrossing
+ hsc3-rec.cabal view
@@ -0,0 +1,388 @@+Name: hsc3-rec+Version: 0.7+Synopsis: Haskell SuperCollider Record Variants+Description: hsc3-rsc provides record variants of the + unit generator constructors at hsc3.+License: GPL+Category: Sound+Copyright: (c) Rohan Drape and others, 2008+Author: Rohan Drape+Maintainer: rd@slavepianos.org+Stability: Experimental+Homepage: http://slavepianos.org/rd/f/197482/+Tested-With: GHC == 6.8.2+Build-Type: Simple+Cabal-Version: >= 1.6++Data-files: README+ Makefile+ Help/analog-bubbles.hs+ Help/pitch.hs++Library+ Build-Depends: base == 3.*,+ hsc3 == 0.7+ GHC-Options: -Wall -fwarn-tabs+ Exposed-modules: Sound.SC3.UGen.Record+ -- the lines below are generate by make module_list+ Sound.SC3.UGen.Record.A2K+ Sound.SC3.UGen.Record.AbstractIn+ Sound.SC3.UGen.Record.AbstractOut+ Sound.SC3.UGen.Record.AllpassC+ Sound.SC3.UGen.Record.AllpassL+ Sound.SC3.UGen.Record.AllpassN+ Sound.SC3.UGen.Record.AmpCompA+ Sound.SC3.UGen.Record.AmpComp+ Sound.SC3.UGen.Record.Amplitude+ Sound.SC3.UGen.Record.APF+ Sound.SC3.UGen.Record.Balance2+ Sound.SC3.UGen.Record.Ball+ Sound.SC3.UGen.Record.BAllPass+ Sound.SC3.UGen.Record.BasicOpUGen+ Sound.SC3.UGen.Record.BBandPass+ Sound.SC3.UGen.Record.BBandStop+ Sound.SC3.UGen.Record.BeatTrack2+ Sound.SC3.UGen.Record.BeatTrack+ Sound.SC3.UGen.Record.BEQSuite+ Sound.SC3.UGen.Record.BHiPass+ Sound.SC3.UGen.Record.BHiShelf+ Sound.SC3.UGen.Record.BiPanB2+ Sound.SC3.UGen.Record.Blip+ Sound.SC3.UGen.Record.BLowPass+ Sound.SC3.UGen.Record.BLowShelf+ Sound.SC3.UGen.Record.BPeakEQ+ Sound.SC3.UGen.Record.BPF+ Sound.SC3.UGen.Record.BPZ2+ Sound.SC3.UGen.Record.BRF+ Sound.SC3.UGen.Record.BRZ2+ Sound.SC3.UGen.Record.BufAllpassC+ Sound.SC3.UGen.Record.BufAllpassL+ Sound.SC3.UGen.Record.BufAllpassN+ Sound.SC3.UGen.Record.BufChannels+ Sound.SC3.UGen.Record.BufCombC+ Sound.SC3.UGen.Record.BufCombL+ Sound.SC3.UGen.Record.BufCombN+ Sound.SC3.UGen.Record.BufDelayC+ Sound.SC3.UGen.Record.BufDelayL+ Sound.SC3.UGen.Record.BufDelayN+ Sound.SC3.UGen.Record.BufDur+ Sound.SC3.UGen.Record.BufFrames+ Sound.SC3.UGen.Record.BufInfoUGenBase+ Sound.SC3.UGen.Record.BufRateScale+ Sound.SC3.UGen.Record.BufRd+ Sound.SC3.UGen.Record.BufSampleRate+ Sound.SC3.UGen.Record.BufSamples+ Sound.SC3.UGen.Record.BufWr+ Sound.SC3.UGen.Record.ChaosGen+ Sound.SC3.UGen.Record.CheckBadValues+ Sound.SC3.UGen.Record.ClearBuf+ Sound.SC3.UGen.Record.Clip+ Sound.SC3.UGen.Record.CoinGate+ Sound.SC3.UGen.Record.CombC+ Sound.SC3.UGen.Record.CombL+ Sound.SC3.UGen.Record.CombN+ Sound.SC3.UGen.Record.CompanderD+ Sound.SC3.UGen.Record.Compander+ Sound.SC3.UGen.Record.Control+ Sound.SC3.UGen.Record.Convolution2+ Sound.SC3.UGen.Record.Convolution2L+ Sound.SC3.UGen.Record.Convolution3+ Sound.SC3.UGen.Record.Convolution+ Sound.SC3.UGen.Record.COsc+ Sound.SC3.UGen.Record.Crackle+ Sound.SC3.UGen.Record.CuspL+ Sound.SC3.UGen.Record.CuspN+ Sound.SC3.UGen.Record.Dbrown+ Sound.SC3.UGen.Record.Dbufrd+ Sound.SC3.UGen.Record.Dbufwr+ Sound.SC3.UGen.Record.DC+ Sound.SC3.UGen.Record.Decay2+ Sound.SC3.UGen.Record.Decay+ Sound.SC3.UGen.Record.DecodeB2+ Sound.SC3.UGen.Record.DegreeToKey+ Sound.SC3.UGen.Record.Delay1+ Sound.SC3.UGen.Record.Delay2+ Sound.SC3.UGen.Record.DelayC+ Sound.SC3.UGen.Record.DelayL+ Sound.SC3.UGen.Record.DelayN+ Sound.SC3.UGen.Record.DemandEnvGen+ Sound.SC3.UGen.Record.Demand+ Sound.SC3.UGen.Record.DetectIndex+ Sound.SC3.UGen.Record.DetectSilence+ Sound.SC3.UGen.Record.Dgeom+ Sound.SC3.UGen.Record.Dibrown+ Sound.SC3.UGen.Record.DiskIn+ Sound.SC3.UGen.Record.DiskOut+ Sound.SC3.UGen.Record.Diwhite+ Sound.SC3.UGen.Record.Donce+ Sound.SC3.UGen.Record.Done+ Sound.SC3.UGen.Record.Dpoll+ Sound.SC3.UGen.Record.Drand+ Sound.SC3.UGen.Record.Dseq+ Sound.SC3.UGen.Record.Dser+ Sound.SC3.UGen.Record.Dseries+ Sound.SC3.UGen.Record.Dstutter+ Sound.SC3.UGen.Record.Dswitch1+ Sound.SC3.UGen.Record.Dswitch+ Sound.SC3.UGen.Record.DUGen+ Sound.SC3.UGen.Record.Dust2+ Sound.SC3.UGen.Record.Dust+ Sound.SC3.UGen.Record.Duty+ Sound.SC3.UGen.Record.Dwhite+ Sound.SC3.UGen.Record.Dxrand+ Sound.SC3.UGen.Record.DynKlang+ Sound.SC3.UGen.Record.DynKlank+ Sound.SC3.UGen.Record.EnvGen+ Sound.SC3.UGen.Record.ExpRand+ Sound.SC3.UGen.Record.FBSineC+ Sound.SC3.UGen.Record.FBSineL+ Sound.SC3.UGen.Record.FBSineN+ Sound.SC3.UGen.Record.FFT+ Sound.SC3.UGen.Record.FFTTrigger+ Sound.SC3.UGen.Record.Filter+ Sound.SC3.UGen.Record.Fold+ Sound.SC3.UGen.Record.Formant+ Sound.SC3.UGen.Record.Formlet+ Sound.SC3.UGen.Record.FOS+ Sound.SC3.UGen.Record.Free+ Sound.SC3.UGen.Record.FreeSelf+ Sound.SC3.UGen.Record.FreeSelfWhenDone+ Sound.SC3.UGen.Record.FreeVerb2+ Sound.SC3.UGen.Record.FreeVerb+ Sound.SC3.UGen.Record.FreqShift+ Sound.SC3.UGen.Record.FSinOsc+ Sound.SC3.UGen.Record.Gate+ Sound.SC3.UGen.Record.GbmanL+ Sound.SC3.UGen.Record.GbmanN+ Sound.SC3.UGen.Record.Gendy1+ Sound.SC3.UGen.Record.Gendy2+ Sound.SC3.UGen.Record.Gendy3+ Sound.SC3.UGen.Record.GrainBuf+ Sound.SC3.UGen.Record.GrainFM+ Sound.SC3.UGen.Record.GrainIn+ Sound.SC3.UGen.Record.GrainSin+ Sound.SC3.UGen.Record.GVerb+ Sound.SC3.UGen.Record.Hasher+ Sound.SC3.UGen.Record.HenonC+ Sound.SC3.UGen.Record.HenonL+ Sound.SC3.UGen.Record.HenonN+ Sound.SC3.UGen.Record.HilbertFIR+ Sound.SC3.UGen.Record.Hilbert+ Sound.SC3.UGen.Record.HPF+ Sound.SC3.UGen.Record.HPZ1+ Sound.SC3.UGen.Record.HPZ2+ Sound.SC3.UGen.Record.IEnvGen+ Sound.SC3.UGen.Record.IFFT+ Sound.SC3.UGen.Record.Impulse+ Sound.SC3.UGen.Record.Index+ Sound.SC3.UGen.Record.IndexInBetween+ Sound.SC3.UGen.Record.InFeedback+ Sound.SC3.UGen.Record.In+ Sound.SC3.UGen.Record.InRange+ Sound.SC3.UGen.Record.InRect+ Sound.SC3.UGen.Record.Integrator+ Sound.SC3.UGen.Record.InTrig+ Sound.SC3.UGen.Record.IRand+ Sound.SC3.UGen.Record.K2A+ Sound.SC3.UGen.Record.KeyState+ Sound.SC3.UGen.Record.KeyTrack+ Sound.SC3.UGen.Record.Klang+ Sound.SC3.UGen.Record.Klank+ Sound.SC3.UGen.Record.Lag2+ Sound.SC3.UGen.Record.Lag2UD+ Sound.SC3.UGen.Record.Lag3+ Sound.SC3.UGen.Record.Lag3UD+ Sound.SC3.UGen.Record.LagControl+ Sound.SC3.UGen.Record.Lag+ Sound.SC3.UGen.Record.LagIn+ Sound.SC3.UGen.Record.LagUD+ Sound.SC3.UGen.Record.LastValue+ Sound.SC3.UGen.Record.Latch+ Sound.SC3.UGen.Record.LatoocarfianC+ Sound.SC3.UGen.Record.LatoocarfianL+ Sound.SC3.UGen.Record.LatoocarfianN+ Sound.SC3.UGen.Record.LeakDC+ Sound.SC3.UGen.Record.LeastChange+ Sound.SC3.UGen.Record.LFClipNoise+ Sound.SC3.UGen.Record.LFCub+ Sound.SC3.UGen.Record.LFDClipNoise+ Sound.SC3.UGen.Record.LFDNoise0+ Sound.SC3.UGen.Record.LFDNoise1+ Sound.SC3.UGen.Record.LFDNoise3+ Sound.SC3.UGen.Record.LFNoise0+ Sound.SC3.UGen.Record.LFNoise1+ Sound.SC3.UGen.Record.LFNoise2+ Sound.SC3.UGen.Record.LFPar+ Sound.SC3.UGen.Record.LFPulse+ Sound.SC3.UGen.Record.LFSaw+ Sound.SC3.UGen.Record.LFTri+ Sound.SC3.UGen.Record.Limiter+ Sound.SC3.UGen.Record.LinCongC+ Sound.SC3.UGen.Record.LinCongL+ Sound.SC3.UGen.Record.LinCongN+ 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.LocalBuf+ Sound.SC3.UGen.Record.LocalIn+ Sound.SC3.UGen.Record.LocalOut+ Sound.SC3.UGen.Record.Logistic+ Sound.SC3.UGen.Record.LorenzL+ Sound.SC3.UGen.Record.Loudness+ Sound.SC3.UGen.Record.LPF+ Sound.SC3.UGen.Record.LPZ1+ Sound.SC3.UGen.Record.LPZ2+ Sound.SC3.UGen.Record.MantissaMask+ Sound.SC3.UGen.Record.Median+ Sound.SC3.UGen.Record.MFCC+ Sound.SC3.UGen.Record.MidEQ+ Sound.SC3.UGen.Record.MoogFF+ Sound.SC3.UGen.Record.MostChange+ Sound.SC3.UGen.Record.MouseButton+ Sound.SC3.UGen.Record.MouseX+ Sound.SC3.UGen.Record.MouseY+ Sound.SC3.UGen.Record.MultiOutUGen+ Sound.SC3.UGen.Record.Normalizer+ Sound.SC3.UGen.Record.NRand+ Sound.SC3.UGen.Record.OffsetOut+ Sound.SC3.UGen.Record.OnePole+ Sound.SC3.UGen.Record.OneZero+ Sound.SC3.UGen.Record.Onsets+ Sound.SC3.UGen.Record.Osc+ Sound.SC3.UGen.Record.OscN+ Sound.SC3.UGen.Record.Out+ Sound.SC3.UGen.Record.Pan2+ Sound.SC3.UGen.Record.Pan4+ Sound.SC3.UGen.Record.PanAz+ Sound.SC3.UGen.Record.PanB2+ Sound.SC3.UGen.Record.PanB+ Sound.SC3.UGen.Record.Panner+ Sound.SC3.UGen.Record.PartConv+ Sound.SC3.UGen.Record.Pause+ Sound.SC3.UGen.Record.PauseSelf+ Sound.SC3.UGen.Record.PauseSelfWhenDone+ Sound.SC3.UGen.Record.PeakFollower+ Sound.SC3.UGen.Record.Peak+ Sound.SC3.UGen.Record.Phasor+ Sound.SC3.UGen.Record.Pitch+ Sound.SC3.UGen.Record.PitchShift+ Sound.SC3.UGen.Record.PlayBuf+ Sound.SC3.UGen.Record.Pluck+ Sound.SC3.UGen.Record.PSinGrain+ Sound.SC3.UGen.Record.PulseCount+ Sound.SC3.UGen.Record.PulseDivider+ Sound.SC3.UGen.Record.Pulse+ Sound.SC3.UGen.Record.PV_Add+ Sound.SC3.UGen.Record.PV_BinScramble+ Sound.SC3.UGen.Record.PV_BinShift+ Sound.SC3.UGen.Record.PV_BinWipe+ Sound.SC3.UGen.Record.PV_BrickWall+ Sound.SC3.UGen.Record.PV_ChainUGen+ Sound.SC3.UGen.Record.PV_ConformalMap+ Sound.SC3.UGen.Record.PV_Copy+ Sound.SC3.UGen.Record.PV_CopyPhase+ Sound.SC3.UGen.Record.PV_Diffuser+ Sound.SC3.UGen.Record.PV_HainsworthFoote+ Sound.SC3.UGen.Record.PV_JensenAndersen+ Sound.SC3.UGen.Record.PV_LocalMax+ Sound.SC3.UGen.Record.PV_MagAbove+ Sound.SC3.UGen.Record.PV_MagBelow+ Sound.SC3.UGen.Record.PV_MagClip+ Sound.SC3.UGen.Record.PV_MagDiv+ Sound.SC3.UGen.Record.PV_MagFreeze+ Sound.SC3.UGen.Record.PV_MagMul+ Sound.SC3.UGen.Record.PV_MagNoise+ Sound.SC3.UGen.Record.PV_MagShift+ Sound.SC3.UGen.Record.PV_MagSmear+ Sound.SC3.UGen.Record.PV_MagSquared+ Sound.SC3.UGen.Record.PV_Max+ Sound.SC3.UGen.Record.PV_Min+ Sound.SC3.UGen.Record.PV_Mul+ Sound.SC3.UGen.Record.PV_PhaseShift270+ Sound.SC3.UGen.Record.PV_PhaseShift90+ Sound.SC3.UGen.Record.PV_PhaseShift+ Sound.SC3.UGen.Record.PV_RandComb+ Sound.SC3.UGen.Record.PV_RandWipe+ Sound.SC3.UGen.Record.PV_RectComb2+ Sound.SC3.UGen.Record.PV_RectComb+ Sound.SC3.UGen.Record.QuadC+ Sound.SC3.UGen.Record.QuadL+ Sound.SC3.UGen.Record.QuadN+ Sound.SC3.UGen.Record.Ramp+ Sound.SC3.UGen.Record.Rand+ Sound.SC3.UGen.Record.RandID+ Sound.SC3.UGen.Record.RandSeed+ Sound.SC3.UGen.Record.RecordBuf+ Sound.SC3.UGen.Record.ReplaceOut+ Sound.SC3.UGen.Record.Resonz+ Sound.SC3.UGen.Record.RHPF+ Sound.SC3.UGen.Record.Ringz+ Sound.SC3.UGen.Record.RLPF+ Sound.SC3.UGen.Record.Rotate2+ Sound.SC3.UGen.Record.RunningMax+ Sound.SC3.UGen.Record.RunningMin+ Sound.SC3.UGen.Record.RunningSum+ Sound.SC3.UGen.Record.Saw+ Sound.SC3.UGen.Record.Schmidt+ Sound.SC3.UGen.Record.ScopeOut+ Sound.SC3.UGen.Record.Select+ Sound.SC3.UGen.Record.SendTrig+ 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.Silent+ Sound.SC3.UGen.Record.SinOscFB+ Sound.SC3.UGen.Record.SinOsc+ Sound.SC3.UGen.Record.Slew+ Sound.SC3.UGen.Record.Slope+ Sound.SC3.UGen.Record.SOS+ Sound.SC3.UGen.Record.SpecCentroid+ Sound.SC3.UGen.Record.SpecFlatness+ Sound.SC3.UGen.Record.SpecPcile+ Sound.SC3.UGen.Record.Spring+ Sound.SC3.UGen.Record.StandardL+ Sound.SC3.UGen.Record.StandardN+ Sound.SC3.UGen.Record.Stepper+ Sound.SC3.UGen.Record.StereoConvolution2L+ Sound.SC3.UGen.Record.Sweep+ Sound.SC3.UGen.Record.SyncSaw+ Sound.SC3.UGen.Record.T2A+ Sound.SC3.UGen.Record.T2K+ Sound.SC3.UGen.Record.Tap+ Sound.SC3.UGen.Record.TBall+ Sound.SC3.UGen.Record.TDelay+ Sound.SC3.UGen.Record.TDuty+ Sound.SC3.UGen.Record.TExpRand+ Sound.SC3.UGen.Record.TGrains+ Sound.SC3.UGen.Record.Timer+ Sound.SC3.UGen.Record.TIRand+ Sound.SC3.UGen.Record.ToggleFF+ Sound.SC3.UGen.Record.TRand+ Sound.SC3.UGen.Record.Trig1+ Sound.SC3.UGen.Record.TrigControl+ Sound.SC3.UGen.Record.Trig+ Sound.SC3.UGen.Record.TWChoose+ Sound.SC3.UGen.Record.TWindex+ Sound.SC3.UGen.Record.TwoPole+ Sound.SC3.UGen.Record.TwoZero+ Sound.SC3.UGen.Record.Unpack1FFT+ Sound.SC3.UGen.Record.VarSaw+ Sound.SC3.UGen.Record.VDiskIn+ Sound.SC3.UGen.Record.Vibrato+ Sound.SC3.UGen.Record.VOsc3+ Sound.SC3.UGen.Record.VOsc+ Sound.SC3.UGen.Record.Warp1+ Sound.SC3.UGen.Record.Wrap+ Sound.SC3.UGen.Record.WrapIndex+ 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