Reverbtn.hs

-- | Reverberation
module CsoundExpr.Opcodes.Sigmod.Reverbtn
    (alpass,
     babo,
     comb,
     freeverb,
     nestedap,
     nreverb,
     reverb2,
     reverb,
     reverbsc,
     valpass,
     vcomb)
where



import CsoundExpr.Base.Types
import CsoundExpr.Base.MultiOut
import CsoundExpr.Base.SideEffect
import CsoundExpr.Base.UserDefined



-- | * opcode : alpass
--  
--  
-- * syntax : 
--  
--  >   ares alpass asig, krvt, ilpt [, iskip] [, insmps]
--  
--  
-- * description : 
--  
--  Reverberates an input signal with a flat frequency response.
--  
--  
-- * url : <http://www.csounds.com/manual/html/alpass.html>
 
alpass :: (K k0) => [Irate] -> Arate -> k0 -> Irate -> Arate
alpass i0init a1sig k2rvt i3lpt = opcode "alpass" args
  where args = [to a1sig, to k2rvt, to i3lpt] ++ map to i0init


-- | * opcode : babo
--  
--  
-- * syntax : 
--  
--  >   a1, a2 babo asig, ksrcx, ksrcy, ksrcz, irx, iry, irz [, idiff] [, ifno]
--  
--  
-- * description : 
--  
--  babo stands for ball-within-the-box. It is a physical model
-- reverberator based on the paper by Davide Rocchesso "The Ball
-- within the Box: a sound-processing metaphor", Computer Music
-- Journal, Vol 19, N.4, pp.45-47, Winter 1995.
--  
--  
-- * url : <http://www.csounds.com/manual/html/babo.html>
 
babo ::
       (K k0, K k1, K k2) =>
       [Irate] ->
         Arate -> k0 -> k1 -> k2 -> Irate -> Irate -> Irate -> MultiOut
babo i0init a1sig k2srcx k3srcy k4srcz i5rx i6ry i7rz
  = opcode "babo" args
  where args
          = [to a1sig, to k2srcx, to k3srcy, to k4srcz, to i5rx, to i6ry,
             to i7rz]
              ++ map to i0init


-- | * opcode : comb
--  
--  
-- * syntax : 
--  
--  >   ares comb asig, krvt, ilpt [, iskip] [, insmps]
--  
--  
-- * description : 
--  
--  Reverberates an input signal with a colored frequency response.
--  
--  
-- * url : <http://www.csounds.com/manual/html/comb.html>
 
comb :: (K k0) => [Irate] -> Arate -> k0 -> Irate -> Arate
comb i0init a1sig k2rvt i3lpt = opcode "comb" args
  where args = [to a1sig, to k2rvt, to i3lpt] ++ map to i0init


-- | * opcode : freeverb
--  
--  
-- * syntax : 
--  
--  >   aoutL, aoutR freeverb ainL, ainR, kRoomSize, kHFDamp[, iSRate[, iSkip]]
--  
--  
-- * description : 
--  
--  freeverb is a stereo reverb unit based on Jezar's public domain
-- C++ sources, composed of eight parallel comb filters on both
-- channels, followed by four allpass units in series. The filters
-- on the right channel are slightly detuned compared to the left
-- channel in order to create a stereo effect.
--  
--  
-- * url : <http://www.csounds.com/manual/html/freeverb.html>
 
freeverb ::
           (K k0, K k1) => [Irate] -> Arate -> Arate -> k0 -> k1 -> MultiOut
freeverb i0init a1inL a2inR k3RoomSize k4HFDamp
  = opcode "freeverb" args
  where args
          = [to a1inL, to a2inR, to k3RoomSize, to k4HFDamp] ++ map to i0init


-- | * opcode : nestedap
--  
--  
-- * syntax : 
--  
--  >   ares nestedap asig, imode, imaxdel, idel1, igain1 [, idel2] [, igain2] 
--  >       [, idel3] [, igain3] [, istor]
--  
--  
-- * description : 
--  
--  Three different nested all-pass filters, useful for implementing
-- reverbs.
--  
--  
-- * url : <http://www.csounds.com/manual/html/nestedap.html>
 
nestedap ::
           [Irate] -> Arate -> Irate -> Irate -> Irate -> Irate -> Arate
nestedap i0init a1sig i2mode i3maxdel i4del1 i5gain1
  = opcode "nestedap" args
  where args
          = [to a1sig, to i2mode, to i3maxdel, to i4del1, to i5gain1] ++
              map to i0init


-- | * opcode : nreverb
--  
--  
-- * syntax : 
--  
--  >   ares nreverb asig, ktime, khdif [, iskip] [,inumCombs] [, ifnCombs] 
--  >       [, inumAlpas] [, ifnAlpas]
--  
--  
-- * description : 
--  
--  This is a reverberator consisting of 6 parallel comb-lowpass
-- filters being fed into a series of 5 allpass filters. nreverb
-- replaces reverb2 (version 3.48) and so both opcodes are
-- identical.
--  
--  
-- * url : <http://www.csounds.com/manual/html/nreverb.html>
 
nreverb :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate
nreverb i0init a1sig k2time k3hdif = opcode "nreverb" args
  where args = [to a1sig, to k2time, to k3hdif] ++ map to i0init


-- | * opcode : reverb2
--  
--  
-- * syntax : 
--  
--  >   ares reverb2 asig, ktime, khdif [, iskip] [,inumCombs] 
--  >       [, ifnCombs] [, inumAlpas] [, ifnAlpas]
--  
--  
-- * description : 
--  
--  Same as the nreverb opcode.
--  
--  
-- * url : <http://www.csounds.com/manual/html/reverb2.html>
 
reverb2 :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate
reverb2 i0init a1sig k2time k3hdif = opcode "reverb2" args
  where args = [to a1sig, to k2time, to k3hdif] ++ map to i0init


-- | * opcode : reverb
--  
--  
-- * syntax : 
--  
--  >   ares reverb asig, krvt [, iskip]
--  
--  
-- * description : 
--  
--  Reverberates an input signal with a natural room frequency
-- response.
--  
--  
-- * url : <http://www.csounds.com/manual/html/reverb.html>
 
reverb :: (K k0) => [Irate] -> Arate -> k0 -> Arate
reverb i0init a1sig k2rvt = opcode "reverb" args
  where args = [to a1sig, to k2rvt] ++ map to i0init


-- | * opcode : reverbsc
--  
--  
-- * syntax : 
--  
--  >   aoutL, aoutR reverbsc ainL, ainR, kfblvl, kfco[, israte[, ipitchm[, iskip]]]
--  
--  
-- * description : 
--  
--  8 delay line stereo FDN reverb, with feedback matrix based upon
-- physical modeling scattering junction of 8 lossless waveguides of
-- equal characteristic impedance. Based on Csound orchestra version
-- by Sean Costello.
--  
--  
-- * url : <http://www.csounds.com/manual/html/reverbsc.html>
 
reverbsc ::
           (K k0, K k1) => [Irate] -> Arate -> Arate -> k0 -> k1 -> MultiOut
reverbsc i0init a1inL a2inR k3fblvl k4fco = opcode "reverbsc" args
  where args
          = [to a1inL, to a2inR, to k3fblvl, to k4fco] ++ map to i0init


-- | * opcode : valpass
--  
--  
-- * syntax : 
--  
--  >   ares valpass asig, krvt, xlpt, imaxlpt [, iskip] [, insmps]
--  
--  
-- * description : 
--  
--  Variably reverberates an input signal with a flat frequency
-- response.
--  
--  
-- * url : <http://www.csounds.com/manual/html/valpass.html>
 
valpass ::
          (K k0, X x0) => [Irate] -> Arate -> k0 -> x0 -> Irate -> Arate
valpass i0init a1sig k2rvt x3lpt i4maxlpt = opcode "valpass" args
  where args
          = [to a1sig, to k2rvt, to x3lpt, to i4maxlpt] ++ map to i0init


-- | * opcode : vcomb
--  
--  
-- * syntax : 
--  
--  >   ares vcomb asig, krvt, xlpt, imaxlpt [, iskip] [, insmps]
--  
--  
-- * description : 
--  
--  Variably reverberates an input signal with a colored frequency
-- response.
--  
--  
-- * url : <http://www.csounds.com/manual/html/vcomb.html>
 
vcomb ::
        (K k0, X x0) => [Irate] -> Arate -> k0 -> x0 -> Irate -> Arate
vcomb i0init a1sig k2rvt x3lpt i4maxlpt = opcode "vcomb" args
  where args
          = [to a1sig, to k2rvt, to x3lpt, to i4maxlpt] ++ map to i0init