-- | F0 UGens (f0plugins)
module Sound.SC3.UGen.Bindings.HW.External.F0 where

import Sound.SC3.Common.Rate
import qualified Sound.SC3.UGen.Bindings.HW.Construct as C
import Sound.SC3.UGen.Type

-- | Emulation of the sound generation hardware of the Atari TIA chip.
atari2600 :: UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen
atari2600 :: UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen
atari2600 UGen
audc0 UGen
audc1 UGen
audf0 UGen
audf1 UGen
audv0 UGen
audv1 UGen
rate = Rate -> String -> [UGen] -> Int -> UGen
C.mkOsc Rate
AR String
"Atari2600" [UGen
audc0,UGen
audc1,UGen
audf0,UGen
audf1,UGen
audv0,UGen
audv1,UGen
rate] Int
1

-- | POKEY Chip Sound Simulator
mzPokey :: UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen
mzPokey :: UGen
-> UGen
-> UGen
-> UGen
-> UGen
-> UGen
-> UGen
-> UGen
-> UGen
-> UGen
mzPokey UGen
f1 UGen
c1 UGen
f2 UGen
c2 UGen
f3 UGen
c3 UGen
f4 UGen
c4 UGen
ctl = Rate -> String -> [UGen] -> Int -> UGen
C.mkOsc Rate
AR String
"MZPokey" [UGen
f1,UGen
c1,UGen
f2,UGen
c2,UGen
f3,UGen
c3,UGen
f4,UGen
c4,UGen
ctl] Int
1

-- | A phasor that can loop.
redPhasor :: Rate -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen
redPhasor :: Rate
-> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen
redPhasor Rate
rate UGen
trig UGen
rate_ UGen
start UGen
end UGen
loop UGen
loopstart UGen
loopend = Rate -> String -> [UGen] -> Int -> UGen
C.mkOsc Rate
rate String
"RedPhasor" [UGen
trig,UGen
rate_,UGen
start,UGen
end,UGen
loop,UGen
loopstart,UGen
loopend] Int
1

-- | A phasor that can loop.
redPhasor2 :: Rate -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen
redPhasor2 :: Rate
-> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen
redPhasor2 Rate
rate UGen
trig UGen
rate_ UGen
start UGen
end UGen
loop UGen
loopstart UGen
loopend = Rate -> String -> [UGen] -> Int -> UGen
C.mkOsc Rate
rate String
"RedPhasor2" [UGen
trig,UGen
rate_,UGen
start,UGen
end,UGen
loop,UGen
loopstart,UGen
loopend] Int
1

-- Local Variables:
-- truncate-lines:t
-- End: