diff --git a/Changelog b/Changelog deleted file mode 100644 --- a/Changelog +++ /dev/null @@ -1,58 +0,0 @@ --> 0.3.4 package Boolean is changed. Keeping dependencies up to date - --> 0.3.3 score representation is changed (temporal-media package) - --> 0.3.2 adds new GEN functionality: - new functions for specific gens creation: - toFtgen, toFtgentmp, toFtgenonce - skipNorm accepts not only values created with genXX, - but gen-like values also (created with toFtgenXXX functions) - --> 0.3.1 underlying temporal-media package updates - --> 0.3.0 update for Score api. Now there is no Score api by default. - Consider using 'temporal-media'[1] or 'temporal-music-notation'[2] - packages for csound score events composition. - 'temporal-media' is general package for functional construction - of list of events with fixed start time and duration, like - csound notes. - - Tutorial moves to root-module 'CsoundExpr'. - - [1] http://hackage.haskell.org/package/temporal-media - [2] http://hackage.haskell.org/package/temporal-music-notation - --> 0.2.0 fixes docs bugs, - - new functions in CsoundExpr.Base.Score : - - extends TemporalFunctor with new methods - tmap, dmap, tdmap for mapping dependent on time/duration, - enveloping on Score level (diminuendo or crescendo) - - WARNING : API changes : tmap is now dmap and tmap stands for time - dependent mapping (not duration as it was before), - - new class Sustainable, adds ability for legato and pedal (sustain, - sustainBy functions) - - new class TemporalStretch, adds ability to stretch score dependent - on note's start time (ritardando or accelerando) - - adds list-like operations on Scores : reverseS, takeS, dropS - - new function in CsoundExpr.Base.Arithmetic - ^+ - shift with Irate - - --> 0.1.0 new type BoolRate, functional if/then/else is possible - new operators : <^>, <%> - scaling becomes ^* (due to <* is defined as lower then for signals) - --> 0.0.3 fixes a bug with p-fields assignment - --> 0.0.2 fixes a bug in dependencies - --> 0.0.1 adds Tutorial - -0.0 diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -1,4 +1,4 @@ -Copyright Anton Kholomiov 2011-2012 +Copyright Anton Kholomiov 2010 All rights reserved. diff --git a/csound-expression.cabal b/csound-expression.cabal --- a/csound-expression.cabal +++ b/csound-expression.cabal @@ -1,195 +1,98 @@ Name: csound-expression -Version: 0.3.4 -Cabal-Version: >= 1.2 +Version: 1.0.0 +Cabal-Version: >= 1.6 License: BSD3 -License-File: LICENSE +License-file: LICENSE Author: Anton Kholomiov -Maintainer: -Synopsis: Csound combinator library -Description: Csound code generator. See root module "CsoundExpr" - for introduction guides. Score module is no longer - available inside 'csound-expression' package, consider - using 'temporal-media' or 'temporal-music-notation' - packages. See source directory for examples. - -Category: Sound, Music +Synopsis: library to make electronic music Stability: Experimental -Tested-With: GHC==6.12.3 +Tested-With: GHC==7.4 Build-Type: Simple +Category: Music, Sound +Maintainer: +Description: + Let's make music with text! We can use Csound to describe our music. Csound has so many fantastic sound generators. + It's very efficient. But sometimes Csound is too low level. So many details: integer identifiers for instruments + and arrays, should I use control rate or audio rate signals, lack of abstractions, no nested expressions and it has limited set of types. + This library embeds Csound in Haskell. It's Csound code generator. We can use powerful Csound's primitives and glue them + together with Haskell abstractions. Start with the module "Csound.Base". It contains basic types and functions. + . + Key principles + . + * Keep it simple and compact. + . + * Try to hide low level csound's wiring as much as we can (no ids for ftables, instruments, global variables). + . + * Don't describe the whole csound in all it's generality but give the user some handy tools + to play with sound. + . + * No distinction between audio and control rates on the type level. Derive all rates from the context. + If the user plugs signal to an opcode that expects an audio rate signal the argument is converted to the right rate. + . + * Watch out for side-effects. There is a special type called 'SE'. It functions as 'IO' in Haskell. + . + * Less typing, more music. Use short names for all types. Make library so that all expressions can be + built without type annotations. Make it simple for the compiler to derive all types. Don't use complex type classes. + . + * Make low level opcode definitions simple. Let user define his own opcodes (if they are missing). + . + * Make it independent from any Score-generation library. Let user choose his favorite library. + By the way, my favorite is the package 'temporal-music-notation' (but i'm biased as an author). You can + find it on hackage alongside with 'temporal-csound'. It brings 'csound-expression' and 'temporal-music-notation' + together. + . + * Ensure that output signal is limited by amplitude. Csound can produce signals with HUGE amplitudes. Little typo can damage your ears + and your speakers. In generated code all signals are clipped by 0dbfs value. 0dbfs is set to 1. Just as in Pure Data. So 1 is absolute maximum value + for amplitude. + . + For the future + . + * Make composable guis. Just plug the slider in the opcode and see it on the screen. Interactive instruments should be easy to make. + . + * Remove score/instrument barrier. Let instrument play a score within a note and trigger + other instruments. + . + * Timing of events. User can set the beat rate and align events by beat events. + . + * Set Csound flags with meaningful (well-typed) values. Derive as much as you can from the context. + Extra-Source-Files : - Changelog - examples/Readme.hs - examples/dm.hs - examples/arpeggi.hs - examples/choral.hs - examples/teardrop.hs - examples/Orchestra.hs - examples/tmp/new.csd +Homepage: https://github.com/anton-k/csound-expression +Bug-Reports: https://github.com/anton-k/csound-expression/issues + +Source-repository head + Type: git + Location: https://github.com/anton-k/csound-expression + + Library Build-Depends: - base >= 4, base < 5, containers, mtl >= 2.0, pretty, - filepath, directory, process >= 1, Boolean >= 0.1.1, temporal-music-notation >= 0.2 + base >= 4, base < 5, containers, array, transformers, wl-pprint, + data-default, Boolean >= 0.1.0, data-fix, data-fix-cse Hs-Source-Dirs: src/ Exposed-Modules: - CsoundExpr --- Base - CsoundExpr.Base - CsoundExpr.Base.Types - CsoundExpr.Base.Boolean - CsoundExpr.Base.Imperative - CsoundExpr.Base.MultiOut - CsoundExpr.Base.SideEffect - CsoundExpr.Base.Arithmetic - CsoundExpr.Base.Header - CsoundExpr.Base.Gens - CsoundExpr.Base.Pitch - CsoundExpr.Base.UserDefined - CsoundExpr.Base.Pretty --- Tutorial --- CsoundExpr.Tutorial --- CsoundExpr.Tutorial.Intro --- CsoundExpr.Tutorial.Composition --- CsoundExpr.Tutorial.Orchestra --- CsoundExpr.Tutorial.Limits - --- Opcodes - CsoundExpr.Opcodes - - CsoundExpr.Opcodes.Other - - CsoundExpr.Opcodes.Siggen - CsoundExpr.Opcodes.Sigio - CsoundExpr.Opcodes.Sigmod - CsoundExpr.Opcodes.Control - CsoundExpr.Opcodes.Table - CsoundExpr.Opcodes.Math - CsoundExpr.Opcodes.Pitch - CsoundExpr.Opcodes.Midi - CsoundExpr.Opcodes.Spectral - CsoundExpr.Opcodes.Vectorial - CsoundExpr.Opcodes.Zak - CsoundExpr.Opcodes.Plugin - CsoundExpr.Opcodes.OSCNetwork - CsoundExpr.Opcodes.MixerOpcodes - CsoundExpr.Opcodes.SignalFlowGraphOpcodes - CsoundExpr.Opcodes.Imageopcodes - CsoundExpr.Opcodes.Miscopcodes - CsoundExpr.Opcodes.Siggen.Additive - CsoundExpr.Opcodes.Siggen.Basic - CsoundExpr.Opcodes.Siggen.Dynamic - CsoundExpr.Opcodes.Siggen.Fmsynth - CsoundExpr.Opcodes.Siggen.Granular - CsoundExpr.Opcodes.Siggen.Hvs - CsoundExpr.Opcodes.Siggen.Lineexp - CsoundExpr.Opcodes.Siggen.Envelope - CsoundExpr.Opcodes.Siggen.Models - CsoundExpr.Opcodes.Siggen.Phasors - CsoundExpr.Opcodes.Siggen.Noise - CsoundExpr.Opcodes.Siggen.Sample - CsoundExpr.Opcodes.Siggen.ScanTop - CsoundExpr.Opcodes.Siggen.Tableacc - CsoundExpr.Opcodes.Siggen.Waveterr - CsoundExpr.Opcodes.Siggen.Wavguide - CsoundExpr.Opcodes.Sigio.FileIO - CsoundExpr.Opcodes.Sigio.Input - CsoundExpr.Opcodes.Sigio.Output - CsoundExpr.Opcodes.Sigio.SoftwareBus - CsoundExpr.Opcodes.Sigio.Pdisplay - CsoundExpr.Opcodes.Sigio.Queries - CsoundExpr.Opcodes.Sigmod.SigProcAmpMod - CsoundExpr.Opcodes.Sigmod.SigProcConmorph - CsoundExpr.Opcodes.Sigmod.Delay - CsoundExpr.Opcodes.Sigmod.Panspatl - CsoundExpr.Opcodes.Sigmod.Reverbtn - CsoundExpr.Opcodes.Sigmod.Sample - CsoundExpr.Opcodes.Sigmod.Siglimit - CsoundExpr.Opcodes.Sigmod.Speciale - CsoundExpr.Opcodes.Sigmod.Standard - CsoundExpr.Opcodes.Sigmod.Speciali - CsoundExpr.Opcodes.Sigmod.Wavguide - CsoundExpr.Opcodes.Sigmod.Wavshape - CsoundExpr.Opcodes.Control.Clockctl - CsoundExpr.Opcodes.Control.Durctl - CsoundExpr.Opcodes.Control.FltkIntro - CsoundExpr.Opcodes.Control.FltkValuators - CsoundExpr.Opcodes.Control.FltkOther - CsoundExpr.Opcodes.Control.FltkAppearance - CsoundExpr.Opcodes.Control.FltkGeneral - CsoundExpr.Opcodes.Control.Invocat - CsoundExpr.Opcodes.Control.Pgmctl - CsoundExpr.Opcodes.Control.Realtime - CsoundExpr.Opcodes.Control.Reinitn - CsoundExpr.Opcodes.Control.Sensing - CsoundExpr.Opcodes.Control.Stacks - CsoundExpr.Opcodes.Control.Subinstrument - CsoundExpr.Opcodes.Control.Timeread - CsoundExpr.Opcodes.Table.Queries - CsoundExpr.Opcodes.Table.Readwrit - CsoundExpr.Opcodes.Table.Select - CsoundExpr.Opcodes.Math.Amp - CsoundExpr.Opcodes.Math.SigmodCompaccum - CsoundExpr.Opcodes.Math.Matfunc - CsoundExpr.Opcodes.Math.Opeqfunc - CsoundExpr.Opcodes.Math.Rndfunc - CsoundExpr.Opcodes.Math.Trig - CsoundExpr.Opcodes.Pitch.Funcs - CsoundExpr.Opcodes.Pitch.Tuning - CsoundExpr.Opcodes.Midi.Input - CsoundExpr.Opcodes.Midi.Output - CsoundExpr.Opcodes.Midi.Generic - CsoundExpr.Opcodes.Midi.Convert - CsoundExpr.Opcodes.Midi.Extender - CsoundExpr.Opcodes.Midi.Onoff - CsoundExpr.Opcodes.Midi.Interop - CsoundExpr.Opcodes.Midi.Realtime - CsoundExpr.Opcodes.Midi.Slidrbk - CsoundExpr.Opcodes.Spectral.SiggenStft - CsoundExpr.Opcodes.Spectral.Lpcresyn - CsoundExpr.Opcodes.Spectral.Nonstand - CsoundExpr.Opcodes.Spectral.RealTime - CsoundExpr.Opcodes.Spectral.ATS - CsoundExpr.Opcodes.Spectral.Loris - CsoundExpr.Opcodes.Vectorial.Vectorialtables - CsoundExpr.Opcodes.Vectorial.Vectorialscalar - CsoundExpr.Opcodes.Vectorial.Vectorialvectorial - CsoundExpr.Opcodes.Vectorial.EnvelopeGenerators - CsoundExpr.Opcodes.Vectorial.Vectorialimiting - CsoundExpr.Opcodes.Vectorial.Vectorialdelay - CsoundExpr.Opcodes.Vectorial.Vectorialrandom - CsoundExpr.Opcodes.Zak.Top - CsoundExpr.Opcodes.Plugin.Dssi4cs - CsoundExpr.Opcodes.Plugin.Vst4cs - CsoundExpr.Opcodes.OSCNetwork.OSC - CsoundExpr.Opcodes.OSCNetwork.Network - CsoundExpr.Opcodes.OSCNetwork.Remote - CsoundExpr.Opcodes.MixerOpcodes.MixerOpcodes - CsoundExpr.Opcodes.SignalFlowGraphOpcodes.SignalFlowGraphOpcodes - CsoundExpr.Opcodes.Imageopcodes.Top - CsoundExpr.Opcodes.Miscopcodes.Top ----------------------------------------------------------------------------------- + Csound.Base + Csound.LowLevel + Csound.Opcode + Csound.Opcode.Basic + Csound.Opcode.Advanced + Csound.Opcode.Data + Csound.Opcode.Interaction Other-Modules: --- Trees - CsoundExpr.Translator.ExprTree.Tree - CsoundExpr.Translator.ExprTree.TreeSeq - CsoundExpr.Translator.ExprTree.ExprTree --- Cs - CsoundExpr.Translator.Cs.CsoundFile - CsoundExpr.Translator.Cs.CsTree - CsoundExpr.Translator.Cs.CsBoolean - CsoundExpr.Translator.Cs.IM - CsoundExpr.Translator.Cs.Utils --- Translator - CsoundExpr.Translator.Csd - CsoundExpr.Translator.Ftable - CsoundExpr.Translator.Header - CsoundExpr.Translator.Instr - CsoundExpr.Translator.Score - CsoundExpr.Translator.InstrOrder - CsoundExpr.Translator.Types - CsoundExpr.Translator.AssignmentElimination - CsoundExpr.Translator.MultiOutsFolding - - + Csound.Exp + Csound.Exp.Wrapper + Csound.Exp.Cons + Csound.Exp.Logic + Csound.Exp.Numeric + + Csound.Tfm.RateGraph + Csound.Tfm.TfmTree + + Csound.Render + Csound.Render.Pretty + Csound.Render.Options + Csound.Render.Instr + Csound.Render.Sco diff --git a/examples/Orchestra.hs b/examples/Orchestra.hs deleted file mode 100644 --- a/examples/Orchestra.hs +++ /dev/null @@ -1,92 +0,0 @@ --- | csound instruments -module Orchestra -where - -import CsoundExpr.Base -import qualified CsoundExpr.Opcodes as C - -import Temporal.Music.Western.P12 hiding (Amp) - - -type ScoreN = Score (Note ()) -type ScoreD = Score (Drum ()) - -type CsdNote = (Amp, Cps) - -type Amp = Irate -type Cps = Irate - --- | converts note representation to csound values -absCsdNote :: Note a -> CsdNote -absCsdNote x = (double amp, double cps) - where (amp, cps) = absNote x - -absNote :: Note a -> (Double, Double) -absNote x = (amp x, hz x) - --- | converts note representation to csound values -absCsdDrum :: Drum a -> Amp -absCsdDrum = double . amp - -ftsin = gen10 8192 [1] - --- csound instruments - -bassDrum :: (Irate, Irate) -> SignalOut -bassDrum (amp, pch) = C.out $ C.oscilA [] env cps ftsin - where env = amp ^* C.exponA 1 0.2 0.001 - cps = C.exponK pch 0.2 20 - -openHiHat :: Irate -> SignalOut -openHiHat amp = C.out $ C.buthp [] sig (num 7000) - where sig = fst $ se1 $ C.noise env (num 0) - env = amp ^* C.exponA 1 1.5 0.001 - -pluckInstr :: (Irate, Irate) -> SignalOut -pluckInstr (amp, pch) = outList [ - C.out $ env <*> C.wgpluck2 0.75 amp pch (num 0.75) (num 0.5), - C.xtratim 1] - where env = C.linsegrK [0, idur * 0.05, 1, idur * 0.9, 1] 1 0 - - -pipeOrgan :: CsdNote -> SignalOut -pipeOrgan (amp, cps) = C.out sig - where ft = ftsin - outch1 = num 1 - outch2 = num 2 - atk = num 10 - op1f = cps - op2f = 2.01 * cps - op3f = 3.99 * cps - op4f = 8 * cps - op5f = 0.5 * cps - op7f = 16 * cps - dclick = C.linsegK [0, 0.001, amp, idur-0.002, amp, 0.001, 0] - amp1 = C.linsegK [0, 0.01, 1, idur-0.02, 1, 0.01, 0] - amp2 = C.linsegK [0, 0.05, 1, 0.1, 0.7, idur-0.16, 0.7, 0.01, 0] - amp3 = C.linsegK [0, 0.03, 0.8, 0.05, 0, 0.01, 0] - amp4 = C.linsegK [0, 0.1, 0.3, 0.1, 0.05, idur-0.3, 0.1, 0.1, 0] - op8 = C.oscilA [] amp4 op5f ft - p1 = op8 + 1 - op1 = C.oscilA [] amp1 (op1f ^* p1) ft - op2 = C.oscilA [] amp2 (op2f ^* p1) ft - op3 = C.oscilA [] amp2 (op3f) ft - op4 = C.oscilA [] amp2 (op4f) ft - op5 = C.oscilA [] amp3 (op5f * 5) ft - op7 = C.oscilA [] amp2 (op7f) ft - sig = (dclick <*>) $ op1 + op2 + op3 + op3 + op4 + op5 + op7 - --- instruments on notes --- - -bassDrum', pipeOrgan', guitar :: ScoreN -> Score SignalOut -openHiHat' :: ScoreD -> Score SignalOut - -bassDrum' = fmap (bassDrum . absCsdNote) . setDiap (1e3, 1.5 * 1e4) -openHiHat' = fmap (openHiHat . absCsdDrum) . setDiap (1e3, 1.0 * 1e4) - -pipeOrgan' = fmap (pipeOrgan . absCsdNote) . setDiap (1e2, 5*1e3) -guitar = fmap (pluckInstr . absCsdNote). setDiap (1000, 1.5*1e4) - . lower 1 - - diff --git a/examples/Readme.hs b/examples/Readme.hs deleted file mode 100644 --- a/examples/Readme.hs +++ /dev/null @@ -1,31 +0,0 @@ --- Examples --- --- In this folder you can find some examples for 'temporal-music-notation' --- package. It can produce no sound but can combine events in --- functional way. Package 'csound-expression' is responsible for --- sound output. 'csound-expression' allows to construct csounds '.csd' --- files from haskell. See Orchestra.hs to see how it can be done. --- --- warning : external libraries are used --- 'temporal-music-notation', 'temporal-music-notation-western', --- and 'csound-expression' --- --- If you have installed only 'temporal-music-notation', --- to run examples make first: --- --- cabal update --- cabal install temporal-music-notation-western --- cabal install csound-expression --- --- Sound is produced with csound language. --- 'temporal-music-notation' combines --- notes tigether. Output of the example is out.csd --- file, which is for csound. --- --- If you are not familliar with csound. Csound is --- language for musical composition and sound synthesis. --- It can be downloaded here . --- Run csound on out.csd to hear result finally. --- --- >csound out.csd - diff --git a/examples/arpeggi.hs b/examples/arpeggi.hs deleted file mode 100644 --- a/examples/arpeggi.hs +++ /dev/null @@ -1,79 +0,0 @@ --- radiohead - weird fishes (intro) - -import CsoundExpr.Base(csd, play, headerMono) - -import Temporal.Music.Western.P12 - -import Orchestra(guitar, ScoreN) - --- accent every fourth beat -beat = cycle [accent 0.5, id, id, id] - --- chords - -guitarChord1, guitarChord2, guitarChord3 :: [ScoreN] -> ScoreN - --- guitar 1 - -guitarChord1 = line . zipWith ($) beat . map en . concat . replicate 10 - -wholeTone = 2 - -ch11 = [high d, g, e] -ch12 = map (step wholeTone) ch11 -ch13 = [high a, a, high cs] -ch14 = [high fs, b, g] - -chSeq1 = [ch11, ch12, ch13, ch14] - --- guitar 2 - -guitarChord2 = - line . zipWith ($) beat . map en . - concat . replicate 6 . arpeggi . map high - where arpeggi x = x ++ take 2 x - - -ch21 = [low g, d, e] -ch22 = map (step wholeTone) ch21 -ch23 = [cs, e, a] -ch24 = [d, g, e] - -chSeq2 = [ch21, ch22, ch23, ch24] - --- guitar 3 - -guitarChord3 = - line . zipWith ($) beat . map en . - concat . replicate 6 . arpeggi . map high - where arpeggi x = take 2 x ++ x - -ch31 = [e, g, b] -ch32 = map (step wholeTone) ch31 -ch33 = [fs, a, high cs] -ch34 = [high d, g, b] - -chSeq3 = [ch31, ch32, ch33, ch34] - --- score - -scoG1 = mf' $ line $ map guitarChord1 chSeq1 -scoG2 = p' $ line $ map guitarChord2 chSeq2 -scoG3 = ppp' $ line $ map guitarChord3 chSeq3 - - -scoG2intro = clip (3*30/8) (4*30/8) scoG2 - -intro = chord [scoG1, scoG3, delay (3*30/8) scoG2intro] -chords = loop 3 $ chord [scoG1, scoG2, scoG3] - -sco = bpm (presto 0.4) $ guitar $ intro +:+ chords - -file = "out.csd" -flags = "-d" - -out = csd flags headerMono sco - ---main = writeFile file $ show out -main = play "totem" "tmp" "new" out - diff --git a/examples/choral.hs b/examples/choral.hs deleted file mode 100644 --- a/examples/choral.hs +++ /dev/null @@ -1,250 +0,0 @@ --- J.S. Bach - Choral prelude F-moll 'Ich ruf zu dir Herr Jesu Christ' - -import Temporal.Music.Western.P12 - -import CsoundExpr(headerMono, csd, play) - -import Orchestra(pipeOrgan', ScoreN) - -pedal = sustainT -trill n a b = loop n $ line [a, b] - --- alto dynamics - -up :: Double -> [ScoreN] -> ScoreN -up x = envelopeRel [x, x + accDiap] . line . map sn - -down :: Double -> [ScoreN] -> ScoreN -down x = envelopeRel [x + accDiap, x] . line . map sn - -upDown :: Double -> [ScoreN] -> ScoreN -upDown x = envelopeRel [x, x + accDiap, x] . line . map sn - -downUp :: Double -> [ScoreN] -> ScoreN -downUp x = envelopeRel [x, x-accDiap, x] . line . map sn - -flat :: Double -> [ScoreN] -> ScoreN -flat x = accent x . line . map sn - -accDiap = 0.5 - --------------------------------------------------- --- solo - --- Part I - -solo0 = qn $ high c - -solo1 = line [ --- 1 bar - qn af, qn bf, den af, sn g, den f, sn g, --- 2 bar - envelopeRel [0, 0.2, 0] $ line [line $ map sn [af, bf, af, bf], - trill 3 (accent 0.2 $ tn $ high c) (tn bf), tn af, tn bf], - high $ line [accent 0.2 $ qn $ c, den c, sn df, --- 3 bar - qn ef, tn df, stretch (1/4 - 3/32) $ wn c, - sn $ low bf, qn $ low af, en $ low bf, en c] - ] - -solo11 = high $ line [ - stretch (1/4 + 1/16) $ wn df, - line $ map tn [ef, f, ef, df], sn c, qn c, qn c] - - -solo12 = high $ line [ - qn df, sn df, - line $ map tn [ef, f, ef, df],sn c, qn c, qn ef] - - -soloI = line [solo0, reprise solo1 solo11 solo12] - - --- Part II - -solo21 = high $ line [ --- 1 bar - qn f, en ef, tn df, tn c, sn df, - low $ line $ map en [high c, bf, af, bf], --- 2 bar - qn c, qn c, qn $ low bf, qn $ low af, --- 3 bar - low $ line [hn g, hn f, --- 4 bar - qn af, qn g, hn f] - ] - -solo22 = line [ --- 5 bar - dhn ef, qn ef, --- 6 bar - qn af, qn af, qn bf, qn bf, --- 7 bar - high $ line [dhn c, qn df], --- 8 bar - high $ qn c, qn bf, qn af, den f, sn g, --- 9 bar - qn af, qn g, qn f - ] - -soloII = solo21 +:+ solo22 - -solo = pedal (1/128) $ pp' $ soloI +:+ soloII - ---------------------------------------------------- --- alto - --- Part I - -alto0 = high $ up 0 [low af, c, f, e] - -alto1 = line [ --- 1 bar - high $ down 0.5 [f, c, low af, low f], - upDown 0 [g, bf, high df, high c], - upDown 0 [f, af, high c, bf], - downUp 0 [af, f, af, high c], - --- 2 bar - high $ downUp 0.2 [f, e, f, af], - high $ down 0 [g, f, e, f], - high $ downUp 0 [e, c, low g, low bf, low af, c, f, af], - --- 3 bar - high $ flat 0 [g, ef, af, g], - high $ up 0 [af, ef, f, gf, f, df, f, af, g, df, c, gf] - ] - -alto11 = high $ line [ - upDown 0 [f, low bf, df, f, bf, af, g, af, g, c, e, low bf], - upDown 0 [low f, c, f, e] - ] - -alto12 = high $ line [ - upDown 0 [f, low bf, df, f, bf, af, g, af], - down 0 [g, low bf, low af, f, low g, df, low af, c] - ] - - -altoI = line [alto0, reprise alto1 alto11 alto12] - --- Part II - -alto21 = high $ line [ --- 1 bar - upDown 0 [ - low af, c, low bf, df, low bf, df, af, g, - af, ef, df, g, c, f, af, g], --- 2 bar - down (-accDiap) [ - af, ef, low af, gf, f, low af, low g, df, - c, low af, c, ef, g, c, low bf, g, --- 3 bar - df, f, g, f], - up (-accDiap) [ - e, low bf, df, c, - low af, c, f, e, f, c, low af, low f], --- 4 bar - flat 0 [ - low bf, f, g, f, low bf, ef, f, ef, - c, ef, f, ef, d, low g, low b, d - ] - ] - -alto22 = high $ line [ --- 5 bar - down (-accDiap) $ [ - low g, c, ef, df, low g, low bf, df, c] ++ - map low [ef, af, high c, bf, high df, bf, c, high df, --- 6 bar - f, af, high df, high c, f, af, high c, bf, - f, af, bf, af, g, bf, high df, high c], - --- 7 bar - up (-accDiap) [ - low af, c, ef, af, ef, bf, high c, bf, - a, ef, gf, low a, low bf, g, low af, f - ], - --- 8 bar - down (-accDiap) [ - low af, ef, d, ef, low f, df, ef, df, - low ef, c, df, c, low bf, f, g, f, --- 9 bar - d, f, g, f, e, df, low bf, low g, - low a, c] - - ] - -alto23 = en $ high f - -altoII = line [alto21, alto22, alto23] - -alto = pedal (1/132) $ lower 3 $ p' $ line [altoI, altoII] - - ----------------------------------------------------------- --- bass - --- Part I - -bass0 = lower 1 $ line [en f, en f] - -bass1 = (line $ map en [ --- 1 bar - f, f, f, e, f, f, f, ef, --- 2 bar - df, df, df, df, c, c, f, f]) +:+ --- 3 bar - (high $ line $ map en [c, c, c, c, c, c, low bf, low a]) - -bass11 = line $ map en [bf, af, g, f, e, c, low f, low f] - -bass12 = line $ map en [bf, af, g, f, e, f, c, c] - -bassI = line [bass0, reprise bass1 bass11 bass12] - - --- Part II - -bass21 = line $ map en [ --- 1 bar - df, df, ef, ef, af, ef, f, df, --- 2 bar - low f, low f, f, f, d, e, f, df, --- 3 bar - low bf, low g, c, c, df, df, df , df, --- 4 bar - d, d, d, d, low a, low a, low b, low b - ] - -bass22 = low $ line $ map en [ --- 5 bar - high c, high c, bf, bf, af, af, g, g, --- 6 bar - f, f, ef, ef, d, d, ef, ef, --- 7 bar - af, af, gf, gf, f, f, bf, bf, --- 8 bar - bf, af, af, g, g, f, high df, high df, --- 9 bar - b, b, high c, high c - ] - -bass23 = qn $ low f - - -bassII = line [bass21, bass22, bass23] - -bass = lower 3 $ line [bassI, bassII] - -sco = delay (-4) $ bpm (lento $ -0.5) $ pipeOrgan' $ chord [solo, alto, bass] - -file = "out.csd" -flags = "-d" - -out = csd flags headerMono sco - ---main = writeFile file $ show out -main = play "totem" "tmp" "new" out - diff --git a/examples/dm.hs b/examples/dm.hs deleted file mode 100644 --- a/examples/dm.hs +++ /dev/null @@ -1,28 +0,0 @@ --- D minor chord - -import CsoundExpr.Base -import qualified CsoundExpr.Opcodes as C - -import Temporal.Music.Western.P12 - --- | sinusoidal oscilator -instr :: Irate -> SignalOut -instr cps = C.out $ C.oscilA [] (num 3000) cps (gen10 4096 [1]) - --- | pythagorean scale from middle C -scale = pyth c1 - --- | d minor chord -sco = fmap (instr . double . hz) $ setScale scale $ - line notes +:+ (stretch 2 $ chord notes) - where notes = [d, f, a, high d] - -file = "out.csd" -flags = "-d" - -out = csd flags headerMono sco - -main = writeFile file $ show out ---main = play "totem" "tmp" "new" out - - diff --git a/examples/teardrop.hs b/examples/teardrop.hs deleted file mode 100644 --- a/examples/teardrop.hs +++ /dev/null @@ -1,40 +0,0 @@ --- massive attack - teardrop (intro) - -import CsoundExpr.Base -import qualified CsoundExpr.Opcodes as C - -import Temporal.Music.Western.P12 - -import Orchestra(pipeOrgan', openHiHat', bassDrum', guitar) - -scoBassDrum = low $ line [en c, qn c, en c, accent 0.5 $ hn f] -scoHiHat = line [hnr, dim 3 $ loop 4 $ ed 0] - -scoDrums = loop 20 $ chord [ - bassDrum' $ f' scoBassDrum, - openHiHat' $ p' scoHiHat ] - - -scoGuitar = sustain (1/16) $ guitar $ - envelopeRel [0, 2, 4, 4, 2] $ - loop 4 $ - pp' $ high $ line [qnr, line $ map qn - [low a, e, low a, d, low a, d, e]] - -scoOrgan = pipeOrgan' $ chord [q, low q] - where q = loop 2 $ lower 3 $ line $ map bn [a, g, d, low a] - -sco = bpm (moderato 0.7) $ chord [ - delay 10 $ scoGuitar, - scoDrums, - delay 2 $ scoOrgan, - rest 0] - -file = "out.csd" -flags = "-d" - -out = csd flags headerMono sco - ---main = writeFile file $ show out -main = play "totem" "tmp" "new" out - diff --git a/examples/tmp/new.csd b/examples/tmp/new.csd deleted file mode 100644 --- a/examples/tmp/new.csd +++ /dev/null @@ -1,1395 +0,0 @@ - - --d - - -; ------------------------------- -; Header -sr = 44100.0 -kr = 4410.0 -ksmps = 10.0 -nchnls = 1.0 - - -; ------------------------------- -; Instruments - - instr 33 -a4 wgpluck2 0.75, p4, p5, 0.75, 0.5 -k12 linsegr 0.0, (p3*5.0e-2), 1.0, (p3*0.9), 1.0, 1.0, 0.0 - out (k12*a4) - xtratim 1.0 - endin - - - - - -; ------------------------------- -; Ftables -f 0 79.64601769911503 - - -; ------------------------------- -; Tempo - - - -; ------------------------------- -; Notes -i 33 0.0 0.165929203539823 5813.789703166071 293.665255850988 -i 33 0.0 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 0.165929203539823 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 0.165929203539823 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 0.331858407079646 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 0.331858407079646 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 0.49778761061946897 0.165929203539823 5077.556391987408 293.665255850988 -i 33 0.49778761061946897 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 0.663716814159292 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 0.663716814159292 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 0.829646017699115 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 0.829646017699115 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 0.9955752212389379 0.165929203539823 5077.556391987408 293.665255850988 -i 33 0.9955752212389379 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 1.161504424778761 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 1.161504424778761 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 1.327433628318584 0.165929203539823 5813.789703166071 164.81405229989804 -i 33 1.327433628318584 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 1.493362831858407 0.165929203539823 5077.556391987408 293.665255850988 -i 33 1.493362831858407 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 1.65929203539823 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 1.65929203539823 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 1.8252212389380529 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 1.8252212389380529 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 1.9911504424778759 0.165929203539823 5813.789703166071 293.665255850988 -i 33 1.9911504424778759 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 2.157079646017699 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 2.157079646017699 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 2.323008849557522 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 2.323008849557522 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 2.488938053097345 0.165929203539823 5077.556391987408 293.665255850988 -i 33 2.488938053097345 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 2.654867256637168 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 2.654867256637168 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 2.820796460176991 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 2.820796460176991 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 2.986725663716814 0.165929203539823 5077.556391987408 293.665255850988 -i 33 2.986725663716814 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 3.152654867256637 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 3.152654867256637 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 3.31858407079646 0.165929203539823 5813.789703166071 164.81405229989804 -i 33 3.31858407079646 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 3.4845132743362828 0.165929203539823 5077.556391987408 293.665255850988 -i 33 3.4845132743362828 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 3.6504424778761058 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 3.6504424778761058 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 3.8163716814159288 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 3.8163716814159288 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 3.9823008849557517 0.165929203539823 5813.789703166071 293.665255850988 -i 33 3.9823008849557517 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 4.148230088495575 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 4.148230088495575 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 4.314159292035399 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 4.314159292035399 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 4.480088495575222 0.165929203539823 5077.556391987408 293.665255850988 -i 33 4.480088495575222 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 4.6460176991150455 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 4.6460176991150455 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 4.811946902654869 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 4.811946902654869 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 4.97787610619469 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 4.97787610619469 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 5.143805309734512 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 5.143805309734512 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 5.309734513274336 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 5.309734513274336 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 5.475663716814159 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 5.475663716814159 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 5.6415929203539825 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 5.6415929203539825 0.165929203539823 1501.114046580957 554.36618304969 -i 33 5.807522123893806 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 5.807522123893806 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 5.973451327433629 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 5.973451327433629 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 6.139380530973453 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 6.139380530973453 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 6.305309734513276 0.165929203539823 5813.789703166071 184.9975187347117 -i 33 6.305309734513276 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 6.4712389380531 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 6.4712389380531 0.165929203539823 1311.01942303975 554.36618304969 -i 33 6.637168141592923 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 6.637168141592923 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 6.8030973451327466 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 6.8030973451327466 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 6.96902654867257 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 6.96902654867257 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 7.134955752212393 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 7.134955752212393 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 7.300884955752217 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 7.300884955752217 0.165929203539823 1311.01942303975 554.36618304969 -i 33 7.46681415929204 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 7.46681415929204 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 7.632743362831864 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 7.632743362831864 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 7.798672566371687 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 7.798672566371687 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 7.964601769911511 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 7.964601769911511 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 8.130530973451334 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 8.130530973451334 0.165929203539823 1311.01942303975 554.36618304969 -i 33 8.296460176991157 0.165929203539823 5813.789703166071 184.9975187347117 -i 33 8.296460176991157 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 8.46238938053098 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 8.46238938053098 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 8.628318584070804 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 8.628318584070804 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 8.794247787610628 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 8.794247787610628 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 8.960176991150451 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 8.960176991150451 0.165929203539823 1501.114046580957 554.36618304969 -i 33 9.126106194690275 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 9.126106194690275 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 9.292035398230098 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 9.292035398230098 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 9.457964601769921 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 9.457964601769921 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 9.623893805309745 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 9.623893805309745 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 9.789823008849568 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 9.789823008849568 0.165929203539823 1311.01942303975 554.36618304969 -i 33 9.95575221238938 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 9.95575221238938 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 10.121681415929203 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 10.121681415929203 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 10.287610619469026 0.165929203539823 5077.556391987408 277.183091524845 -i 33 10.287610619469026 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 10.45353982300885 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 10.45353982300885 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 10.619469026548673 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 10.619469026548673 0.165929203539823 1501.114046580957 554.36618304969 -i 33 10.785398230088497 0.165929203539823 5077.556391987408 277.183091524845 -i 33 10.785398230088497 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 10.95132743362832 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 10.95132743362832 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 11.117256637168143 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 11.117256637168143 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 11.283185840707967 0.165929203539823 5813.789703166071 277.183091524845 -i 33 11.283185840707967 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 11.44911504424779 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 11.44911504424779 0.165929203539823 1311.01942303975 554.36618304969 -i 33 11.615044247787614 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 11.615044247787614 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 11.780973451327437 0.165929203539823 5077.556391987408 277.183091524845 -i 33 11.780973451327437 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 11.94690265486726 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 11.94690265486726 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 12.112831858407084 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 12.112831858407084 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 12.278761061946907 0.165929203539823 5077.556391987408 277.183091524845 -i 33 12.278761061946907 0.165929203539823 1311.01942303975 554.36618304969 -i 33 12.44469026548673 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 12.44469026548673 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 12.610619469026554 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 12.610619469026554 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 12.776548672566378 0.165929203539823 5077.556391987408 277.183091524845 -i 33 12.776548672566378 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 12.942477876106201 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 12.942477876106201 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 13.108407079646025 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 13.108407079646025 0.165929203539823 1311.01942303975 554.36618304969 -i 33 13.274336283185848 0.165929203539823 5813.789703166071 277.183091524845 -i 33 13.274336283185848 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 13.440265486725671 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 13.440265486725671 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 13.606194690265495 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 13.606194690265495 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 13.772123893805318 0.165929203539823 5077.556391987408 277.183091524845 -i 33 13.772123893805318 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 13.938053097345142 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 13.938053097345142 0.165929203539823 1501.114046580957 554.36618304969 -i 33 14.103982300884965 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 14.103982300884965 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 14.269911504424789 0.165929203539823 5077.556391987408 277.183091524845 -i 33 14.269911504424789 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 14.435840707964612 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 14.435840707964612 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 14.601769911504435 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 14.601769911504435 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 14.767699115044259 0.165929203539823 5077.556391987408 277.183091524845 -i 33 14.767699115044259 0.165929203539823 1311.01942303975 554.36618304969 -i 33 14.93362831858407 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 14.93362831858407 0.165929203539823 1501.114046580957 587.330511701976 -i 33 14.93362831858407 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 15.099557522123892 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 15.099557522123893 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 15.099557522123893 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 15.265486725663715 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 15.265486725663717 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 15.265486725663717 0.165929203539823 1311.01942303975 587.330511701976 -i 33 15.431415929203538 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 15.43141592920354 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 15.43141592920354 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 15.59734513274336 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 15.597345132743364 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 15.597345132743364 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 15.763274336283184 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 15.763274336283187 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 15.763274336283187 0.165929203539823 1311.01942303975 587.330511701976 -i 33 15.929203539823007 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 15.92920353982301 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 15.92920353982301 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 16.09513274336283 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 16.095132743362832 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 16.095132743362832 0.165929203539823 1311.01942303975 587.330511701976 -i 33 16.261061946902654 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 16.261061946902654 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 16.261061946902654 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 16.426991150442475 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 16.426991150442475 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 16.426991150442475 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 16.592920353982297 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 16.592920353982297 0.165929203539823 1311.01942303975 587.330511701976 -i 33 16.5929203539823 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 16.75884955752212 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 16.75884955752212 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 16.758849557522122 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 16.92477876106194 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 16.92477876106194 0.165929203539823 1501.114046580957 587.330511701976 -i 33 16.924778761061944 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 17.090707964601762 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 17.090707964601762 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 17.09070796460177 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 17.256637168141584 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 17.256637168141584 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 17.25663716814159 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 17.422566371681405 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 17.422566371681405 0.165929203539823 1311.01942303975 587.330511701976 -i 33 17.422566371681413 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 17.588495575221227 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 17.588495575221227 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 17.588495575221238 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 17.75442477876105 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 17.75442477876105 0.165929203539823 1311.01942303975 587.330511701976 -i 33 17.75442477876106 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 17.92035398230087 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 17.92035398230087 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 17.92035398230088 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 18.086283185840692 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 18.086283185840692 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 18.086283185840706 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 18.252212389380514 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 18.252212389380514 0.165929203539823 1501.114046580957 587.330511701976 -i 33 18.252212389380528 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 18.418141592920335 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 18.418141592920335 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 18.418141592920353 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 18.584070796460157 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 18.584070796460157 0.165929203539823 1311.01942303975 587.330511701976 -i 33 18.584070796460175 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 18.74999999999998 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 18.74999999999998 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 18.749999999999996 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 18.9159292035398 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 18.9159292035398 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 18.91592920353982 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 19.081858407079622 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 19.081858407079622 0.165929203539823 1311.01942303975 587.330511701976 -i 33 19.081858407079643 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 19.247787610619444 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 19.247787610619444 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 19.24778761061947 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 19.413716814159265 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 19.413716814159265 0.165929203539823 1311.01942303975 587.330511701976 -i 33 19.41371681415929 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 19.579646017699087 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 19.579646017699087 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 19.579646017699112 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 19.74557522123891 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 19.74557522123891 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 19.745575221238937 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 19.91150442477876 0.165929203539823 5813.789703166071 293.665255850988 -i 33 19.91150442477876 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 19.91150442477876 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 20.07743362831858 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 20.07743362831858 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 20.07743362831858 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 20.243362831858402 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 20.243362831858402 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 20.243362831858402 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 20.409292035398224 0.165929203539823 5077.556391987408 293.665255850988 -i 33 20.409292035398224 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 20.409292035398224 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 20.575221238938045 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 20.575221238938045 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 20.575221238938045 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 20.741150442477867 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 20.741150442477867 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 20.741150442477867 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 20.90707964601769 0.165929203539823 5077.556391987408 293.665255850988 -i 33 20.90707964601769 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 20.90707964601769 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 21.07300884955751 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 21.07300884955751 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 21.07300884955751 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 21.238938053097332 0.165929203539823 5813.789703166071 164.81405229989804 -i 33 21.238938053097332 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 21.238938053097332 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 21.404867256637154 0.165929203539823 5077.556391987408 293.665255850988 -i 33 21.404867256637154 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 21.404867256637154 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 21.570796460176975 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 21.570796460176975 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 21.570796460176975 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 21.736725663716797 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 21.736725663716797 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 21.736725663716797 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 21.90265486725662 0.165929203539823 5813.789703166071 293.665255850988 -i 33 21.90265486725662 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 21.90265486725662 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 22.06858407079644 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 22.06858407079644 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 22.06858407079644 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 22.234513274336262 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 22.234513274336262 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 22.234513274336262 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 22.400442477876084 0.165929203539823 5077.556391987408 293.665255850988 -i 33 22.400442477876084 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 22.400442477876084 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 22.566371681415905 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 22.566371681415905 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 22.566371681415905 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 22.732300884955727 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 22.732300884955727 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 22.732300884955727 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 22.89823008849555 0.165929203539823 5077.556391987408 293.665255850988 -i 33 22.89823008849555 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 22.89823008849555 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 23.06415929203537 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 23.06415929203537 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 23.06415929203537 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 23.230088495575192 0.165929203539823 5813.789703166071 164.81405229989804 -i 33 23.230088495575192 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 23.230088495575192 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 23.396017699115013 0.165929203539823 5077.556391987408 293.665255850988 -i 33 23.396017699115013 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 23.396017699115013 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 23.561946902654835 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 23.561946902654835 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 23.561946902654835 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 23.727876106194657 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 23.727876106194657 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 23.727876106194657 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 23.89380530973448 0.165929203539823 5813.789703166071 293.665255850988 -i 33 23.89380530973448 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 23.89380530973448 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 24.0597345132743 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 24.0597345132743 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 24.0597345132743 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 24.225663716814122 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 24.225663716814122 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 24.225663716814122 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 24.391592920353943 0.165929203539823 5077.556391987408 293.665255850988 -i 33 24.391592920353943 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 24.391592920353943 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 24.557522123893765 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 24.557522123893765 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 24.557522123893765 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 24.723451327433587 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 24.723451327433587 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 24.723451327433587 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 24.889380530973447 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 24.889380530973447 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 24.889380530973447 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 25.05530973451327 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 25.05530973451327 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 25.05530973451327 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 25.22123893805309 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 25.22123893805309 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 25.22123893805309 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 25.387168141592912 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 25.387168141592912 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 25.387168141592912 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 25.553097345132734 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 25.553097345132734 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 25.553097345132734 0.165929203539823 1501.114046580957 554.36618304969 -i 33 25.719026548672556 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 25.719026548672556 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 25.719026548672556 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 25.884955752212377 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 25.884955752212377 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 25.884955752212377 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 26.0508849557522 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 26.0508849557522 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 26.0508849557522 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 26.21681415929202 0.165929203539823 5813.789703166071 184.9975187347117 -i 33 26.21681415929202 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 26.21681415929202 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 26.382743362831842 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 26.382743362831842 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 26.382743362831842 0.165929203539823 1311.01942303975 554.36618304969 -i 33 26.548672566371664 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 26.548672566371664 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 26.548672566371664 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 26.714601769911486 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 26.714601769911486 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 26.714601769911486 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 26.880530973451307 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 26.880530973451307 0.165929203539823 2580.0726833705917 369.9950374694234 -i 33 26.880530973451307 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 27.04646017699113 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 27.04646017699113 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 27.04646017699113 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 27.21238938053095 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 27.21238938053095 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 27.21238938053095 0.165929203539823 1311.01942303975 554.36618304969 -i 33 27.378318584070772 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 27.378318584070772 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 27.378318584070772 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 27.544247787610594 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 27.544247787610594 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 27.544247787610594 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 27.710176991150416 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 27.710176991150416 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 27.710176991150416 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 27.876106194690237 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 27.876106194690237 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 27.876106194690237 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 28.04203539823006 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 28.04203539823006 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 28.04203539823006 0.165929203539823 1311.01942303975 554.36618304969 -i 33 28.20796460176988 0.165929203539823 5813.789703166071 184.9975187347117 -i 33 28.20796460176988 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 28.20796460176988 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 28.373893805309702 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 28.373893805309702 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 28.373893805309702 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 28.539823008849524 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 28.539823008849524 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 28.539823008849524 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 28.705752212389346 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 28.705752212389346 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 28.705752212389346 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 28.871681415929167 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 28.871681415929167 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 28.871681415929167 0.165929203539823 1501.114046580957 554.36618304969 -i 33 29.03761061946899 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 29.03761061946899 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 29.03761061946899 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 29.20353982300881 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 29.20353982300881 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 29.20353982300881 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 29.369469026548632 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 29.369469026548632 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 29.369469026548632 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 29.535398230088454 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 29.535398230088454 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 29.535398230088454 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 29.701327433628276 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 29.701327433628276 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 29.701327433628276 0.165929203539823 1311.01942303975 554.36618304969 -i 33 29.867256637168136 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 29.867256637168136 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 29.867256637168136 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 30.033185840707958 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 30.033185840707958 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 30.033185840707958 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 30.19911504424778 0.165929203539823 5077.556391987408 277.183091524845 -i 33 30.19911504424778 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 30.19911504424778 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 30.3650442477876 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 30.3650442477876 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 30.3650442477876 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 30.530973451327423 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 30.530973451327423 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 30.530973451327423 0.165929203539823 1501.114046580957 554.36618304969 -i 33 30.696902654867245 0.165929203539823 5077.556391987408 277.183091524845 -i 33 30.696902654867245 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 30.696902654867245 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 30.862831858407066 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 30.862831858407066 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 30.862831858407066 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 31.028761061946888 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 31.028761061946888 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 31.028761061946888 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 31.19469026548671 0.165929203539823 5813.789703166071 277.183091524845 -i 33 31.19469026548671 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 31.19469026548671 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 31.36061946902653 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 31.36061946902653 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 31.36061946902653 0.165929203539823 1311.01942303975 554.36618304969 -i 33 31.526548672566353 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 31.526548672566353 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 31.526548672566353 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 31.692477876106175 0.165929203539823 5077.556391987408 277.183091524845 -i 33 31.692477876106175 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 31.692477876106175 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 31.858407079645996 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 31.858407079645996 0.165929203539823 2580.0726833705917 440.00073107433656 -i 33 31.858407079645996 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 32.02433628318582 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 32.02433628318582 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 32.02433628318582 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 32.19026548672564 0.165929203539823 5077.556391987408 277.183091524845 -i 33 32.19026548672564 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 32.19026548672564 0.165929203539823 1311.01942303975 554.36618304969 -i 33 32.35619469026547 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 32.35619469026547 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 32.35619469026547 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 32.52212389380529 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 32.52212389380529 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 32.52212389380529 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 32.68805309734512 0.165929203539823 5077.556391987408 277.183091524845 -i 33 32.68805309734512 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 32.68805309734512 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 32.853982300884944 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 32.853982300884944 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 32.853982300884944 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 33.01991150442477 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 33.01991150442477 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 33.01991150442477 0.165929203539823 1311.01942303975 554.36618304969 -i 33 33.185840707964594 0.165929203539823 5813.789703166071 277.183091524845 -i 33 33.185840707964594 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 33.185840707964594 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 33.35176991150442 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 33.35176991150442 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 33.35176991150442 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 33.517699115044245 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 33.517699115044245 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 33.517699115044245 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 33.68362831858407 0.165929203539823 5077.556391987408 277.183091524845 -i 33 33.68362831858407 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 33.68362831858407 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 33.849557522123895 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 33.849557522123895 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 33.849557522123895 0.165929203539823 1501.114046580957 554.36618304969 -i 33 34.01548672566372 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 34.01548672566372 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 34.01548672566372 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 34.181415929203546 0.165929203539823 5077.556391987408 277.183091524845 -i 33 34.181415929203546 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 34.181415929203546 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 34.34734513274337 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 34.34734513274337 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 34.34734513274337 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 34.513274336283196 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 34.513274336283196 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 34.513274336283196 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 34.67920353982302 0.165929203539823 5077.556391987408 277.183091524845 -i 33 34.67920353982302 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 34.67920353982302 0.165929203539823 1311.01942303975 554.36618304969 -i 33 34.845132743362825 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 34.845132743362825 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 34.845132743362825 0.165929203539823 1501.114046580957 587.330511701976 -i 33 35.01106194690265 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 35.01106194690265 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 35.01106194690265 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 35.176991150442475 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 35.176991150442475 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 35.176991150442475 0.165929203539823 1311.01942303975 587.330511701976 -i 33 35.3429203539823 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 35.3429203539823 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 35.3429203539823 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 35.508849557522126 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 35.508849557522126 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 35.508849557522126 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 35.67477876106195 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 35.67477876106195 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 35.67477876106195 0.165929203539823 1311.01942303975 587.330511701976 -i 33 35.840707964601776 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 35.840707964601776 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 35.840707964601776 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 36.0066371681416 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 36.0066371681416 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 36.0066371681416 0.165929203539823 1311.01942303975 587.330511701976 -i 33 36.17256637168143 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 36.17256637168143 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 36.17256637168143 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 36.33849557522125 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 36.33849557522125 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 36.33849557522125 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 36.50442477876108 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 36.50442477876108 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 36.50442477876108 0.165929203539823 1311.01942303975 587.330511701976 -i 33 36.6703539823009 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 36.6703539823009 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 36.6703539823009 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 36.83628318584073 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 36.83628318584073 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 36.83628318584073 0.165929203539823 1501.114046580957 587.330511701976 -i 33 37.00221238938055 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 37.00221238938055 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 37.00221238938055 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 37.16814159292038 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 37.16814159292038 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 37.16814159292038 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 37.3340707964602 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 37.3340707964602 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 37.3340707964602 0.165929203539823 1311.01942303975 587.330511701976 -i 33 37.50000000000003 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 37.50000000000003 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 37.50000000000003 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 37.665929203539854 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 37.665929203539854 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 37.665929203539854 0.165929203539823 1311.01942303975 587.330511701976 -i 33 37.83185840707968 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 37.83185840707968 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 37.83185840707968 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 37.997787610619504 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 37.997787610619504 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 37.997787610619504 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 38.16371681415933 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 38.16371681415933 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 38.16371681415933 0.165929203539823 1501.114046580957 587.330511701976 -i 33 38.329646017699154 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 38.329646017699154 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 38.329646017699154 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 38.49557522123898 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 38.49557522123898 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 38.49557522123898 0.165929203539823 1311.01942303975 587.330511701976 -i 33 38.661504424778805 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 38.661504424778805 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 38.661504424778805 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 38.82743362831863 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 38.82743362831863 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 38.82743362831863 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 38.993362831858455 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 38.993362831858455 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 38.993362831858455 0.165929203539823 1311.01942303975 587.330511701976 -i 33 39.15929203539828 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 39.15929203539828 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 39.15929203539828 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 39.325221238938106 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 39.325221238938106 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 39.325221238938106 0.165929203539823 1311.01942303975 587.330511701976 -i 33 39.49115044247793 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 39.49115044247793 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 39.49115044247793 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 39.657079646017756 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 39.657079646017756 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 39.657079646017756 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 39.82300884955752 0.165929203539823 5813.789703166071 293.665255850988 -i 33 39.82300884955752 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 39.82300884955752 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 39.98893805309734 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 39.98893805309734 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 39.98893805309734 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 40.15486725663717 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 40.15486725663717 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 40.15486725663717 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 40.32079646017699 0.165929203539823 5077.556391987408 293.665255850988 -i 33 40.32079646017699 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 40.32079646017699 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 40.48672566371682 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 40.48672566371682 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 40.48672566371682 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 40.65265486725664 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 40.65265486725664 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 40.65265486725664 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 40.81858407079647 0.165929203539823 5077.556391987408 293.665255850988 -i 33 40.81858407079647 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 40.81858407079647 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 40.984513274336294 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 40.984513274336294 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 40.984513274336294 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 41.15044247787612 0.165929203539823 5813.789703166071 164.81405229989804 -i 33 41.15044247787612 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 41.15044247787612 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 41.316371681415944 0.165929203539823 5077.556391987408 293.665255850988 -i 33 41.316371681415944 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 41.316371681415944 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 41.48230088495577 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 41.48230088495577 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 41.48230088495577 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 41.648230088495595 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 41.648230088495595 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 41.648230088495595 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 41.81415929203542 0.165929203539823 5813.789703166071 293.665255850988 -i 33 41.81415929203542 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 41.81415929203542 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 41.980088495575245 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 41.980088495575245 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 41.980088495575245 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 42.14601769911507 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 42.14601769911507 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 42.14601769911507 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 42.311946902654896 0.165929203539823 5077.556391987408 293.665255850988 -i 33 42.311946902654896 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 42.311946902654896 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 42.47787610619472 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 42.47787610619472 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 42.47787610619472 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 42.643805309734546 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 42.643805309734546 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 42.643805309734546 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 42.80973451327437 0.165929203539823 5077.556391987408 293.665255850988 -i 33 42.80973451327437 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 42.80973451327437 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 42.975663716814196 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 42.975663716814196 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 42.975663716814196 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 43.14159292035402 0.165929203539823 5813.789703166071 164.81405229989804 -i 33 43.14159292035402 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 43.14159292035402 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 43.30752212389385 0.165929203539823 5077.556391987408 293.665255850988 -i 33 43.30752212389385 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 43.30752212389385 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 43.47345132743367 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 43.47345132743367 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 43.47345132743367 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 43.6393805309735 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 43.6393805309735 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 43.6393805309735 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 43.80530973451332 0.165929203539823 5813.789703166071 293.665255850988 -i 33 43.80530973451332 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 43.80530973451332 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 43.97123893805315 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 43.97123893805315 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 43.97123893805315 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 44.13716814159297 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 44.13716814159297 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 44.13716814159297 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 44.3030973451328 0.165929203539823 5077.556391987408 293.665255850988 -i 33 44.3030973451328 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 44.3030973451328 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 44.46902654867262 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 44.46902654867262 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 44.46902654867262 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 44.63495575221245 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 44.63495575221245 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 44.63495575221245 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 44.80088495575221 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 44.80088495575221 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 44.80088495575221 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 44.966814159292035 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 44.966814159292035 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 44.966814159292035 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 45.13274336283186 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 45.13274336283186 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 45.13274336283186 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 45.298672566371685 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 45.298672566371685 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 45.298672566371685 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 45.46460176991151 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 45.46460176991151 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 45.46460176991151 0.165929203539823 1501.114046580957 554.36618304969 -i 33 45.630530973451336 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 45.630530973451336 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 45.630530973451336 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 45.79646017699116 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 45.79646017699116 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 45.79646017699116 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 45.962389380530986 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 45.962389380530986 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 45.962389380530986 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 46.12831858407081 0.165929203539823 5813.789703166071 184.9975187347117 -i 33 46.12831858407081 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 46.12831858407081 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 46.29424778761064 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 46.29424778761064 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 46.29424778761064 0.165929203539823 1311.01942303975 554.36618304969 -i 33 46.46017699115046 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 46.46017699115046 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 46.46017699115046 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 46.62610619469029 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 46.62610619469029 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 46.62610619469029 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 46.79203539823011 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 46.79203539823011 0.165929203539823 2580.0726833705917 369.9950374694234 -i 33 46.79203539823011 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 46.95796460176994 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 46.95796460176994 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 46.95796460176994 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 47.12389380530976 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 47.12389380530976 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 47.12389380530976 0.165929203539823 1311.01942303975 554.36618304969 -i 33 47.28982300884959 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 47.28982300884959 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 47.28982300884959 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 47.45575221238941 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 47.45575221238941 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 47.45575221238941 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 47.62168141592924 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 47.62168141592924 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 47.62168141592924 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 47.78761061946906 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 47.78761061946906 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 47.78761061946906 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 47.95353982300889 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 47.95353982300889 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 47.95353982300889 0.165929203539823 1311.01942303975 554.36618304969 -i 33 48.119469026548714 0.165929203539823 5813.789703166071 184.9975187347117 -i 33 48.119469026548714 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 48.119469026548714 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 48.28539823008854 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 48.28539823008854 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 48.28539823008854 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 48.451327433628364 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 48.451327433628364 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 48.451327433628364 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 48.61725663716819 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 48.61725663716819 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 48.61725663716819 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 48.783185840708015 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 48.783185840708015 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 48.783185840708015 0.165929203539823 1501.114046580957 554.36618304969 -i 33 48.94911504424784 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 48.94911504424784 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 48.94911504424784 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 49.115044247787665 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 49.115044247787665 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 49.115044247787665 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 49.28097345132749 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 49.28097345132749 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 49.28097345132749 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 49.446902654867316 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 49.446902654867316 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 49.446902654867316 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 49.61283185840714 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 49.61283185840714 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 49.61283185840714 0.165929203539823 1311.01942303975 554.36618304969 -i 33 49.7787610619469 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 49.7787610619469 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 49.7787610619469 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 49.94469026548673 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 49.94469026548673 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 49.94469026548673 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 50.11061946902655 0.165929203539823 5077.556391987408 277.183091524845 -i 33 50.11061946902655 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 50.11061946902655 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 50.27654867256638 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 50.27654867256638 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 50.27654867256638 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 50.4424778761062 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 50.4424778761062 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 50.4424778761062 0.165929203539823 1501.114046580957 554.36618304969 -i 33 50.60840707964603 0.165929203539823 5077.556391987408 277.183091524845 -i 33 50.60840707964603 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 50.60840707964603 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 50.77433628318585 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 50.77433628318585 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 50.77433628318585 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 50.94026548672568 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 50.94026548672568 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 50.94026548672568 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 51.106194690265504 0.165929203539823 5813.789703166071 277.183091524845 -i 33 51.106194690265504 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 51.106194690265504 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 51.27212389380533 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 51.27212389380533 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 51.27212389380533 0.165929203539823 1311.01942303975 554.36618304969 -i 33 51.438053097345154 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 51.438053097345154 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 51.438053097345154 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 51.60398230088498 0.165929203539823 5077.556391987408 277.183091524845 -i 33 51.60398230088498 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 51.60398230088498 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 51.769911504424805 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 51.769911504424805 0.165929203539823 2580.0726833705917 440.00073107433656 -i 33 51.769911504424805 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 51.93584070796463 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 51.93584070796463 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 51.93584070796463 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 52.101769911504455 0.165929203539823 5077.556391987408 277.183091524845 -i 33 52.101769911504455 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 52.101769911504455 0.165929203539823 1311.01942303975 554.36618304969 -i 33 52.26769911504428 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 52.26769911504428 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 52.26769911504428 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 52.433628318584105 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 52.433628318584105 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 52.433628318584105 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 52.59955752212393 0.165929203539823 5077.556391987408 277.183091524845 -i 33 52.59955752212393 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 52.59955752212393 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 52.765486725663756 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 52.765486725663756 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 52.765486725663756 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 52.93141592920358 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 52.93141592920358 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 52.93141592920358 0.165929203539823 1311.01942303975 554.36618304969 -i 33 53.097345132743406 0.165929203539823 5813.789703166071 277.183091524845 -i 33 53.097345132743406 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 53.097345132743406 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 53.26327433628323 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 53.26327433628323 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 53.26327433628323 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 53.42920353982306 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 53.42920353982306 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 53.42920353982306 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 53.59513274336288 0.165929203539823 5077.556391987408 277.183091524845 -i 33 53.59513274336288 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 53.59513274336288 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 53.76106194690271 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 53.76106194690271 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 53.76106194690271 0.165929203539823 1501.114046580957 554.36618304969 -i 33 53.92699115044253 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 53.92699115044253 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 53.92699115044253 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 54.09292035398236 0.165929203539823 5077.556391987408 277.183091524845 -i 33 54.09292035398236 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 54.09292035398236 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 54.25884955752218 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 54.25884955752218 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 54.25884955752218 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 54.42477876106201 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 54.42477876106201 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 54.42477876106201 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 54.59070796460183 0.165929203539823 5077.556391987408 277.183091524845 -i 33 54.59070796460183 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 54.59070796460183 0.165929203539823 1311.01942303975 554.36618304969 -i 33 54.756637168141594 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 54.756637168141594 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 54.756637168141594 0.165929203539823 1501.114046580957 587.330511701976 -i 33 54.92256637168142 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 54.92256637168142 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 54.92256637168142 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 55.088495575221245 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 55.088495575221245 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 55.088495575221245 0.165929203539823 1311.01942303975 587.330511701976 -i 33 55.25442477876107 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 55.25442477876107 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 55.25442477876107 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 55.420353982300895 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 55.420353982300895 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 55.420353982300895 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 55.58628318584072 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 55.58628318584072 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 55.58628318584072 0.165929203539823 1311.01942303975 587.330511701976 -i 33 55.752212389380546 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 55.752212389380546 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 55.752212389380546 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 55.91814159292037 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 55.91814159292037 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 55.91814159292037 0.165929203539823 1311.01942303975 587.330511701976 -i 33 56.084070796460196 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 56.084070796460196 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 56.084070796460196 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 56.25000000000002 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 56.25000000000002 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 56.25000000000002 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 56.41592920353985 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 56.41592920353985 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 56.41592920353985 0.165929203539823 1311.01942303975 587.330511701976 -i 33 56.58185840707967 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 56.58185840707967 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 56.58185840707967 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 56.7477876106195 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 56.7477876106195 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 56.7477876106195 0.165929203539823 1501.114046580957 587.330511701976 -i 33 56.91371681415932 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 56.91371681415932 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 56.91371681415932 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 57.07964601769915 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 57.07964601769915 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 57.07964601769915 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 57.24557522123897 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 57.24557522123897 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 57.24557522123897 0.165929203539823 1311.01942303975 587.330511701976 -i 33 57.4115044247788 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 57.4115044247788 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 57.4115044247788 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 57.57743362831862 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 57.57743362831862 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 57.57743362831862 0.165929203539823 1311.01942303975 587.330511701976 -i 33 57.74336283185845 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 57.74336283185845 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 57.74336283185845 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 57.90929203539827 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 57.90929203539827 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 57.90929203539827 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 58.0752212389381 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 58.0752212389381 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 58.0752212389381 0.165929203539823 1501.114046580957 587.330511701976 -i 33 58.241150442477924 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 58.241150442477924 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 58.241150442477924 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 58.40707964601775 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 58.40707964601775 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 58.40707964601775 0.165929203539823 1311.01942303975 587.330511701976 -i 33 58.573008849557574 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 58.573008849557574 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 58.573008849557574 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 58.7389380530974 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 58.7389380530974 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 58.7389380530974 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 58.904867256637225 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 58.904867256637225 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 58.904867256637225 0.165929203539823 1311.01942303975 587.330511701976 -i 33 59.07079646017705 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 59.07079646017705 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 59.07079646017705 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 59.236725663716875 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 59.236725663716875 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 59.236725663716875 0.165929203539823 1311.01942303975 587.330511701976 -i 33 59.4026548672567 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 59.4026548672567 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 59.4026548672567 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 59.568584070796526 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 59.568584070796526 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 59.568584070796526 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 59.73451327433628 0.165929203539823 5813.789703166071 293.665255850988 -i 33 59.73451327433628 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 59.73451327433628 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 59.900442477876105 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 59.900442477876105 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 59.900442477876105 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 60.06637168141593 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 60.06637168141593 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 60.06637168141593 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 60.232300884955755 0.165929203539823 5077.556391987408 293.665255850988 -i 33 60.232300884955755 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 60.232300884955755 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 60.39823008849558 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 60.39823008849558 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 60.39823008849558 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 60.564159292035406 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 60.564159292035406 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 60.564159292035406 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 60.73008849557523 0.165929203539823 5077.556391987408 293.665255850988 -i 33 60.73008849557523 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 60.73008849557523 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 60.896017699115056 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 60.896017699115056 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 60.896017699115056 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 61.06194690265488 0.165929203539823 5813.789703166071 164.81405229989804 -i 33 61.06194690265488 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 61.06194690265488 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 61.22787610619471 0.165929203539823 5077.556391987408 293.665255850988 -i 33 61.22787610619471 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 61.22787610619471 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 61.39380530973453 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 61.39380530973453 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 61.39380530973453 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 61.55973451327436 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 61.55973451327436 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 61.55973451327436 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 61.72566371681418 0.165929203539823 5813.789703166071 293.665255850988 -i 33 61.72566371681418 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 61.72566371681418 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 61.89159292035401 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 61.89159292035401 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 61.89159292035401 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 62.05752212389383 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 62.05752212389383 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 62.05752212389383 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 62.22345132743366 0.165929203539823 5077.556391987408 293.665255850988 -i 33 62.22345132743366 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 62.22345132743366 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 62.38938053097348 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 62.38938053097348 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 62.38938053097348 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 62.55530973451331 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 62.55530973451331 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 62.55530973451331 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 62.72123893805313 0.165929203539823 5077.556391987408 293.665255850988 -i 33 62.72123893805313 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 62.72123893805313 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 62.88716814159296 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 62.88716814159296 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 62.88716814159296 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 63.053097345132784 0.165929203539823 5813.789703166071 164.81405229989804 -i 33 63.053097345132784 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 63.053097345132784 0.165929203539823 1501.114046580957 329.6281045997961 -i 33 63.21902654867261 0.165929203539823 5077.556391987408 293.665255850988 -i 33 63.21902654867261 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 63.21902654867261 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 63.384955752212434 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 63.384955752212434 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 63.384955752212434 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 63.55088495575226 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 63.55088495575226 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 63.55088495575226 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 63.716814159292085 0.165929203539823 5813.789703166071 293.665255850988 -i 33 63.716814159292085 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 63.716814159292085 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 63.88274336283191 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 63.88274336283191 0.165929203539823 2253.3433808426553 195.99804364746933 -i 33 63.88274336283191 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 64.04867256637174 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 64.04867256637174 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 64.04867256637174 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 64.21460176991155 0.165929203539823 5077.556391987408 293.665255850988 -i 33 64.21460176991155 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 64.21460176991155 0.165929203539823 1311.01942303975 329.6281045997961 -i 33 64.38053097345137 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 64.38053097345137 0.165929203539823 2580.0726833705917 195.99804364746933 -i 33 64.38053097345137 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 64.54646017699119 0.165929203539823 5077.556391987408 164.81405229989804 -i 33 64.54646017699119 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 64.54646017699119 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 64.71238938053096 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 64.71238938053096 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 64.71238938053096 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 64.87831858407078 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 64.87831858407078 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 64.87831858407078 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 65.0442477876106 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 65.0442477876106 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 65.0442477876106 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 65.21017699115042 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 65.21017699115042 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 65.21017699115042 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 65.37610619469024 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 65.37610619469024 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 65.37610619469024 0.165929203539823 1501.114046580957 554.36618304969 -i 33 65.54203539823006 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 65.54203539823006 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 65.54203539823006 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 65.70796460176987 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 65.70796460176987 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 65.70796460176987 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 65.87389380530969 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 65.87389380530969 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 65.87389380530969 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 66.03982300884951 0.165929203539823 5813.789703166071 184.9975187347117 -i 33 66.03982300884951 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 66.03982300884951 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 66.20575221238933 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 66.20575221238933 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 66.20575221238933 0.165929203539823 1311.01942303975 554.36618304969 -i 33 66.37168141592915 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 66.37168141592915 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 66.37168141592915 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 66.53761061946896 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 66.53761061946896 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 66.53761061946896 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 66.70353982300878 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 66.70353982300878 0.165929203539823 2580.0726833705917 369.9950374694234 -i 33 66.70353982300878 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 66.8694690265486 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 66.8694690265486 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 66.8694690265486 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 67.03539823008842 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 67.03539823008842 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 67.03539823008842 0.165929203539823 1311.01942303975 554.36618304969 -i 33 67.20132743362824 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 67.20132743362824 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 67.20132743362824 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 67.36725663716805 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 67.36725663716805 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 67.36725663716805 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 67.53318584070787 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 67.53318584070787 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 67.53318584070787 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 67.69911504424769 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 67.69911504424769 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 67.69911504424769 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 67.86504424778751 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 67.86504424778751 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 67.86504424778751 0.165929203539823 1311.01942303975 554.36618304969 -i 33 68.03097345132733 0.165929203539823 5813.789703166071 184.9975187347117 -i 33 68.03097345132733 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 68.03097345132733 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 68.19690265486715 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 68.19690265486715 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 68.19690265486715 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 68.36283185840696 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 68.36283185840696 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 68.36283185840696 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 68.52876106194678 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 68.52876106194678 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 68.52876106194678 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 68.6946902654866 0.165929203539823 5813.789703166071 329.6281045997961 -i 33 68.6946902654866 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 68.6946902654866 0.165929203539823 1501.114046580957 554.36618304969 -i 33 68.86061946902642 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 68.86061946902642 0.165929203539823 2253.3433808426553 220.00036553716828 -i 33 68.86061946902642 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 69.02654867256624 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 69.02654867256624 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 69.02654867256624 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 69.19247787610605 0.165929203539823 5077.556391987408 329.6281045997961 -i 33 69.19247787610605 0.165929203539823 2253.3433808426553 369.9950374694234 -i 33 69.19247787610605 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 69.35840707964587 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 69.35840707964587 0.165929203539823 2580.0726833705917 220.00036553716828 -i 33 69.35840707964587 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 69.52433628318569 0.165929203539823 5077.556391987408 184.9975187347117 -i 33 69.52433628318569 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 69.52433628318569 0.165929203539823 1311.01942303975 554.36618304969 -i 33 69.69026548672565 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 69.69026548672565 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 69.69026548672565 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 69.85619469026547 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 69.85619469026547 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 69.85619469026547 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 70.02212389380529 0.165929203539823 5077.556391987408 277.183091524845 -i 33 70.02212389380529 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 70.02212389380529 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 70.1880530973451 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 70.1880530973451 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 70.1880530973451 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 70.35398230088492 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 70.35398230088492 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 70.35398230088492 0.165929203539823 1501.114046580957 554.36618304969 -i 33 70.51991150442474 0.165929203539823 5077.556391987408 277.183091524845 -i 33 70.51991150442474 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 70.51991150442474 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 70.68584070796456 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 70.68584070796456 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 70.68584070796456 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 70.85176991150438 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 70.85176991150438 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 70.85176991150438 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 71.0176991150442 0.165929203539823 5813.789703166071 277.183091524845 -i 33 71.0176991150442 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 71.0176991150442 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 71.18362831858401 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 71.18362831858401 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 71.18362831858401 0.165929203539823 1311.01942303975 554.36618304969 -i 33 71.34955752212383 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 71.34955752212383 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 71.34955752212383 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 71.51548672566365 0.165929203539823 5077.556391987408 277.183091524845 -i 33 71.51548672566365 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 71.51548672566365 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 71.68141592920347 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 71.68141592920347 0.165929203539823 2580.0726833705917 440.00073107433656 -i 33 71.68141592920347 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 71.84734513274329 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 71.84734513274329 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 71.84734513274329 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 72.0132743362831 0.165929203539823 5077.556391987408 277.183091524845 -i 33 72.0132743362831 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 72.0132743362831 0.165929203539823 1311.01942303975 554.36618304969 -i 33 72.17920353982292 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 72.17920353982292 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 72.17920353982292 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 72.34513274336274 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 72.34513274336274 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 72.34513274336274 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 72.51106194690256 0.165929203539823 5077.556391987408 277.183091524845 -i 33 72.51106194690256 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 72.51106194690256 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 72.67699115044238 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 72.67699115044238 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 72.67699115044238 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 72.8429203539822 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 72.8429203539822 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 72.8429203539822 0.165929203539823 1311.01942303975 554.36618304969 -i 33 73.00884955752201 0.165929203539823 5813.789703166071 277.183091524845 -i 33 73.00884955752201 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 73.00884955752201 0.165929203539823 1501.114046580957 369.9950374694234 -i 33 73.17477876106183 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 73.17477876106183 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 73.17477876106183 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 73.34070796460165 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 73.34070796460165 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 73.34070796460165 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 73.50663716814147 0.165929203539823 5077.556391987408 277.183091524845 -i 33 73.50663716814147 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 73.50663716814147 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 73.67256637168128 0.165929203539823 5813.789703166071 440.00073107433656 -i 33 73.67256637168128 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 73.67256637168128 0.165929203539823 1501.114046580957 554.36618304969 -i 33 73.8384955752211 0.165929203539823 5077.556391987408 220.00036553716828 -i 33 73.8384955752211 0.165929203539823 2253.3433808426553 277.183091524845 -i 33 73.8384955752211 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 74.00442477876092 0.165929203539823 5077.556391987408 277.183091524845 -i 33 74.00442477876092 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 74.00442477876092 0.165929203539823 1311.01942303975 440.00073107433656 -i 33 74.17035398230074 0.165929203539823 5077.556391987408 440.00073107433656 -i 33 74.17035398230074 0.165929203539823 2253.3433808426553 440.00073107433656 -i 33 74.17035398230074 0.165929203539823 1311.01942303975 369.9950374694234 -i 33 74.33628318584056 0.165929203539823 5813.789703166071 220.00036553716828 -i 33 74.33628318584056 0.165929203539823 2580.0726833705917 277.183091524845 -i 33 74.33628318584056 0.165929203539823 1501.114046580957 440.00073107433656 -i 33 74.50221238938038 0.165929203539823 5077.556391987408 277.183091524845 -i 33 74.50221238938038 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 74.50221238938038 0.165929203539823 1311.01942303975 554.36618304969 -i 33 74.66814159292034 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 74.66814159292034 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 74.66814159292034 0.165929203539823 1501.114046580957 587.330511701976 -i 33 74.83407079646015 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 74.83407079646015 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 74.83407079646015 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 74.99999999999997 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 74.99999999999997 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 74.99999999999997 0.165929203539823 1311.01942303975 587.330511701976 -i 33 75.16592920353979 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 75.16592920353979 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 75.16592920353979 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 75.33185840707961 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 75.33185840707961 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 75.33185840707961 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 75.49778761061943 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 75.49778761061943 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 75.49778761061943 0.165929203539823 1311.01942303975 587.330511701976 -i 33 75.66371681415924 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 75.66371681415924 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 75.66371681415924 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 75.82964601769906 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 75.82964601769906 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 75.82964601769906 0.165929203539823 1311.01942303975 587.330511701976 -i 33 75.99557522123888 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 75.99557522123888 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 75.99557522123888 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 76.1615044247787 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 76.1615044247787 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 76.1615044247787 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 76.32743362831852 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 76.32743362831852 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 76.32743362831852 0.165929203539823 1311.01942303975 587.330511701976 -i 33 76.49336283185833 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 76.49336283185833 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 76.49336283185833 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 76.65929203539815 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 76.65929203539815 0.165929203539823 2580.0726833705917 329.6281045997961 -i 33 76.65929203539815 0.165929203539823 1501.114046580957 587.330511701976 -i 33 76.82522123893797 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 76.82522123893797 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 76.82522123893797 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 76.99115044247779 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 76.99115044247779 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 76.99115044247779 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 77.1570796460176 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 77.1570796460176 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 77.1570796460176 0.165929203539823 1311.01942303975 587.330511701976 -i 33 77.32300884955743 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 77.32300884955743 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 77.32300884955743 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 77.48893805309724 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 77.48893805309724 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 77.48893805309724 0.165929203539823 1311.01942303975 587.330511701976 -i 33 77.65486725663706 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 77.65486725663706 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 77.65486725663706 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 77.82079646017688 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 77.82079646017688 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 77.82079646017688 0.165929203539823 1311.01942303975 493.8841218593214 -i 33 77.9867256637167 0.165929203539823 5813.789703166071 195.99804364746933 -i 33 77.9867256637167 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 77.9867256637167 0.165929203539823 1501.114046580957 587.330511701976 -i 33 78.15265486725652 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 78.15265486725652 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 78.15265486725652 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 78.31858407079633 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 78.31858407079633 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 78.31858407079633 0.165929203539823 1311.01942303975 587.330511701976 -i 33 78.48451327433615 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 78.48451327433615 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 78.48451327433615 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 78.65044247787597 0.165929203539823 5813.789703166071 369.9950374694234 -i 33 78.65044247787597 0.165929203539823 2580.0726833705917 391.99608729493866 -i 33 78.65044247787597 0.165929203539823 1501.114046580957 493.8841218593214 -i 33 78.81637168141579 0.165929203539823 5077.556391987408 246.9420609296607 -i 33 78.81637168141579 0.165929203539823 2253.3433808426553 293.665255850988 -i 33 78.81637168141579 0.165929203539823 1311.01942303975 587.330511701976 -i 33 78.9823008849556 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 78.9823008849556 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 78.9823008849556 0.165929203539823 1311.01942303975 391.99608729493866 -i 33 79.14823008849542 0.165929203539823 5077.556391987408 369.9950374694234 -i 33 79.14823008849542 0.165929203539823 2253.3433808426553 329.6281045997961 -i 33 79.14823008849542 0.165929203539823 1311.01942303975 587.330511701976 -i 33 79.31415929203524 0.165929203539823 5813.789703166071 246.9420609296607 -i 33 79.31415929203524 0.165929203539823 2580.0726833705917 293.665255850988 -i 33 79.31415929203524 0.165929203539823 1501.114046580957 391.99608729493866 -i 33 79.48008849557506 0.165929203539823 5077.556391987408 195.99804364746933 -i 33 79.48008849557506 0.165929203539823 2253.3433808426553 391.99608729493866 -i 33 79.48008849557506 0.165929203539823 1311.01942303975 493.8841218593214 - -e - - - - diff --git a/src/Csound/Base.hs b/src/Csound/Base.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Base.hs @@ -0,0 +1,95 @@ +-- | Basic types and functions. +-- +-- Example (a concert A) +-- +-- > module Main where +-- > +-- > import Csound.Base +-- > +-- > osc :: Sig -> Sig +-- > osc phs = oscil1 1 phs (genHigh 10 [1]) +-- > +-- > instr :: D -> Out +-- > instr pch = out $ 0.5 * (osc $ kr pch) +-- > +-- > res = score instr [(0, 1, 440)] +-- > +-- > main :: IO () +-- > main = writeFile "tmp.csd" $ renderCsd [res] +-- +-- Now you can invoke Csound on tmp.csd and listen to the result with your favourite player. +-- +-- > csound tmp.csd -o a.wav +module Csound.Base( + + -- * Types + Val, + + -- ** Constants + -- | A constant value doesn't change while instrument is playing a note. + -- Only constants can be passed as arguments to the instruments. + D, I, Tab, Str, + withInits, + + -- ** Signals + -- | Signals can be audio or control rate. Rate is derived from the code. + -- If there are rate-collisions, values will be converted to the right rates. + -- For example, if you are trying to apply an opcode that expects control + -- rate signal to some audio rate signal, the signal will be downsampled behind the scenes. + Sig, BoolSig, Spec, + module Data.Boolean, + + -- ** Side effects + SE, + + -- ** Tuples + CsdTuple, + + -- ** Converters + ToSig(..), ir, int, double, str, + + -- * Making a sound + + -- | Let's make some noise. Sound is build from list of tracks ("SigOut"). + Out, SigOut, effect, out, outs, + + -- ** Scores + -- | We can define an instrument and tell it to play some notes. + score, Arg(..), ArgMethods, makeArgMethods, + + -- ** Midi + -- | We can define a midi-instrument. Then we can trigger the instrument with a midi-keyboard. + Msg, massign, pgmassign, + + -- ** Rendering + -- | Now we are ready to create a csound-file. The function "renderCsd" creates a 'String' that + -- contains the description of our music. We can save it to a file and compile it with our @csound@ + -- wizard. + renderCsd, + + -- ** Opcodes + -- | Some colors to paint our soundscapes. + module Csound.Opcode, + + -- ** Options + -- | We can set some csound options. + renderCsdBy, + Channel, CtrlId, CsdOptions(..), module Data.Default, mixing, mixingBy +) where + +import Data.Default +import Data.Boolean + +import Csound.Exp +import Csound.Exp.Cons +import Csound.Exp.Wrapper +import Csound.Opcode +import Csound.Exp.Numeric +import Csound.Exp.Logic + +import Csound.Render.Sco +import Csound.Render.Options +import Csound.Render + + + diff --git a/src/Csound/Exp.hs b/src/Csound/Exp.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Exp.hs @@ -0,0 +1,236 @@ +module Csound.Exp( + E, RatedExp(..), RatedVar(..), onExp, Exp(..), Name, + VarType(..), Var(..), Info(..), OpcType(..), Rate(..), + Signature(..), isProcedure, isInfix, isPrefix, + Prim(..), Tab(..), + Inline(..), InlineExp(..), PreInline(..), + BoolExp, CondInfo, CondOp(..), isTrue, isFalse, + NumExp, NumOp(..) +) where + +import Control.Applicative +import Data.Monoid +import Data.Traversable +import Data.Foldable hiding (concat) + +import Data.Map(Map) +import qualified Data.IntMap as IM +import Data.Fix + +-- | The inner representation of csound expressions. +type E = Fix RatedExp + +type Name = String + +data RatedExp a = RatedExp + { ratedExpRate :: Maybe Rate + , ratedExpDepends :: Maybe a + , ratedExpExp :: Exp a + } deriving (Show, Eq, Ord) + +data RatedVar = RatedVar + { ratedVarRate :: Rate + , ratedVarId :: Int + } deriving (Show) + +onExp :: (Exp a -> Exp a) -> RatedExp a -> RatedExp a +onExp f a = a{ ratedExpExp = f (ratedExpExp a) } + +data VarType = LocalVar | GlobalVar + deriving (Show, Eq, Ord) + +data Exp a + = ExpPrim Prim + | Tfm Info [a] + | ConvertRate Rate Rate a + | Select Rate Int a + | If (CondInfo a) a a + | ExpBool (BoolExp a) + | ExpNum (NumExp a) + | ReadVar Var + | WriteVar Var a + deriving (Show, Eq, Ord) + +data Var + = Var + { varType :: VarType + , varRate :: Rate + , varName :: Name } + | VarVerbatim + { varRate :: Rate + , varName :: Name + } deriving (Show, Eq, Ord) + + +data Info = Info + { infoName :: Name + , infoSignature :: Signature + , infoOpcType :: OpcType + , infoNextSE :: Maybe Int + } deriving (Show, Eq, Ord) + +isPrefix, isInfix, isProcedure :: Info -> Bool + +isPrefix = (Prefix ==) . infoOpcType +isInfix = (Infix ==) . infoOpcType +isProcedure = (Procedure ==) . infoOpcType + +data OpcType = Prefix | Infix | Procedure + deriving (Show, Eq, Ord) + +-- | The Csound rates. +data Rate = Xr | Ar | Kr | Ir | Sr | Fr + deriving (Show, Eq, Ord, Enum, Bounded) + +data Signature + = SingleRate (Map Rate [Rate]) + | MultiRate + { outMultiRate :: [Rate] + , inMultiRate :: [Rate] } + deriving (Show, Eq, Ord) + +data Prim + = P Int + | PString Int -- >> p-string: + | PrimInt Int + | PrimDouble Double + | PrimTab Tab + | PrimString String + deriving (Show, Eq, Ord) + +-- | Csound f-tables. You can make a value of 'Tab' with the function 'gen'. +data Tab = Tab + { tabSize :: Int + , tabGen :: Int + , tabArgs :: [Double] + } deriving (Show, Eq, Ord) + +------------------------------------------------------------ +-- types for arithmetic and boolean expressions + +data Inline a b = Inline + { inlineExp :: InlineExp a + , inlineEnv :: IM.IntMap b + } deriving (Show, Eq, Ord) + +data InlineExp a + = InlinePrim Int + | InlineExp a [InlineExp a] + deriving (Show, Eq, Ord) + +data PreInline a b = PreInline a [b] + deriving (Show, Eq, Ord) + +-- booleans + +type BoolExp a = PreInline CondOp a +type CondInfo a = Inline CondOp a + +data CondOp + = TrueOp | FalseOp | Not | And | Or + | Equals | NotEquals | Less | Greater | LessEquals | GreaterEquals + deriving (Show, Eq, Ord) + +isTrue, isFalse :: CondInfo a -> Bool + +isTrue = isCondOp TrueOp +isFalse = isCondOp FalseOp + +isCondOp op = maybe False (op == ) . getCondInfoOp + +getCondInfoOp :: CondInfo a -> Maybe CondOp +getCondInfoOp x = case inlineExp x of + InlineExp op _ -> Just op + _ -> Nothing + +-- numbers + +type NumExp a = PreInline NumOp a + +data NumOp + = Add | Sub | Neg | Mul | Div + | Pow | Mod + | Sin | Cos | Sinh | Cosh | Tan | Tanh | Sininv | Cosinv | Taninv + | Abs | Ceil | ExpOp | Floor | Frac| IntOp | Log | Log10 | Logbtwo | Round | Sqrt + | Ampdb | Ampdbfs | Dbamp | Dbfsamp + | Cpspch + deriving (Show, Eq, Ord) + +------------------------------------------------------- +-- instances for cse + +instance Functor RatedExp where + fmap f (RatedExp r d a) = RatedExp r (fmap f d) (fmap f a) + +instance Foldable RatedExp where + foldMap f (RatedExp _ d a) = foldMap f d <> foldMap f a + +instance Traversable RatedExp where + traverse f (RatedExp r d a) = RatedExp r <$> traverse f d <*> traverse f a + +instance Functor Exp where + fmap f x = case x of + ExpPrim p -> ExpPrim p + Tfm t xs -> Tfm t $ map f xs + ConvertRate ra rb a -> ConvertRate ra rb $ f a + Select r n a -> Select r n $ f a + If info a b -> If (fmap f info) (f a) (f b) + ExpBool a -> ExpBool $ fmap f a + ExpNum a -> ExpNum $ fmap f a + ReadVar v -> ReadVar v + WriteVar v a -> WriteVar v (f a) + + +instance Foldable Exp where + foldMap f x = case x of + ExpPrim p -> mempty + Tfm t xs -> foldMap f xs + ConvertRate ra rb a -> f a + Select r n a -> f a + If info a b -> foldMap f info <> f a <> f b + ExpBool a -> foldMap f a + ExpNum a -> foldMap f a + ReadVar v -> mempty + WriteVar v a -> f a + +instance Traversable Exp where + traverse f x = case x of + ExpPrim p -> pure $ ExpPrim p + Tfm t xs -> Tfm t <$> traverse f xs + ConvertRate ra rb a -> ConvertRate ra rb <$> f a + Select r n a -> Select r n <$> f a + If info a b -> If <$> traverse f info <*> f a <*> f b + ExpBool a -> ExpBool <$> traverse f a + ExpNum a -> ExpNum <$> traverse f a + ReadVar v -> pure $ ReadVar v + WriteVar v a -> WriteVar v <$> f a + + +instance Functor (Inline a) where + fmap f a = a{ inlineEnv = fmap f $ inlineEnv a } + +instance Foldable (Inline a) where + foldMap f a = foldMap f $ inlineEnv a + +instance Traversable (Inline a) where + traverse f (Inline a b) = Inline a <$> traverse f b + +instance Functor (PreInline a) where + fmap f (PreInline op as) = PreInline op $ fmap f as + +instance Foldable (PreInline a) where + foldMap f (PreInline _ as) = foldMap f as + +instance Traversable (PreInline a) where + traverse f (PreInline op as) = PreInline op <$> traverse f as + + + +-- comments +-- +-- p-string +-- +-- separate p-param for strings (we need it to read strings from global table) +-- Csound doesn't permits us to use more than four string params so we need to +-- keep strings in the global table and use `strget` to read them + diff --git a/src/Csound/Exp/Cons.hs b/src/Csound/Exp/Cons.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Exp/Cons.hs @@ -0,0 +1,191 @@ +module Csound.Exp.Cons ( + Spec1, Specs, + toE, fromE, + withInits, + bi, + opcs, opc0, opc1, opc2, opc3, opc4, opc5, opc6, opc7, opc8, opc9, opc10, opc11, + mopcs, mopc0, mopc1, mopc2, mopc3, mopc4, mopc5, mopc6, mopc7 +) where + +import Data.String +import Control.Applicative +import Data.Default +import qualified Data.Map as M +import Control.Monad.Trans.State + +import Data.Fix + +import Csound.Exp +import Csound.Exp.Wrapper + +-- | Converts a value to the private representation. +toE :: Val a => a -> E +toE = Fix . unwrap + +-- | Constructs a value from the private representation. +fromE :: Val a => E -> a +fromE = wrap . unFix + +-- | Appends initialisation arguments. It's up to you to supply arguments with the right types. For example: +-- +-- > oscil 0.5 440 sinWave `withInits` (0.5 :: D) +withInits :: (Val a, CsdTuple inits) => a -> inits -> Sig +withInits a b = wrap $ onExp phi $ unwrap a + where phi x = case x of + Tfm t xs -> Tfm t (xs ++ fromCsdTuple b) + x -> x + +------------------------------------------------ +-- helper constructors + +instance IsString Str where + fromString = str + +------------------------------------------------ +-- constructor for simple arithmetic operators + +bi :: (Val a1, Val a2, Val b) => Name -> a1 -> a2 -> b +bi name = opc2 name biSignature + +biSignature :: Spec1 +biSignature = [ + (Ar, [Ar, Ar]), + (Kr, [Kr, Kr]), + (Ir, [Ir, Ir])] + +idSignature :: Spec1 +idSignature = [ + (Ar, repeat Ar), + (Kr, repeat Kr), + (Ir, repeat Ir)] + +---------------------------- +-- spec tfms + +tfms :: (Val a, Val b) => Info -> [a] -> b +tfms t as = tfm t $ map unwrap as + +tfm0 :: (Val a) => Info -> a +tfm0 t = tfm t [] + +tfm1 :: (Val a, Val b) => Info -> a -> b +tfm1 t a = tfm t [unwrap a] + +tfm2 :: (Val a1, Val a2, Val b) => Info -> a1 -> a2 -> b +tfm2 t a1 a2 = tfm t [unwrap a1, unwrap a2] + +tfm3 :: (Val a1, Val a2, Val a3, Val b) => Info -> a1 -> a2 -> a3 -> b +tfm3 t a1 a2 a3 = tfm t [unwrap a1, unwrap a2, unwrap a3] + +tfm4 :: (Val a1, Val a2, Val a3, Val a4, Val b) => Info -> a1 -> a2 -> a3 -> a4 -> b +tfm4 t a1 a2 a3 a4 = tfm t [unwrap a1, unwrap a2, unwrap a3, unwrap a4] + +tfm5 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val b) => Info -> a1 -> a2 -> a3 -> a4 -> a5 -> b +tfm5 t a1 a2 a3 a4 a5 = tfm t [unwrap a1, unwrap a2, unwrap a3, unwrap a4, unwrap a5] + +tfm6 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val b) => Info -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> b +tfm6 t a1 a2 a3 a4 a5 a6 = tfm t [unwrap a1, unwrap a2, unwrap a3, unwrap a4, unwrap a5, unwrap a6] + +tfm7 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val b) => Info -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> b +tfm7 t a1 a2 a3 a4 a5 a6 a7 = tfm t [unwrap a1, unwrap a2, unwrap a3, unwrap a4, unwrap a5, unwrap a6, unwrap a7] + +tfm8 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val a8, Val b) => Info -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> a8 -> b +tfm8 t a1 a2 a3 a4 a5 a6 a7 a8 = tfm t [unwrap a1, unwrap a2, unwrap a3, unwrap a4, unwrap a5, unwrap a6, unwrap a7, unwrap a8] + +tfm9 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val a8, Val a9, Val b) => Info -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> a8 -> a9 -> b +tfm9 t a1 a2 a3 a4 a5 a6 a7 a8 a9 = tfm t [unwrap a1, unwrap a2, unwrap a3, unwrap a4, unwrap a5, unwrap a6, unwrap a7, unwrap a8, unwrap a9] + +tfm10 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val a8, Val a9, Val a10, Val b) => Info -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> a8 -> a9 -> a10 -> b +tfm10 t a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = tfm t [unwrap a1, unwrap a2, unwrap a3, unwrap a4, unwrap a5, unwrap a6, unwrap a7, unwrap a8, unwrap a9, unwrap a10] + +tfm11 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val a8, Val a9, Val a10, Val a11, Val b) => Info -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> a8 -> a9 -> a10 -> a11 -> b +tfm11 t a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = tfm t [unwrap a1, unwrap a2, unwrap a3, unwrap a4, unwrap a5, unwrap a6, unwrap a7, unwrap a8, unwrap a9, unwrap a10, unwrap a11] + +------------------------------- +-- single out + +type Spec1 = [(Rate, [Rate])] + +spec1 :: Spec1 -> Signature +spec1 = SingleRate . M.fromList + +opcs :: (Val a, Val b) => Name -> Spec1 -> [a] -> b +opcs name signature = tfms (pref name $ spec1 signature) + +opc0 :: (Val a) => Name -> Spec1 -> a +opc0 name signature = tfm0 (pref name $ spec1 signature) + +opc1 :: (Val a, Val b) => Name -> Spec1 -> a -> b +opc1 name signature = tfm1 (pref name $ spec1 signature) + +opc2 :: (Val a1, Val a2, Val b) => Name -> Spec1 -> a1 -> a2 -> b +opc2 name signature = tfm2 (pref name $ spec1 signature) + +opc3 :: (Val a1, Val a2, Val a3, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> b +opc3 name signature = tfm3 (pref name $ spec1 signature) + +opc4 :: (Val a1, Val a2, Val a3, Val a4, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> a4 -> b +opc4 name signature = tfm4 (pref name $ spec1 signature) + +opc5 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> a4 -> a5 -> b +opc5 name signature = tfm5 (pref name $ spec1 signature) + +opc6 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> b +opc6 name signature = tfm6 (pref name $ spec1 signature) + +opc7 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> b +opc7 name signature = tfm7 (pref name $ spec1 signature) + +opc8 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val a8, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> a8 -> b +opc8 name signature = tfm8 (pref name $ spec1 signature) + +opc9 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val a8, Val a9, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> a8 -> a9 -> b +opc9 name signature = tfm9 (pref name $ spec1 signature) + +opc10 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val a8, Val a9, Val a10, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> a8 -> a9 -> a10 -> b +opc10 name signature = tfm10 (pref name $ spec1 signature) + +opc11 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, Val a8, Val a9, Val a10, Val a11, Val b) => Name -> Spec1 -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> a8 -> a9 -> a10 -> a11 -> b +opc11 name signature = tfm11 (pref name $ spec1 signature) + +------------------------------- +-- multiple outs + +type Specs = ([Rate], [Rate]) + +specs :: Specs -> Signature +specs = uncurry MultiRate + +mo :: (CsdTuple a) => E -> a +mo = multiOuts + +mopcs :: (Val a, CsdTuple b) => Name -> Specs -> [a] -> b +mopcs name signature as = mo $ tfms (pref name $ specs signature) as + +mopc0 :: (CsdTuple a) => Name -> Specs -> a +mopc0 name signature = mo $ tfm0 (pref name $ specs signature) + +mopc1 :: (Val a, CsdTuple b) => Name -> Specs -> a -> b +mopc1 name signature a1 = mo $ tfm1 (pref name $ specs signature) a1 + +mopc2 :: (Val a1, Val a2, CsdTuple b) => Name -> Specs -> a1 -> a2 -> b +mopc2 name signature a1 a2 = mo $ tfm2 (pref name $ specs signature) a1 a2 + +mopc3 :: (Val a1, Val a2, Val a3, CsdTuple b) => Name -> Specs -> a1 -> a2 -> a3 -> b +mopc3 name signature a1 a2 a3 = mo $ tfm3 (pref name $ specs signature) a1 a2 a3 + +mopc4 :: (Val a1, Val a2, Val a3, Val a4, CsdTuple b) => Name -> Specs -> a1 -> a2 -> a3 -> a4 -> b +mopc4 name signature a1 a2 a3 a4 = mo $ tfm4 (pref name $ specs signature) a1 a2 a3 a4 + +mopc5 :: (Val a1, Val a2, Val a3, Val a4, Val a5, CsdTuple b) => Name -> Specs -> a1 -> a2 -> a3 -> a4 -> a5 -> b +mopc5 name signature a1 a2 a3 a4 a5 = mo $ tfm5 (pref name $ specs signature) a1 a2 a3 a4 a5 + +mopc6 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, CsdTuple b) => Name -> Specs -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> b +mopc6 name signature a1 a2 a3 a4 a5 a6 = mo $ tfm6 (pref name $ specs signature) a1 a2 a3 a4 a5 a6 + +mopc7 :: (Val a1, Val a2, Val a3, Val a4, Val a5, Val a6, Val a7, CsdTuple b) => Name -> Specs -> a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> a7 -> b +mopc7 name signature a1 a2 a3 a4 a5 a6 a7 = mo $ tfm7 (pref name $ specs signature) a1 a2 a3 a4 a5 a6 a7 + + + + diff --git a/src/Csound/Exp/Logic.hs b/src/Csound/Exp/Logic.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Exp/Logic.hs @@ -0,0 +1,90 @@ +{-# Language TypeFamilies #-} +module Csound.Exp.Logic() where + +import Control.Monad.Trans.State +import Data.Fix +import qualified Data.IntMap as IM +import Control.Applicative + +import Data.Boolean + +import Csound.Exp.Wrapper +import Csound.Exp + +instance Boolean BoolSig where + true = boolOp0 TrueOp + false = boolOp0 FalseOp + notB = BoolSig . notE . unBoolSig + (&&*) = boolOp2 And + (||*) = boolOp2 Or + +type instance BooleanOf Sig = BoolSig + +instance IfB Sig where + ifB = cond' + +instance EqB Sig where + (==*) = boolOp2 Equals + (/=*) = boolOp2 NotEquals + +instance OrdB Sig where + (<*) = boolOp2 Less + (>*) = boolOp2 Greater + (<=*) = boolOp2 LessEquals + (>=*) = boolOp2 GreaterEquals + +-------------------------------------------- +-- if-then-else + +boolExp = PreInline + +cond' :: BoolSig -> Sig -> Sig -> Sig +cond' p t e = wrap $ mkCond (condInfo $ Fix $ unwrap p) (unwrap t) (unwrap e) + where mkCond :: CondInfo E -> RatedExp E -> RatedExp E -> RatedExp E + mkCond p t e + | isTrue p = t + | isFalse p = e + | otherwise = noRate $ If p (Fix t) (Fix e) + +condInfo :: E -> CondInfo E +condInfo exp = (\(a, b) -> Inline a (IM.fromList b)) $ evalState (condInfo' exp) 0 + where condInfo' :: E -> State Int (InlineExp CondOp, [(Int, E)]) + condInfo' e = maybe (onLeaf e) (onExp e) $ parseNode e + onLeaf e = state $ \n -> ((InlinePrim n, [(n, e)]), n+1) + onExp e (op, args) = mkNode <$> mapM condInfo' args + where mkNode as = (InlineExp op (map fst as), concat $ map snd as) + + parseNode :: E -> Maybe (CondOp, [E]) + parseNode x = case ratedExpExp $ unFix x of + ExpBool (PreInline op args) -> Just (op, args) + _ -> Nothing + + +boolOps :: (Val a) => CondOp -> [E] -> a +boolOps op as = noRate $ ExpBool $ boolExp op as + +boolOp0 :: Val a => CondOp -> a +boolOp0 op = boolOps op [] + +boolOp1 :: Val a => CondOp -> a -> a +boolOp1 op a = boolOps op [setRate Kr $ Fix $ unwrap a] + +boolOp2 :: (Val a1, Val a2, Val b) => CondOp -> a1 -> a2 -> b +boolOp2 op a b = boolOps op $ map (Fix . setRate Kr) [unwrap a, unwrap b] + +-- no support for not in csound so we perform not-elimination +notE :: E -> E +notE x = Fix $ onExp phi $ unFix x + where phi (ExpBool (PreInline op args)) = ExpBool $ case op of + TrueOp -> boolExp FalseOp [] + FalseOp -> boolExp TrueOp [] + And -> boolExp Or $ map notE args + Or -> boolExp And $ map notE args + Equals -> boolExp NotEquals args + NotEquals -> boolExp Equals args + Less -> boolExp GreaterEquals args + Greater -> boolExp LessEquals args + LessEquals -> boolExp Greater args + GreaterEquals -> boolExp Less args + + diff --git a/src/Csound/Exp/Numeric.hs b/src/Csound/Exp/Numeric.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Exp/Numeric.hs @@ -0,0 +1,272 @@ +{-# Language TypeSynonymInstances, FlexibleInstances #-} +module Csound.Exp.Numeric() where + +import Data.Maybe(fromJust) +import Control.Applicative +import Data.Fix + +import Csound.Exp +import Csound.Exp.Wrapper +import Csound.Exp.Cons + +------------------------------------------------------- +-- instances for numerical expressions + +instance NumOpt E where + maybeInt x = case ratedExpExp $ unFix x of + ExpPrim (PrimInt n) -> Just n + _ -> Nothing + + maybeDouble x = case ratedExpExp $ unFix x of + ExpPrim (PrimDouble d) -> Just d + _ -> Nothing + + fromInt = prim . PrimInt + fromDouble = prim . PrimDouble + fromNum = noRate . ExpNum + +-------------------------------------------- +-- numeric instances + +instance Num E where + (+) a b + | isZero a = b + | isZero b = a + | otherwise = biOpt (+) (+) Add a b + + (*) a b + | isZero a || isZero b = fromInt 0 + | otherwise = biOpt (*) (*) Mul a b + + (-) a b + | isZero a = negate b + | isZero b = a + | otherwise = biOpt (-) (-) Sub a b + + negate = unOpt negate negate Neg + + fromInteger = fromInt . fromInteger + abs = unOpt abs abs Abs + signum = undefined + +instance Fractional E where + (/) a b + | isZero a = fromInt 0 + | isZero b = error "csound (/): division by zero" + | otherwise = biOptOnDouble (/) Div a b + + fromRational = fromDouble . fromRational + +instance Floating E where + pi = fromDouble pi + exp = funOpt exp ExpOp + sqrt = funOpt sqrt Sqrt + log = funOpt log Log + logBase a n = case n of + 2 -> funOpt (flip logBase 2) Logbtwo a + 10 -> funOpt (flip logBase 10) Log10 a + b -> log a / log b + (**) = biOpt (^) (**) Pow + sin = funOpt sin Sin + tan = funOpt tan Tan + cos = funOpt cos Cos + asin = funOpt asin Sininv + atan = funOpt atan Taninv + acos = funOpt acos Cosinv + sinh = funOpt sinh Sinh + tanh = funOpt tanh Tanh + cosh = funOpt cosh Cosh + asinh a = log $ a + sqrt (a * a + 1) + acosh a = log $ a + sqrt (a + 1) * sqrt (a - 1) + atanh a = 0.5 * log ((1 + a) / (1 - a)) + +{- +instance Enum E where + succ = (+1) + pred = \x -> x - 1 + toEnum = fromInt + enumFrom a = a : enumFrom (a+1) + enumFromThen a b = a : enumFromThen (a+b) b + enumFromTo = undefined + enumFromThenTo = undefined + +instance Real E where + toRational = undefined + +instance Integral E where + quot a b = truncate $ (truncate a) / (truncate b) + rem a b = (a `quot` b)*b - a + mod = mod' + div a b = truncate $ a - mod a b / b + toInteger = undefined + +instance RealFrac E where + properFraction a = (floor' a, frac' a) + truncate = truncate' + floor = floor' + ceiling = ceil' + round = round' . kr +-} +onE1 :: (Val a, Val b) => (E -> E) -> (a -> b) +onE1 f = wrap . unFix . f . Fix . unwrap + +onE2 :: (Val a, Val b, Val c) => (E -> E -> E) -> (a -> b -> c) +onE2 f a b = wrap $ unFix $ f (Fix $ unwrap a) (Fix $ unwrap b) + +onConst :: Val b => (a -> E) -> (a -> b) +onConst f = wrap . unFix . f + +------------------------------------------- +-- wrappers + +instance Num Sig where + (+) = onE2 (+) + (*) = onE2 (*) + (-) = onE2 (-) + negate = onE1 negate + fromInteger = onConst fromInteger + abs = onE1 abs + signum = onE1 signum + +instance Num I where + (+) = onE2 (+) + (*) = onE2 (*) + (-) = onE2 (-) + negate = onE1 negate + fromInteger = onConst fromInteger + abs = onE1 abs + signum = onE1 signum + +instance Num D where + (+) = onE2 (+) + (*) = onE2 (*) + (-) = onE2 (-) + negate = onE1 negate + fromInteger = onConst fromInteger + abs = onE1 abs + signum = onE1 signum + +instance Fractional Sig where + (/) = onE2 (/) + fromRational = onConst fromRational + +instance Fractional D where + (/) = onE2 (/) + fromRational = onConst fromRational + +instance Floating Sig where + pi = wrap $ unFix pi + exp = onE1 exp + sqrt = onE1 sqrt + log = onE1 log + logBase = onE2 logBase + (**) = onE2 (**) + sin = onE1 sin + tan = onE1 tan + cos = onE1 cos + asin = onE1 asin + atan = onE1 atan + acos = onE1 acos + sinh = onE1 sinh + tanh = onE1 tanh + cosh = onE1 cosh + asinh = onE1 asinh + acosh = onE1 acosh + atanh = onE1 atanh + +instance Floating D where + pi = wrap $ unFix pi + exp = onE1 exp + sqrt = onE1 sqrt + log = onE1 log + logBase = onE2 logBase + (**) = onE2 (**) + sin = onE1 sin + tan = onE1 tan + cos = onE1 cos + asin = onE1 asin + atan = onE1 atan + acos = onE1 acos + sinh = onE1 sinh + tanh = onE1 tanh + cosh = onE1 cosh + asinh = onE1 asinh + acosh = onE1 acosh + atanh = onE1 atanh + +------------------------------------------------------------ + +class NumOpt a where + maybeInt :: a -> Maybe Int + maybeDouble :: a -> Maybe Double + fromInt :: Int -> a + fromDouble :: Double -> a + fromNum :: NumExp a -> a + +isZero :: NumOpt a => a -> Bool +isZero a = maybe False id $ liftA2 (||) ((== 0) <$> maybeInt a) ((==0) <$> maybeDouble a) + +getDouble :: NumOpt a => a -> Maybe Double +getDouble a = maybe (fromIntegral <$> maybeInt a) Just $ maybeDouble a + +unOpt :: (NumOpt a) => (Int -> Int) -> (Double -> Double) -> NumOp -> a -> a +unOpt intOp doubleOp op a = fromJust $ + (fromInt . intOp <$> maybeInt a) + <|> (fromDouble . doubleOp <$> maybeDouble a) + <|> Just (noOpt1 op a) + +biOpt :: (NumOpt a) => (Int -> Int -> Int) -> (Double -> Double -> Double) -> NumOp -> a -> a -> a +biOpt intOp doubleOp op a b = fromJust $ + intOpA (maybeInt a) (maybeInt b) + <|> doubleOpA (getDouble a) (getDouble b) + <|> Just (noOpt2 op a b) + where intOpA a b = fromInt <$> liftA2 intOp a b + doubleOpA a b = fromDouble <$> liftA2 doubleOp a b + +biOptOnDouble :: (NumOpt a) => (Double -> Double -> Double) -> NumOp -> a -> a -> a +biOptOnDouble doubleOp op a b = fromJust $ + (fromDouble <$> liftA2 doubleOp (getDouble a) (getDouble b)) + <|> Just (noOpt2 op a b) + + +funOpt :: NumOpt a => (Double -> Double) -> NumOp -> a -> a +funOpt doubleOp op a = fromJust $ + (fromDouble . doubleOp <$> getDouble a) + <|> Just (noOpt1 op a) + +noOpt1 :: NumOpt a => NumOp -> a -> a +noOpt1 op a = fromNum $ PreInline op [a] + +noOpt2 :: NumOpt a => NumOp -> a -> a -> a +noOpt2 op a b = fromNum $ PreInline op [a, b] + +doubleToInt :: NumOpt a => (Double -> Int) -> NumOp -> a -> a +doubleToInt fun op a = fromJust $ + (fromInt <$> maybeInt a) + <|> (fromInt . fun <$> maybeDouble a) + <|> Just (noOpt1 op a) + +-- arithmetic + +mod' :: NumOpt a => a -> a -> a +mod' = biOpt mod (\a b -> fromIntegral $ mod (floor a) (floor b)) Pow + +-- other functions + +ceil', floor', frac', int', round' :: NumOpt a => a -> a + +ceil' = doubleToInt ceiling Ceil +floor' = doubleToInt floor Floor +round' = doubleToInt round Round +frac' = unOpt (const 0) (snd . properFraction) Frac +int' = doubleToInt truncate IntOp + + + + + + + + + + diff --git a/src/Csound/Exp/Wrapper.hs b/src/Csound/Exp/Wrapper.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Exp/Wrapper.hs @@ -0,0 +1,451 @@ +{-# Language + TypeSynonymInstances, + FlexibleInstances #-} +module Csound.Exp.Wrapper( + Out, Sig, I, D, Str, BoolSig(..), Spec, ToSig(..), + SE, se, se_, runSE, execSE, + Arg(..), ArgMethods(..), toArg, makeArgMethods, + CsdTuple(..), multiOuts, + Val(..), + str, double, int, ir, + tfm, pref, prim, p, + isMultiOutSignature, + noRate, setRate, getRates, + readVar, writeVar, gOutVar, + Channel +) where + +import Control.Applicative +import Control.Monad(ap) +import Control.Monad.Trans.State + +import Data.String +import Data.Fix +import Control.Monad.Trans.State + +import Csound.Exp + +type Channel = Int + +-- | Output of the instrument. +type Out = SE [Sig] + + +-- | Audio or control rate signals. +newtype Sig = Sig { unSig :: E } + +-- | Integers. +newtype I = I { unI :: E } + +-- | Doubles. +newtype D = D { unD :: E } + +-- | Strings. +newtype Str = Str { unStr :: E } + +-- | Boolean signals. Use functions from the module "Data.Boolean" to make boolean signals +-- out of simple signals. +newtype BoolSig = BoolSig { unBoolSig :: E } + +-- | Spectrum of the signal (see "FFT and Spectral Processing" in the "Csound.Opcode.Advanced"). +newtype Spec = Spec { unSpec :: E } + +------------------------------------------------ +-- side effects + +-- | Csound's synonym for 'IO'-monad. 'SE' means Side Effect. +-- You will bump into 'SE' trying to read and write to delay lines, +-- making random signals or trying to save your audio to file. +-- Instrument is expected to return a value of @SE [Sig]@. +-- So it's okay to do some side effects when playing a note. +newtype SE a = SE { unSE :: State E a } + +instance Functor SE where + fmap f = SE . fmap f . unSE + +instance Applicative SE where + pure = return + (<*>) = ap + +instance Monad SE where + return = SE . return + ma >>= mf = SE $ unSE ma >>= unSE . mf + +runSE :: SE a -> (a, E) +runSE a = runState (unSE a) (unD (p 3 :: D)) + +execSE :: SE a -> E +execSE = snd . runSE + +------------------------------------------------ +-- basic constructors + +noRate :: Val a => Exp E -> a +noRate = ratedExp Nothing + +withRate :: Val a => Rate -> Exp E -> a +withRate r = ratedExp (Just r) + +ratedExp :: Val a => Maybe Rate -> Exp E -> a +ratedExp r = wrap . RatedExp r Nothing + +prim :: Val a => Prim -> a +prim = wrap . noRate . ExpPrim + +pref :: Name -> Signature -> Info +pref name signature = Info name signature Prefix Nothing + +inf :: Name -> Signature -> Info +inf name signature = Info name signature Infix Nothing + +tfm :: Val a => Info -> [RatedExp E] -> a +tfm info args = wrap $ noRate $ Tfm info $ map Fix args + +gvar, var :: Val a => Rate -> Name -> a + +var = mkVar LocalVar +gvar = mkVar GlobalVar + +mkVar :: Val a => VarType -> Rate -> String -> a +mkVar ty rate name = wrap $ noRate $ ReadVar (Var ty rate name) + +p :: Val a => Int -> a +p = prim . P + +-- | Converts Haskell's integers to Csound's integers +int :: Int -> I +int = prim . PrimInt + +-- | Converts Haskell's doubles to Csound's doubles +double :: Double -> D +double = prim . PrimDouble + +-- | Converts Haskell's strings to Csound's strings +str :: String -> Str +str = prim . PrimString + +writeVar :: (Val a) => Var -> a -> SE () +writeVar v x = se_ $ noRate $ WriteVar v $ Fix $ unwrap x + +readVar :: (Val a) => Var -> a +readVar v = noRate $ ReadVar v + +gOutVar :: Int -> Int -> Var +gOutVar instrId portId = Var GlobalVar Ar (gOutName instrId portId) + where gOutName instrId portId = "Out" ++ show instrId ++ "_" ++ show portId + +------------------------------- +-- side effects + +se :: (Val a) => E -> SE a +se a = SE $ state $ \s -> + let x = (unwrap a) { ratedExpDepends = Just s } + in (wrap x, Fix $ x) + +se_ :: E -> SE () +se_ = fmap (const ()) . (se :: E -> SE E) + +------------------------------------------------ +-- basic destructors + +getPrimUnsafe :: Val a => a -> Prim +getPrimUnsafe a = case ratedExpExp $ unwrap a of + ExpPrim p -> p + +-------------------------------------------- +-- signals from primitive types + +-- | Values that can be converted to signals. +class ToSig a where + ar :: a -> Sig -- ^ Forces signal to audio rate. + kr :: a -> Sig -- ^ Forces signal to control rate. + +instance ToSig I where + ar = setRate Ar + kr = setRate Kr + +instance ToSig D where + ar = setRate Ar + kr = setRate Kr + +instance ToSig Sig where + ar = setRate Ar + kr = setRate Kr + +instance ToSig Int where + ar = ar . int + kr = kr . int + +instance ToSig Double where + ar = ar . double + kr = kr . double + +-------------------------------------------- +-- rate conversion + +setRate :: (Val a, Val b) => Rate -> a -> b +setRate r a = wrap $ (\x -> x { ratedExpRate = Just r }) $ unwrap a + +-- | Converts signal to double. +ir :: Sig -> D +ir = setRate Ir + +------------------------------------------------------ +-- values + +class Val a where + wrap :: RatedExp E -> a + unwrap :: a -> RatedExp E + +instance Val (RatedExp E) where + wrap = id + unwrap = id + +instance Val E where + wrap = Fix + unwrap = unFix + +instance Val Sig where + wrap = Sig . Fix + unwrap = unFix . unSig + +instance Val I where + wrap = I . Fix + unwrap = unFix . unI + +instance Val D where + wrap = D . Fix + unwrap = unFix . unD + +instance Val Str where + wrap = Str . Fix + unwrap = unFix . unStr + +instance Val Tab where + wrap = undefined + unwrap = prim . PrimTab + +instance Val BoolSig where + wrap = BoolSig . Fix + unwrap = unFix . unBoolSig + +instance Val Spec where + wrap = Spec . Fix + unwrap = unFix . unSpec + +------------------------------------------------ +-- arguments + +-- | The abstract type of methods for the class 'Arg'. +data ArgMethods a = ArgMethods + { arg :: Int -> a + , toNote :: a -> [Prim] + , arity :: a -> Int + } + +toArg :: Arg a => a +toArg = arg argMethods 4 + +-- | Defines instance of type class 'Arg' for a new type in terms of an old one. +makeArgMethods :: (Arg a) => (a -> b) -> (b -> a) -> ArgMethods b +makeArgMethods to from = ArgMethods { + arg = to . arg argMethods, + toNote = toNote argMethods . from, + arity = arity argMethods . from } + +-- | Describes all Csound values that can be used in the score section. +-- Instruments are triggered with the values from this type class. +-- Actual methods are hidden, but you can easily make instances for your own types +-- with function 'makeArgMethods'. You need to describe the new instance in terms +-- of some existing one. For example: +-- +-- > data Note = Note +-- > { noteAmplitude :: D +-- > , notePitch :: D +-- > , noteVibrato :: D +-- > , noteSample :: S +-- > } +-- > +-- > instance Arg Note where +-- > argMethods = makeArgMethods to from +-- > where to (amp, pch, vibr, sample) = Note amp pch vibr sample +-- > from (Note amp pch vibr sample) = (amp, pch, vibr, sample) +-- +-- Then you can use this type in an instrument definition. +-- +-- > instr :: Note -> Out +-- > instr x = ... + +class Arg a where + argMethods :: ArgMethods a + +instance Arg () where + argMethods = ArgMethods + { arg = const () + , toNote = const [] + , arity = const 0 } + +instance Arg I where + argMethods = ArgMethods { + arg = p, + toNote = pure . getPrimUnsafe, + arity = const 1 } + +instance Arg D where + argMethods = ArgMethods { + arg = p, + toNote = pure . getPrimUnsafe, + arity = const 1 } + +instance Arg Str where + argMethods = ArgMethods { + arg = p, + toNote = pure . getPrimUnsafe, + arity = const 1 } + +instance Arg Tab where + argMethods = ArgMethods { + arg = p, + toNote = pure . getPrimUnsafe, + arity = const 1 } + +instance (Arg a, Arg b) => Arg (a, b) where + argMethods = ArgMethods arg' toNote' arity' + where arg' n = (a, b) + where a = arg argMethods n + b = arg argMethods (n + arity argMethods a) + toNote' (a, b) = toNote argMethods a ++ toNote argMethods b + arity' (a, b) = arity argMethods a + arity argMethods b + + +instance (Arg a, Arg b, Arg c) => Arg (a, b, c) where + argMethods = makeArgMethods to from + where to (a, (b, c)) = (a, b, c) + from (a, b, c) = (a, (b, c)) + +instance (Arg a, Arg b, Arg c, Arg d) => Arg (a, b, c, d) where + argMethods = makeArgMethods to from + where to (a, (b, c, d)) = (a, b, c, d) + from (a, b, c, d) = (a, (b, c, d)) + +instance (Arg a, Arg b, Arg c, Arg d, Arg e) => Arg (a, b, c, d, e) where + argMethods = makeArgMethods to from + where to (a, (b, c, d, e)) = (a, b, c, d, e) + from (a, b, c, d, e) = (a, (b, c, d, e)) + +instance (Arg a, Arg b, Arg c, Arg d, Arg e, Arg f) => Arg (a, b, c, d, e, f) where + argMethods = makeArgMethods to from + where to (a, (b, c, d, e, f)) = (a, b, c, d, e, f) + from (a, b, c, d, e, f) = (a, (b, c, d, e, f)) + +instance (Arg a, Arg b, Arg c, Arg d, Arg e, Arg f, Arg g) => Arg (a, b, c, d, e, f, g) where + argMethods = makeArgMethods to from + where to (a, (b, c, d, e, f, g)) = (a, b, c, d, e, f, g) + from (a, b, c, d, e, f, g) = (a, (b, c, d, e, f, g)) + + +instance (Arg a, Arg b, Arg c, Arg d, Arg e, Arg f, Arg g, Arg h) => Arg (a, b, c, d, e, f, g, h) where + argMethods = makeArgMethods to from + where to (a, (b, c, d, e, f, g, h)) = (a, b, c, d, e, f, g, h) + from (a, b, c, d, e, f, g, h) = (a, (b, c, d, e, f, g, h)) + + +------------------------------------------------ +-- tuples + +-- | Describes tuples of Csound values. It's used for functions that can return +-- several results (such as 'soundin' or 'diskin2'). Tuples can be nested. +class CsdTuple a where + fromCsdTuple :: a -> [E] + toCsdTuple :: [E] -> a + arityCsdTuple :: a -> Int + +instance CsdTuple Sig where + fromCsdTuple = return . Fix . unwrap + toCsdTuple = wrap . unFix . head + arityCsdTuple = const 1 + +instance CsdTuple I where + fromCsdTuple = return . Fix . unwrap + toCsdTuple = wrap . unFix . head + arityCsdTuple = const 1 + +instance CsdTuple D where + fromCsdTuple = return . Fix . unwrap + toCsdTuple = wrap . unFix . head + arityCsdTuple = const 1 + +instance CsdTuple Str where + fromCsdTuple = return . Fix . unwrap + toCsdTuple = wrap . unFix . head + arityCsdTuple = const 1 + +instance CsdTuple Spec where + fromCsdTuple = return . Fix . unwrap + toCsdTuple = wrap . unFix . head + arityCsdTuple = const 1 + +instance (CsdTuple a, CsdTuple b) => CsdTuple (a, b) where + fromCsdTuple (a, b) = fromCsdTuple a ++ fromCsdTuple b + arityCsdTuple (a, b) = arityCsdTuple a + arityCsdTuple b + toCsdTuple xs = (a, b) + where a = toCsdTuple $ take (arityCsdTuple a) xs + xsb = drop (arityCsdTuple a) xs + b = toCsdTuple (take (arityCsdTuple b) xsb) + +instance (CsdTuple a, CsdTuple b, CsdTuple c) => CsdTuple (a, b, c) where + fromCsdTuple (a, b, c) = fromCsdTuple (a, (b, c)) + arityCsdTuple (a, b, c) = arityCsdTuple (a, (b, c)) + toCsdTuple = (\(a, (b, c)) -> (a, b, c)) . toCsdTuple + +instance (CsdTuple a, CsdTuple b, CsdTuple c, CsdTuple d) => CsdTuple (a, b, c, d) where + fromCsdTuple (a, b, c, d) = fromCsdTuple (a, (b, c, d)) + arityCsdTuple (a, b, c, d) = arityCsdTuple (a, (b, c, d)) + toCsdTuple = (\(a, (b, c, d)) -> (a, b, c, d)) . toCsdTuple + +instance (CsdTuple a, CsdTuple b, CsdTuple c, CsdTuple d, CsdTuple e) => CsdTuple (a, b, c, d, e) where + fromCsdTuple (a, b, c, d, e) = fromCsdTuple (a, (b, c, d, e)) + arityCsdTuple (a, b, c, d, e) = arityCsdTuple (a, (b, c, d, e)) + toCsdTuple = (\(a, (b, c, d, e)) -> (a, b, c, d, e)) . toCsdTuple + +instance (CsdTuple a, CsdTuple b, CsdTuple c, CsdTuple d, CsdTuple e, CsdTuple f) => CsdTuple (a, b, c, d, e, f) where + fromCsdTuple (a, b, c, d, e, f) = fromCsdTuple (a, (b, c, d, e, f)) + arityCsdTuple (a, b, c, d, e, f) = arityCsdTuple (a, (b, c, d, e, f)) + toCsdTuple = (\(a, (b, c, d, e, f)) -> (a, b, c, d, e, f)) . toCsdTuple + +instance (CsdTuple a, CsdTuple b, CsdTuple c, CsdTuple d, CsdTuple e, CsdTuple f, CsdTuple g) => CsdTuple (a, b, c, d, e, f, g) where + fromCsdTuple (a, b, c, d, e, f, g) = fromCsdTuple (a, (b, c, d, e, f, g)) + arityCsdTuple (a, b, c, d, e, f, g) = arityCsdTuple (a, (b, c, d, e, f, g)) + toCsdTuple = (\(a, (b, c, d, e, f, g)) -> (a, b, c, d, e, f, g)) . toCsdTuple + +instance (CsdTuple a, CsdTuple b, CsdTuple c, CsdTuple d, CsdTuple e, CsdTuple f, CsdTuple g, CsdTuple h) => CsdTuple (a, b, c, d, e, f, g, h) where + fromCsdTuple (a, b, c, d, e, f, g, h) = fromCsdTuple (a, (b, c, d, e, f, g, h)) + arityCsdTuple (a, b, c, d, e, f, g, h) = arityCsdTuple (a, (b, c, d, e, f, g, h)) + toCsdTuple = (\(a, (b, c, d, e, f, g, h)) -> (a, b, c, d, e, f, g, h)) . toCsdTuple + +------------------------------------------------ +-- multiple outs + +multiOuts :: CsdTuple a => E -> a +multiOuts exp = res + where res = toCsdTuple $ multiOutsSection (arityCsdTuple res) exp + +multiOutsSection :: Int -> E -> [E] +multiOutsSection n e = zipWith (\n r -> select n r e') [0 ..] rates + where rates = take n $ getRates $ ratedExpExp $ unFix e + e' = Fix $ onExp (setMultiRate rates) $ unFix e + + setMultiRate rates (Tfm info xs) = Tfm (info{ infoSignature = MultiRate rates ins }) xs + where MultiRate _ ins = infoSignature info + + select n r e = withRate r $ Select r n e + +getRates :: Exp a -> [Rate] +getRates (Tfm info _) = case infoSignature info of + MultiRate outs _ -> outs + +isMultiOutSignature :: Signature -> Bool +isMultiOutSignature x = case x of + MultiRate _ _ -> True + _ -> False + diff --git a/src/Csound/LowLevel.hs b/src/Csound/LowLevel.hs new file mode 100644 --- /dev/null +++ b/src/Csound/LowLevel.hs @@ -0,0 +1,85 @@ +-- | Functions to make your own opcodes. +-- You can find a lot of examples in source code (see directory @Csound/Opcode@) +module Csound.LowLevel( + -- * Types + Rate(..), Name, E, + + -- * Handy shortcuts + i, k, a, x, s, f, is, ks, as, + + -- * Standard opcodes + + -- | Example: + -- + -- > oscil :: Sig -> Sig -> Tab -> Sig + -- > oscil = opc3 "oscil" [ + -- > (a, [x, x, i, i]), + -- > (k, [k, k, i, i])] + + Spec1, + opcs, opc0, opc1, opc2, opc3, opc4, opc5, opc6, opc7, opc8, opc9, opc10, opc11, + + -- * Multiple outputs + -- | Examples: + -- + -- > pan2 :: Sig -> Sig -> (Sig, Sig) + -- > pan2 = mopc2 "pan2" ([a, a], [a, x, i]) + -- + -- When you don't want to specify precise number of outputs: + -- + -- > soundin :: CsdTuple a => S -> a + -- > soundin = mopc1 "soundin" (repeat a, s : is 4) + + Specs, + mopcs, mopc0, mopc1, mopc2, mopc3, mopc4, mopc5, mopc6, mopc7, + + -- * Side effects + + -- | Examples: + -- + -- > delayr :: D -> SE Sig + -- > delayr a1 = se $ opc1 "delayr" [(a, [i])] a1 + -- > + -- > delayw :: Sig -> SE () + -- > delayw a1 = se_ $ opc1 "delayw" [(x, [a])] a1 + -- + -- Functions that produce no values (procedures) should return value of the type 'Xr'. + + -- * When standard functions are not enough + + -- | Sometimes Csound opcodes take too many parameters. If you want to + -- use them, you can always use functions that are defined on lists ('opcs' or 'mopcs'). + -- But in this case you have to convert all arguments to the same type 'E': + -- + -- For example: + -- + -- > oscil :: Sig -> Sig -> Tab -> Sig + -- > oscil a1 a2 a3 = opcs "oscil" signature [toE a1, toE a2, toE a3] + -- > where signature = [ + -- > (a, [x, x, i, i]), + -- > (k, [k, k, i, i])] + + toE, + + se, se_ +) where + +import Data.Fix + +import Csound.Exp +import Csound.Exp.Wrapper +import Csound.Exp.Cons +import Csound.Render.Sco(Msg) + +i = Ir +k = Kr +a = Ar +x = Xr +s = Sr +f = Fr + +is n = replicate n i +ks n = replicate n k +as n = replicate n a + + diff --git a/src/Csound/Opcode.hs b/src/Csound/Opcode.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Opcode.hs @@ -0,0 +1,22 @@ +-- | Here you will find all opcodes from the Csound floss manual (). +-- If you are missing some opcodes feel free to use "Csound.LowLevel". It's easy. +-- +-- All opcodes are defined without initialisation arguments. If you want to supply the auxiliary arguments +-- use the function 'withInits'. +module Csound.Opcode ( + module Csound.Opcode.Basic, + module Csound.Opcode.Advanced, + module Csound.Opcode.Data, + module Csound.Opcode.Interaction +) where + +import Csound.Opcode.Basic +import Csound.Opcode.Advanced +import Csound.Opcode.Data +import Csound.Opcode.Interaction + + + + + + diff --git a/src/Csound/Opcode/Advanced.hs b/src/Csound/Opcode/Advanced.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Opcode/Advanced.hs @@ -0,0 +1,918 @@ +-- | Advanced Signal Processing +module Csound.Opcode.Advanced ( + ----------------------------------------------------- + -- * Modulation and Distortion + + -- ** Frequency Modulation + foscil, foscili, + crossfm, crossfmi, crosspm, crosspmi, crossfmpm, crossfmpmi, + + -- ** Distortion and Wave Shaping + distort, distort1, powershape, polynomial, chebyshevpoly, + + -- ** Flanging, Phasing, Phase Shaping + flanger, harmon, phaser1, phaser2, pdclip, pdhalf, pdhalfy, + + -- ** Doppler Shift + doppler, + + ----------------------------------------------------- + -- * Convolution + pconvolve, convolve, ftconv, dconv, + + ----------------------------------------------------- + -- * FFT and Spectral Processing + + -- ** Realtime Analysis And Resynthesis + pvsanal, pvstanal, pvsynth, pvsadsyn, + + -- ** Writing FFT Data To A File And Reading From It + pvswrite, pvsfread, pvsdiskin, + + -- ** FFT Info + pvsinfo, pvsbin, pvscent, + + -- ** Manipulating FFT Signals + pvscale, pvshift, pvsbandp, pvsbandr, pvsmix, pvscross, pvsfilter, + pvsvoc, pvsmorph, pvsfreeze, pvsmaska, pvsblur, pvstencil, pvsarp, pvsmooth, + + ----------------------------------------------------- + -- * Physical Models and FM Instruments + + -- ** Waveguide Physical Modelling + streson, pluck, repluck, wgbow, wgbowedbar, wgbrass, + wgclar, wgflute, wgpluck, wgpluck2, wguide1, wguide2, + + -- ** FM Instrument Models + fmb3, fmbell, fmmetal, fmpercfl, fmrhode, fmvoice, fmwurlie, + + -- ** PhISEM opcodes + -- | PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects. + bamboo, cabasa, crunch, dripwater, guiro, sandpaper, sekere, sleighbells, stix, tambourine, + + -- ** Some Perry Cook's instruments + -- | The method is a physically inspired model developed from Perry Cook, but re-coded for Csound. + gogobel, marimba, shaker, vibes, + + -- ** Other Models + barmodel, mandol, moog, voice +) where + +import Csound.Exp +import Csound.Exp.Wrapper +import Csound.LowLevel + +----------------------------------------------------- +-- * Modulation and Distortion + +----------------------------------------------------- +-- ** Frequency Modulation + +-- | A basic frequency modulated oscillator. +-- +-- > ares foscil xamp, kcps, xcar, xmod, kndx, ifn [, iphs] +-- +-- doc: +foscil :: Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig +foscil = opc6 "foscil" [(a, [x, k, x, x, k, i, i])] + +-- | Basic frequency modulated oscillator with linear interpolation. +-- +-- > ares foscili xamp, kcps, xcar, xmod, kndx, ifn [, iphs] +-- +-- doc: +foscili :: Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig +foscili = opc6 "foscili" [(a, [x, k, x, x, k, i, i])] + + +-- | Two oscillators, mutually frequency and/or phase modulated by each other. +-- +-- > a1, a2 crossfm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] +-- > a1, a2 crossfmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] +-- > a1, a2 crosspm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] +-- > a1, a2 crosspmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] +-- > a1, a2 crossfmpm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] +-- > a1, a2 crossfmpmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] +-- +-- doc: +crossfmGen :: Name -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig, Sig) +crossfmGen name = mopc7 name ([a, a], [x, x, x, x, k, i, i, i, i]) + +crossfm, crossfmi, crosspm, crosspmi, crossfmpm, crossfmpmi :: Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig, Sig) + +crossfm = crossfmGen "crossfm" +crossfmi = crossfmGen "crossfmi" +crosspm = crossfmGen "crosspm" +crosspmi = crossfmGen "crosspmi" +crossfmpm = crossfmGen "crossfmpm" +crossfmpmi = crossfmGen "crossfmpmi" + +----------------------------------------------------- +-- ** Distortion and Wave Shaping + +-- | Distort an audio signal via waveshaping and optional clipping. +-- +-- > ar distort asig, kdist, ifn[, ihp, istor] +-- +-- doc: +distort :: Sig -> Sig -> Tab -> Sig +distort = opc3 "distort" [(a, [a, k, i, i, i])] + +-- | Implementation of modified hyperbolic tangent distortion. distort1 can be used to generate wave shaping distortion based on a modification of the tanh function. +-- +-- > exp(asig * (shape1 + pregain)) - exp(asig * (shape2 - pregain)) +-- > aout = --------------------------------------------------------------- +-- > exp(asig * pregain) + exp(-asig * pregain) +-- +-- > ares distort1 asig, kpregain, kpostgain, kshape1, kshape2[, imode] +-- +-- doc: +distort1 :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig +distort1 = opc5 "distort1" [(a, [a, k, k, k, k, i])] + +-- | The powershape opcode raises an input signal to a power with pre- and post-scaling of the signal so that +-- the output will be in a predictable range. It also processes negative inputs in a symmetrical way to positive inputs, calculating a dynamic transfer function that is useful for waveshaping. +-- +-- > aout powershape ain, kShapeAmount [, ifullscale] +-- +-- doc: +powershape :: Sig -> Sig -> Sig +powershape = opc2 "powershape" [(a, [a, k, i])] + +-- | The polynomial opcode calculates a polynomial with a single a-rate input variable. The polynomial is a sum +-- of any number of terms in the form kn*x^n where kn is the nth coefficient of the expression. These coefficients are k-rate values. +-- +-- > aout polynomial ain, k0 [, k1 [, k2 [...]]] +-- +-- doc: +polynomial :: Sig -> [Sig] -> Sig +polynomial a1 a2 = opcs "polynomial" [(a, a:repeat k)] (a1:a2) + +-- | The chebyshevpoly opcode calculates the value of a polynomial expression with a single a-rate input variable that is +-- made up of a linear combination of the first N Chebyshev polynomials of the first kind. Each Chebyshev polynomial, Tn(x), +-- is weighted by a k-rate coefficient, kn, so that the opcode is calculating a sum of any number of terms in the form kn*Tn(x). +-- Thus, the chebyshevpoly opcode allows for the waveshaping of an audio signal with a dynamic transfer function that gives +-- precise control over the harmonic content of the output. +-- +-- > aout chebyshevpoly ain, k0 [, k1 [, k2 [...]]] +-- +-- doc: +chebyshevpoly :: Sig -> [Sig] -> Sig +chebyshevpoly a1 a2 = opcs "chebyshevpoly" [(a, a:repeat k)] (a1:a2) + +----------------------------------------------------- +-- ** Flanging, Phasing, Phase Shaping + +-- | A user controlled flanger. +-- +-- > ares flanger asig, adel, kfeedback [, imaxd] +-- +-- doc: +flanger :: Sig -> Sig -> Sig -> Sig +flanger = opc3 "flanger" [(a, [a, a, k, i])] + +-- | Analyze an audio input and generate harmonizing voices in synchrony. +-- +-- > ares harmon asig, kestfrq, kmaxvar, kgenfreq1, kgenfreq2, imode, \ +-- > iminfrq, iprd +-- +-- doc: +harmon :: Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> D -> Sig +harmon = opc8 "harmon" [(a, [a, k, k, k, k, i, i, i])] + +-- | An implementation of iord number of first-order allpass filters in series. +-- +-- > ares phaser1 asig, kfreq, kord, kfeedback [, iskip] +-- +-- doc: +phaser1 :: Sig -> Sig -> Sig -> Sig -> Sig +phaser1 = opc4 "phaser1" [(a, [a, k, k, k, i])] + +-- | An implementation of iord number of second-order allpass filters in series. +-- +-- > ares phaser2 asig, kfreq, kq, kord, kmode, ksep, kfeedback +-- +-- doc: +phaser2 :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig +phaser2 = opc7 "phaser2" [(a, [a, k, k, k, k, k, k])] + +-- | The pdclip opcode allows a percentage of the input range of a signal to be clipped to fullscale. +-- It is similar to simply multiplying the signal and limiting the range of the result, but pdclip +-- allows you to think about how much of the signal range is being distorted instead of the scalar +-- factor and has a offset parameter for assymetric clipping of the signal range. pdclip is also useful +-- for remapping phasors for phase distortion synthesis. +-- +-- > aout pdclip ain, kWidth, kCenter [, ibipolar [, ifullscale]] +-- +-- doc: +pdclip :: Sig -> Sig -> Sig -> Sig +pdclip = opc3 "pdclip" [(a, [a, k, k, i, i])] + +-- | The pdhalf opcode is designed to emulate the "classic" phase distortion synthesis method of the +-- Casio CZ-series of synthesizers from the mid-1980's. This technique reads the first and second halves +-- of a function table at different rates in order to warp the waveform. For example, pdhalf can smoothly +-- transform a sine wave into something approximating the shape of a saw wave. +-- +-- > aout pdhalf ain, kShapeAmount [, ibipolar [, ifullscale]] +-- +-- doc: +pdhalf :: Sig -> Sig -> Sig -> Sig +pdhalf = opc3 "pdhalf" [(a, [a, k, k, i, i])] + +-- | The pdhalfy opcode is a variation on the phase distortion synthesis method of the pdhalf opcode. +-- It is useful for distorting a phasor in order to read two unequal portions of a table in the same number of samples. +-- +-- > aout pdhalfy ain, kShapeAmount [, ibipolar [, ifullscale]] +-- +-- doc: +pdhalfy :: Sig -> Sig -> Sig -> Sig +pdhalfy = opc3 "pdhalfy" [(a, [a, k, k, i, i])] + +----------------------------------------------------- +-- ** Doppler Shift + +-- | A fast and robust method for approximating sound propagation, achieving convincing +-- Doppler shifts without having to solve equations. The method computes frequency shifts +-- based on reading an input delay line at a delay time computed from the distance between +-- source and mic and the speed of sound. One instance of the opcode is required for each +-- dimension of space through which the sound source moves. If the source sound moves at +-- a constant speed from in front of the microphone, through the microphone, to behind +-- the microphone, then the output will be frequency shifted above the source frequency +-- at a constant frequency while the source approaches, then discontinuously will be +-- shifted below the source frequency at a constant frequency as the source recedes from +-- the microphone. If the source sound moves at a constant speed through a point to one +-- side of the microphone, then the rate of change of position will not be constant, and +-- the familiar Doppler frequency shift typical of a siren or engine approaching and +-- receding along a road beside a listener will be heard. +-- +-- > ashifted doppler asource, ksourceposition, kmicposition [, isoundspeed, ifiltercutoff] +-- +-- doc: +doppler :: Sig -> Sig -> Sig -> Sig +doppler = opc3 "doppler" [(a, [a, k, k, i, i])] + +----------------------------------------------------- +-- * Granular Synthesis + +----------------------------------------------------- +-- * Convolution + +-- | Convolution based on a uniformly partitioned overlap-save algorithm. Compared to the convolve opcode, pconvolve has these benefits: +-- +-- * small delay +-- +-- * possible to run in real-time for shorter impulse files +-- +-- * no pre-process analysis pass +-- +-- * can often render faster than convolve +-- +-- +-- > ar1 [, ar2] [, ar3] [, ar4] pconvolve ain, ifilcod [, ipartitionsize, ichannel] +-- +-- doc: +pconvolve :: CsdTuple a => Sig -> Str -> a +pconvolve = mopc2 "pconvolve" ([a,a,a,a], [a,s,i,i]) + +-- | Output is the convolution of signal ain and the impulse response contained in ifilcod. If more than one +-- output signal is supplied, each will be convolved with the same impulse response. Note that it is +-- considerably more efficient to use one instance of the operator when processing a mono input to create stereo, or quad, outputs. +-- +-- > ar1 [, ar2] [, ar3] [, ar4] convolve ain, ifilcod [, ichannel] +-- +-- doc: +convolve :: CsdTuple a => Sig -> D -> a +convolve = mopc2 "convolve" ([a, a, a, a], [a, i, i]) + +-- | Low latency multichannel convolution, using a function table as impulse response source. The algorithm is to split the +-- impulse response to partitions of length determined by the iplen parameter, and delay and mix partitions so that the original, +-- full length impulse response is reconstructed without gaps. The output delay (latency) is iplen samples, and does not depend +-- on the control rate, unlike in the case of other convolve opcodes. +-- +-- > a1[, a2[, a3[, ... a8]]] ftconv ain, ift, iplen[, iskipsamples \ +-- > [, iirlen[, iskipinit]]] +-- +-- doc: +ftconv :: CsdTuple a => Sig -> Tab -> D -> a +ftconv = mopc3 "ftconv" (as 8, [a,i,i,i,i,i]) + +-- | A direct convolution opcode. +-- +-- > ares dconv asig, isize, ifn +-- +-- doc: +dconv :: Sig -> I -> Tab -> Sig +dconv = opc3 "dconv" [(a, [a,i,i])] + +----------------------------------------------------- +-- * FFT and Spectral Processing + +----------------------------------------------------- +-- ** Realtime Analysis And Resynthesis + +-- | Generate an fsig from a mono audio source ain, using phase vocoder overlap-add analysis. +-- +-- > fsig pvsanal ain, ifftsize, ioverlap, iwinsize, iwintype [, iformat] [, iinit] +-- +-- doc: +pvsanal :: Sig -> I -> I -> I -> I -> Spec +pvsanal = opc5 "pvsanal" [(f, a:is 6)] + +-- | pvstanal implements phase vocoder analysis by reading function tables containing sampled-sound sources, with GEN01, and pvstanal will accept deferred allocation tables. +-- +-- This opcode allows for time and frequency-independent scaling. Time is advanced internally, but controlled by a tempo scaling parameter; when an onset is detected, +-- timescaling is momentarily stopped to avoid smearing of attacks. The quality of the effect is generally improved with phase locking switched on. +-- +-- pvstanal will also scale pitch, independently of frequency, using a transposition factor (k-rate). +-- +-- > fsig pvstanal ktimescal, kamp, kpitch, ktab, [kdetect, kwrap, ioffset,ifftsize, ihop, idbthresh] +-- +-- doc: +pvstanal :: Sig -> Sig -> Sig -> Sig -> Spec +pvstanal = opc4 "pvstanal" [(f, ks 6 ++ is 4)] + +-- | Resynthesise phase vocoder data (f-signal) using a FFT overlap-add. +-- +-- > ares pvsynth fsrc, [iinit] +-- +-- doc: +pvsynth :: Spec -> Sig +pvsynth = opc1 "pvsynth" [(a, [f,i])] + +-- | Resynthesize using a fast oscillator-bank. +-- +-- > ares pvsadsyn fsrc, inoscs, kfmod [, ibinoffset] [, ibinincr] [, iinit] +-- +-- doc: +pvsadsyn :: Spec -> I -> Sig -> Sig +pvsadsyn = opc3 "pvsadsyn" [(a, [f,i,k,i,i,i])] + +----------------------------------------------------- +-- ** Writing FFT Data To A File And Reading From It + +-- | This opcode writes a fsig to a PVOCEX file (which in turn can be read by pvsfread or other programs that support PVOCEX file input). +-- +-- > pvsfwrite fsig, ifile +-- +-- doc: +pvswrite :: Spec -> Str -> SE () +pvswrite a1 a2 = se_ $ opc2 "pvswrite" [(x, [f,s])] a1 a2 + +-- | Create an fsig stream by reading a selected channel from a PVOC-EX analysis file loaded into memory, with frame +-- interpolation. Only format 0 files (amplitude+frequency) are currently supported. The operation of this opcode +-- mirrors that of pvoc, but outputs an fsig instead of a resynthesized signal. +-- +-- > fsig pvsfread ktimpt, ifn [, ichan] +-- +-- doc: +pvsfread :: Sig -> Str -> Spec +pvsfread = opc2 "pvsfread" [(f, [k,s,i])] + +-- | Create an fsig stream by reading a selected channel from a PVOC-EX analysis file, with frame interpolation. +-- +-- > fsig pvsdiskin SFname,ktscal,kgain[,ioffset, ichan] +-- +-- doc: +pvsdiskin :: Str -> Sig -> Sig -> Spec +pvsdiskin = opc3 "pvsdiskin" [(f, [s,k,k,i,i])] + +----------------------------------------------------- +-- ** FFT Info + +-- | Get format information about fsrc, whether created by an opcode such as pvsanal, or obtained from +-- a PVOCEX file by pvsfread. This information is available at init time, and can be used to set parameters +-- for other pvs opcodes, and in particular for creating function tables (e.g. for pvsftw), or setting +-- the number of oscillators for pvsadsyn. +-- +-- > ioverlap, inumbins, iwinsize, iformat pvsinfo fsrc +-- +-- doc: +pvsinfo :: Spec -> (I, I, I, I) +pvsinfo = mopc1 "pvsinfo" ([i,i,i,i], [f]) + +-- | Obtain the amp and freq values off a PVS signal bin as k-rate variables. +-- +-- > kamp, kfr pvsbin fsig, kbin +-- +-- doc: +pvsbin :: Spec -> Sig -> (Sig, Sig) +pvsbin = mopc2 "pvsbin" ([k,k], [f,k]) + +-- | Calculate the spectral centroid of a signal from its discrete Fourier transform. +-- +-- > kcent pvscent fsig +-- +-- doc: +pvscent :: Spec -> Sig +pvscent = opc1 "pvscent" [(k, [f])] + +----------------------------------------------------- +-- ** Manipulating FFT Signals + +-- | Scale the frequency components of a pv stream, resulting in pitch shift. Output amplitudes can be optionally modified in order to attempt formant preservation. +-- +-- > fsig pvscale fsigin, kscal[, kkeepform, kgain, kcoefs] +-- +-- doc: +pvscale :: Spec -> Sig -> Spec +pvscale = opc2 "pvscale" [(f, [f,k,k,k,k])] + +-- | Shift the frequency components of a pv stream, stretching/compressing its spectrum. +-- +-- > fsig pvshift fsigin, kshift, klowest[, kkeepform, igain, kcoefs] +-- +-- doc: +pvshift :: Spec -> Sig -> Sig -> Spec +pvshift = opc3 "pvshift" [(f, [f,k,k,k,i,k])] + +-- | Filter the pvoc frames, passing bins whose frequency is within a band, and with linear interpolation for transitional bands. +-- +-- > fsig pvsbandp fsigin, xlowcut, xlowfull, \ +-- > xhighfull, xhighcut[, ktype] +-- +-- doc: +pvsbandp :: Spec -> Sig -> Sig -> Sig -> Sig -> Spec +pvsbandp = opc5 "pvsbandp" [(f, [f,x,x,x,x,k])] + +-- | Filter the pvoc frames, rejecting bins whose frequency is within a band, and with linear interpolation for transitional bands. +-- +-- > fsig pvsbandr fsigin, xlowcut, xlowfull, \ +-- > xhighfull, xhighcut[, ktype] +-- +-- doc: +pvsbandr :: Spec -> Sig -> Sig -> Sig -> Sig -> Spec +pvsbandr = opc5 "pvsbandr" [(f, [f,x,x,x,x,k])] + +-- | Mix 'seamlessly' two pv signals. This opcode combines the most prominent components of two pvoc streams into a single mixed stream. +-- +-- > fsig pvsmix fsigin1, fsigin2 +-- +-- doc: +pvsmix :: Spec -> Spec -> Spec +pvsmix = opc2 "pvsmix" [(f, [f,f])] + +-- | Performs cross-synthesis between two source fsigs. +-- +-- > fsig pvscross fsrc, fdest, kamp1, kamp2 +-- +-- doc: +pvscross :: Spec -> Spec -> Sig -> Sig -> Spec +pvscross = opc4 "pvscross" [(f, [f,f,k,k])] + +-- | Multiply amplitudes of a pvoc stream by those of a second pvoc stream, with dynamic scaling. +-- +-- > fsig pvsfilter fsigin, fsigfil, kdepth[, igain] +-- +-- doc: +pvsfilter :: Spec -> Spec -> Sig -> Spec +pvsfilter = opc3 "pvsfilter" [(f, [f,f,k,i])] + +-- | This opcode provides support for cross-synthesis of amplitudes and frequencies. It takes the amplitudes +-- of one input fsig and combines with frequencies from another. It is a spectral version of the well-known channel vocoder. +-- +-- > fsig pvsvoc famp, fexc, kdepth, kgain [,kcoefs] +-- +-- doc: +pvsvoc :: Spec -> Spec -> Sig -> Sig -> Spec +pvsvoc = opc4 "pvsvoc" [(f, [f,f,k,k,k])] + +-- | Performs morphing (or interpolation) between two source fsigs. +-- +-- > fsig pvsmorph fsrc, fdest, kamp1, kamp2 +-- +-- doc: +pvsmorph :: Spec -> Spec -> Sig -> Sig -> Spec +pvsmorph = opc4 "pvsmorph" [(f, [f,f,k,k])] + +-- | This opcodes 'freezes' the evolution of pvs stream by locking into steady amplitude and/or frequency +-- values for each bin. The freezing is controlled, independently for amplitudes and frequencies, by a +-- control-rate trigger, which switches the freezing 'on' if equal to or above 1 and 'off' if below 1. +-- +-- > fsig pvsfreeze fsigin, kfreeza, kfreezf +-- +-- doc: +pvsfreeze :: Spec -> Sig -> Sig -> Sig +pvsfreeze = opc3 "pvsfreeze" [(f, [f,k,k])] + +-- | Modify amplitudes of fsrc using function table, with dynamic scaling. +-- +-- > fsig pvsmaska fsrc, ifn, kdepth +-- +-- doc: +pvsmaska :: Spec -> Tab -> Sig -> Spec +pvsmaska = opc3 "pvsmaska" [(f, [f,i,k])] + +-- | Average the amp/freq time functions of each analysis channel for a specified time (truncated to number of frames). As a side-effect the input pvoc stream will be delayed by that amount. +-- +-- > fsig pvsblur fsigin, kblurtime, imaxdel +-- +-- doc: +pvsblur :: Spec -> Sig -> D -> Spec +pvsblur = opc3 "pvsblur" [(f, [f,k,i])] + +-- | Transforms a pvoc stream according to a masking function table; if the pvoc stream amplitude +-- falls below the value of the function for a specific pvoc channel, it applies a gain to that channel. +-- +-- The pvoc stream amplitudes are compared to a masking table, if the fall below the table values, they +-- are scaled by kgain. Prior to the operation, table values are scaled by klevel, which can be used as masking depth control. +-- +-- Tables have to be at least fftsize/2 in size; for most GENS it is important to use an extended-guard +-- point (size power-of-two plus one), however this is not necessary with GEN43. +-- +-- One of the typical uses of pvstencil would be in noise reduction. A noise print can be analysed with +-- pvanal into a PVOC-EX file and loaded in a table with GEN43. This then can be used as the masking table +-- for pvstencil and the amount of reduction would be controlled by kgain. Skipping post-normalisation will +-- keep the original noise print average amplitudes. This would provide a good starting point for a successful +-- noise reduction (so that klevel can be generally set to close to 1). +-- +-- Other possible transformation effects are possible, such as filtering and `inverse-masking'. +-- +-- > fsig pvstencil fsigin, kgain, klevel, iftable +-- +-- doc: +pvstencil :: Spec -> Sig -> Sig -> Tab -> Sig +pvstencil = opc4 "pvstencil" [(f, [f,k,k,i])] + +-- | This opcode arpeggiates spectral components, by amplifying one bin and attenuating all the others around +-- it. Used with an LFO it will provide a spectral arpeggiator similar to Trevor Wishart's CDP program specarp. +-- +-- > fsig pvsarp fsigin, kbin, kdepth, kgain +-- +-- doc: +pvsarp :: Spec -> Sig -> Sig -> Sig -> Spec +pvsarp = opc4 "pvsarp" [(f, [f,k,k,k])] + +-- | Smooth the amplitude and frequency time functions of a pv stream using a 1st order lowpass IIR with time-varying +-- cutoff frequency. This opcode uses the same filter as the tone opcode, but this time acting separately on the amplitude +-- and frequency time functions that make up a pv stream. The cutoff frequency parameter runs at the control-rate, but unlike +-- tone and tonek, it is not specified in Hz, but as fractions of 1/2 frame-rate (actually the pv stream sampling rate), +-- which is easier to understand. This means that the highest cutoff frequency is 1 and the lowest 0; the lower the +-- frequency the smoother the functions and more pronounced the effect will be. +-- +-- These are filters applied to control signals so the effect is basically blurring the spectral evolution. The effects +-- produced are more or less similar to pvsblur, but with two important differences: 1.smoothing of amplitudes and +-- frequencies use separate sets of filters; and 2. there is no increase in computational cost when higher amounts +-- of "blurring" (smoothing) are desired. +-- +-- > fsig pvsmooth fsigin, kacf, kfcf +-- +-- doc: +pvsmooth :: Spec -> Sig -> Sig -> Spec +pvsmooth = opc3 "pvsmooth" [(f, [f,k,k])] + +----------------------------------------------------- +-- * Physical Models and FM Instruments + +----------------------------------------------------- +-- ** Waveguide Physical Modelling + +-- | An audio signal is modified by a string resonator with variable fundamental frequency. +-- +-- > ares streson asig, kfr, ifdbgain +-- +-- doc: +streson :: Sig -> Sig -> D -> Sig +streson = opc3 "streson" [(a, [a,k,i])] + +-- | Audio output is a naturally decaying plucked string or drum sound based on the Karplus-Strong algorithms. +-- +-- > ares pluck kamp, kcps, icps, ifn, imeth [, iparm1] [, iparm2] +-- +-- doc: +pluck :: Sig -> Sig -> D -> Tab -> I -> Sig +pluck = opc5 "pluck" [(a, [k,k,i,i,i,i,i])] + +-- | repluck is an implementation of the physical model of the plucked string. A user can control the pluck point, +-- the pickup point, the filter, and an additional audio signal, axcite. axcite is used to excite the 'string'. Based on the Karplus-Strong algorithm. +-- +-- > ares repluck iplk, kamp, icps, kpick, krefl, axcite +-- +-- doc: +repluck :: D -> Sig -> D -> Sig -> Sig -> Sig -> Sig +repluck = opc6 "repluck" [(a, [i,k,i,k,k,a])] + +-- | Audio output is a tone similar to a bowed string, using a physical model developed from Perry Cook, but re-coded for Csound. +-- +-- > ares wgbow kamp, kfreq, kpres, krat, kvibf, kvamp, ifn [, iminfreq] +-- +-- doc: +wgbow :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig +wgbow = opc7 "wgbow" [(a, ks 6 ++ is 2)] + +-- | A physical model of a bowed bar, belonging to the Perry Cook family of waveguide instruments. +-- +-- > ares wgbowedbar kamp, kfreq, kpos, kbowpres, kgain [, iconst] [, itvel] \ +-- > [, ibowpos] [, ilow] +-- +-- doc: +wgbowedbar :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig +wgbowedbar = opc5 "wgbowedbar" [(a, ks 5 ++ is 2)] + +-- | Audio output is a tone related to a brass instrument, using a physical model developed from Perry Cook, but re-coded for Csound. +-- +-- > ares wgbrass kamp, kfreq, ktens, iatt, kvibf, kvamp, ifn [, iminfreq] +-- +-- doc: +wgbrass :: Sig -> Sig -> Sig -> D -> Sig -> Sig -> Tab -> Sig +wgbrass = opc7 "wgbrass" [(a, [k,k,k,i,k,k,i,i])] + +-- | Audio output is a tone similar to a clarinet, using a physical model developed from Perry Cook, but re-coded for Csound. +-- +-- > ares wgclar kamp, kfreq, kstiff, iatt, idetk, kngain, kvibf, kvamp, ifn \ +-- > [, iminfreq] +-- +-- doc: +wgclar :: Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> Tab -> Sig +wgclar = opc9 "wgclar" [(a, [k,k,k,i,i,k,k,k,i,i])] + +-- | Audio output is a tone similar to a flute, using a physical model developed from Perry Cook, but re-coded for Csound. +-- +-- > ares wgflute kamp, kfreq, kjet, iatt, idetk, kngain, kvibf, kvamp, ifn \ +-- > [, iminfreq] [, ijetrf] [, iendrf] +-- +-- doc: +wgflute :: Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> Tab -> Sig +wgflute = opc9 "wgflute" [(a, [k,k,k,i,i,k,k,k,i,i,i,i])] + +-- | A high fidelity simulation of a plucked string, using interpolating delay-lines. +-- +-- > ares wgpluck icps, iamp, kpick, iplk, idamp, ifilt, axcite +-- +-- doc: +wgpluck :: D -> D -> Sig -> D -> D -> D -> Sig -> Sig +wgpluck = opc7 "wgplusk" [(a, [i,i,k,i,i,i,a])] + +-- | wgpluck2 is an implementation of the physical model of the plucked string, with control over the pluck point, the pickup point and the filter. Based on the Karplus-Strong algorithm. +-- +-- > ares wgpluck2 iplk, kamp, icps, kpick, krefl +-- +-- doc: +wgpluck2 :: D -> Sig -> D -> Sig -> Sig -> Sig +wgpluck2 = opc5 "wgpluck2" [(a, [i,k,i,k,k])] + +-- | A simple waveguide model consisting of one delay-line and one first-order lowpass filter. +-- +-- > ares wguide1 asig, xfreq, kcutoff, kfeedback +-- +-- doc: +wguide1 :: Sig -> Sig -> Sig -> Sig -> Sig +wguide1 = opc4 "wguide1" [(a, [a,x,k,k])] + +-- | A model of beaten plate consisting of two parallel delay-lines and two first-order lowpass filters. +-- +-- > ares wguide2 asig, xfreq1, xfreq2, kcutoff1, kcutoff2, \ +-- > kfeedback1, kfeedback2 +-- +-- doc: +wguide2 :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig +wguide2 = opc7 "wguide2" [(a, [a,x,x,k,k,k,k])] + +---------------------------------------------------- +-- ** FM Instrument Models + + +fmGen :: Name -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig +fmGen name = opc11 name [(a, ks 6 ++ is 6)] + + +-- | Uses FM synthesis to create a Hammond B3 organ sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer. +-- +-- > ares fmb3 kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, \ +-- > ifn4, ivfn +-- +-- doc: +fmb3 :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig + + +-- | Uses FM synthesis to create a tublar bell sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer. +-- +-- > ares fmbell kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, \ +-- > ifn4, ivfn[, isus] +-- +-- doc: +fmbell :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig + +-- | Uses FM synthesis to create a “Heavy Metal” sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer. +-- +-- > ares fmmetal kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, \ +-- > ifn4, ivfn +-- +-- doc: +fmmetal :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig + +-- | Uses FM synthesis to create a percussive flute sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer. +-- +-- > ares fmpercfl kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, \ +-- > ifn3, ifn4, ivfn +-- +-- doc: +fmpercfl :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig + +-- | Uses FM synthesis to create a Fender Rhodes electric piano sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer. +-- +-- > ares fmrhode kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, \ +-- > ifn3, ifn4, ivfn +-- +-- doc: + +fmrhode :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig + +-- | FM Singing Voice Synthesis +-- +-- > ares fmvoice kamp, kfreq, kvowel, ktilt, kvibamt, kvibrate, ifn1, \ +-- > ifn2, ifn3, ifn4, ivibfn +-- +-- doc: +fmvoice :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig + + +fmwurlie :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig + +fmb3 = fmGen "fmb3" +fmbell = fmGen "fmbell" +fmmetal = fmGen "fmmetal" +fmpercfl = fmGen "fmpercfl" +fmrhode = fmGen "fmrhode" +fmvoice = fmGen "fmvoice" +fmwurlie = fmGen "fmwurlie" + +-------------------------------------------------------------------- +-- PhISEM percussion opcodes. + +-- | bamboo is a semi-physical model of a bamboo sound. +-- +-- > ares bamboo kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \ +-- > [, ifreq1] [, ifreq2] +-- +-- doc: + +bamboo :: Sig -> D -> Sig +bamboo = opc2 "bamboo" [(a, k:is 7)] + +-- | cabasa is a semi-physical model of a cabasa sound. +-- +-- > ares cabasa iamp, idettack [, inum] [, idamp] [, imaxshake] +-- +-- doc: +cabasa :: D -> D -> Sig +cabasa = opc2 "cabasa" [(a, is 5)] + +-- | crunch is a semi-physical model of a crunch sound. +-- +-- > ares crunch iamp, idettack [, inum] [, idamp] [, imaxshake] +-- +-- doc: + +crunch :: D -> D -> Sig +crunch = opc2 "crunch" [(a, is 5)] + +-- | dripwater is a semi-physical model of a water drop. +-- +-- > ares dripwater kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \ +-- > [, ifreq1] [, ifreq2] +-- +-- doc: + +dripwater :: Sig -> D -> Sig +dripwater = opc2 "dripwater" [(a, k:is 7)] + +-- | guiro is a semi-physical model of a guiro sound. +-- +-- > ares guiro kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] [, ifreq1] +-- +-- doc: + +guiro :: Sig -> D -> Sig +guiro = opc2 "guiro" [(a, k:is 7)] + +-- | sandpaper is a semi-physical model of a sandpaper sound. +-- +-- > ares sandpaper iamp, idettack [, inum] [, idamp] [, imaxshake] +-- +-- doc: + +sandpaper :: D -> D -> Sig +sandpaper = opc2 "sandpaper" [(a, is 5)] + +-- | sekere is a semi-physical model of a sekere sound. +-- +-- > ares sekere iamp, idettack [, inum] [, idamp] [, imaxshake] +-- +-- doc: + +sekere :: D -> D -> Sig +sekere = opc2 "sekere" [(a, is 5)] + +-- | sleighbells is a semi-physical model of a sleighbell sound. +-- +-- > ares sleighbells kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \ +-- > [, ifreq1] [, ifreq2] +-- +-- doc: + +sleighbells :: Sig -> D -> Sig +sleighbells = opc2 "sleighbells" [(a, k:is 7)] + +-- | stix is a semi-physical model of a stick sound. +-- +-- > ares stix iamp, idettack [, inum] [, idamp] [, imaxshake] +-- +-- doc: + +stix :: D -> D -> Sig +stix = opc2 "stix" [(a, is 5)] + +-- | tambourine is a semi-physical model of a tambourine sound. +-- +-- > ares tambourine kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \ +-- > [, ifreq1] [, ifreq2] +-- +-- doc: +tambourine :: Sig -> D -> Sig +tambourine = opc2 "tambourine" [(a, k:is 7)] + +------------------------------------------------------------- +-- by Perry Cook + +-- | Audio output is a tone related to the striking of a cow bell or similar. +-- +-- > ares gogobel kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivfn +-- +-- doc: + +gogobel :: Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Tab -> Sig +gogobel = opc8 "gogobel" [(a, [k,k,i,i,i,k,k,i])] + + +-- | Audio output is a tone related to the striking of a wooden block as found in a marimba. +-- +-- > ares marimba kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivibfn, idec \ +-- > [, idoubles] [, itriples] +-- +-- doc: + +marimba :: Sig -> Sig -> D -> D -> Tab -> Sig -> Sig -> Tab -> D -> Sig +marimba = opc9 "marimba" [(a, [k,k,i,i,i,k,k,i,i,i,i])] + +-- | Audio output is a tone related to the shaking of a maraca or similar gourd instrument. +-- +-- > ares shaker kamp, kfreq, kbeans, kdamp, ktimes [, idecay] +-- +-- doc: + +shaker :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig +shaker = opc5 "shaker" [(a, ks 5 ++ [i])] + + +-- | Audio output is a tone related to the striking of a metal block as found in a vibraphone. +-- +-- > ares vibes kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivibfn, idec +-- +-- doc: + +vibes :: Sig -> Sig -> D -> D -> Tab -> Sig -> Sig -> Tab -> D -> Sig +vibes = opc9 "vibes" [(a, [k,k,i,i,i,k,k,i,i])] + +--------------------------------------------------------------- +-- other models + + +-- | Audio output is a tone similar to a struck metal bar, using a physical model developed from solving the partial +-- differential equation. There are controls over the boundary conditions as well as the bar characteristics. +-- +-- > ares barmodel kbcL, kbcR, iK, ib, kscan, iT30, ipos, ivel, iwid +-- +-- doc: +barmodel :: Sig -> Sig -> D -> D -> Sig -> D -> D -> D -> D -> Sig +barmodel = opc9 "barmodel" [(a, [k,k,i,i,k,i,i,i,i])] + +-- | An emulation of a mandolin. +-- +-- > ares mandol kamp, kfreq, kpluck, kdetune, kgain, ksize, ifn [, iminfreq] +-- +-- doc: + +mandol :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig +mandol = opc7 "mandol" [(a, ks 6 ++ is 2)] + + +-- | An emulation of a mini-Moog synthesizer. +-- +-- > ares moog kamp, kfreq, kfiltq, kfiltrate, kvibf, kvamp, iafn, iwfn, ivfn +-- +-- doc: + +moog :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Sig +moog = opc9 "moog" [(a, ks 6 ++ is 3)] + + +-- | An emulation of a human voice. +-- +-- > ares voice kamp, kfreq, kphoneme, kform, kvibf, kvamp, ifn, ivfn +-- +-- doc: + +voice :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Sig +voice = opc9 "voice" [(a, [k,k,k,k,k,k,k,i,i])] + + diff --git a/src/Csound/Opcode/Basic.hs b/src/Csound/Opcode/Basic.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Opcode/Basic.hs @@ -0,0 +1,992 @@ +-- | Basic signal processing +module Csound.Opcode.Basic( + ----------------------------------------------------- + -- * Global constants + idur, zeroDbfs, sampleRate, blockSize, + + ----------------------------------------------------- + -- * Oscillators and phasors + + -- ** Standard Oscillators + oscils, poscil, poscil3, oscil, oscili, oscil3, + + -- ** Dynamic Sprectrum Oscillators + buzz, gbuzz, mpulse, vco, vco2, + + -- ** Phasors + phasor, syncphasor, + + ----------------------------------------------------- + -- * Random and Noise generators + rand, randi, randh, rnd31, random, randomi, randomh, pinkish, noise, + + ----------------------------------------------------- + -- * Envelopes + linseg, expseg, linsegr, expsegr, + lpshold, loopseg, looptseg, + + ----------------------------------------------------- + -- * Delays + + -- ** Audio delays + vdelay, vdelayx, vdelayxw, + delayr, delayw, deltap, deltapi, deltap3, deltapx, deltapxw, + + -- ** Control delays + + ----------------------------------------------------- + -- * Filters + + -- ** Low Pass Filters + tone, butlp, + + -- ** High Pass Filters + atone, buthp, + + -- ** Band Pass And Resonant Filters + reson, butbp, + + -- ** Band Reject Filters + areson, butbr, + + -- ** Filters For Smoothing Control Signals + port, portk, + + -- ** Other filters + moogladder, vcomb, bqrez, comb, + + ----------------------------------------------------- + -- * Reverb + freeverb, reverbsc, reverb, nreverb, babo, + + ----------------------------------------------------- + -- * Signal Measurement, Dynamic Processing, Sample Level Operations + + -- ** Amplitude Measurement And Following + rms, balance, follow, follow2, peak, max_k, + + -- ** Pitch Estimation + ptrack, pitch, pitchamdf, tempest, + + -- ** Tempo Estimation + + -- ** Dynamic Processing + compress, dam, clip, + + -- ** Sample Level Operations + limit, samphold, vaget, vaset, + + ----------------------------------------------------- + -- * Spatialization + + -- ** Panning + pan, pan2, + + -- ** Binaural / HTRF + hrtfstat, hrtfmove, hrtfmove2, + + ----------------------------------------------------- + -- * Other + xtratim +) where + +import Csound.Exp +import Csound.Exp.Wrapper +import Csound.LowLevel + +-- | Reads @p3@-argument for the current instrument. +idur :: D +idur = p 3 + +-- | Reads @0dbfs@ value. +zeroDbfs :: D +zeroDbfs = (setRate Ir :: E -> D) $ readVar (VarVerbatim Ir "0dbfs") + +-- | Reads @sr@ value. +sampleRate :: D +sampleRate = (setRate Ir :: E -> I) $ readVar (VarVerbatim Ir "sr") + +-- | Reads @ksmps@ value. +blockSize :: D +blockSize = (setRate Ir :: E -> I) $ readVar (VarVerbatim Ir "ksmps") + +----------------------------------------------------- +-- Standard Oscillators + + +-- | Simple, fast sine oscillator, that uses only one multiply, and two add operations to generate one sample of output, and does not require a function table. +-- +-- > ares oscils iamp, icps, iphs [, iflg] +-- +-- doc: +oscils :: D -> D -> D -> Sig +oscils = opc3 "oscils" [(a, [i, i, i])] + +oscGen :: Name -> Sig -> Sig -> Tab -> Sig +oscGen name = opc3 name [ + (a, [x, x, i, i]), + (k, [k, k, i, i])] + +-- | oscil reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp. +-- +-- > ares oscil xamp, xcps, ifn [, iphs] +-- > kres oscil kamp, kcps, ifn [, iphs] +-- +-- doc: +oscil :: Sig -> Sig -> Tab -> Sig +oscil = oscGen "oscil" + +-- | oscili reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp. Linear interpolation is applied for table look up from internal phase values. +-- +-- > ares oscili xamp, xcps, ifn [, iphs] +-- > kres oscili kamp, kcps, ifn [, iphs] +-- +-- doc: +oscili :: Sig -> Sig -> Tab -> Sig +oscili = oscGen "oscili" + +-- | oscil3 reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp. Cubic interpolation is applied for table look up from internal phase values. +-- +-- > ares oscil3 xamp, xcps, ifn [, iphs] +-- > kres oscil3 kamp, kcps, ifn [, iphs] +-- +-- doc: + +oscil3 :: Sig -> Sig -> Tab -> Sig +oscil3 = oscGen "oscil3" + +-- | High precision oscillator. +-- +-- > ares poscil xamp, xcps, ifn [, iphs] +-- > kres poscil kamp, kcps, ifn [, iphs] +-- +-- doc: + +poscil :: Sig -> Sig -> Tab -> Sig +poscil = oscGen "poscil" + +-- | High precision oscillator with cubic interpolation. +-- +-- > ares poscil3 xamp, xcps, ifn [, iphs] +-- > kres poscil3 kamp, kcps, ifn [, iphs] +-- +-- doc: + +poscil3 :: Sig -> Sig -> Tab -> Sig +poscil3 = oscGen "poscil3" + +----------------------------------------------------- +-- Dynamic Sprectrum Oscillators + +-- buzz, gbuzz, mpulse, vco, vco2 + +-- | Output is a set of harmonically related sine partials. +-- +-- > ares buzz xamp, xcps, knh, ifn [, iphs] +-- +-- doc: + +buzz :: Sig -> Sig -> Sig -> Tab -> Sig +buzz = opc4 "buzz" [(a, [x, x, k, i, i])] + +-- | Output is a set of harmonically related cosine partials. +-- +-- > ares gbuzz xamp, xcps, knh, klh, kmul, ifn [, iphs] +-- +-- doc: + +gbuzz :: Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig +gbuzz = opc6 "gbuzz" [(a, [x, x, k, k, k, i, i])] + +-- | Generates a set of impulses of amplitude kamp separated by kintvl seconds (or samples if kintvl is negative). The first impulse is generated after a delay of ioffset seconds. +-- +-- > ares mpulse kamp, kintvl [, ioffset] +-- +-- doc: + +mpulse :: Sig -> Sig -> Sig +mpulse = opc2 "mpulse" [(a, [k, k, i])] + +-- | Implementation of a band limited, analog modeled oscillator, based on integration of band limited impulses. vco can be used to simulate a variety of analog wave forms. +-- +-- > ares vco xamp, xcps, iwave, kpw [, ifn] [, imaxd] [, ileak] [, inyx] \ +-- > [, iphs] [, iskip] +-- +-- doc: + +vco :: Sig -> Sig -> I -> Sig -> Sig +vco = opc4 "vco" [(a, [x, x, i, k] ++ is 6)] + +-- | vco2 is similar to vco. But the implementation uses pre-calculated tables of band-limited waveforms (see also GEN30) +-- rather than integrating impulses. This opcode can be faster than vco (especially if a low control-rate is used) and also +-- allows better sound quality. Additionally, there are more waveforms and oscillator phase can be modulated at k-rate. +-- The disadvantage is increased memory usage. For more details about vco2 tables, see also vco2init and vco2ft. +-- +-- > ares vco2 kamp, kcps [, imode] [, kpw] [, kphs] [, inyx] +-- +-- doc: + +vco2 :: Sig -> Sig -> Sig +vco2 = opc2 "vco2" [(a, [k, k, i, k, k, i])] + + +----------------------------------------------------- +-- Phasors + +-- | Produce a normalized moving phase value. +-- +-- > ares phasor xcps [, iphs] +-- > kres phasor kcps [, iphs] +-- +-- doc: + +phasor :: Sig -> Sig +phasor = opc1 "phasor" [ + (a, [x, i]), + (k, [x, i])] + +-- | Produces a moving phase value between zero and one and an extra impulse output ("sync out") whenever its phase value +-- crosses or is reset to zero. The phase can be reset at any time by an impulse on the "sync in" parameter. +-- +-- > aphase, asyncout syncphasor xcps, asyncin, [, iphs] +-- +-- doc: + +syncphasor :: Sig -> Sig -> (Sig, Sig) +syncphasor = mopc2 "syncphasor" ([a, a], [x, a, i]) + + +----------------------------------------------------- +-- Random + +-- | Output is a controlled random number series between -amp and +amp +-- +-- > ares rand xamp [, iseed] [, isel] [, ioffset] +-- > kres rand xamp [, iseed] [, isel] [, ioffset] +-- +-- doc: + +rand :: Sig -> SE Sig +rand sig = se $ opc1 "rand" [ + (a, x:rest), + (k, k:rest)] sig + where rest = is 3 + +-- | Generates a controlled random number series with interpolation between each new number. +-- +-- > ares randi xamp, xcps [, iseed] [, isize] [, ioffset] +-- > kres randi kamp, kcps [, iseed] [, isize] [, ioffset] +-- +-- doc: + +randi :: Sig -> Sig -> SE Sig +randi = randiGen "randi" + +-- | Generates random numbers and holds them for a period of time. +-- +-- > ares randh xamp, xcps [, iseed] [, isize] [, ioffset] +-- > kres randh kamp, kcps [, iseed] [, isize] [, ioffset] +-- +-- doc: + +randh :: Sig -> Sig -> SE Sig +randh = randiGen "randh" + +randiGen :: Name -> Sig -> Sig -> SE Sig +randiGen name a1 a2 = se $ opc2 name [ + (a, x:x:rest), + (k, k:k:rest)] a1 a2 + where rest = is 3 + +-- | 31-bit bipolar random opcodes with controllable distribution. These units are portable, i.e. using the same seed +-- value will generate the same random sequence on all systems. The distribution of --generated random numbers can be varied at k-rate. +-- +-- > ax rnd31 kscl, krpow [, iseed] +-- > ix rnd31 iscl, irpow [, iseed] +-- > kx rnd31 kscl, krpow [, iseed] +-- +-- doc: + +rnd31 :: Sig -> Sig -> SE Sig +rnd31 a1 a2 = se $ opc2 "rnd31" [ + (a, [k, k, i]), + (k, [k, k, i]), + (i, [i, i, i])] a1 a2 + +-- | Generates is a controlled pseudo-random number series between min and max values. +-- +-- > ax random kscl, krpow +-- > ix random iscl, irpow +-- > kx random kscl, krpow +-- +-- doc: + +random :: Sig -> Sig -> SE Sig +random a1 a2 = se $ opc2 "random" [ + (a, [k, k]), + (k, [k, k]), + (i, [i, i])] a1 a2 + +-- | Generates a user-controlled random number series with interpolation between each new number. +-- +-- > ares randomi kmin, kmax, xcps [,imode] [,ifirstval] +-- > kres randomi kmin, kmax, kcps [,imode] [,ifirstval] +-- +-- doc: +randomi :: Sig -> Sig -> Sig -> SE Sig +randomi a1 a2 a3 = se $ opc3 "randomi" [ + (a, [k, k, x, i, i]), + (k, [k, k, k, i, i])] a1 a2 a3 + +-- | Generates random numbers with a user-defined limit and holds them for a period of time. +-- +-- > ares randomh kmin, kmax, xcps [,imode] [,ifirstval] +-- > kres randomh kmin, kmax, kcps [,imode] [,ifirstval] +-- +-- doc: + +randomh :: Sig -> Sig -> Sig -> SE Sig +randomh a1 a2 a3 = se $ opc3 "randomh" [ + (a, [k, k, x, i, i]), + (k, [k, k, k, i, i])] a1 a2 a3 + +-- | Generates approximate pink noise (-3dB/oct response) by one of two different methods: +-- +-- * a multirate noise generator after Moore, coded by Martin Gardner +-- +-- * a filter bank designed by Paul Kellet +-- +-- > ares pinkish xin [, imethod] [, inumbands] [, iseed] [, iskip] +-- +-- doc: + +pinkish :: Sig -> SE Sig +pinkish a1 = se $ opc1 "pinkish" [(a, x: replicate 4 i)] a1 + +-- | Unsafe version of the 'pinkish' opcode. Unsafe means that there can be possible alias +-- on the expression level. Two expressions with the same arguments can be unexpectedly +-- rendered as the same expression within one instrument. + +pinkish' :: Sig -> Sig +pinkish' = opc1 "pinkish" [(a, x: replicate 4 i)] + +-- | A white noise generator with an IIR lowpass filter. +-- +-- > ares noise xamp, kbeta +-- +-- doc: + +noise :: Sig -> Sig -> SE Sig +noise a1 a2 = se $ opc2 "noise" [(a, [x, k])] a1 a2 + +-- | Unsafe version of the 'noise' opcode. Unsafe means that there can be possible alias +-- on the expression level. Two expressions with the same arguments can be unexpectedly +-- rendered as the same expression within one instrument. + +noise' :: Sig -> Sig -> Sig +noise' = opc2 "noise" [(a, [x, k])] + +-------------------------------------------------- +-- envelopes + +-- | Trace a series of line segments between specified points. +-- +-- > ares linseg ia, idur1, ib [, idur2] [, ic] [...] +-- > kres linseg ia, idur1, ib [, idur2] [, ic] [...] +-- +-- doc: +linseg :: [D] -> Sig +linseg = opcs "linseg" [ + (a, repeat i), + (k, repeat i)] + +-- | Trace a series of line segments between specified points including a release segment. +-- +-- > ares linsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz +-- > kres linsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz +-- +-- doc: + +linsegr :: [D] -> D -> D -> Sig +linsegr xs relDur relVal = opcs "linsegr" ([ + (a, repeat i), + (k, repeat i)]) (xs ++ [relDur, relVal]) + + +-- | Trace a series of exponential segments between specified points. +-- +-- > ares expseg ia, idur1, ib [, idur2] [, ic] [...] +-- > kres expseg ia, idur1, ib [, idur2] [, ic] [...] +-- +-- doc: + +expseg :: [D] -> Sig +expseg = opcs "expseg" [ + (a, repeat i), + (k, repeat i)] + +-- | Trace a series of exponential segments between specified points including a release segment. +-- +-- > ares expsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz +-- > kres expsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz +-- +-- doc: + +expsegr :: [D] -> D -> D -> Sig +expsegr xs relDur relVal = opcs "expsegr" ([ + (a, repeat i), + (k, repeat i)]) (xs ++ [relDur, relVal]) + +-- | Generate control signal consisting of held segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate. +-- +-- > ksig lpshold kfreq, ktrig, ktime0, kvalue0 [, ktime1] [, kvalue1] \ +-- > [, ktime2] [, kvalue2] [...] +-- +-- doc: + +lpshold :: Sig -> Sig -> [Sig] -> Sig +lpshold = mkLps "lpshold" + +-- | Generate control signal consisting of linear segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate. +-- +-- > ksig loopseg kfreq, ktrig, iphase, ktime0, kvalue0 [, ktime1] [, kvalue1] \ +-- > [, ktime2] [, kvalue2] [...] +-- +-- doc: + +loopseg :: Sig -> Sig -> [Sig] -> Sig +loopseg = mkLps "loopseg" + +-- | Generate control signal consisting of controllable exponential segments or linear segments delimited by two or more specified points. +-- The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate. +-- +-- > ksig looptseg kfreq, ktrig, ktime0, kvalue0, ktype0, [, ktime1] [, kvalue1] [,ktype1] \ +-- > [, ktime2] [, kvalue2] [,ktype2] [...][, ktimeN] [, kvalueN] +-- +-- doc: + +looptseg :: Sig -> Sig -> [Sig] -> Sig +looptseg = mkLps "looptseg" + +mkLps :: Name -> Sig -> Sig -> [Sig] -> Sig +mkLps name kfreq ktrig kvals = opcs name signature $ kfreq:ktrig:kvals + where signature = [(k, repeat k)] + +---------------------------------------------------- +-- audio delays + +-- | This is an interpolating variable time delay, it is not very different from the existing implementation (deltapi), it is only easier to use. +-- +-- > ares vdelay asig, adel, imaxdel [, iskip] +-- +-- doc: +vdelay :: Sig -> Sig -> D -> Sig +vdelay = opc3 "vdelay" [(a, [a, a, i, i])] + +-- | A variable delay opcode with high quality interpolation. +-- +-- > aout vdelayx ain, adl, imd, iws [, ist] +-- +-- doc: +vdelayx :: Sig -> Sig -> D -> D -> Sig +vdelayx = opc4 "vdelayx" [(a, [a, a, i, i, i])] + +-- | Variable delay opcodes with high quality interpolation. +-- +-- aout vdelayxw ain, adl, imd, iws [, ist] +-- +-- doc: +vdelayxw :: Sig -> Sig -> D -> D -> Sig +vdelayxw = opc4 "vdelayxw" [(a, [a, a, i, i, i])] + +---------------------------------------------------- +-- delay lines + +-- | Reads from an automatically established digital delay line. +-- +-- > ares delayr idlt [, iskip] +-- +-- doc: +delayr :: D -> SE Sig +delayr a1 = se $ opc1 "delayr" [(a, [i])] a1 + +-- | Writes the audio signal to a digital delay line. +-- +-- > delayw asig +-- +-- doc: +delayw :: Sig -> SE () +delayw a1 = se_ $ opc1 "delayw" [(x, [a])] a1 + +-- | Tap a delay line at variable offset times. +-- +-- > ares deltap kdlt +-- +-- doc: +deltap :: Sig -> SE Sig +deltap a1 = se $ opc1 "deltap" [(a, [k])] a1 + +-- | Taps a delay line at variable offset times, uses interpolation. +-- +-- > ares deltapi xdlt +-- +-- doc: +deltapi :: Sig -> SE Sig +deltapi a1 = se $ opc1 "deltapi" [(a, [x])] a1 + +-- | Taps a delay line at variable offset times, uses cubic interpolation. +-- +-- > ares deltap3 xdlt +-- +-- doc: +deltap3 :: Sig -> SE Sig +deltap3 a1 = se $ opc1 "deltap3" [(a, [x])] a1 + +-- | deltapx is similar to deltapi or deltap3. However, it allows higher quality interpolation. This opcode can read from and write to a delayr/delayw delay line with interpolation. +-- +-- > aout deltapx adel, iwsize +-- +-- doc: +deltapx :: Sig -> D -> SE Sig +deltapx a1 a2 = se $ opc2 "deltapx" [(a, [a, i])] a1 a2 + +-- | deltapxw mixes the input signal to a delay line. This opcode can be mixed with reading units +-- (deltap, deltapn, deltapi, deltap3, and deltapx) in any order; the actual delay time is the difference of +-- the read and write time. This opcode can read from and write to a delayr/delayw delay line with interpolation. +-- +-- > deltapxw ain, adel, iwsize +-- +-- doc: +deltapxw :: Sig -> Sig -> D -> SE () +deltapxw a1 a2 a3 = se_ $ opc3 "deltapxw" [(x, [a, a, i])] a1 a2 a3 + +--------------------------------------------------- +-- filters + +filterSignature1 = [(a, [a, k, i])] +mkFilter1 name = opc2 name filterSignature1 + +filterSignature2 = [(a, [a, k, k, i])] +mkFilter2 name = opc3 name filterSignature2 + + +-- | A first-order recursive low-pass filter with variable frequency response. +-- +-- tone is a 1 term IIR filter. Its formula is: +-- +-- > yn = c1 * xn + c2 * yn-1 +-- +-- where +-- +-- * b = 2 - cos(2 π hp/sr); +-- +-- * c2 = b - sqrt(b2 - 1.0) +-- +-- * c1 = 1 - c2 +-- +-- > ares tone asig, khp [, iskip] +-- +-- doc: + +tone :: Sig -> Sig -> Sig + +-- | A hi-pass filter whose transfer functions are the complements of the tone opcode. +-- +-- > ares atone asig, khp [, iskip] +-- +-- doc: +atone :: Sig -> Sig -> Sig + +-- | Implementation of a second-order low-pass Butterworth filter. +-- +-- > ares butlp asig, kfreq [, iskip] +-- +-- doc: +butlp :: Sig -> Sig -> Sig + +-- | Implementation of second-order high-pass Butterworth filter. +-- +-- > ares buthp asig, kfreq [, iskip] +-- +-- doc: + +buthp :: Sig -> Sig -> Sig + +-- | A second-order resonant filter. +-- +-- > ares reson asig, kcf, kbw [, iscl] [, iskip] +-- +-- doc: + +reson :: Sig -> Sig -> Sig -> Sig + +-- | A notch filter whose transfer functions are the complements of the reson opcode. +-- +-- > ares areson asig, kcf, kbw [, iscl] [, iskip] +-- +-- doc: + +areson :: Sig -> Sig -> Sig -> Sig + +-- | Implementation of a second-order band-pass Butterworth filter. +-- +-- > ares butbp asig, kfreq, kband [, iskip] +-- +-- doc: +butbp :: Sig -> Sig -> Sig -> Sig + +-- | Implementation of a second-order band-reject Butterworth filter. +-- +-- > ares butbr asig, kfreq, kband [, iskip] +-- +-- doc: +butbr :: Sig -> Sig -> Sig -> Sig + +-- | Moogladder is an new digital implementation of the Moog ladder filter based on the work of +-- Antti Huovilainen, described in the paper "Non-Linear Digital Implementation of the Moog Ladder Filter" (Proceedings of DaFX04, Univ of Napoli). +-- This implementation is probably a more accurate digital representation of the original analogue filter. +-- +-- > asig moogladder ain, kcf, kres[, istor] +-- +-- doc: +moogladder :: Sig -> Sig -> Sig -> Sig + +tone = mkFilter1 "tone" +atone = mkFilter1 "atone" +butlp = mkFilter1 "butlp" +buthp = mkFilter1 "buthp" + +reson = mkFilter2 "reson" +areson = mkFilter2 "areson" +butbp = mkFilter2 "butbp" +butbr = mkFilter2 "butbr" +moogladder = mkFilter2 "moogladder" + +-- | Variably reverberates an input signal with a “colored” frequency response. +-- +-- > ares vcomb asig, krvt, xlpt, imaxlpt [, iskip] [, insmps] +-- +-- doc: +vcomb :: Sig -> Sig -> Sig -> D -> Sig +vcomb = opc4 "vcomb" [(a, [a, k, x, i, i, i])] + +-- | A second-order multi-mode filter. +-- +-- > ares bqrez asig, xfco, xres [, imode] [, iskip] +-- +-- doc: +bqrez :: Sig -> Sig -> Sig -> Sig +bqrez = opc3 "bqrez" [(a, [a, x, x, i, i])] + +-- | Reverberates an input signal with a “colored” frequency response. +-- +-- > ares comb asig, krvt, ilpt [, iskip] [, insmps] +-- +-- doc: +comb :: Sig -> Sig -> D -> Sig +comb = opc3 "comb" [(a, [a, k, i, i, i])] + +-- | Applies portamento to a step-valued control signal. +-- +-- > kres port ksig, ihtim [, isig] +-- +-- doc: +port :: Sig -> D -> Sig +port = opc2 "port" [(k, [k, i, i])] + +-- | Applies portamento to a step-valued control signal. +-- +-- > kres portk ksig, khtim [, isig] +-- +-- doc: +portk :: Sig -> Sig -> Sig +portk = opc2 "portk" [(k, [k, k, i])] + +--------------------------------------------------- +-- reverberation + +-- | 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. +-- +-- > aoutL, aoutR freeverb ainL, ainR, kRoomSize, kHFDamp[, iSRate[, iSkip]] +-- +-- doc: +freeverb :: Sig -> Sig -> Sig -> Sig -> (Sig, Sig) +freeverb = mopc4 "freeverb" ([a, a], [a, a, k, k, i, i]) + +-- | 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. +-- +-- > aoutL, aoutR reverbsc ainL, ainR, kfblvl, kfco[, israte[, ipitchm[, iskip]]] +-- +-- doc: +reverbsc :: Sig -> Sig -> Sig -> Sig -> (Sig, Sig) +reverbsc = mopc4 "reverbsc" ([a, a], [a, a, k, k, i, i, i]) + +-- | Reverberates an input signal with a “natural room” frequency response. +-- +-- > ares reverb asig, krvt [, iskip] +-- +-- doc: +reverb :: Sig -> Sig -> Sig +reverb = opc2 "reverb" [(a, [a, k, i])] + +-- | 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. +-- +-- > ares nreverb asig, ktime, khdif [, iskip] [,inumCombs] [, ifnCombs] \ +-- > [, inumAlpas] [, ifnAlpas] +-- +-- doc: +nreverb :: Sig -> Sig -> Sig -> Sig +nreverb = opc3 "nreverb" [(a, [a, k, k] ++ is 5)] + +-- | 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. +-- +-- The resonator geometry can be defined, along with some response characteristics, the position of the listener within the resonator, and the position of the sound source. +-- +-- > a1, a2 babo asig, ksrcx, ksrcy, ksrcz, irx, iry, irz [, idiff] [, ifno] +-- +-- doc: +babo :: Sig -> Sig -> Sig -> Sig -> D -> D -> D -> (Sig, Sig) +babo = mopc7 "babo" ([a, a], [a, k, k, k] ++ is 5) + +--------------------------------------------------- +-- Amplitude Measurement And Following + +-- | Determines the root-mean-square amplitude of an audio signal. It low-pass filters the actual value, to average in the manner of a VU meter. +-- +-- > kres rms asig [, ihp] [, iskip] +-- +-- doc: +rms :: Sig -> Sig +rms = opc1 "rms" [(k, [a, i, i])] + +-- | The rms power of asig can be interrogated, set, or adjusted to match that of a comparator signal. +-- +-- > ares balance asig, acomp [, ihp] [, iskip] +-- +-- doc: +balance :: Sig -> Sig -> Sig +balance = opc2 "balance" [(a, [a, a, i, i])] + +-- | Envelope follower unit generator. +-- +-- > ares follow asig, idt +-- +-- doc: +follow :: Sig -> D -> Sig +follow = opc2 "follow" [(a, [a, i])] + +-- | A controllable envelope extractor using the algorithm attributed to Jean-Marc Jot. +-- +-- > ares follow2 asig, katt, krel +-- +-- doc: +follow2 :: Sig -> Sig -> Sig -> Sig +follow2 = opc3 "follow2" [(a, [a, k, k])] + +-- | These opcodes maintain the output k-rate variable as the peak absolute level so far received. +-- +-- > kres peak asig +-- > kres peak ksig +-- +-- doc: +peak :: Sig -> Sig +peak = opc1 "peak" [(k, [x])] + +-- | max_k outputs the local maximum (or minimum) value of the incoming asig signal, checked in the time interval between ktrig has become true twice. +-- +-- > knumkout max_k asig, ktrig, itype +-- +-- doc: +max_k :: Sig -> Sig -> I -> Sig +max_k = opc3 "max_k" [(k, [a, k, i])] + +------------------------------------------------- +-- Pitch Estimation + +-- | ptrack takes an input signal, splits it into ihopsize blocks and using a STFT method, extracts an estimated +-- pitch for its fundamental frequency as well as estimating the total amplitude of the signal in dB, relative to +-- full-scale (0dB). The method implies an analysis window size of 2*ihopsize samples (overlaping by 1/2 window), which +-- has to be a power-of-two, between 128 and 8192 (hopsizes between 64 and 4096). Smaller windows will give better time +-- precision, but worse frequency accuracy (esp. in low fundamentals).This opcode is based on an original algorithm by M. Puckette. +-- +-- > kcps, kamp ptrack asig, ihopsize[,ipeaks] +-- +-- doc: +ptrack :: Sig -> D -> (Sig, Sig) +ptrack = mopc2 "ptrack" ([k, k], [a, i, i]) + +-- | Using the same techniques as spectrum and specptrk, pitch tracks the pitch of the signal in octave point decimal form, and amplitude in dB. +-- +-- > koct, kamp pitch asig, iupdte, ilo, ihi, idbthresh [, ifrqs] [, iconf] \ +-- > [, istrt] [, iocts] [, iq] [, inptls] [, irolloff] [, iskip] +-- +-- doc: +pitch :: Sig -> D -> D -> D -> D -> (Sig, Sig) +pitch = mopc5 "pitch" ([k, k], a:is 12) + +-- | Follows the pitch of a signal based on the AMDF method (Average Magnitude Difference Function). Outputs pitch and amplitude +-- tracking signals. The method is quite fast and should run in realtime. This technique usually works best for monophonic signals. +-- +-- > kcps, krms pitchamdf asig, imincps, imaxcps [, icps] [, imedi] \ +-- > [, idowns] [, iexcps] [, irmsmedi] +-- +-- doc: +pitchamdf :: Sig -> D -> D -> (Sig, Sig) +pitchamdf = mopc3 "pitchamdf" ([k, k], a:is 8) + +-- | Estimate the tempo of beat patterns in a control signal. +-- +-- > ktemp tempest kin, iprd, imindur, imemdur, ihp, ithresh, ihtim, ixfdbak, \ +-- > istartempo, ifn [, idisprd] [, itweek] +-- +-- doc: +tempest :: Sig -> D -> D -> D -> D -> D -> D -> D -> D -> Tab -> Sig +tempest = opc10 "tempest" [(k, k:is 11)] + +------------------------------------------------- +-- Dynamic Processing + +-- | This unit functions as an audio compressor, limiter, expander, or noise gate, using either soft-knee or hard-knee +-- mapping, and with dynamically variable performance characteristics. It takes two audio input signals, aasig and acsig, +-- the first of which is modified by a running analysis of the second. Both signals can be the same, or the first can be +-- modified by a different controlling signal. +-- +-- compress first examines the controlling acsig by performing envelope detection. This is directed by two control +-- values katt and krel, defining the attack and release time constants (in seconds) of the detector. The detector +-- rides the peaks (not the RMS) of the control signal. Typical values are .01 and .1, the latter usually being similar +-- to ilook. +-- +-- The running envelope is next converted to decibels, then passed through a mapping function to determine what compresser +-- action (if any) should be taken. The mapping function is defined by four decibel control values. These are given as +-- positive values, where 0 db corresponds to an amplitude of 1, and 90 db corresponds to an amplitude of 32768. +-- +-- > ar compress aasig, acsig, kthresh, kloknee, khiknee, kratio, katt, krel, ilook +-- +-- doc: +compress :: Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Sig +compress = opc9 "compress" [(a, [a, a, k, k, k, k, k, k, i])] + +-- | This opcode dynamically modifies a gain value applied to the input sound ain by comparing its power level to a given +-- threshold level. The signal will be compressed/expanded with different factors regarding that it is over or under the threshold. +-- +-- > ares dam asig, kthreshold, icomp1, icomp2, irtime, iftime +-- +-- doc: +dam :: Sig -> Sig -> D -> D -> D -> D -> Sig +dam = opc6 "dam" [(a, a:k:is 4)] + +-- | Clips an a-rate signal to a predefined limit, in a “soft” manner, using one of three methods. +-- +-- > ares clip asig, imeth, ilimit [, iarg] +-- +-- doc: +clip :: Sig -> I -> D -> Sig +clip = opc3 "clip" [(a, [a, i, i])] + +------------------------------------------------- +-- Sample Level Operations + +-- | Sets the lower and upper limits of the value it processes. +-- +-- > ares limit asig, klow, khigh +-- > ires limit isig, ilow, ihigh +-- > kres limit ksig, klow, khigh +-- +-- doc: +limit :: Sig -> Sig -> Sig -> Sig +limit = opc3 "limit" [ + (a, [a, k, k]), + (k, [k, k, k]), + (i, [i, i, i])] + +-- | Performs a sample-and-hold operation on its input. +-- +-- > ares samphold asig, agate [, ival] [, ivstor] +-- > kres samphold ksig, kgate [, ival] [, ivstor] +-- +-- doc: +samphold :: Sig -> Sig -> Sig +samphold = opc2 "samphold" [ + (a, [a, a, i, i]), + (k, [k, k, i, i])] + +-- | Access values of the current buffer of an a-rate variable by indexing. Useful for doing sample-by-sample manipulation at k-rate without using setksmps 1. +-- +-- > kval vaget kndx, avar +-- +-- doc: +vaget :: Sig -> Sig -> Sig +vaget = opc2 "vaget" [(k, [k, a])] + +-- | Write values into the current buffer of an a-rate variable at the given index. Useful for doing sample-by-sample manipulation at k-rate without using setksmps 1. +-- +-- > vaset kval, kndx, avar +-- +-- doc: +vaset :: Sig -> Sig -> Sig -> SE () +vaset a1 a2 a3 = se_ $ opc3 "vaset" [(x, [k, k, a])] a1 a2 a3 + +--------------------------------------------------- +-- panning + +-- | Distribute an audio signal amongst four channels with localization control. +-- +-- > a1, a2, a3, a4 pan asig, kx, ky, ifn [, imode] [, ioffset] +-- +-- doc: +pan :: Sig -> Sig -> Sig -> Tab -> (Sig, Sig, Sig, Sig) +pan = mopc4 "pan" ([a, a, a, a], [a, k, k, i, i, i]) + +-- | Distribute an audio signal across two channels with a choice of methods. +-- +-- > a1, a2 pan2 asig, xp [, imode] +-- +-- doc: +pan2 :: Sig -> Sig -> (Sig, Sig) +pan2 = mopc2 "pan2" ([a, a], [a, x, i]) + + +-- HRTF + +-- | This opcode takes a source signal and spatialises it in the 3 dimensional space around a listener using head related +-- transfer function (HRTF) based filters. It produces a static output (azimuth and elevation parameters are i-rate), +-- because a static source allows much more efficient processing than hrtfmove and hrtfmove2,. +-- +-- > aleft, aright hrtfstat asrc, iAz, iElev, ifilel, ifiler [,iradius, isr] +-- +-- doc: +hrtfstat :: Sig -> D -> D -> Str -> Str -> (Sig, Sig) +hrtfstat = mopc5 "hrtfstat" ([a, a], a:s:i:i:s:is 2) + +-- | This opcode takes a source signal and spatialises it in the 3 dimensional space around a listener by convolving the source with stored head related transfer function (HRTF) based filters. +-- +-- > aleft, aright hrtfmove asrc, kAz, kElev, ifilel, ifiler [, imode, ifade, isr] +-- +-- doc: +hrtfmove :: Sig -> Sig -> Sig -> Str -> Str -> (Sig, Sig) +hrtfmove = mopc5 "hrtfmove" ([a, a], a:k:k:s:s:is 3) + +-- | This opcode takes a source signal and spatialises it in the 3 dimensional space around a listener using head related transfer function (HRTF) based filters. +-- +-- > aleft, aright hrtfmove2 asrc, kAz, kElev, ifilel, ifiler [,ioverlap, iradius, isr] +-- +-- doc: +hrtfmove2 :: Sig -> Sig -> Sig -> Str -> Str -> (Sig, Sig) +hrtfmove2 = mopc5 "hrtfmove2" ([a, a], a:k:k:s:s:is 3) + +-------------------------------------------------------------------------- +-- Other opcodes + +-- | Extend the duration of real-time generated events and handle their extra life (Usually for usage along with release instead of linenr, linsegr, etc). +-- +-- > xtratim iextradur +-- +-- doc: +xtratim :: D -> SE () +xtratim a1 = se_ $ opc1 "xtratim" [(x, [i])] a1 + diff --git a/src/Csound/Opcode/Data.hs b/src/Csound/Opcode/Data.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Opcode/Data.hs @@ -0,0 +1,551 @@ +-- | Data +module Csound.Opcode.Data ( + + ----------------------------------------------------- + -- * Buffer and Function tables + + -- ** Creating Function Tables (Buffers) + gen, skipNorm, + + -- ** Handy shortcuts + + -- | The table size is set to: + -- + -- > low = 4096 + -- > mid = 8192 + -- > high = 16384 + -- > higher = 65536 + -- + -- genXxx1 means that the size is set to @Xxx + 1@. + genLow, genMid, genHigh, genHigher, + genLow1, genMid1, genHigh1, genHigher1, + + {- + -- ** Writing To Tables + tableiw, tablew, tabw_i, tabw, + -} + + -- ** Reading From Tables + table, tablei, table3, tab_i, tab, + + ----------------------------------------------------- + -- * Signal Input and Output, Sample and Loop Playback, Soundfonts + + -- ** Signal Input And Output + inch, outch, + + -- ** Sample Playback With Optional Looping + flooper2, sndloop, + + ----------------------------------------------------- + -- * File Input and Output + + -- ** Sound File Input + soundin, diskin2, mp3in, + + -- ** Sound File Queries + filelen, filesr, filenchnls, filepeak, filebit, + + -- ** Sound File Output + fout, + + -- ** Non-Soundfile Input And Output + + ----------------------------------------------------- + -- * Converters of Data Types + Nums, + + -- ** Rate conversions + downsamp, upsamp, interp, + + -- ** Amplitude conversions + ampdb, ampdbfs, dbamp, dbfsamp, + + -- ** Pitch conversions + cpspch, + + ----------------------------------------------------- + -- * Printing and Strings + + -- ** Simple Printing + printi, printk, + + -- ** Formatted Printing + + -- ** String Variables + sprintf, sprintfk, + + -- ** String Manipulation And Conversion + strcat, strcatk + +) where + +import Csound.Exp +import Csound.Exp.Wrapper +import Csound.LowLevel + +----------------------------------------------------- +-- * Buffer and Function tables + +-- ** Creating Function Tables (Buffers) + +-- | Creates a table of doubles (It's f-table in Csound). +-- Arguments are: +-- +-- * table size +-- +-- * identificator of the GEN routine +-- +-- * GEN routine arguments +-- +-- All tables are created at 0 and memory is never released. +gen :: Int -> Int -> [Double] -> Tab +gen = Tab + +low = 4096 +mid = 8192 +high = 16384 +higher = 65536 + +genLow, genMid, genHigh, genHigher, genLow1, genMid1, genHigh1, genHigher1 :: Int -> [Double] -> Tab + +genLow = gen low +genMid = gen mid +genHigh = gen high +genHigher = gen higher + +genLow1 = gen (low + 1) +genMid1 = gen (mid + 1) +genHigh1 = gen (high + 1) +genHigher1 = gen (higher + 1) + +-- | Skips normalization (sets table size to negative value) +skipNorm :: Tab -> Tab +skipNorm (Tab size name args) = Tab (negate $ abs size) name args + +{- +-- ** Writing To Tables + +-- | This opcode operates on existing function tables, changing their contents. tablew is for writing +-- at k- or at a-rates, with the table number being specified at init time. Using tablew with i-rate signal +-- and index values is allowed, but the specified data will always be written to the function table at k-rate, +-- not during the initialization pass. The valid combinations of variable types are shown by the first letter of the variable names. +-- +-- > tablew asig, andx, ifn [, ixmode] [, ixoff] [, iwgmode] +-- > tablew isig, indx, ifn [, ixmode] [, ixoff] [, iwgmode] +-- > tablew ksig, kndx, ifn [, ixmode] [, ixoff] [, iwgmode] +-- +-- doc: +tablew :: Sig -> Sig -> Tab -> SE () +tablew a1 a2 a3 = se_ $ opc3 "tablew" (map sign [a, k, i]) a1 a2 a3 + where sign t = (x, t:t:is 4) + +-- | This opcode operates on existing function tables, changing their contents. tableiw is +-- used when all inputs are init time variables or constants and you only want to run it at +-- the initialization of the instrument. The valid combinations of variable types are shown by the first letter of the variable names. +-- +-- > tableiw isig, indx, ifn [, ixmode] [, ixoff] [, iwgmode] +-- +-- doc: +tableiw :: D -> D -> Tab -> SE () +tableiw a1 a2 a3 = se_ $ opc3 "tableiw" [(i, is 6)] a1 a2 a3 + +-- | Fast table opcodes. Faster than table and tablew because don't allow wrap-around +-- and limit and don't check index validity. Have been implemented in order to provide +-- fast access to arrays. Support non-power of two tables (can be generated by any GEN function by giving a negative length value). +-- +-- > tabw ksig, kndx, ifn [,ixmode] +-- > tabw asig, andx, ifn [,ixmode] +-- +-- doc: +tabw :: Sig -> Sig -> Tab -> SE () +tabw a1 a2 a3 = se_ $ opc3 "tabw" (map sign [a, k]) a1 a2 a3 + where sign t = (x, t:t:is 2) + +-- | Fast table opcodes. Faster than table and tablew because don't allow wrap-around +-- and limit and don't check index validity. Have been implemented in order to provide +-- fast access to arrays. Support non-power of two tables (can be generated by any GEN function by giving a negative length value). +-- +-- > tabw_i isig, indx, ifn [,ixmode] +-- +-- doc: +tabw_i :: D -> D -> Tab -> SE () +tabw_i a1 a2 a3 = se_ $ opc3 "tabw_i" [(x, is 4)] a1 a2 a3 +-} + +-- ** Reading From Tables + +-- | Accesses table values by direct indexing. +-- +-- > ares table andx, ifn [, ixmode] [, ixoff] [, iwrap] +-- > ires table indx, ifn [, ixmode] [, ixoff] [, iwrap] +-- > kres table kndx, ifn [, ixmode] [, ixoff] [, iwrap] +-- +-- doc: +table :: Sig -> Tab -> Sig + +-- | Accesses table values by direct indexing with linear interpolation. +-- +-- > ares tablei andx, ifn [, ixmode] [, ixoff] [, iwrap] +-- > ires tablei indx, ifn [, ixmode] [, ixoff] [, iwrap] +-- > kres tablei kndx, ifn [, ixmode] [, ixoff] [, iwrap] +-- +-- doc: +tablei :: Sig -> Tab -> Sig + + +-- | Accesses table values by direct indexing with cubic interpolation. +-- +-- > ares table3 andx, ifn [, ixmode] [, ixoff] [, iwrap] +-- > ires table3 indx, ifn [, ixmode] [, ixoff] [, iwrap] +-- > kres table3 kndx, ifn [, ixmode] [, ixoff] [, iwrap] +-- +-- doc: +table3 :: Sig -> Tab -> Sig + +table = mkTable "table" +tablei = mkTable "tablei" +table3 = mkTable "table3" + +mkTable :: Name -> Sig -> Tab -> Sig +mkTable name = opc2 name [ + (a, a:rest), + (k, k:rest), + (i, i:rest)] + where rest = [i, i, i] + +-- | Fast table opcodes. Faster than table and tablew because don't allow wrap-around +-- and limit and don't check index validity. Have been implemented in order to provide +-- fast access to arrays. Support non-power of two tables (can be generated by any GEN function by giving a negative length value). +-- +-- > kr tab kndx, ifn[, ixmode] +-- > ar tab xndx, ifn[, ixmode] +-- +-- doc: +tab :: Sig -> Tab -> Sig +tab = opc2 "tab" [ + (a, [x,i,i]), + (k, [k,i,i])] + +-- | Fast table opcodes. Faster than table and tablew because don't allow wrap-around +-- and limit and don't check index validity. Have been implemented in order to provide +-- fast access to arrays. Support non-power of two tables (can be generated by any GEN function by giving a negative length value). +-- +-- > ir tab_i indx, ifn[, ixmode] +-- +-- doc: +tab_i :: D -> Tab -> D +tab_i = opc2 "tab_i" [(i, [i,i,i])] + +-- ** Saving Tables To Files + +{- +-- ftsave "filename", iflag, ifn1 [, ifn2] [...] +ftsave :: S -> I -> [Tab] -> SE () +ftsave a1 a2 a3 = opcs "ftsave" [(x, repeat i)] (phi a1 : phi a2 : map phi a3) + where phi :: Val a => a -> E + phi = Fix . unwrap + +-- ftsavek "filename", ktrig, iflag, ifn1 [, ifn2] [...] +ftsavek :: S -> Sig -> I -> [Tab] -> SE () +ftsavek a1 a2 a3 a4 = opcs "ftsavek" [(x, repeat i)] (phi a1 : phi a2 : phi a3 : map phi a4) + where phi :: Val a => a -> E + phi = Fix . unwrap +-} + +-- ** Reading Tables From Files + +----------------------------------------------------- +-- * Signal Input and Output, Sample and Loop Playback, Soundfonts + +-- ** Signal Input And Output + +-- | Reads from numbered channels in an external audio signal or stream. +-- +-- > ain1[, ...] inch kchan1[,...] +-- +-- doc: +inch :: CsdTuple a => [Sig] -> a +inch = mopcs "inch" (repeat a, repeat k) + +-- | Writes multi-channel audio data, with user-controllable channels, to an external device or stream. +-- +-- > outch kchan1, asig1 [, kchan2] [, asig2] [...] +-- +-- doc: +outch :: [(Sig, Sig)] -> SE () +outch ts = se_ $ opcs "outch" [(x, cycle [a,k])] $ (\(a, b) -> [a, b]) =<< ts + +-- ** Sample Playback With Optional Looping + +-- | This opcode implements a crossfading looper with variable loop parameters and three +-- looping modes, optionally using a table for its crossfade shape. It accepts non-power-of-two tables +-- for its source sounds, such as deferred-allocation GEN01 tables. +-- +-- > asig flooper2 kamp, kpitch, kloopstart, kloopend, kcrossfade, ifn \ +-- > [, istart, imode, ifenv, iskip] +-- +-- doc: +flooper2 :: Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig +flooper2 = opc6 "flooper2" [(a, ks 5 ++ is 5)] + +-- | This opcode records input audio and plays it back in a loop with user-defined duration and +-- crossfade time. It also allows the pitch of the loop to be controlled, including reversed playback. +-- +-- > asig, krec sndloop ain, kpitch, ktrig, idur, ifad +-- +-- doc: +sndloop :: Sig -> Sig -> Sig -> D -> D -> (Sig, Sig) +sndloop = mopc5 "sndloop" ([a, k], [a,k,k,i,i]) + +-- ** Soundfonts And Fluid Opcodes + +----------------------------------------------------- +-- * File Input and Output + +-- ** Sound File Input + +-- | Reads audio data from an external device or stream. Up to 24 channels may be read before v5.14, extended to 40 in later versions. +-- +-- > ar1[, ar2[, ar3[, ... a24]]] soundin ifilcod [, iskptim] [, iformat] \ +-- > [, iskipinit] [, ibufsize] +-- +-- doc: +soundin :: CsdTuple a => Str -> a +soundin = mopc1 "soundin" (repeat a, s:is 4) + +-- | Reads audio data from a file, and can alter its pitch using one of several available interpolation +-- types, as well as convert the sample rate to match the orchestra sr setting. diskin2 can also read +-- multichannel files with any number of channels in the range 1 to 24 in versions before 5.14, and +-- 40 after. . diskin2 allows more control and higher sound quality than diskin, but there is also the disadvantage of higher CPU usage. +-- +-- > a1[, a2[, ... aN]] diskin2 ifilcod, kpitch[, iskiptim \ +-- > [, iwrap[, iformat [, iwsize[, ibufsize[, iskipinit]]]]]] +-- +-- doc: +diskin2 :: CsdTuple a => Str -> Sig -> a +diskin2 = mopc2 "diskin2" (repeat a, s:k:is 6) + +-- | Reads stereo audio data from an external MP3 file. +-- +-- > ar1, ar2 mp3in ifilcod[, iskptim, iformat, iskipinit, ibufsize] +-- +-- doc: +mp3in :: Str -> (Sig, Sig) +mp3in = mopc1 "mp3in" ([a,a], s:is 4) + + +-- ** Sound File Queries + +-- | Returns the length of a sound file. +-- +-- > ir filelen ifilcod, [iallowraw] +-- +-- doc: +filelen :: Str -> D +filelen = opc1 "filelen" [(i, [i,i])] + +-- | Returns the sample rate of a sound file. +-- +-- > ir filesr ifilcod [, iallowraw] +-- +-- doc: +filesr :: Str -> D +filesr = opc1 "filesr" [(i, [i,i])] + +-- | Returns the number of channels in a sound file. +-- +-- > ir filenchnls ifilcod [, iallowraw] +-- +-- doc: +filenchnls :: Str -> D +filenchnls = opc1 "filenchnls" [(i, [i,i])] + +-- | Returns the peak absolute value of a sound file. +-- +-- > ir filepeak ifilcod [, ichnl] +-- +-- doc: +filepeak :: Str -> D +filepeak = opc1 "filepeak" [(i, [i,i])] + +-- | Returns the number of bits in each sample in a sound file. +-- +-- > ir filebit ifilcod [, iallowraw] +-- +-- doc: +filebit :: Str -> D +filebit = opc1 "filebit" [(i, [i,i])] + +-- ** Sound File Output + +-- | fout outputs N a-rate signals to a specified file of N channels. +-- +-- > fout ifilename, iformat, aout1 [, aout2, aout3,...,aoutN] +-- +-- doc: +fout :: [Sig] -> SE () +fout as = se_ $ opcs "fout" [(x, repeat a)] as + +-- ** Non-Soundfile Input And Output + +----------------------------------------------------- +-- * Converters of Data Types + +-- | Modify a signal by down-sampling. +-- +-- > kres downsamp asig [, iwlen] +-- +-- doc: +downsamp :: Sig -> Sig +downsamp = opc1 "downsamp" [(k, [a,i])] + +-- | Modify a signal by up-sampling. +-- +-- > ares upsamp ksig +-- +-- doc: +upsamp :: Sig -> Sig +upsamp = opc1 "upsamp" [(a, [k])] + +-- | Converts a control signal to an audio signal using linear interpolation. +-- +-- > ares interp ksig [, iskip] [, imode] +-- +-- doc: +interp :: Sig -> Sig +interp = opc1 "interp" [(a, [k,i,i])] + +------------------------------------------------------------------------------------------ +-- amplitude conversions + +-- | Floating number types: 'Sig' or 'D'. +class Val a => Nums a +instance Nums Sig +instance Nums D + +conv :: Nums a => NumOp -> a -> a +conv op a = noRate $ ExpNum $ PreInline op [toE a] + + +-- | Returns the amplitude equivalent of the decibel value x. Thus: +-- +-- * 60 dB = 1000 +-- +-- * 66 dB = 1995.262 +-- +-- * 72 dB = 3891.07 +-- +-- * 78 dB = 7943.279 +-- +-- * 84 dB = 15848.926 +-- +-- * 90 dB = 31622.764 +-- +-- > ampdb(x) (no rate restriction) +-- +-- doc: + +ampdb :: Nums a => a -> a +ampdb = conv Ampdb + +-- | Returns the amplitude equivalent of the full scale decibel (dB FS) value x. +-- The logarithmic full scale decibel values will be converted to linear 16-bit signed integer values from −32,768 to +32,767. +-- +-- > ampdbfs(x) (no rate restriction) +-- +-- doc: + +ampdbfs :: Nums a => a -> a +ampdbfs = conv Ampdbfs + +-- | Returns the decibel equivalent of the raw amplitude x. +-- +-- > dbamp(x) (init-rate or control-rate args only) +-- +-- doc: + +dbamp :: Nums a => a -> a +dbamp = conv Dbamp + +-- | Returns the decibel equivalent of the raw amplitude x, relative to full scale amplitude. Full scale is assumed to be 16 bit. New is Csound version 4.10. +-- +-- > dbfsamp(x) (init-rate or control-rate args only) +-- +-- doc: +dbfsamp :: Nums a => a -> a +dbfsamp = conv Dbfsamp + +------------------------------------------------------------------------------------------ +-- pitch conversions + +-- | Converts a pitch-class value to cycles-per-second. +-- +-- > cpspch (pch) (init- or control-rate args only) +-- +-- doc: +cpspch :: Nums a => a -> a +cpspch = conv Cpspch + +----------------------------------------------------- +-- * Printing and Strings + +-- ** Simple Printing + +-- | These units will print orchestra init-values. +-- +-- > print iarg [, iarg1] [, iarg2] [...] +-- +-- doc: +printi :: [D] -> SE () +printi a1 = se_ $ opcs "print" [(x, repeat i)] a1 + +-- | Prints one k-rate value at specified intervals. +-- +-- > printk itime, kval [, ispace] +-- +-- doc: +printk :: D -> Sig -> SE () +printk a1 a2 = se_ $ opc2 "printk" [(x, [i,k,i])] a1 a2 + + +-- ** Formatted Printing + +-- ** String Variables + +-- | sprintf write printf-style formatted output to a string variable, similarly to the C function sprintf(). sprintf runs at i-time only. +-- +-- > Sdst sprintf Sfmt, xarg1[, xarg2[, ... ]] +-- +-- doc: +sprintf :: Str -> [D] -> Str +sprintf a1 a2 = opcs "sprintf" [(s, s:repeat i)] (toE a1 : map toE a2) + +-- | sprintfk writes printf-style formatted output to a string variable, similarly to the C function sprintf(). sprintfk runs both at initialization and performance time. +-- +-- > Sdst sprintfk Sfmt, xarg1[, xarg2[, ... ]] +-- +-- doc: +sprintfk :: Str -> [Sig] -> Str +sprintfk a1 a2 = opcs "sprintfk" [(s, s:repeat k)] (toE a1 : map toE a2) + +-- ** String Manipulation And Conversion + +-- | Concatenate two strings and store the result in a variable. strcat runs at i-time only. It is allowed for any of the input arguments to be the same as the output variable. +-- +-- > Sdst strcat Ssrc1, Ssrc2 +-- +-- doc: +strcat :: Str -> Str -> Str +strcat = opc2 "strcat" [(s, [s,s])] + +-- | Concatenate two strings and store the result in a variable. strcatk does the +-- concatenation both at initialization and performance time. It is allowed for any of the input arguments to be the same as the output variable. +-- +-- > Sdst strcatk Ssrc1, Ssrc2 +-- +-- doc: +strcatk :: Str -> Str -> Str +strcatk = opc2 "strcatk" [(s, [s,s])] + + diff --git a/src/Csound/Opcode/Interaction.hs b/src/Csound/Opcode/Interaction.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Opcode/Interaction.hs @@ -0,0 +1,126 @@ +-- | Realtime Interaction +module Csound.Opcode.Interaction ( + + ----------------------------------------------------- + -- * MIDI + + -- ** Opcodes For Use In MIDI-Triggered Instruments + cpsmidi, ampmidi, pchbend, aftouch, + + -- ** Opcodes For Use In All Instruments + ctrl7, + + ----------------------------------------------------- + -- * Human Interfaces + + -- ** Keys + sensekey, + + -- ** Mouse + xyin +) where + +import Csound.Render.Sco(Msg) +import Csound.Exp.Wrapper +import Csound.LowLevel + +----------------------------------------------------- +-- * MIDI + +-- ** Opcodes For Use In MIDI-Triggered Instruments + +-- | Get the note number of the current MIDI event, expressed in cycles-per-second. +-- +-- > icps cpsmidi +-- +-- doc: + +cpsmidi :: Msg -> D +cpsmidi = const $ constOpc "cpsmidi" + +-- | Get the velocity of the current MIDI event. +-- +-- > iamp ampmidi iscal [, ifn] +-- +-- doc: +ampmidi :: Msg -> D +ampmidi = const $ constOpc "ampmidi" + +-- | Get the current pitch-bend value for this channel. +-- +-- > kbend pchbend [imin] [, imax] +-- +-- doc: +pchbend :: Msg -> Sig +pchbend = const $ constDiap "pchbend" + +-- | Get the current after-touch value for this channel. +-- +-- > kaft aftouch [imin] [, imax] +-- +-- doc: +aftouch :: Msg -> Sig +aftouch = const $ constDiap "aftouch" + +-- ** Opcodes For Use In All Instruments + +-- | Allows a floating-point 7-bit MIDI signal scaled with a minimum and a maximum range. +-- +-- > idest ctrl7 ichan, ictlno, imin, imax [, ifn] +-- > kdest ctrl7 ichan, ictlno, kmin, kmax [, ifn] +-- > adest ctrl7 ichan, ictlno, kmin, kmax [, ifn] [, icutoff] +-- +-- doc: +ctrl7 :: I -> I -> Sig -> Sig -> Sig +ctrl7 = opc4 "ctrl7" [ + (i, replicate 5 i), + (k, [i, i, k, k, i]), + (a, [i, i, k, k, i, i])] + + +constOpc :: Val a => Name -> a +constOpc name = opc0 name [(i, [])] + +constDiap :: Val a => Name -> a +constDiap name = opc0 name [(k, [i, i])] + +----------------------------------------------------- +-- * Open Sound Control and Network + +-- ** Open Sound Control + +-- ** Remote Instruments + +-- ** Network Audio + +----------------------------------------------------- +-- * Human Interfaces + +-- ** Widgets + +-- ** Keys + +-- | Returns the ASCII code of a key that has been pressed, or -1 if no key has been pressed. +-- +-- > kres[, kkeydown] sensekey +-- +-- doc: +sensekey :: (Sig, Sig) +sensekey = mopc0 "sensekey" ([k,k], []) + +-- ** Mouse + +-- | Sense the cursor position in an output window. When xyin is called the position of the mouse within +-- the output window is used to reply to the request. This simple mechanism does mean that only one xyin +-- can be used accurately at once. The position of the mouse is reported in the output window. +-- +-- > kx, ky xyin iprd, ixmin, ixmax, iymin, iymax [, ixinit] [, iyinit] +-- +-- doc: +xyin :: D -> D -> D -> D -> D -> (Sig, Sig) +xyin = mopc5 "xyin" ([k,k], is 7) + +-- ** WII + +-- ** P5 Glove + diff --git a/src/Csound/Render.hs b/src/Csound/Render.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Render.hs @@ -0,0 +1,99 @@ +module Csound.Render( + renderCsd, renderCsdBy, out, outs +) where + +import Data.Default +import Data.Maybe(catMaybes) +import qualified Data.Map as M +import qualified Data.Set as S + +import Control.Monad.Trans.State(evalState) +import Data.Fix + +import Csound.Exp +import Csound.Exp.Wrapper hiding (double, int) +import Csound.Tfm.TfmTree(tabMap) +import Csound.Render.Sco +import Csound.Render.Instr +import Csound.Render.Options +import Csound.Tfm.TfmTree(TabMap) +import Csound.Exp.Numeric + +import Csound.Render.Pretty + +import Csound.Opcode(clip, zeroDbfs) + +-- | Synonym for @return . return@. +out :: Sig -> Out +out = return . return + +-- | Synonym for @return@. +outs :: [Sig] -> Out +outs = return + +-- | Renders Csound file. +renderCsd :: [SigOut] -> String +renderCsd = renderCsdBy def + +-- | Renders Csound file with options. +renderCsdBy :: CsdOptions -> [SigOut] -> String +renderCsdBy opt as = show $ ppCsdFile + (renderFlags opt) + (renderInstr0 (nchnls lastInstrExp) (midiAssignTable ids as) opt) + (ppOrc $ firstInstr : lastInstr : zipWith (renderInstr krateSet fts) ids instrs) + (ppSco $ firstInstrNote : lastInstrNote : zipWith (renderScores strs fts) ids scos) + (renderStringTable strs) + (renderTotalDur $$ renderTabs fts) + where scos = map (scoSigOut' . sigOutContent) as + (instrs, effects, initOuts) = unzip3 $ zipWith runExpReader as ids + fts = tabMap $ lastInstrExp : instrs + strs = stringMap $ concat scos + ids = take nInstr [2 .. ] + + nInstr = length as + firstInstrId = 1 + lastInstrId = nInstr + 2 + + firstInstr = renderInstr krateSet fts firstInstrId $ execSE $ sequence_ initOuts + lastInstr = renderInstr krateSet fts lastInstrId lastInstrExp + + lastInstrExp = mixingInstrExp globalEffect effects + + scoSigOut' x = case x of + PlainSigOut _ _ -> scoSigOut x + _ -> [] + + dur = maybe 64000000 id $ totalDur as + renderTotalDur = ppTotalDur dur + firstInstrNote = alwayson firstInstrId dur + lastInstrNote = alwayson lastInstrId dur + alwayson instrId time = ppNote instrId 0 time [] + krateSet = S.fromList $ csdKrate opt + globalEffect = csdEffect opt + + +midiAssignTable :: [Int] -> [SigOut] -> [MidiAssign] +midiAssignTable ids instrs = catMaybes $ zipWith mk ids instrs + where mk n instr = case sigOutContent $ instr of + Midi ty chn _ -> Just $ MidiAssign ty chn n + _ -> Nothing + +renderTabs = ppMapTable ppTabDef +renderStringTable = ppMapTable ppStrset + +mixingInstrExp :: ([[Sig]] -> SE [Sig]) -> [SE [Sig]] -> E +mixingInstrExp globalEffect effects = execSE $ outs' . fmap clip' =<< globalEffect =<< sequence effects + where clip' x = clip x 0 zeroDbfs + +totalDur :: [SigOut] -> Maybe Double +totalDur as + | null as' = Nothing + | otherwise = Just $ maximum $ map eventEnd . scoSigOut =<< as' + where as' = filter isNotMidi $ map sigOutContent as + isNotMidi x = case x of + Midi _ _ _ -> False + _ -> True + + + + diff --git a/src/Csound/Render/Instr.hs b/src/Csound/Render/Instr.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Render/Instr.hs @@ -0,0 +1,130 @@ +{-# Language TupleSections #-} +module Csound.Render.Instr( + renderInstr +) where + +import qualified Data.IntMap as IM +import Control.Monad.Trans.State.Strict +import Data.Char(toLower) +import Data.List(partition, sortBy) +import Control.Arrow(second) +import Data.Ord(comparing) +import Data.Maybe(fromJust) + +import Data.Fix.Cse(fromDag, cse) + +import Csound.Exp +import Csound.Exp.Wrapper hiding (double, int) + +import Csound.Tfm.RateGraph +import Csound.Tfm.TfmTree +import Csound.Render.Pretty + +type InstrId = Int +type Dag f = [(Int, f Int)] + +renderInstr :: KrateSet -> TabMap -> InstrId -> E -> Doc +renderInstr krateSet ft instrId exp = ppInstr instrId $ renderInstrBody krateSet ft exp + +renderInstrBody :: KrateSet -> TabMap -> E -> [Doc] +renderInstrBody krateSet ft sig = map (stmt . clearEmptyResults) $ collectRates krateSet st g + where stmt :: ([RatedVar], Exp RatedVar) -> Doc + stmt (res, exp) = renderExp (ppOuts res) exp + + st = getRenderState g + g = toDag ft sig + + +data RenderState = RenderState + { multiOutsLinks :: IM.IntMap [MultiOutPort] + , multiOutsRates :: [(Int, Rate)] + } + +data MultiOutPort = MultiOutPort + { idMultiOutPort :: Int + , orderMultiOutPort :: Int + } + +getRenderState :: Dag RatedExp -> RenderState +getRenderState a = RenderState moLinks moRates + where moLinks = IM.fromListWith (++) $ map extract selectInfo + moRates = fmap (second getRate) selectInfo + + selectInfo = filter (isSelect . ratedExpExp . snd) a + + extract (n, x) = case ratedExpExp x of + Select rate order parent -> (parent, [MultiOutPort n order]) + +filterMultiOutHelpers :: [(RatedVar, Exp RatedVar)] -> [(RatedVar, Exp RatedVar)] +filterMultiOutHelpers = filter (not . isSelect . snd) + +isSelect x = case x of + Select _ _ _ -> True + _ -> False + + +toDag :: TabMap -> E -> Dag RatedExp +toDag ft exp = fromDag $ cse $ substTabs ft exp + + +clearEmptyResults :: ([RatedVar], Exp RatedVar) -> ([RatedVar], Exp RatedVar) +clearEmptyResults (res, exp) = (filter ((/= Xr) . ratedVarRate) res, exp) + +collectRates :: KrateSet -> RenderState -> Dag RatedExp -> [([RatedVar], Exp RatedVar)] +collectRates krateSet st dag = evalState res lastFreshId + where res = tfmMultiRates st $ filterMultiOutHelpers dag1 + (dag1, lastFreshId) = grate krateSet dag + + +tfmMultiRates :: RenderState -> [(RatedVar, Exp RatedVar)] -> State Int [([RatedVar], Exp RatedVar)] +tfmMultiRates st as = mapM substRate as + where substRate (n, exp) + | isMultiOutExp exp = fmap (,exp) $ getMultiOutVars (multiOutsLinks st IM.! ratedVarId n) exp + | otherwise = return ([n], exp) + + isMultiOutExp x = case x of + Tfm i _ -> isMultiOutSignature (infoSignature i) + _ -> False + +getMultiOutVars :: [MultiOutPort] -> Exp RatedVar -> State Int [RatedVar] +getMultiOutVars ports exp = fmap (zipWith RatedVar (getRates exp)) (getPorts ports) + where getPorts ps = state $ \lastFreshId -> + let ps' = sortBy (comparing orderMultiOutPort) ps + (ids, lastPortOrder) = runState (mapM (fillMissingPorts lastFreshId) ps') 0 + ids' = ids ++ [map (+ lastFreshId) [lastPortOrder + 1 .. portsSize - 1]] + in (concat ids', lastFreshId + portsSize - inUsePortsSize) + + + rates = getRates exp + portsSize = length rates + inUsePortsSize = length ports + + + fillMissingPorts :: Int -> MultiOutPort -> State Int [Int] + fillMissingPorts lastFreshId port = state $ \s -> + if s == order + then ([e], next) + else (fmap (+ lastFreshId) [s .. order - 1] ++ [e], next) + where e = idMultiOutPort port + order = orderMultiOutPort port + next = order + 1 + + +getRate :: RatedExp a -> Rate +getRate = fromJust . ratedExpRate + +renderExp :: Doc -> Exp RatedVar -> Doc +renderExp res exp = case fmap ppRatedVar exp of + ExpPrim (PString n) -> ppStrget res n + ExpPrim p -> res $= ppPrim p + Tfm info [a, b] | isInfix info -> res $= binary (infoName info) a b + Tfm info xs -> ppOpc res (infoName info) xs + ConvertRate to from x -> ppConvertRate res to from x + If info t e -> res $= ppIf (ppInline ppCondOp info) t e + ExpNum (PreInline op as) -> res $= ppNumOp op as + WriteVar v a -> ppVar v $= a + ReadVar v -> res $= ppVar v + x -> error $ "unknown expression: " ++ show x + + + diff --git a/src/Csound/Render/Options.hs b/src/Csound/Render/Options.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Render/Options.hs @@ -0,0 +1,90 @@ +module Csound.Render.Options( + CsdOptions(..), mixing, mixingBy, + renderInstr0, renderFlags, MidiAssign(..), CtrlId +) where + +import Data.List(transpose) +import Data.Default + +import Csound.Exp.Wrapper(Channel, Sig, SE, Out) +import Csound.Render.Sco +import Csound.Render.Pretty + +type CtrlId = Int + +-- | Sums signals for every channel. +mixing :: [[Sig]] -> Out +mixing = return . fmap sum . transpose + +-- | Sums signals for every channel and the processes the output with the given function. +mixingBy :: ([Sig] -> Out) -> ([[Sig]] -> Out) +mixingBy f = (f =<<) . mixing + +-- | Csound options. The default value is +-- +-- > instance Default CsdOptions where +-- > def = CsdOptions +-- > { csdFlags = "" +-- > , csdRate = 44100 +-- > , csdBlockSize = 64 +-- > , csdSeed = Nothing +-- > , csdInitc7 = [] +-- > , csdEffect = mixing +-- > , csdKrate = ["linseg", "expseg", "linsegr", "expsegr"] } + +data CsdOptions = CsdOptions + { csdFlags :: String + , csdRate :: Int + , csdBlockSize :: Int + , csdSeed :: Maybe Int + , csdInitc7 :: [(Channel, CtrlId, Double)] + , csdEffect :: [[Sig]] -> SE [Sig] + , csdKrate :: [String] + } + +instance Default CsdOptions where + def = CsdOptions + { csdFlags = "" + , csdRate = 44100 + , csdBlockSize = 64 + , csdSeed = Nothing + , csdInitc7 = [] + , csdEffect = mixing + , csdKrate = ["linseg", "expseg", "linsegr", "expsegr"] } + +renderFlags = text . csdFlags + +type Nchnls = Int + +data MidiAssign = MidiAssign + { midiAssignType :: MidiType + , midiAssignChannel :: Channel + , midiAssignInstr :: Int } + +type InstrId = Int + +renderInstr0 :: Nchnls -> [MidiAssign] -> CsdOptions -> Doc +renderInstr0 nchnls massignTable opt = ppInstr0 $ [ + stmt "sr" $ csdRate opt, + stmt "ksmps" $ csdBlockSize opt, + stmt "nchnls" nchnls, + stmt "0dbfs" 1, + maybe empty seed $ csdSeed opt] + ++ map initc7 (csdInitc7 opt) + ++ fmap renderMidiAssign massignTable + where stmt a b = text a $= int b + seed n = ppProc "seed" [int n] + initc7 (chn, ctl, val) = ppProc "initc7" [int chn, int ctl, double val] + + +renderMidiAssign :: MidiAssign -> Doc +renderMidiAssign a = ppProc opcode $ [int $ midiAssignChannel a, int $ midiAssignInstr a] ++ auxParams + where opcode = case midiAssignType a of + Massign -> "massign" + Pgmassign _ -> "pgmassign" + auxParams = case midiAssignType a of + Pgmassign (Just n) -> [int n] + _ -> [] + + + diff --git a/src/Csound/Render/Pretty.hs b/src/Csound/Render/Pretty.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Render/Pretty.hs @@ -0,0 +1,221 @@ +module Csound.Render.Pretty ( + Doc, int, double, text, empty, ($$), + + binaries, unaries, funcs, + binary, unary, func, + ppMapTable, + ($=), ppRatedVar, ppOuts, ppOpc, ppProc, ppVar, + ppPrim, ppTab, ppStrget, ppStrset, ppTabDef, ppConvertRate, ppIf, + ppCsdFile, ppInstr, ppInstr0, ppScore, ppNote, ppTotalDur, ppOrc, ppSco, + ppInline, ppCondOp, ppNumOp +) where + +import Data.Char(toLower) +import qualified Data.Map as M +import qualified Data.IntMap as IM +import Text.PrettyPrint.Leijen + +import Csound.Exp + +($$) = (<$$>) + +binaries, unaries, funcs :: String -> [Doc] -> Doc + +binaries op as = binary op (as !! 0) (as !! 1) +unaries op as = unary op (as !! 0) +funcs op as = func op (as !! 0) + +binary :: String -> Doc -> Doc -> Doc +binary op a b = parens $ a <+> text op <+> b + +unary :: String -> Doc -> Doc +unary op a = parens $ text op <> a + +func :: String -> Doc -> Doc +func op a = text op <> parens a + +ppMapTable :: (a -> Int -> Doc) -> M.Map a Int -> Doc +ppMapTable phi = vcat . map (uncurry phi) . M.toList + + +ppRate :: Rate -> Doc +ppRate x = case x of + Sr -> char 'S' + _ -> phi x + where phi = text . map toLower . show + + +ppRatedVar :: RatedVar -> Doc +ppRatedVar (RatedVar r x) = ppRate r <> int x + +ppOuts :: [RatedVar] -> Doc +ppOuts xs = hsep $ punctuate comma $ map ppRatedVar xs + +($=) :: Doc -> Doc -> Doc +($=) a b = a <+> equals <+> b + +ppOpc :: Doc -> String -> [Doc] -> Doc +ppOpc out name xs = out <+> ppProc name xs + +ppProc :: String -> [Doc] -> Doc +ppProc name xs = text name <+> (hsep $ punctuate comma xs) + +ppVar :: Var -> Doc +ppVar v = case v of + Var ty rate name -> ppVarType ty <> ppRate rate <> text name + VarVerbatim _ name -> text name + +ppVarType :: VarType -> Doc +ppVarType x = case x of + LocalVar -> empty + GlobalVar -> char 'g' + +ppPrim :: Prim -> Doc +ppPrim x = case x of + P n -> char 'p' <> int n + PrimInt n -> int n + PrimDouble d -> double d + PrimString s -> text s + PrimTab f -> ppTab f + +ppTab :: Tab -> Doc +ppTab (Tab size n xs) = text "gen" <> int n <+> int size <+> (hsep $ map double xs) + +ppIf :: Doc -> Doc -> Doc -> Doc +ppIf p t e = p <+> char '?' <+> t <+> char ':' <+> e + +ppStrget :: Doc -> Int -> Doc +ppStrget out n = ppOpc out "strget" [char 'p' <> int n] + +ppConvertRate :: Doc -> Rate -> Rate -> Doc -> Doc +ppConvertRate out to from var = case (to, from) of + (Ar, Kr) -> upsamp var + (Ar, Ir) -> upsamp $ k var + (Kr, Ar) -> downsamp var + (Kr, Ir) -> out $= k var + (Ir, Ar) -> downsamp var + (Ir, Kr) -> out $= i var + where upsamp x = ppOpc out "upsamp" [x] + downsamp x = ppOpc out "downsamp" [x] + k = func "k" + i = func "i" + +ppTabDef ft id = char 'f' + <> int id + <+> int 0 + <+> (int $ tabSize ft) + <+> (int $ tabGen ft) + <+> (hsep $ map double $ tabArgs ft) + +ppStrset str id = text "strset" <+> int id <> comma <+> (dquotes $ text str) + +-- file + +newline = line + + +ppCsdFile flags instr0 instrs scores strTable tabs = + tag "CsoundSynthesizer" [ + tag "CsOptions" [flags], + tag "CsInstruments" [ + instr0, strTable, instrs], + tag "CsScore" [ + tabs, scores]] + +tag :: String -> [Doc] -> Doc +tag name content = vcat $ punctuate newline [ + char '<' <> text name <> char '>', + vcat $ punctuate newline content, + text " text name <> char '>'] + +-- instrument + +ppInstr :: Int -> [Doc] -> Doc +ppInstr instrId body = vcat [ + text "instr" <+> int instrId, + vcat body, + text "endin"] + +ppInstr0 = vcat + +ppOrc :: [Doc] -> Doc +ppOrc = vcat . punctuate newline + +-- score + +ppSco = vcat + +ppScore = vcat + +ppNote instrId time dur args = char 'i' <> int instrId <+> double time <+> double dur <+> hsep args + +ppTotalDur d = text "f0" <+> double d + +-- expressions + +ppInline :: (a -> [Doc] -> Doc) -> Inline a Doc -> Doc +ppInline ppNode a = ppExp $ inlineExp a + where ppExp x = case x of + InlinePrim n -> inlineEnv a IM.! n + InlineExp op args -> ppNode op $ fmap ppExp args + +-- booleans + +ppCondOp :: CondOp -> [Doc] -> Doc +ppCondOp op = case op of + TrueOp -> const $ text "(1 == 1)" + FalseOp -> const $ text "(0 == 1)" + Not -> uno "~" + And -> bi "&&" + Or -> bi "||" + Equals -> bi "==" + NotEquals -> bi "!=" + Less -> bi "<" + Greater -> bi ">" + LessEquals -> bi "<=" + GreaterEquals -> bi ">=" + where bi = binaries + uno = unaries + +-- numeric + +ppNumOp :: NumOp -> [Doc] -> Doc +ppNumOp op = case op of + Add -> bi "+" + Sub -> bi "-" + Mul -> bi "*" + Div -> bi "/" + Neg -> uno "-" + Pow -> bi "^" + Mod -> bi "%" + Sin -> fun "sin" + Cos -> fun "cos" + Sinh -> fun "sinh" + Cosh -> fun "cosh" + Tan -> fun "tan" + Tanh -> fun "tanh" + Sininv -> fun "sininv" + Cosinv -> fun "cosinv" + Taninv -> fun "taninv" + Abs -> fun "abs" + Ceil -> fun "ceil" + ExpOp -> fun "exp" + Floor -> fun "floor" + Frac -> fun "frac" + IntOp -> fun "int" + Log -> fun "log" + Log10 -> fun "log10" + Logbtwo -> fun "logbtwo" + Round -> fun "round" + Sqrt -> fun "sqrt" + + Ampdb -> fun "ampdb" + Ampdbfs -> fun "ampdbfs" + Dbamp -> fun "dbamp" + Dbfsamp -> fun "dbfsamp" + Cpspch -> fun "cpspch" + where bi = binaries + uno = unaries + fun = funcs + + diff --git a/src/Csound/Render/Sco.hs b/src/Csound/Render/Sco.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Render/Sco.hs @@ -0,0 +1,137 @@ +module Csound.Render.Sco( + score, SigOut(..), effect, + Msg, massign , pgmassign, MidiType(..), + + Event(..), eventEnd, PlainSigOut(..), renderScores, + runExpReader, nchnls, stringMap, outs' +) where + +import Data.List(nub) +import Data.Tuple(swap) +import qualified Data.Map as M +import Control.Monad.Trans.State +import Control.Monad((<=<), zipWithM) +import Data.Fix + +import Csound.Exp +import Csound.Exp.Wrapper hiding (int, double) +import Csound.Tfm.TfmTree(TabMap) +import Csound.Exp.Cons(opcs) +import Csound.Exp.Numeric + +import Csound.Render.Pretty + +type InstrId = Int + +type StringMap = M.Map String Int + +------------------------------------------------------- +-- scores + +type Note = [Prim] + +-- | Midi messages. +data Msg = Msg + +data Event a = Event + { eventStart :: Double + , eventDur :: Double + , eventContent :: a } + +eventEnd e = eventStart e + eventDur e + +instance Functor Event where + fmap f a = a{ eventContent = f $ eventContent a } + +-- | Applies a global effect function to the signal. With this function we can add reverb or panning to the mixed signal. +-- The argument function takes a list of signals. Each cell of the list contains a signal on the given channel. +effect :: ([Sig] -> Out) -> SigOut -> SigOut +effect f a = a{ sigOutEffect = f <=< sigOutEffect a } + +-- | The abstract type of musical tracks. +data SigOut = SigOut + { sigOutEffect :: [Sig] -> SE [Sig] + , sigOutContent :: PlainSigOut + } + +type ExpReader = Int -> (E, [Var]) + +runExpReader :: SigOut -> Int -> (E, SE [Sig], SE ()) +runExpReader a n = (exp, sigOutEffect a $ fmap readVar vars, mapM_ (flip writeVar (0 :: Sig)) vars) + where (exp, vars) = (orcSigOut $ sigOutContent a) n + + +data PlainSigOut + = PlainSigOut + { orcSigOut :: ExpReader + , scoSigOut :: [Event Note] } + | Midi + { midiType :: MidiType + , midiChn :: Channel + , orcSigOut :: ExpReader } + +data MidiType = Massign | Pgmassign (Maybe Int) + + +outs' :: [Sig] -> SE () +outs' as = se_ $ opcs (name as) [(Xr, repeat Ar)] as + where name as + | length as == 1 = "out" + | otherwise = "outs" + + +score :: (Arg a) => (a -> Out) -> [(Double, Double, a)] -> SigOut +score instr scores = SigOut return $ + PlainSigOut (expReader $ instr toArg) (fmap (\(a, b, c) -> Event a b (toNote argMethods c)) scores) + + +expReader :: SE [Sig] -> ExpReader +expReader instr instrId = swap $ runSE $ do + as <- instr + let vars = instrPorts instrId as + zipWithM writeVar vars as + return vars + + +instrPorts :: Int -> [Sig] -> [Var] +instrPorts instrId sigs = fmap (gOutVar instrId) ids + where ids = fmap fst $ zip [1 ..] sigs + +nchnls :: E -> Int +nchnls x = case ratedExpExp $ unFix x of + Tfm _ as -> length as + +massign :: Channel -> (Msg -> Out) -> SigOut +massign = midiAssign Massign + +pgmassign :: Maybe Channel -> Int -> (Msg -> Out) -> SigOut +pgmassign chn = midiAssign (Pgmassign chn) + +midiAssign :: MidiType -> Channel -> (Msg -> SE [Sig]) -> SigOut +midiAssign ty n = SigOut return . Midi ty n . expReader . ($ Msg) + +----------------------------------------------------------------- +-- render + +renderScores :: StringMap -> TabMap -> InstrId -> [Event Note] -> Doc +renderScores strs fts instrId as = ppScore $ map (renderNote strs fts instrId) as + +renderNote :: StringMap -> TabMap -> InstrId -> Event Note -> Doc +renderNote strs fts instrId e = ppNote instrId (eventStart e) (eventDur e) (map prim $ eventContent e) + where prim x = case x of + PrimInt n -> int n + PrimDouble d -> double d + PrimTab f -> int $ fts M.! f + PrimString s -> int $ strs M.! s + + +stringMap :: [Event Note] -> StringMap +stringMap as = M.fromList $ zip (nub $ allStrings =<< as) [1 .. ] + where allStrings evt = primStrings =<< eventContent evt + primStrings x = case x of + PrimString s -> [s] + _ -> [] + + + + diff --git a/src/Csound/Tfm/RateGraph.hs b/src/Csound/Tfm/RateGraph.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Tfm/RateGraph.hs @@ -0,0 +1,215 @@ +module Csound.Tfm.RateGraph( + grate, KrateSet +) where + +import Data.List(sort, sortBy, nub, find) +import qualified Data.Map as M +import qualified Data.IntMap as IM +import qualified Data.Set as S +import Data.Ord(comparing) +import Data.Maybe(fromJust) + +import Data.Default + +import Data.STRef +import Control.Monad.ST + +import Data.Array +import Data.Array.ST +import Data.Array.MArray + +import Csound.Exp + +import Debug.Trace + +echo :: Show a => String -> a -> a +echo msg a = trace (msg ++ ": " ++ show a) a + +type AgentId = Int + +data Agent = Agent + { agentResponses :: [Response] + , agentQueries :: [Query] + , agentRate :: Rate + , agentConversions :: [Conversion] } + +type Conversion = (RatedVar, Exp RatedVar) + +type KrateSet = S.Set Name + +instance Default Agent where + def = Agent [] [] Xr [] + +data Addr = Addr + { addrLine :: Int + , addrArg :: Int + } deriving (Show) + +data Query = Query + { queryAddr :: Addr + , queryRate :: Rate + } deriving (Show) + +data Response = Response + { responseAddr :: Addr + , responseRatedVar :: RatedVar + } deriving (Show) + + +newtype MsgBox s = MsgBox { unMsgBox :: STArray s Int Agent } + +modifyArray :: Ix i => STArray s i a -> i -> (a -> a) -> ST s () +modifyArray arr i f = writeArray arr i . f =<< readArray arr i + +msgBox :: Int -> ST s (MsgBox s) +msgBox size = fmap MsgBox $ newArray (0, size - 1) def + +sendQuery :: AgentId -> Query -> MsgBox s -> ST s () +sendQuery pid q box = modifyArray (unMsgBox box) pid $ + \x -> x{ agentQueries = q : agentQueries x } + +sendResponse :: AgentId -> Response -> MsgBox s -> ST s () +sendResponse pid r box = modifyArray (unMsgBox box) pid $ + \x -> x{ agentResponses = r : agentResponses x } + +loadAgent :: AgentId -> MsgBox s -> ST s Agent +loadAgent pid box = readArray (unMsgBox box) pid + +saveAgent :: AgentId -> MsgBox s -> Agent -> ST s () +saveAgent pid box e = writeArray (unMsgBox box) pid e + +discussLine :: KrateSet -> MsgBox s -> STRef s Int -> (Int, RatedExp Int) -> ST s () +discussLine krateSet box freshIds (pid, exp) = do + ag <- loadAgent pid box + let desiredRates = nub $ map queryRate $ agentQueries ag + curRate = deduceRate krateSet desiredRates exp + notifyChildren pid curRate (ratedExpExp exp) box + convTab <- conversionTable freshIds pid curRate desiredRates + notifyParents box convTab (agentQueries ag) + saveAgent pid box $ ag{ agentRate = curRate, agentConversions = getConversions pid curRate convTab } + +deduceRate :: KrateSet -> [Rate] -> RatedExp Int -> Rate +deduceRate krateSet desiredRates exp = case ratedExpExp exp of + ExpPrim p -> case desiredRates of + [Sr] -> Sr + _ -> Ir + + Tfm info as | isProcedure info -> Xr + Tfm info as -> case infoSignature info of + MultiRate _ _ -> Xr + SingleRate tab -> + let r1 = tfmNoRate (infoName info) desiredRates tab + in case ratedExpRate exp of + Just r | M.member r tab -> r + Just r -> r1 + Nothing -> r1 + + ExpNum _ -> case maximum desiredRates of + Xr -> Ar + r -> r + + Select rate _ _ -> rate + If info a b -> head $ filter (/= Xr) $ sort desiredRates + ReadVar v -> varRate v + WriteVar _ _ -> Xr + where tfmNoRate name desiredRates tab = case sort desiredRates of + [Xr] -> let newDesiredRates = if S.member name krateSet then [Kr] else [Ar] + in tfmNoRate name newDesiredRates tab + Xr:as -> tfmNoRate name as tab + as -> fromJust $ find (flip M.member tab) (as ++ [minBound .. maxBound]) + + +notifyChildren :: AgentId -> Rate -> Exp Int -> MsgBox s -> ST s () +notifyChildren pid curRate exp box = mapM_ (\(to, query) -> sendQuery to query box) $ case exp of + Tfm info xs -> notifyTfm curRate (infoSignature info) xs + WriteVar v a -> [(a, mkQuery 0 $ varRate v)] + If info a b -> (a, mkQuery (-2) curRate) : (b, mkQuery (-1) curRate) : encodeIfEnv (max Kr curRate) (inlineEnv info) + ExpNum (PreInline op xs) -> queryList xs (repeat curRate) + _ -> [] + where notifyTfm r signature xs = case signature of + SingleRate table -> queryList xs $ table M.! r + MultiRate _ rs -> queryList xs rs + + queryList args rates = zipWith3 (\n a r -> (a, mkQuery n r)) [0 .. ] args rates + + mkQuery n r = Query (Addr pid n) r + + encodeIfEnv rate info = map (\(port, arg) -> (arg, mkQuery port rate)) $ IM.toList info + +notifyParents :: MsgBox s -> M.Map Rate RatedVar -> [Query] -> ST s () +notifyParents box convTab qs = mapM_ (notifyParent box convTab) qs + +notifyParent :: MsgBox s -> M.Map Rate RatedVar -> Query -> ST s () +notifyParent box convTab q = sendResponse (addrLine $ queryAddr q) (Response (queryAddr q) (convTab M.! queryRate q)) box + + +conversionTable :: STRef s Int -> Int -> Rate -> [Rate] -> ST s (M.Map Rate RatedVar) +conversionTable freshIds curId curRate desiredRates = fmap M.fromList $ mapM (flip mkRatedVar curRate) desiredRates + where coherentRates to from = case (to, from) of + (Xr, a) -> True + (a, b) | a == b -> True + (Kr, Ir) -> True + _ -> False + + mkRatedVar to from + | coherentRates to from = return $ (to, RatedVar curRate curId) + | otherwise = do + n <- newId freshIds + return $ (to, RatedVar to n) + + newId x = do + n <- readSTRef x + modifySTRef x succ + return n + +getConversions :: AgentId -> Rate -> M.Map Rate RatedVar -> [Conversion] +getConversions pid curRate convTable = uncurry phi =<< M.toList convTable + where phi rate var@(RatedVar r n) + | n == pid = [] + | otherwise = [(var, ConvertRate r curRate $ RatedVar curRate pid)] + + +processLine :: MsgBox s -> (Int, RatedExp Int) -> ST s [(RatedVar, Exp RatedVar)] +processLine box (pid, exp) = fmap phi $ loadAgent pid box + where phi a = agentConversions a + ++ return (RatedVar (agentRate a) pid, rateExp (agentRate a) (agentResponses a) (ratedExpExp exp)) + + +rateExp :: Rate -> [Response] -> Exp Int -> Exp RatedVar +rateExp curRate rs exp = case exp of + ExpPrim (P n) | curRate == Sr -> ExpPrim (PString n) + ExpPrim p -> ExpPrim p + Tfm i _ -> Tfm i vs + Select rate pid a -> Select rate pid (RatedVar Xr a) + If condInfo _ _ -> case vs of + a:b:rest -> If (decodeIfEnv condInfo rest) a b + ExpNum (PreInline op _) -> ExpNum (PreInline op vs) + ReadVar v -> ReadVar v + WriteVar v _ -> WriteVar v (head vs) + where vs = map responseRatedVar $ sortBy (comparing $ addrArg . responseAddr) rs + decodeIfEnv info xs = info{ inlineEnv = IM.fromList $ zip [0..] xs } + + +findRate :: [Rate] -> Rate +findRate [x] = x +findRate xs = case sort $ nub xs of + [a] -> a + [] -> Xr + Xr:as -> minimum as + as -> minimum as + + +grate :: KrateSet -> [(Int, RatedExp Int)] -> ([(RatedVar, Exp RatedVar)], Int) +grate krateSet as = runST $ do + freshIds <- newSTRef n + box <- msgBox n + mapM_ (discussLine krateSet box freshIds) lines + graph <- fmap (reverse . concat) $ mapM (processLine box) lines + lastFreshId <- readSTRef freshIds + return (graph, lastFreshId) + where n = length as + lines = reverse as + + + + diff --git a/src/Csound/Tfm/TfmTree.hs b/src/Csound/Tfm/TfmTree.hs new file mode 100644 --- /dev/null +++ b/src/Csound/Tfm/TfmTree.hs @@ -0,0 +1,35 @@ +module Csound.Tfm.TfmTree( + TabMap, tabMap, substTabs +) where + +import Data.List(nub) +import Data.Fix +import qualified Data.Map as M +import Data.Foldable(foldMap) + +import Csound.Exp + +type TabMap = M.Map Tab Int + +-- substitute ftables for ids + +substTabs :: TabMap -> E -> E +substTabs m = cata $ \(RatedExp r d x) -> Fix $ RatedExp r d $ case x of + ExpPrim (PrimTab t) -> ExpPrim (PrimInt $ m M.! t) + _ -> x + + +tabMap :: [E] -> TabMap +tabMap es = M.fromList $ zip (nub $ getFtables =<< es) [1 ..] + +getFtables :: E -> [Tab] +getFtables = cata $ \(RatedExp _ _ x) -> case x of + ExpPrim (PrimTab t) -> [t] + ExpPrim _ -> [] + Tfm _ as -> concat as + ConvertRate _ _ a -> a + ExpNum a -> foldMap id a + Select _ _ a -> a + If info a b -> foldMap id info ++ a ++ b + ReadVar _ -> [] + WriteVar _ a -> a diff --git a/src/CsoundExpr.hs b/src/CsoundExpr.hs deleted file mode 100644 --- a/src/CsoundExpr.hs +++ /dev/null @@ -1,283 +0,0 @@ -{-| - Library csound-expression allows csound code construction - in functional way. - - It has two parts "CsoundExpr.Base" and "CsoundExpr.Opcodes". - First part "Csound.Base" contains essential functionality of the package. - Second part "Csound.Opcodes" contains opcode definitions. - - This module provides overview of the library. - For examples see sources, folder 'examples' --} -module CsoundExpr ( - -- * Introduction - {-| - Csound-expression is csound code generator. Program - produces value of 'CsoundFile' type. - 'CsoundFile' is 'Show'. So that is the way to get csound code. - Function 'csd' can be invoked to make value of 'CsoundFile' type. - - >csd :: Flags -> Header -> EventList Dur SignalOut -> CsoundFile - - * 'Flags' is 'String'. It's pasted in place of csounds flags. - - * 'Header' is csound header declaration. - See module "CsoundExpr.Base.Header" for more details. - - * 'EventList' represents csound orchestra and score sections. This - type comes from external library 'temporal-media' [1]. - 'EventList' contains values with time marks. - Value begins at some time and lasts for some time. - Very much like csound notes, but there is one difference - no need for p-field parameters, translator derives them from - note structure encoded in values of type 'SignalOut'. - 'EventList' can be constructed directly with functions of - 'temporal-media' library, but better way is to use some - front-end. Package 'temporal-music-notation' [2] - provides higher level musical functionality for 'EventList' - construction. - - \[1\] - - \[2\] - - -} - - -- * Instruments - {-| - Instruments are functions from some signal representation to signal. - 'Score' (from 'temporal-music-notation' library) or - 'EventList' (from 'temporal-media' library) is a 'Functor', - so to play on instrument means to apply instrument. - to container of its notes. Instrument can be made with opcodes. - Translator derives p-fields from instrument structure. There are only - two explicit p-fields 'itime' and 'idur' (@p2@ and @p3@ in csound). - -} - - - -- * Signals / Types - - {-| - Signals are represented with trees. Tree contains information about how - signal was build. - - There are five types for signals ("CsoundExpr.Base.Types"). - - 'Arate' is audio rate signal - - 'Krate' is control rate signal - - 'Irate' is init value - - 'SignalOut' is no output at all (it's produced by opcodes - like out, outs, xtratim) - - 'BoolRate' is comparision of two control or init rate signals - ("CsoundExpr.Base.Boolean") - - - There are two classes to allow csound's polymorphism : 'X' and 'K' - - 'X' = 'Arate' | 'Krate' | 'Irate' - - 'K' = 'Krate' | 'Irate' - - - Csound's S - signal is represented with 'String'. - Ftable is represented with 'Irate'. If you want to get 'Krate' ftable - you can construct it with function 'ifB'. - - There are two special types 'MultiOut' - (for opcodes that may produce several outputs, - see "CsoundExpr.Base.MultiOut") - and 'SideEffect' - (for opcodes that rely on number of appearances in csound code, - like @unirand@, see "CsoundExpr.Base.SideEffect") - -} - - -- * Opcodes - - {-| - Naming conventions : Opcodes are named after csound's - counterparts usually. Some opcodes in csound can produce - signals of different rates by request (oscil, linseg). - Those opcodes are labelled with suffix. Suffix defines - output rate of signal (oscilA, oscilK). Some opcodes - in csound have unfixed number of inputs due to setup - parameters, almost all of them. Those opcodes have - first argument that is list of setup parameters. - - example - - >oscilA :: (X a, X b) => [Irate] -> a -> b -> Irate -> Arate - >oscilK :: (K a, K b) => [Irate] -> a -> b -> Irate -> Krate - -} - - -- * Imperative style csound code - - {-| - Most of csound opcodes can be used in functional way. - You can plug them in one another, and make expressions, - but some of them behave like procedures and rely on order - of execution in instrument. Module "CsoundExpr.Base.Imperative" - provides functions to write imperative csound code. - - 'outList' - to sequence procedures - - '(/<=/>)' - Assignment - - 'ar', 'kr', 'ir', 'gar', 'gkr', 'gir' - named values, - to produce signal with specified name and rate. - - Functional style : - - >exmpInstr :: Irate -> SignalOut - >exmpInstr pch = out $ oscilA [] (num 1000) (cpspch pch) $ - > gen10 4096 [1] - - - Imperative style : - - >exmpImper :: Irate -> SignalOut - >exmpImper pch = outList [ - > ir "amp" <=> num 1000, - > ir "cps" <=> cpspch pch, - > ir "ft" <=> gen10 4096 [1], - > ar "sig" <=> oscilA [] (ir "amp") (ir "cps") (ir "ft"), - > out (ar "sig")] - - -} - - -- * Arithmetic - {-| - You can use polymorphic operations to do some arihmetic - on signals from "CsoundExpr.Base.Arithmetic". And Signal - is 'Num'. 'Eq' is undefined though. - -} - - -- * Preview - - {-| - To see what will come out of an expression you can - print it. 'Arate', 'Krate' and 'Irate' are 'Show'. - -} - - -- * User Defined opcodes - - {-| - You can add your own opcodes to library, - see "CsoundExpr.Base.UserDefined" - -} - - -- * MIDI - - {-| - There are two ways to tell 'csd' to include instrument - in csound file. Instrument can be a part of 'Score' or - it can be midi instrument, then it should be mentioned - in 'massign' or 'pgmassign' function. If you want to - play midi-instr for some time @t@, you can tell it - to 'csd' function by invoking 'csd' with @'none' t@ - ('temporal-media') or @(toList $ 'rest' t)@ ('temporal-music-notation') - in place of 'EventList' value. - - Csound statement @f 0 n@ is always present in generated .csd file. - Here @n@ is score's duration. - - - >import Temporal.Music - > - >import CsoundExpr - >import CsoundExpr.Opcodes - > - >flags = "-odac -d -+rtmidi=virtual -M0" - > - >header = [massign [] 1 instrMidi] - > - >instrMidi :: SignalOut - >instrMidi = out $ oscilA [] (num 5000) cpsmidi $ gen10 4096 [1] - > - >res = csd flags header (rest 3600) - > - >-- play: requires tmp folder in current directory - >main = do - > playDac "tmp" "new" res - -} - - -- * Limits - -- ** What can not be expressed - - -- *** ids - {-| - The major benefit and major problem of csound-expression is - abscense of ids for p-fields, ftables, notes and instruments. - - - no ids for ... means ... no - - p-fields/notes - opcodes that rely on p-fields or invoke instruments - - ftables - k-rate ftables - - instruments - convenient way to specify order of instruments - -} - - -- *** imperative program flow control - - -- | There is no program flow control opcodes (like if, then, goto). - -- But you can use functional if/then from module - -- "CsoundExpr.Base.Boolean" - - -- *** Srate - - -- | I've decided to represent csound's S-rate with 'String'. - -- Signal is represented with tree and it means i can't include - -- opcodes that produce Srate - - -- ** Hack-way around (what somehow can be expressed) - - -- *** instrument order - {-| - Orchestra section is generated from 'EventList'. Different instruments - have different tree structure and one instrument's tree can't be - transformed into another one by replacing leaf-values only. - - You can point to instrument by its structure. There is opcode in - "CsoundExpr.Base.Header" that specifies order of instruments by - list of notes. 'instrOrder' takes in list of notes, if instrument's - tree is equivalent to note it is placed in relation to list of notes. - - There are ways to make mistake. Sometimes it's unpredictable. - - - In example below - - @q1 =/= q2@ - - @sco@ contains two instruments (one with @x@, and another - one with @cpspch x@) - - > - >osc x = oscilA [] (num 1000) x $ gen10 4096 [1] - >env = lineK 1 idur 0 - > - >q1 x = osc x <*> env - >q2 x = env <*> osc x - > - >sco1 = note 1 440 - >sco2 = note 1 $ cpspch 8.00 - > - >sco = fmap q1 $ sco1 +:+ sco2 - - I think maybe it's worthwhile to introduce some way of instrument id - assignment. - -} - - - - - module CsoundExpr.Base -) -where - -import CsoundExpr.Base diff --git a/src/CsoundExpr/Base.hs b/src/CsoundExpr/Base.hs deleted file mode 100644 --- a/src/CsoundExpr/Base.hs +++ /dev/null @@ -1,31 +0,0 @@ - --- | basic combinators and types --- --- Imports all 'Base' modules, but "CsoundExpr.Base.UserDefined" --- and "CsoundExpr.Base.Pitch". -module CsoundExpr.Base ( - module CsoundExpr.Base.Types, - module CsoundExpr.Base.Boolean, - module CsoundExpr.Base.Imperative, - module CsoundExpr.Base.MultiOut, - module CsoundExpr.Base.Arithmetic, - module CsoundExpr.Base.SideEffect, - module CsoundExpr.Base.Header, --- module CsoundExpr.Base.Score, - module CsoundExpr.Base.Gens, - module CsoundExpr.Base.Pretty -) -where - -import CsoundExpr.Base.Types -import CsoundExpr.Base.Boolean -import CsoundExpr.Base.Imperative -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.Arithmetic -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.Header --- import CsoundExpr.Base.Score -import CsoundExpr.Base.Gens -import CsoundExpr.Base.Pretty - - diff --git a/src/CsoundExpr/Base/Arithmetic.hs b/src/CsoundExpr/Base/Arithmetic.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/Arithmetic.hs +++ /dev/null @@ -1,159 +0,0 @@ -{-# LANGUAGE - MultiParamTypeClasses, - TypeSynonymInstances, - FlexibleContexts #-} - --- | Arithmetic operators - -module CsoundExpr.Base.Arithmetic - (Opr2, (<+>), neg, (<->), (<*>), (), (<^>), (<%>), (^*), (^+)) -where - -import Prelude hiding (div) - -import Control.Applicative(liftA2, (<$>)) -import Data.Function(on) - -import CsoundExpr.Translator.Types -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Base.UserDefined - -import CsoundExpr.Base.Types (Irate(..), Krate(..), Arate(..)) - -import CsoundExpr.Base.Boolean - -infixr 9 ^* -infixr 8 ^+, <^> -infixr 7 <*>, -infixr 6 <+>, <->, <%> - - -subst :: (IM d a, IM d b, IM d c) => (d -> d -> c) -> (a -> b -> c) -subst f x y = f (to x) (to y) - -opr1 :: IM CsTree a => Name -> (Double -> Double) -> CsTree -> a -opr1 name fun a = maybe (unaryInfixOperation name a) - from (optim1 fun a) - -opr1p :: IM CsTree a => Name -> (Double -> Double) -> CsTree -> a -opr1p name fun a = maybe (prefixOperation name $ return a) - from (optim1 fun a) - -opr2 :: IM CsTree a => Name -> (Double -> Double -> Double) -> CsTree -> CsTree -> a -opr2 name fun a b = maybe (infixOperation name [a, b]) - from (optim2 fun a b) - -optim1 :: (Double -> Double) -> CsTree -> Maybe CsTree -optim1 fun a - | isVal a' = fmap (double . fun) $ toDouble $ value a' - | otherwise = Nothing - where a' = exprOp $ exprTreeTag a - -optim2 :: (Double -> Double -> Double) -> CsTree -> CsTree -> Maybe CsTree -optim2 fun a b - | isVal a' && isVal b' = fmap double $ - (liftA2 fun `on` toDouble . value) a' b' - | otherwise = Nothing - where a' = exprOp $ exprTreeTag a - b' = exprOp $ exprTreeTag b - - ----------------------------------------------------------- --- Type inference - -(<+>), (<->), (<*>), () :: (X a, X b, X (Opr2 a b)) => a -> b -> Opr2 a b - -(<+>) = subst $ opr2 "+" (+) -(<->) = subst $ opr2 "-" (-) -(<*>) = subst $ opr2 "*" (*) -() = subst $ opr2 "/" (/) - --- | \"power of\" operator -(<^>) :: (X a, X b, X (Opr2 a b)) => a -> b -> Opr2 a b -(<^>) = subst $ opr2 "^" (**) - --- | modulus operator -(<%>) :: (X a, X b, X (Opr2 a b)) => a -> b -> Opr2 a b -(<%>) = subst $ opr2 "%" modDouble - --- | negation -neg :: (X a) => a -> a -neg = opr1 "-" negate . to - --- | scaling -(^*) :: X a => Irate -> a -> a -(^*) = subst $ opr2 "*" (*) - --- | shifting -(^+) :: X a => Irate -> a -> a -(^+) = subst $ opr2 "+" (+) - -modDouble :: Double -> Double -> Double -modDouble a b = signum a * until ( < b') (+ (-b')) a' - where a' = abs a - b' = abs b - ----------------------------------------------------------- --- Num instances --- - -instance Eq Arate where - (==) = error "(==) is undefined" - (/=) = error "(/=) is undefined" - -instance Eq Krate where - (==) = error "(==) is undefined" - (/=) = error "(/=) is undefined" - -instance Eq Irate where - (==) = error "(==) is undefined" - (/=) = error "(/=) is undefined" - - - -instance Num Arate where - (+) = (<+>) - (*) = (<*>) - abs = opr1p "abs" abs . to - signum x = ifB (krate x >* num 0) 1 $ ifB (krate x <* num 0) (-1) 0 - (-) = (<->) - fromInteger = double . fromInteger - - -instance Fractional Arate where - (/) = () - fromRational = double . fromRational - - -instance Num Krate where - (+) = (<+>) - (*) = (<*>) - abs = opr1p "abs" abs . to - signum x = ifB (x >* num 0) 1 $ ifB (x <* num 0) (-1) 0 - (-) = (<->) - fromInteger = double . fromInteger - - -instance Fractional Krate where - (/) = () - fromRational = double . fromRational - - -instance Num Irate where - (+) = (<+>) - (*) = (<*>) - abs = opr1p "abs" abs . to - signum x = ifB (x >* num 0) 1 $ ifB (x <* num 0) (-1) 0 - (-) = (<->) - fromInteger = double . fromInteger - -num :: Irate -> Irate -num = id - -instance Fractional Irate where - (/) = () - fromRational = double . fromRational - --------------------------------------------------- --- diff --git a/src/CsoundExpr/Base/Boolean.hs b/src/CsoundExpr/Base/Boolean.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/Boolean.hs +++ /dev/null @@ -1,85 +0,0 @@ --- | replica of "Data.Boolean" module. Booleans for csound signals -module CsoundExpr.Base.Boolean ( - BoolRate, - true, false, notB, (&&*), (||*), - (==*), (/=*), (<*), (>*), (<=*), (>=*), - ifB, minB, maxB, cond, crop - ) - where - -import CsoundExpr.Translator.Types -import CsoundExpr.Translator.Cs.IM - -import qualified CsoundExpr.Translator.Cs.CsTree as La -import CsoundExpr.Translator.Cs.CsBoolean - -import qualified Data.Boolean as B -import Data.Monoid -import Control.Applicative hiding ((<*)) - - --------------------------------------------- --- Boolean instances - -toCs :: X a => a -> La.CsTree -toCs = to - ------------------------------------------ --- BoolRate - -infixr 3 &&* -infixr 2 ||* - -true = BoolRate B.true -false = BoolRate B.false -notB (BoolRate a) = BoolRate $ B.notB a -BoolRate a &&* BoolRate b = BoolRate $ a B.&&* b -BoolRate a ||* BoolRate b = BoolRate $ a B.||* b - --- IfB - -ifB :: X a => BoolRate -> a -> a -> a -ifB (BoolRate c) a b = from $ B.ifB c (toCs a) (toCs b) - --- EqB - -infix 4 ==*, /=* - -biOp :: (K a, K b) => - (La.CsTree -> La.CsTree -> CsBool) - -> a -> b -> BoolRate -biOp op a b = BoolRate $ toCs a `op` toCs b - - -(==*), (/=*) :: (K a, K b) => a -> b -> BoolRate - -(==*) = biOp (B.==*) -(/=*) = biOp (B./=*) - --- OrdB - -infix 4 <*, <=*, >=*, >* - -(<*), (>*), (>=*), (<=*) :: (K a, K b) => a -> b -> BoolRate - -(<*) = biOp (B.<*) -(>*) = biOp (B.>*) - -(>=*) = biOp (B.>=*) -(<=*) = biOp (B.<=*) - --- aux - -cond :: (Applicative f, K a) => f BoolRate -> f a -> f a -> f a -cond f a b = fmap from $ B.cond (fmap (\(BoolRate a) -> a) f) (fmap toCs a) (fmap toCs b) - -crop :: (Applicative f, Monoid (f a), K a) => f BoolRate -> f a -> f a -crop f a = cond f a mempty - - -minB, maxB :: K a => a -> a -> a - -minB a b = ifB (a <=* b) a b -maxB a b = ifB (a >=* b) a b - - diff --git a/src/CsoundExpr/Base/Gens.hs b/src/CsoundExpr/Base/Gens.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/Gens.hs +++ /dev/null @@ -1,561 +0,0 @@ -{-# LANGUAGE - MultiParamTypeClasses, - FlexibleContexts #-} - --- | Gen routines. First argument is ftable's size, load time is set to zero. --- --- --- -module CsoundExpr.Base.Gens - ( - skipNorm, - --- * Specific gens - --- | Converts values created with genXXs to some specific GEN form. --- --- >q = toFtgentmp $ gen10 4096 [1] - toFtgen, toFtgentmp, toFtgenonce, --- * Empty table (csound f0) - ftempty, --- * Sine/Cosine generators - gen09, gen10, gen11, gen19, gen30, gen33, gen34, --- * Line/Exponential Segment Generators: - gen05, gen06, gen07, gen08, gen16, gen25, gen27, --- * File Access GEN Routines: - gen01, gen23, gen28, --- * Numeric Value Access GEN Routines - gen02, gen17, --- * Window Function GEN Routines - gen20, --- * Random Function GEN Routines - gen21, gen40, gen41, gen42, gen43, --- * Waveshaping GEN Routines - gen03, gen13, gen14, gen15, --- * Amplitude Scaling GEN Routines - gen04, gen12, gen24, --- * Mixing GEN Routines - gen18, gen31, gen32, - --- * genXX'2 - - -- | Gens size is power of two - -- - -- >genXX'2 = genXX . (2^) - - - gen09'2, gen10'2, gen11'2, gen19'2, - gen30'2, gen33'2, gen34'2, - - gen05'2, gen06'2, gen07'2, gen08'2, - gen16'2, gen25'2, gen27'2, - gen01'2, gen23'2, gen28'2, - gen02'2, gen17'2, - gen20'2, - gen21'2, gen40'2, gen41'2, gen42'2, gen43'2, - gen03'2, gen13'2, gen14'2, gen15'2, - gen04'2, gen12'2, gen24'2, - gen18'2, gen31'2, gen32'2, --- * genXX'12 - - -- | Gens size is power of two plus one - -- - -- >genXX'12 = genXX . (+1) . (2^) - gen09'12, gen10'12, gen11'12, gen19'12, - gen30'12, gen33'12, gen34'12, - - gen05'12, gen06'12, gen07'12, gen08'12, - gen16'12, gen25'12, gen27'12, - - gen01'12, gen23'12, gen28'12, - gen02'12, gen17'12, - gen20'12, - gen21'12, gen40'12, gen41'12, gen42'12, gen43'12, - gen03'12, gen13'12, gen14'12, gen15'12, - gen04'12, gen12'12, gen24'12, - gen18'12, gen31'12, gen32'12 - - -) -where - - -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined -import CsoundExpr.Base.Arithmetic - -import CsoundExpr.Translator.Types -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.Cs.Utils -import CsoundExpr.Translator.Cs.IM - --- | ftempty value is rendered to 0 -ftempty :: Irate -ftempty = ftable EmptyFtable - -gen :: IM CsTree a => Id -> Size -> [CsTree] -> a -gen id n = ftable . Ftable n . GEN id - -genD :: IM CsTree a => Id -> Size -> [Double] -> a -genD id n = gen id n . map double - -genXD :: IM CsTree b => Id -> (a -> CsTree) -> Size -> a -> [Double] -> b -genXD id fun n v vs = gen id n $ fun v : map double vs - -ftval :: Irate -> CsTree -ftval = ftable . getFtable . to - --- | skip normalization. It can be applied to values created --- with genXX functions or genXX-like values (i.e. things --- converted from genXX to specific gens, or things created --- with genXX'NN) -skipNorm :: Irate -> Irate -skipNorm x - | isFtable' h = from $ mapFtable skipFt $ to x - | isOpc h = from $ skipOpc h t - | otherwise = skipErrorMsg - where (h, t) = decompCsTree $ to x - - -isFtable' :: CsExpr -> Bool -isFtable' x - | isVal x = isFtable $ value x - | otherwise = False - - -skipErrorMsg = error "skipNorm argument should be genXX or gen-like value" - -skipFt :: Ftable -> Ftable -skipFt x = case x of - (Ftable n (GEN id xs)) -> Ftable n $ GEN (-(abs id)) xs - _ -> x - -skipOpc :: CsExpr -> [CsTree] -> CsTree -skipOpc h args - | isGenLike h = pure h $ skipGenId args - | otherwise = skipErrorMsg - - -isGenLike :: CsExpr -> Bool -isGenLike = (`elem` ["ftgen", "ftgentmp", "ftgenonce"]) . opcName - -skipGenId :: [CsTree] -> [CsTree] -skipGenId xs = take 3 xs ++ (skipElem $ xs !! 3) : drop 4 xs - where skipElem = int . negate . abs . - (\(ValueInt x) -> x) . value . getCsExpr - - --- | converts values created with genXX --- to 'ftgen' csound opcode representation. --- Two first arguments assigned to zero. -toFtgen :: Irate -> Irate -toFtgen = fromGen "ftgen" - --- | converts values created with genXX --- to 'ftgentmp' csound opcode representation. --- Two first arguments assigned to zero. -toFtgentmp :: Irate -> Irate -toFtgentmp = fromGen "ftgentmp" - --- | converts values created with genXX --- to 'ftgenonce' csound opcode representation. --- Two first arguments assigned to zero. -toFtgenonce :: Irate -> Irate -toFtgenonce = fromGen "ftgenonce" - -fromGen :: String -> Irate -> Irate -fromGen name x = opcode name args - where args = int 0 : int 0 : int n : int id : xs - (Ftable n (GEN id xs)) = errorIfEmpty $ getFtable $ to x - -errorIfEmpty :: Ftable -> Ftable -errorIfEmpty x = - case x of - EmptyFtable -> error msg - _ -> x - where msg = "conversion is possible for non-empty ftables only" - - - - --- Sine/Cosine generators --- gen09, gen10, gen11, gen19, gen30, gen33, gen34, - --- GEN09 -- Generate composite waveforms made up of weighted --- sums of simple sinusoids --- f # time size 9 pna stra phsa pnb strb phsb --- pnX - partial no (relative to fundamental) --- strX - strength --- phsX - phase - --- | GEN09 - Composite waveforms made up of weighted sums of simple sinusoids. --- --- url : -gen09 :: Int -> [Double] -> Irate -gen09 = genD 9 - --- | GEN10 - Composite waveforms made up of weighted sums of simple sinusoids. --- --- url : -gen10 :: Int -> [Double] -> Irate -gen10 = genD 10 - --- | GEN11 - Additive set of cosine partials. --- --- url : -gen11 :: Int -> Int -> [Double] -> Irate -gen11 = genXD 11 int - --- | GEN19 - Composite waveforms made up of weighted sums of simple sinusoids. --- --- url : -gen19 :: Int -> [Double] -> Irate -gen19 = genD 19 - - --- | GEN30 - Generates harmonic partials by analyzing an existing table. --- --- url : -gen30 :: Int -> Irate -> [Double] -> Irate -gen30 = genXD 30 ftval - --- | GEN33 - Generate composite waveforms by mixing simple sinusoids. --- --- url : -gen33 :: Int -> Irate -> [Double] -> Irate -gen33 = genXD 33 ftval - - --- | GEN34 - Generate composite waveforms by mixing simple sinusoids. --- --- url : -gen34 :: Int -> Irate -> [Double] -> Irate -gen34 = genXD 34 ftval - --- Line/Exponential Segment Generators: --- gen05, gen06, gen07, gen08, gen16, gen25, gen27, - --- GEN05 -- Constructs functions from segments of exponential curves. --- f # time size 5 a n1 b n2 c ... --- a, b, c, etc. -- ordinate values, in odd-numbered pfields p5, p7, p9, . . . --- These must be nonzero and must be alike in sign. --- n1, n2,... -- length of segment - --- | GEN05 - Constructs functions from segments of exponential curves. --- --- url : -gen05 :: Int -> [Double] -> Irate -gen05 = genD 5 - --- | GEN06 - Generates a function comprised of segments of cubic polynomials. --- --- url : -gen06 :: Int -> [Double] -> Irate -gen06 = genD 6 - --- | GEN07 - Constructs functions from segments of straight lines. --- --- url : -gen07 :: Int -> [Double] -> Irate -gen07 = genD 7 - --- | GEN08 - Generate a piecewise cubic spline curve. --- --- url : -gen08 :: Int -> [Double] -> Irate -gen08 = genD 8 - --- | GEN16 - Creates a table from a starting value to an ending value. --- --- url : -gen16 :: Int -> [Double] -> Irate -gen16 = genD 16 - --- | GEN25 - Construct functions from segments of exponential curves in breakpoint fashion. --- --- url : -gen25 :: Int -> [Double] -> Irate -gen25 = genD 25 - --- | GEN27 - Construct functions from segments of straight lines in breakpoint fashion. --- --- url : -gen27 :: Int -> [Double] -> Irate -gen27 = genD 27 - - --- File Access GEN Routines: --- gen01, gen23, gen28, - --- | GEN01 - Transfers data from a soundfile into a function table. --- --- url : -gen01 :: Int -> String -> [Double] -> Irate -gen01 = genXD 1 string - --- | GEN23 - Reads numeric values from a text file. --- --- url : -gen23 :: Int -> String -> Irate -gen23 n file = gen 23 n [string file] - --- | GEN28 - Reads a text file which contains a time-tagged trajectory. --- --- url : -gen28 :: Int -> String -> Irate -gen28 n file = gen 28 n [string file] - - --- Numeric Value Access GEN Routines --- gen02, gen17, - --- | GEN02 - Transfers data from immediate pfields into a function table. --- --- url : -gen02 :: Int -> [Double] -> Irate -gen02 = genD 2 - --- | GEN17 - Creates a step function from given x-y pairs. --- --- url : -gen17 :: Int -> [Double] -> Irate -gen17 = genD 17 - --- Window Function GEN Routines --- gen20, - --- | GEN20 - Generates functions of different windows. --- --- url : -gen20 :: Int -> [Double] -> Irate -gen20 = genD 20 - - --- Random Function GEN Routines --- gen21, gen40, gen41, gen42, gen43, - --- | GEN21 - Generates tables of different random distributions. --- --- url : -gen21 :: Int -> [Double] -> SideEffect Irate -gen21 = genD 21 - --- | GEN41 - Generates a random list of numerical pairs. --- --- url : -gen41 :: Int -> [Double] -> SideEffect Irate -gen41 = genD 41 - --- | GEN42 - Generates a random distribution of discrete ranges of values. --- --- url : -gen42 :: Int -> [Double] -> SideEffect Irate -gen42 = genD 42 - --- | GEN40 - Generates a random distribution using a distribution histogram. --- --- url : -gen40 :: Int -> Irate -> SideEffect Irate -gen40 n ft = gen 40 n [ftval ft] - --- | GEN43 - Loads a PVOCEX file containing a PV analysis. --- --- url : -gen43 :: Int -> String -> [Double] -> Irate -gen43 = genXD 43 string - - --- Waveshaping GEN Routines --- gen03, gen13, gen14, gen15, - - --- | GEN03 - Generates a stored function table by evaluating a polynomial. --- --- url : -gen03 :: Int -> [Double] -> Irate -gen03 = genD 3 - --- | GEN13 - Stores a polynomial whose coefficients derive from the Chebyshev polynomials of the first kind. --- --- url : -gen13 :: Int -> [Double] -> Irate -gen13 = genD 13 - --- | GEN14 - Stores a polynomial whose coefficients derive from Chebyshevs of the second kind. --- --- url : -gen14 :: Int -> [Double] -> Irate -gen14 = genD 14 - --- | GEN15 - Creates two tables of stored polynomial functions. --- --- url : -gen15 :: Int -> [Double] -> Irate -gen15 = genD 15 - --- Amplitude Scaling GEN Routines --- gen04, gen12, gen24, - --- | GEN12 - Generates the log of a modified Bessel function of the second kind. --- --- url : -gen12 :: Int -> [Double] -> Irate -gen12 = genD 12 - --- | GEN04 - Generates a normalizing function. --- --- url : -gen04 :: Int -> Irate -> [Double] -> Irate -gen04 = genXD 4 ftval - --- | GEN24 - Reads numeric values from another allocated function-table and rescales them. --- --- url : -gen24 :: Int -> Irate -> [Double] -> Irate -gen24 = genXD 24 ftval - - --- Mixing GEN Routines --- gen18, gen31, gen32 - --- | GEN18 - Writes composite waveforms made up of pre-existing waveforms. --- --- url : -gen18 :: Int -> [(Irate, Double, Int, Int)] -> Irate -gen18 n xs = gen 18 n (f =<< xs) - where f (x1, x2, x3, x4) = [ftval x1, double x2, int x3, int x4] - --- | GEN31 - Mixes any waveform specified in an existing table. --- --- url : -gen31 :: Int -> Irate -> [Double] -> Irate -gen31 = genXD 31 ftval - --- | GEN32 - Mixes any waveform, resampled with either FFT or linear interpolation. --- --- url : -gen32 :: Int -> [(Irate, Int, Double, Double)] -> Irate -gen32 n xs = gen 32 n (f =<< xs) - where f (x1, x2, x3, x4) = [ftval x1, int x2, double x3, double x4] - --------------------------------------------------------------- --- - --- genXX'(12|2) generation program - -{- -import Text.PrettyPrint - -ids = [9, 10, 11, 19, 30, 33, 34] ++ - [5 .. 8] ++ [16, 25, 27] ++ - [1, 23, 28] ++ - [2, 17] ++ - [20] ++ - [21] ++ [40 .. 43] ++ - [3] ++ [13 .. 15] ++ - [4, 12, 24] ++ - [18, 31, 32] - - -toStr x - | length s == 1 = "0" ++ s - | otherwise = s - where s = show x - --- genXX'2 = genXX . (^2) -toGen'2 x = show $ name <> text "'2" <+> equals <+> name <+> text ". (^2)" - where name = text "gen" <> text (toStr x) - - --- genXX'12 = genXX . (+1) . (^2) -toGen'12 x = show $ name <> text "'12" <+> equals <+> name <+> text ". (+1) . (^2)" - where name = text "gen" <> text (toStr x) - - - -main = do - mapM_ (putStrLn . toGen'12) ids - --} - --------------------------------------------------------------- --- genXX'2 --- - -gen09'2 = gen09 . (2^) -gen10'2 = gen10 . (2^) -gen11'2 = gen11 . (2^) -gen19'2 = gen19 . (2^) -gen30'2 = gen30 . (2^) -gen33'2 = gen33 . (2^) -gen34'2 = gen34 . (2^) -gen05'2 = gen05 . (2^) -gen06'2 = gen06 . (2^) -gen07'2 = gen07 . (2^) -gen08'2 = gen08 . (2^) -gen16'2 = gen16 . (2^) -gen25'2 = gen25 . (2^) -gen27'2 = gen27 . (2^) -gen01'2 = gen01 . (2^) -gen23'2 = gen23 . (2^) -gen28'2 = gen28 . (2^) -gen02'2 = gen02 . (2^) -gen17'2 = gen17 . (2^) -gen20'2 = gen20 . (2^) -gen21'2 = gen21 . (2^) -gen40'2 = gen40 . (2^) -gen41'2 = gen41 . (2^) -gen42'2 = gen42 . (2^) -gen43'2 = gen43 . (2^) -gen03'2 = gen03 . (2^) -gen13'2 = gen13 . (2^) -gen14'2 = gen14 . (2^) -gen15'2 = gen15 . (2^) -gen04'2 = gen04 . (2^) -gen12'2 = gen12 . (2^) -gen24'2 = gen24 . (2^) -gen18'2 = gen18 . (2^) -gen31'2 = gen31 . (2^) -gen32'2 = gen32 . (2^) - --------------------------------------------------------------- --- genXX'12 --- - -gen09'12 = gen09 . (+1) . (2^) -gen10'12 = gen10 . (+1) . (2^) -gen11'12 = gen11 . (+1) . (2^) -gen19'12 = gen19 . (+1) . (2^) -gen30'12 = gen30 . (+1) . (2^) -gen33'12 = gen33 . (+1) . (2^) -gen34'12 = gen34 . (+1) . (2^) -gen05'12 = gen05 . (+1) . (2^) -gen06'12 = gen06 . (+1) . (2^) -gen07'12 = gen07 . (+1) . (2^) -gen08'12 = gen08 . (+1) . (2^) -gen16'12 = gen16 . (+1) . (2^) -gen25'12 = gen25 . (+1) . (2^) -gen27'12 = gen27 . (+1) . (2^) -gen01'12 = gen01 . (+1) . (2^) -gen23'12 = gen23 . (+1) . (2^) -gen28'12 = gen28 . (+1) . (2^) -gen02'12 = gen02 . (+1) . (2^) -gen17'12 = gen17 . (+1) . (2^) -gen20'12 = gen20 . (+1) . (2^) -gen21'12 = gen21 . (+1) . (2^) -gen40'12 = gen40 . (+1) . (2^) -gen41'12 = gen41 . (+1) . (2^) -gen42'12 = gen42 . (+1) . (2^) -gen43'12 = gen43 . (+1) . (2^) -gen03'12 = gen03 . (+1) . (2^) -gen13'12 = gen13 . (+1) . (2^) -gen14'12 = gen14 . (+1) . (2^) -gen15'12 = gen15 . (+1) . (2^) -gen04'12 = gen04 . (+1) . (2^) -gen12'12 = gen12 . (+1) . (2^) -gen24'12 = gen24 . (+1) . (2^) -gen18'12 = gen18 . (+1) . (2^) -gen31'12 = gen31 . (+1) . (2^) -gen32'12 = gen32 . (+1) . (2^) - diff --git a/src/CsoundExpr/Base/Header.hs b/src/CsoundExpr/Base/Header.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/Header.hs +++ /dev/null @@ -1,161 +0,0 @@ --- | Header section - -module CsoundExpr.Base.Header - ( - -- * Types - Header, SignalInit, - -- * Setup variables - gSr, gKr, gKsmps, gNchnls, g0dbfs, - -- * midi instruments - massign, pgmassign, - -- * Setting instrument order - instrOrder, - -- * Header opcodes - instr0, - initA, initK, initI, - seed, ctrlinit, - -- * Constants - - -- | (gSr = 44100, gKr = 4410, gKsmps = 10) - headerMono, headerStereo - ) -where - -import CsoundExpr.Translator.Cs.CsTree (int, double, argIn, Rate(..)) -import CsoundExpr.Translator.Types -import CsoundExpr.Base.UserDefined -import CsoundExpr.Base.Imperative((<=>)) - -import CsoundExpr.Base.Arithmetic - -gSr, gKr, gKsmps, gNchnls, g0dbfs :: Irate - -gSr = argIn SetupRate "sr" -gKr = argIn SetupRate "kr" -gKsmps = argIn SetupRate "ksmps" -gNchnls = argIn SetupRate "nchnls" -g0dbfs = argIn SetupRate "0dbfs" - -massign :: [Int] -- ^ ireset - -> Int -- ^ ichnl - -> SignalOut -- ^ midi instrument - -> SignalInit -massign = Massign - -pgmassign :: [Int] -- ^ ichn - -> Int -- ^ ipgm - -> SignalOut -- ^ midi instrument - -> SignalInit -pgmassign = Pgmassign - - --- | 'instrOrder' defines relative order of instruments in orchestra --- --- Instrument is a mapping from note-interface to 'SignalOut'. If two SignalOut's --- have equal expression-tree structure they are rendered to the same instrument. --- Value in list refers to expresion-tree structure of instrument. --- --- Example : --- --- > header = [ --- > instr0 [ --- > gSr <=> 44100, --- > gKr <=> 4410, --- > gKsmps <=> 10, --- > gNchnls <=> 1], --- > instrOrder [instr1 (0, 0), instr2 ""] --- > ] --- --- > instr1 :: (Irate, Irate) -> SignalOut --- > instr1 (amp, cps) = out $ oscilA [] amp cps --- --- > instr2 :: String -> SignalOut --- > instr2 file = out $ moA1 $ diskin2 [] file (num 1) --- - -instrOrder :: [SignalOut] -> SignalInit -instrOrder = InstrOrder - - --- | header's initialization statements, like global variables initialization, seed, ctrlinit, fltk, etc. --- --- Example : --- --- > instr0 [ --- > gar "sig0" <=> initA 0, --- > gar "sig1" <=> initA 0, --- > gir "fn" <=> ftgen 0 16384 10 [1], --- > seed 0 --- > ] - -instr0 :: [SignalOut] -> SignalInit -instr0 = Instr0 . outList - - - -init' :: X a => Irate -> a -init' x = opcode "init" [to x] - --- | Puts the value of the i-time expression into a a-rate variable. - -initA :: Irate -> Arate -initA = init' - --- | Puts the value of the i-time expression into a k-rate variable. - -initK :: Irate -> Krate -initK = init' - --- | Puts the value of the i-time expression into a i-rate variable. - -initI :: Irate -> Irate -initI = init' - --- | Sets the global seed value for all x-class noise generators, as well as other opcodes that use a random call, such as grain. --- --- > seed ival - -seed :: Irate -> SignalOut -seed = outOpcode "seed" . return . to - --- | Sets the initial values for a set of MIDI controllers. --- --- > ctrlinit ichnl, ictlno1, ival1 [, ictlno2] [, ival2] [, ictlno3] \ --- > [, ival3] [,...ival32] - -ctrlinit :: Irate -> [Irate] -> SignalOut -ctrlinit ichnl ivals = outOpcode "ctrlinit" args - where args = to ichnl : map to ivals - --- | Generate a score function table from within the orchestra. --- --- > gir ftgen ifn, itime, isize, igen, iarga [, iargb ] [...] --- --- @ifn@ - is set to zero --- --- > ftgen itime isize igen [iargs] -{- -ftgen :: Irate -> Irate -> Irate -> [Irate] -> Irate -ftgen itime isize igen inits = opcode "ftgen" args - where args = [int 0, to itime, to isize, to igen] ++ map to inits --} - - -headerMono :: Header -headerMono = - return $ instr0 [ - gSr <=> 44100, - gKr <=> 4410, - gKsmps <=> 10, - gNchnls <=> 1] - - -headerStereo :: Header -headerStereo = - return $ instr0 [ - gSr <=> 44100, - gKr <=> 4410, - gKsmps <=> 10, - gNchnls <=> 2] - - diff --git a/src/CsoundExpr/Base/Imperative.hs b/src/CsoundExpr/Base/Imperative.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/Imperative.hs +++ /dev/null @@ -1,147 +0,0 @@ -{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, - TypeSynonymInstances, FlexibleContexts #-} - --- | Functions to write imperative style csound code - -module CsoundExpr.Base.Imperative ( - outList, - ar, - kr, - ir, - gar, - gkr, - gir, - Assign(..)) -where - -import CsoundExpr.Translator.Types -import CsoundExpr.Translator.Cs.IM -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.ExprTree.ExprTree - - -ar :: Name -> Arate -ar = argIn A - - -kr :: Name -> Krate -kr = argIn K - - -ir :: Name -> Irate -ir = argIn I - - -gar :: Name -> Arate -gar = argIn GA - - -gkr :: Name -> Krate -gkr = argIn GK - - -gir :: Name -> Irate -gir = argIn GI - - - -fromArgIn :: (IM CsTree a) => a -> (Rate, Name) -fromArgIn a - | isArg e = (argRate e, argName e) - | otherwise = - error "left hand side of <=> should be named expression" - where e = exprOp $ exprTreeTag t - t = to a :: CsTree - --- Assign Class - - -infixr 0 <=> - - -class Assign a where - - - (<=>) :: a -> a -> SignalOut - - -instance Assign Arate where - sig <=> expr - = let (rate, name) = fromArgIn sig in - SignalOut $ return $ argOut rate name expr - - -instance Assign Krate where - sig <=> expr - = let (rate, name) = fromArgIn sig in - SignalOut $ return $ argOut rate name expr - - -instance Assign Irate where - sig <=> expr - = let (rate, name) = fromArgIn sig in - SignalOut $ return $ argOut rate name expr - - -instance (Assign a) => Assign [a] where - sigs <=> exprs = outList $ zipWith (<=>) sigs exprs - - -instance (Assign a0, Assign a1) => Assign (a0, a1) where - (sig0, sig1) <=> (exprs0, exprs1) - = outList [sig0 <=> exprs0, sig1 <=> exprs1] - - -instance (Assign a0, Assign a1, Assign a2) => Assign (a0, a1, a2) - where - (sig0, sig1, sig2) <=> (exprs0, exprs1, exprs2) - = outList [sig0 <=> exprs0, sig1 <=> exprs1, sig2 <=> exprs2] - - -instance (Assign a0, Assign a1, Assign a2, Assign a3) => Assign - (a0, a1, a2, a3) where - (sig0, sig1, sig2, sig3) <=> (exprs0, exprs1, exprs2, exprs3) - = outList - [sig0 <=> exprs0, sig1 <=> exprs1, sig2 <=> exprs2, - sig3 <=> exprs3] - - -instance (Assign a0, Assign a1, Assign a2, Assign a3, Assign a4) => - Assign (a0, a1, a2, a3, a4) where - (sig0, sig1, sig2, sig3, sig4) <=> - (exprs0, exprs1, exprs2, exprs3, exprs4) - = outList - [sig0 <=> exprs0, sig1 <=> exprs1, sig2 <=> exprs2, - sig3 <=> exprs3, sig4 <=> exprs4] - - -instance (Assign a0, Assign a1, Assign a2, Assign a3, Assign a4, - Assign a5) => - Assign (a0, a1, a2, a3, a4, a5) where - (sig0, sig1, sig2, sig3, sig4, sig5) <=> - (exprs0, exprs1, exprs2, exprs3, exprs4, exprs5) - = outList - [sig0 <=> exprs0, sig1 <=> exprs1, sig2 <=> exprs2, - sig3 <=> exprs3, sig4 <=> exprs4, sig5 <=> exprs5] - - -instance (Assign a0, Assign a1, Assign a2, Assign a3, Assign a4, - Assign a5, Assign a6) => - Assign (a0, a1, a2, a3, a4, a5, a6) where - (sig0, sig1, sig2, sig3, sig4, sig5, sig6) <=> - (exprs0, exprs1, exprs2, exprs3, exprs4, exprs5, exprs6) - = outList - [sig0 <=> exprs0, sig1 <=> exprs1, sig2 <=> exprs2, - sig3 <=> exprs3, sig4 <=> exprs4, sig5 <=> exprs5, sig6 <=> exprs6] - - -instance (Assign a0, Assign a1, Assign a2, Assign a3, Assign a4, - Assign a5, Assign a6, Assign a7) => - Assign (a0, a1, a2, a3, a4, a5, a6, a7) where - (sig0, sig1, sig2, sig3, sig4, sig5, sig6, sig7) <=> - (exprs0, exprs1, exprs2, exprs3, exprs4, exprs5, exprs6, exprs7) - = outList - [sig0 <=> exprs0, sig1 <=> exprs1, sig2 <=> exprs2, - sig3 <=> exprs3, sig4 <=> exprs4, sig5 <=> exprs5, sig6 <=> exprs6, - sig7 <=> exprs7] - diff --git a/src/CsoundExpr/Base/MultiOut.hs b/src/CsoundExpr/Base/MultiOut.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/MultiOut.hs +++ /dev/null @@ -1,247 +0,0 @@ -{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, - TypeSynonymInstances, FlexibleContexts #-} - --- | Multiple Out - -module CsoundExpr.Base.MultiOut( - MultiOut, - mo, - moA, - moK, - moI, - mo1, - mo2, - mo3, - mo4, - mo5, - mo6, - mo7, - mo8, - moA1, - moA2, - moA3, - moA4, - moA6, - moA8, - moK1, - moK2, - moK3, - moK4, - moK6, - moK8, - moI1, - moI2, - moI3, - moI4, - moI6, - moI8) -where - -import CsoundExpr.Translator.Types -import CsoundExpr.Base.Types -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.Cs.IM - -data MultiOut = MultiOut CsTree - - -instance IM CsTree MultiOut where - from = MultiOut - to (MultiOut a) = a - - -labelMO :: (IM CsTree a) => Int -> MultiOut -> a -labelMO id x = from $ outPort id $ (to x :: CsTree) - - -rateOf :: (X a) => a -> Rate -rateOf a = head $ exprType $ exprTreeTag t1 - where t1 = to $ from t0 `asTypeOf` a :: CsTree - t0 = pure (opc "") [] :: CsTree - --- | extracts list of values - -mo :: (X a) => Int -> MultiOut -> [a] -mo n x = map (flip labelMO x) [0 .. n - 1] - - -moA :: Int -> MultiOut -> [Arate] -moA = mo - - -moK :: Int -> MultiOut -> [Krate] -moK = mo - - -moI :: Int -> MultiOut -> [Irate] -moI = mo - - -moA1 :: MultiOut -> (Arate) -moA1 = mo1 - - -moA2 :: MultiOut -> (Arate, Arate) -moA2 = mo2 - - -moA3 :: MultiOut -> (Arate, Arate, Arate) -moA3 = mo3 - - -moA4 :: MultiOut -> (Arate, Arate, Arate, Arate) -moA4 = mo4 - - -moA6 :: MultiOut -> (Arate, Arate, Arate, Arate, Arate, Arate) -moA6 = mo6 - - -moA8 :: - MultiOut -> - (Arate, Arate, Arate, Arate, Arate, Arate, Arate, Arate) -moA8 = mo8 - - -moK1 :: MultiOut -> (Krate) -moK1 = mo1 - - -moK2 :: MultiOut -> (Krate, Krate) -moK2 = mo2 - - -moK3 :: MultiOut -> (Krate, Krate, Krate) -moK3 = mo3 - - -moK4 :: MultiOut -> (Krate, Krate, Krate, Krate) -moK4 = mo4 - - -moK6 :: MultiOut -> (Krate, Krate, Krate, Krate, Krate, Krate) -moK6 = mo6 - - -moK8 :: - MultiOut -> - (Krate, Krate, Krate, Krate, Krate, Krate, Krate, Krate) -moK8 = mo8 - - - -moI1 :: MultiOut -> (Irate) -moI1 = mo1 - - -moI2 :: MultiOut -> (Irate, Irate) -moI2 = mo2 - - -moI3 :: MultiOut -> (Irate, Irate, Irate) -moI3 = mo3 - - -moI4 :: MultiOut -> (Irate, Irate, Irate, Irate) -moI4 = mo4 - - -moI6 :: MultiOut -> (Irate, Irate, Irate, Irate, Irate, Irate) -moI6 = mo6 - - -moI8 :: - MultiOut -> - (Irate, Irate, Irate, Irate, Irate, Irate, Irate, Irate) -moI8 = mo8 - - - -mo1 :: (X a0) => MultiOut -> (a0) -mo1 x = (y0) - where y0 = rateMO rs $ labelMO 0 x - rs = [rateOf y0] - - -mo2 :: (X a0, X a1) => MultiOut -> (a0, a1) -mo2 x = (y0, y1) - where y0 = rateMO rs $ labelMO 0 x - y1 = rateMO rs $ labelMO 1 x - rs = [rateOf y0, rateOf y1] - - -mo3 :: (X a0, X a1, X a2) => MultiOut -> (a0, a1, a2) -mo3 x = (y0, y1, y2) - where y0 = rateMO rs $ labelMO 0 x - y1 = rateMO rs $ labelMO 1 x - y2 = rateMO rs $ labelMO 2 x - rs = [rateOf y0, rateOf y1, rateOf y2] - - -mo4 :: (X a0, X a1, X a2, X a3) => MultiOut -> (a0, a1, a2, a3) -mo4 x = (y0, y1, y2, y3) - where y0 = rateMO rs $ labelMO 0 x - y1 = rateMO rs $ labelMO 1 x - y2 = rateMO rs $ labelMO 2 x - y3 = rateMO rs $ labelMO 3 x - rs = [rateOf y0, rateOf y1, rateOf y2, rateOf y3] - - -mo5 :: - (X a0, X a1, X a2, X a3, X a4) => MultiOut -> (a0, a1, a2, a3, a4) -mo5 x = (y0, y1, y2, y3, y4) - where y0 = rateMO rs $ labelMO 0 x - y1 = rateMO rs $ labelMO 1 x - y2 = rateMO rs $ labelMO 2 x - y3 = rateMO rs $ labelMO 3 x - y4 = rateMO rs $ labelMO 4 x - rs = [rateOf y0, rateOf y1, rateOf y2, rateOf y3, rateOf y4] - - -mo6 :: - (X a0, X a1, X a2, X a3, X a4, X a5) => - MultiOut -> (a0, a1, a2, a3, a4, a5) -mo6 x = (y0, y1, y2, y3, y4, y5) - where y0 = rateMO rs $ labelMO 0 x - y1 = rateMO rs $ labelMO 1 x - y2 = rateMO rs $ labelMO 2 x - y3 = rateMO rs $ labelMO 3 x - y4 = rateMO rs $ labelMO 4 x - y5 = rateMO rs $ labelMO 5 x - rs - = [rateOf y0, rateOf y1, rateOf y2, rateOf y3, rateOf y4, - rateOf y5] - - -mo7 :: - (X a0, X a1, X a2, X a3, X a4, X a5, X a6) => - MultiOut -> (a0, a1, a2, a3, a4, a5, a6) -mo7 x = (y0, y1, y2, y3, y4, y5, y6) - where y0 = rateMO rs $ labelMO 0 x - y1 = rateMO rs $ labelMO 1 x - y2 = rateMO rs $ labelMO 2 x - y3 = rateMO rs $ labelMO 3 x - y4 = rateMO rs $ labelMO 4 x - y5 = rateMO rs $ labelMO 5 x - y6 = rateMO rs $ labelMO 6 x - rs - = [rateOf y0, rateOf y1, rateOf y2, rateOf y3, rateOf y4, - rateOf y5, rateOf y6] - - -mo8 :: - (X a0, X a1, X a2, X a3, X a4, X a5, X a6, X a7) => - MultiOut -> (a0, a1, a2, a3, a4, a5, a6, a7) -mo8 x = (y0, y1, y2, y3, y4, y5, y6, y7) - where y0 = rateMO rs $ labelMO 0 x - y1 = rateMO rs $ labelMO 1 x - y2 = rateMO rs $ labelMO 2 x - y3 = rateMO rs $ labelMO 3 x - y4 = rateMO rs $ labelMO 4 x - y5 = rateMO rs $ labelMO 5 x - y6 = rateMO rs $ labelMO 6 x - y7 = rateMO rs $ labelMO 7 x - rs - = [rateOf y0, rateOf y1, rateOf y2, rateOf y3, rateOf y4, - rateOf y5, rateOf y6, rateOf y7] diff --git a/src/CsoundExpr/Base/Pitch.hs b/src/CsoundExpr/Base/Pitch.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/Pitch.hs +++ /dev/null @@ -1,71 +0,0 @@ - --- | Csound pitch constants for fast sketching. --- It's better to use functions from module "Temporal.Music". - -module CsoundExpr.Base.Pitch - ( - Pitch, Octave, - low, high, lower, higher, - - -- * Pitch constants - -- - -- | 'c' is 8.00, 'cs' is 8.01 etc. - c, cs, d, ds, e, es, f, fs, g, gs, a, as, b, bs, - cb, db, eb, fb, gb, ab, bb - ) -where - -import CsoundExpr.Base -import Temporal.Music(temp, Score) - -type Pitch = Irate -type Octave = Int - --- | 'high' shifts pitch one octave higher -high :: Score Pitch -> Score Pitch -high = higher 1 - --- | 'low' shifts pitch one octave lower -low :: Score Pitch -> Score Pitch -low = lower 1 - --- | 'higher' shifts pitch by @n@ octaves higher -higher :: Octave -> Score Pitch -> Score Pitch -higher n = fmap ( + (double $ fromIntegral n)) - --- | 'lower' shifts pitch by @n@ octaves lower -lower :: Octave -> Score Pitch -> Score Pitch -lower n = higher (-n) - - --- natural, sharps - -c, cs, d, ds, e, es, f, fs, g, gs, a, as, b, bs, - cb, db, eb, fb, gb, ab, bb :: Score Pitch - -c = temp 8.00 -cs = temp 8.01 -d = temp 8.02 -ds = temp 8.03 -e = temp 8.04 -f = temp 8.05 -fs = temp 8.06 -g = temp 8.07 -gs = temp 8.08 -a = temp 8.09 -as = temp 8.10 -b = temp 8.11 - -es = f -bs = high c - --- flats - -cb = low b -db = cs -eb = ds -fb = e -gb = fs -ab = gs -bb = as - diff --git a/src/CsoundExpr/Base/Pretty.hs b/src/CsoundExpr/Base/Pretty.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/Pretty.hs +++ /dev/null @@ -1,97 +0,0 @@ -module CsoundExpr.Base.Pretty( - Cs.CsoundFile, Cs.Flags, - Player, FileName, - csd, play, playDac) -where - - -import qualified CsoundExpr.Translator.Cs.CsoundFile as Cs -import CsoundExpr.Translator.Csd -import CsoundExpr.Base.Header -import CsoundExpr.Translator.Types(Dur, SignalOut) - -import System.Cmd(system) -import System.Exit(ExitCode) -import System.Directory -import qualified System.FilePath as FP - -import Temporal.Music(Score) - ---------------------------------------------------- ---------------------------------------------------- --- translator - --- | Generate csound code --- --- Csound code consists of flags, header section, instruments, --- ftables and score. Flags are represeted by @String@. See --- "CsoundExpr.Base.Header" for more details on header --- section. Instruments, ftables and score are generated from --- 'EventList' 'Dur' 'SignalOut'. From list of 'SignalOut' notes list --- of instruments is derived. Expression-tree structures of --- instruments are different from one another. An instrument --- can't be transformed into another one only with substitution --- of values in lists of expression-tree. --- --- Example (d minor) : --- --- >import Temporal.Music.Notation.Score --- > --- >import CsoundExpr --- >import CsoundExpr.Opcodes --- >import CsoundExpr.Base.Pitch --- > --- >flags = "-o dm.wav" --- > --- >setup = instr0 [ --- > gSr <=> 44100, --- > gKr <=> 4410, --- > gKsmps <=> 10, --- > gNchnls <=> 1] --- > --- >header = [setup] --- > --- >sinWave = gen10 4096 [1] --- > --- >instr :: Irate -> SignalOut --- >instr x = out $ oscilA [] (num 1000) (cpspch x) sinWave --- > --- >sco = fmap instr $ line [d, f, a, high d] --- > --- >main = print $ csd flags header sco -csd :: Cs.Flags -- ^ flags - -> Header -- ^ header section - -> Score SignalOut -- ^ score section - -> Cs.CsoundFile -- ^ csd file -csd = toCsd - - - -type Player = String -type FileName = String - --- | 'play' writes 'CsoundFile' to file in temporal direcory, --- executes csound on it, saves to .wav file, and invokes player --- --- >play "totem" "./temp" "song" $ csd flags header $ toList scores -play :: Player -> FP.FilePath -> FileName -> Cs.CsoundFile -> IO ExitCode -play playerCode tmpdir tmpfile csoundCode = do - writeFile fileCsd (show csoundCode) - system $ csound fileCsd - system $ player fileWav - where fileCsd = (tmpdir FP. tmpfile ++ ".csd") - fileWav = (tmpdir FP. tmpfile ++ ".wav") - csound = (("csound -o " ++ fileWav ++ " ") ++ ) - player = ((playerCode ++ " ") ++ ) - --- | 'playDac' writes 'CsoundFile' to in temporal direcory, --- executes csound on it, and plays online --- --- >playDac "./temp" "song" $ csd flags header $ toList scores -playDac :: FP.FilePath -> FileName -> Cs.CsoundFile -> IO ExitCode -playDac tmpdir tmpfile csoundCode = do - writeFile fileCsd (show csoundCode) - system $ csound fileCsd - where fileCsd = (tmpdir FP. tmpfile ++ ".csd") - csound = ("csound -odac " ++ ) - diff --git a/src/CsoundExpr/Base/SideEffect.hs b/src/CsoundExpr/Base/SideEffect.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/SideEffect.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE - MultiParamTypeClasses, - TypeSynonymInstances, - FlexibleInstances, - FlexibleContexts #-} - --- | Side Effects --- --- 'SideEffect' @a@ means output value @a@ of opcode is not determined --- completely by arguments and opcode itself. @a@ relies on number of --- appearences in body of instrument. Way out from 'SideEffect' is --- provided by selectors. Selector gives value and updated 'SideEffect' --- --- Example a : --- --- > q = let (a1, a2) = fst $ se2 $ unirandA (1 :: Irate) --- > in outs a1 a2 --- --- generates : --- --- > a1 unirand 1 --- > a2 unirand 1 --- > outs a1, a2 --- --- --- Example b : --- --- > q = let a1 = fst $ se1 $ unirandA (1 :: Irate) --- > a2 = fst $ se1 $ unirandA (1 :: Irate) --- > in outs a1 a2 --- --- generates : --- --- > a1 unirand 1 --- > outs a1, a1 --- --- Example c : --- --- > q = let v0 = unirandA (1 :: Irate) --- > (a1, v1) = se1 v0 --- > (a2, _) = se1 v1 --- > in outs a1 a2 --- --- generates : --- --- > a1 unirand 1 --- > a2 unirand 1 --- > outs a1, a2 --- --- - -module CsoundExpr.Base.SideEffect - (SideEffect, se, - se1, se2, se3, se4) -where - -import CsoundExpr.Base.Types -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.Cs.IM - - -data SideEffect a = SideEffect Int a - -instance IM CsTree a => IM CsTree (SideEffect a) where - from = SideEffect 0 . from . (mapPurity (const $ Unpure Nothing)) - to (SideEffect _ a) = to a - - -labelSE :: IM CsTree a => SideEffect a -> (a, SideEffect a) -labelSE (SideEffect id a) = (from $ f id $ to a, SideEffect (id+1) a) - where f :: Label -> CsTree -> CsTree - f = labelUnpure - - -se :: IM CsTree a => Int -> SideEffect a -> ([a], SideEffect a) -se n x = foldl f ([], x) [0 .. n] - where f (vs, x0) _ = let (v, x1) = se1 x0 - in (vs ++ [v], x1) - - -se1 :: IM CsTree a => SideEffect a -> (a, SideEffect a) -se1 = labelSE - -se2 :: IM CsTree a => SideEffect a -> ((a, a), SideEffect a) -se2 x0 = ((y0, y1), x2) - where (y0, x1) = se1 x0 - (y1, x2) = se1 x1 - -se3 :: IM CsTree a => SideEffect a -> ((a, a, a), SideEffect a) -se3 x0 = ((y0, y1, y2), x2) - where ((y0, y1), x1) = se2 x0 - ( y2 , x2) = se1 x1 - -se4 :: IM CsTree a => SideEffect a -> ((a, a, a, a), SideEffect a) -se4 x0 = ((y0, y1, y2, y3), x2) - where ((y0, y1, y2), x1) = se3 x0 - ( y3 , x2) = se1 x1 - diff --git a/src/CsoundExpr/Base/Types.hs b/src/CsoundExpr/Base/Types.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/Types.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-} - -module CsoundExpr.Base.Types - (X(..), K, - Arate, Krate, Irate, SignalOut, - itime, idur, num, double, string - ) -where - -import Text.PrettyPrint(Doc, vcat, text, space) - -import qualified CsoundExpr.Translator.Cs.CsTree as La - -import CsoundExpr.Translator.Cs.IM -import CsoundExpr.Translator.Types - -import CsoundExpr.Base.Imperative -import CsoundExpr.Base.UserDefined(opcode, prefixOperation) -import CsoundExpr.Translator.Csd - -------------------------------------------- --- constructors - --- | @p2@ p-field -itime :: Irate -itime = La.param 2 - --- | @p3@ p-field -idur :: Irate -idur = La.param 3 - --- | auxiliary function, to write (num n) instead of (n :: Irate) -num :: Irate -> Irate -num = id - --- | Lift 'Double' to 'Irate' -double :: Double -> Irate -double = La.double - --- | Lift 'String' to 'Irate' -string :: String -> Irate -string = La.string - ---------------------------------------------- --- show instances - -instance Show Arate where - show x = show $ vcat [title , ppCsTrees $ fromSignalOut (ar "Out" <=> x)] - where title = text "; Arate expression :" - -instance Show Krate where - show x = show $ vcat [title , ppCsTrees $ fromSignalOut (kr "Out" <=> x)] - where title = text "; Krate expression :" - -instance Show Irate where - show x = show $ vcat [title , ppCsTrees $ fromSignalOut (ir "Out" <=> x)] - where title = text "; Irate expression :" - -instance Show SignalOut where - show x = show $ vcat [title , ppCsTrees $ fromSignalOut x] - where title = text "; SignalOut expression :" - diff --git a/src/CsoundExpr/Base/UserDefined.hs b/src/CsoundExpr/Base/UserDefined.hs deleted file mode 100644 --- a/src/CsoundExpr/Base/UserDefined.hs +++ /dev/null @@ -1,135 +0,0 @@ -{-# LANGUAGE - TypeFamilies, - MultiParamTypeClasses, - TypeSynonymInstances, - FlexibleContexts #-} - --- | Functions to add your own opcodes or operations --- --- Constructor takes in 'String' and list of CsTree's. 'String' represnts --- name of opcode\/operation for rendering to csd file. 'CsTree' is an inner --- type of csound expression. Any type @a@ that belongs to 'IM' 'CsTree' @a@ --- can be converted to 'CsTree' with 'to' method. - -module CsoundExpr.Base.UserDefined - (IM(..), Opr2(..), - opcode, outOpcode, operation, - infixOperation, prefixOperation, unaryInfixOperation) -where - -import CsoundExpr.Translator.Cs.IM -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.Types - - --- | Opcode constructor --- --- Example : --- --- > ares oscil xamp, xcps, ift, [iphs] --- > kres oscil kamp, kcps, ift, [iphs] --- --- > oscilA :: (X a0, X a1) => [Irate] -> a0 -> a1 -> Irate -> Arate --- > oscilA inits xamp xcps ift = opcode "oscil" args --- > where args = [to xamp, to xcps, to ift] ++ map to inits --- --- > oscilK :: (K a0, K a1) => [Irate] -> a0 -> a1 -> Irate -> Krate --- > oscilK inits kamp kcps ift = opcode "oscil" args --- > where args = [to kamp, to kcps, to ift] ++ map to inits --- --- --- > ares noise xamp, kbeta --- --- > noise :: (X a, K b) => a -> b -> SideEffect Ares --- > noise xamp kbeta = opcode "noise" args --- > where args = [to xamp, to kbeta] --- -opcode :: IM CsTree a => String -> [CsTree] -> a -opcode name = from . pure (opc name) - --- | Constructor for opcode that doesn't produce any value --- --- Example : --- --- > outs asig1, asig2 --- --- > outs :: Arate -> Arate -> SignalOut --- > outs asig1 asig2 = outOpcode "outs" args --- > where args = [to asig1, to asig2] --- -outOpcode :: String -> [CsTree] -> SignalOut -outOpcode name = SignalOut . return . opcode name - --- | operation constructor --- --- names can be anywhere between arguments --- --- > operation names args --- --- in csound code becomes --- --- > names !! 0 ++ show (args !! 0) ++ names !! 1 ++ show (args !! 1) ++ ... -operation :: IM CsTree a => [String] -> [CsTree] -> a -operation names = from . pure (opr names) - - --- | Infix operation constructor --- --- Example : --- --- > xres = xsig1 + xsig2 --- --- > add :: (X a, X b, X (Opr2 a b)) => a -> b -> Opr2 a b --- > add a b = infixOperation "+" [to a, to b] --- - -infixOperation :: IM CsTree a => String -> [CsTree] -> a -infixOperation name = from . pure (opr ["(", name, ")"]) - --- | Prefix operation constructor --- --- Example : --- --- > xres = sin(xsig) --- --- > csSin :: X a => a -> a --- > csSin a = prefixOperation "sin" [to a] --- -prefixOperation :: IM CsTree a => String -> [CsTree] -> a -prefixOperation name = from . pure (opr [name ++ "(", ")"]) - - -unaryInfixOperation :: IM CsTree a => String -> CsTree -> a -unaryInfixOperation name = from . pure (opr ["(" ++ name, ")"]) . return - --- | 'Opr2' @a@ @b@ - defines output type of binary arithmetic operator --- --- > type instance Opr2 Irate Irate = Irate --- > type instance Opr2 Irate Krate = Krate --- > type instance Opr2 Irate Arate = Arate --- --- > type instance Opr2 Krate Irate = Krate --- > type instance Opr2 Krate Krate = Krate --- > type instance Opr2 Krate Arate = Arate --- --- > type instance Opr2 Arate Irate = Arate --- > type instance Opr2 Arate Krate = Arate --- > type instance Opr2 Arate Arate = Arate - -type family Opr2 a b --- Is -type instance Opr2 Irate Irate = Irate -type instance Opr2 Irate Krate = Krate -type instance Opr2 Irate Arate = Arate - --- Ks -type instance Opr2 Krate Irate = Krate -type instance Opr2 Krate Krate = Krate -type instance Opr2 Krate Arate = Arate - --- As -type instance Opr2 Arate Irate = Arate -type instance Opr2 Arate Krate = Arate -type instance Opr2 Arate Arate = Arate - diff --git a/src/CsoundExpr/Opcodes.hs b/src/CsoundExpr/Opcodes.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes.hs +++ /dev/null @@ -1,43 +0,0 @@ --- | Csound opcodes -module CsoundExpr.Opcodes - ( - module CsoundExpr.Opcodes.Other, - - module CsoundExpr.Opcodes.Siggen, - module CsoundExpr.Opcodes.Sigio, - module CsoundExpr.Opcodes.Sigmod, - module CsoundExpr.Opcodes.Control, - module CsoundExpr.Opcodes.Table, - module CsoundExpr.Opcodes.Math, - module CsoundExpr.Opcodes.Pitch, - module CsoundExpr.Opcodes.Midi, - module CsoundExpr.Opcodes.Spectral, - module CsoundExpr.Opcodes.Vectorial, - module CsoundExpr.Opcodes.Zak, - module CsoundExpr.Opcodes.Plugin, - module CsoundExpr.Opcodes.OSCNetwork, - module CsoundExpr.Opcodes.MixerOpcodes, - module CsoundExpr.Opcodes.SignalFlowGraphOpcodes, - module CsoundExpr.Opcodes.Imageopcodes, - module CsoundExpr.Opcodes.Miscopcodes) -where - -import CsoundExpr.Opcodes.Other - -import CsoundExpr.Opcodes.Siggen -import CsoundExpr.Opcodes.Sigio -import CsoundExpr.Opcodes.Sigmod -import CsoundExpr.Opcodes.Control -import CsoundExpr.Opcodes.Table -import CsoundExpr.Opcodes.Math -import CsoundExpr.Opcodes.Pitch -import CsoundExpr.Opcodes.Midi -import CsoundExpr.Opcodes.Spectral -import CsoundExpr.Opcodes.Vectorial -import CsoundExpr.Opcodes.Zak -import CsoundExpr.Opcodes.Plugin -import CsoundExpr.Opcodes.OSCNetwork -import CsoundExpr.Opcodes.MixerOpcodes -import CsoundExpr.Opcodes.SignalFlowGraphOpcodes -import CsoundExpr.Opcodes.Imageopcodes -import CsoundExpr.Opcodes.Miscopcodes diff --git a/src/CsoundExpr/Opcodes/Control.hs b/src/CsoundExpr/Opcodes/Control.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control.hs +++ /dev/null @@ -1,36 +0,0 @@ --- | Instrument Control -module CsoundExpr.Opcodes.Control - (module CsoundExpr.Opcodes.Control.Clockctl, - module CsoundExpr.Opcodes.Control.Durctl, - module CsoundExpr.Opcodes.Control.FltkIntro, - module CsoundExpr.Opcodes.Control.FltkValuators, - module CsoundExpr.Opcodes.Control.FltkOther, - module CsoundExpr.Opcodes.Control.FltkAppearance, - module CsoundExpr.Opcodes.Control.FltkGeneral, - module CsoundExpr.Opcodes.Control.Invocat, - module CsoundExpr.Opcodes.Control.Pgmctl, - module CsoundExpr.Opcodes.Control.Realtime, - module CsoundExpr.Opcodes.Control.Reinitn, - module CsoundExpr.Opcodes.Control.Sensing, - module CsoundExpr.Opcodes.Control.Stacks, - module CsoundExpr.Opcodes.Control.Subinstrument, - module CsoundExpr.Opcodes.Control.Timeread) -where - - - -import CsoundExpr.Opcodes.Control.Clockctl -import CsoundExpr.Opcodes.Control.Durctl -import CsoundExpr.Opcodes.Control.FltkIntro -import CsoundExpr.Opcodes.Control.FltkValuators -import CsoundExpr.Opcodes.Control.FltkOther -import CsoundExpr.Opcodes.Control.FltkAppearance -import CsoundExpr.Opcodes.Control.FltkGeneral -import CsoundExpr.Opcodes.Control.Invocat -import CsoundExpr.Opcodes.Control.Pgmctl -import CsoundExpr.Opcodes.Control.Realtime -import CsoundExpr.Opcodes.Control.Reinitn -import CsoundExpr.Opcodes.Control.Sensing -import CsoundExpr.Opcodes.Control.Stacks -import CsoundExpr.Opcodes.Control.Subinstrument -import CsoundExpr.Opcodes.Control.Timeread diff --git a/src/CsoundExpr/Opcodes/Control/Clockctl.hs b/src/CsoundExpr/Opcodes/Control/Clockctl.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Clockctl.hs +++ /dev/null @@ -1,53 +0,0 @@ --- | Clock Control -module CsoundExpr.Opcodes.Control.Clockctl - (clockoff, - clockon) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : clockoff --- --- --- * syntax : --- --- > clockoff inum --- --- --- * description : --- --- Stops one of a number of internal clocks. --- --- --- * url : - -clockoff :: Irate -> SignalOut -clockoff i0num = outOpcode "clockoff" args - where args = [to i0num] - - --- | * opcode : clockon --- --- --- * syntax : --- --- > clockon inum --- --- --- * description : --- --- Starts one of a number of internal clocks. --- --- --- * url : - -clockon :: Irate -> SignalOut -clockon i0num = outOpcode "clockon" args - where args = [to i0num] diff --git a/src/CsoundExpr/Opcodes/Control/Durctl.hs b/src/CsoundExpr/Opcodes/Control/Durctl.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Durctl.hs +++ /dev/null @@ -1,95 +0,0 @@ --- | Duration Control Statements -module CsoundExpr.Opcodes.Control.Durctl - (ihold, - turnoff, - turnoff2, - turnon) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : ihold --- --- --- * syntax : --- --- > ihold --- --- --- * description : --- --- Causes a finite-duration note to become a held note --- --- --- * url : - -ihold :: SignalOut -ihold = outOpcode "ihold" args - where args = [] - - --- | * opcode : turnoff --- --- --- * syntax : --- --- > turnoff --- --- --- * description : --- --- Enables an instrument to turn itself off. --- --- --- * url : - -turnoff :: SignalOut -turnoff = outOpcode "turnoff" args - where args = [] - - --- | * opcode : turnoff2 --- --- --- * syntax : --- --- > turnoff2 kinsno, kmode, krelease --- --- --- * description : --- --- Turn off instance(s) of other instruments at performance time. --- --- --- * url : - -turnoff2 :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SignalOut -turnoff2 k0insno k1mode k2release = outOpcode "turnoff2" args - where args = [to k0insno, to k1mode, to k2release] - - --- | * opcode : turnon --- --- --- * syntax : --- --- > turnon insnum [, itime] --- --- --- * description : --- --- Activate an instrument for an indefinite time. --- --- --- * url : - -turnon :: [Irate] -> Irate -> SignalOut -turnon i0init i1nsnum = outOpcode "turnon" args - where args = [to i1nsnum] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Control/FltkAppearance.hs b/src/CsoundExpr/Opcodes/Control/FltkAppearance.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/FltkAppearance.hs +++ /dev/null @@ -1,411 +0,0 @@ --- | Modifying FLTK Widget Appearance -module CsoundExpr.Opcodes.Control.FltkAppearance - (flColor, - flColor2, - flHide, - flLabel, - flSetAlign, - flSetBox, - flSetColor, - flSetColor2, - flSetFont, - flSetPosition, - flSetSize, - flSetText, - flSetTextColor, - flSetTextSize, - flSetTextType, - flSetVal_i, - flSetVal, - flShow) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : FLcolor --- --- --- * syntax : --- --- > FLcolor ired, igreen, iblue [, ired2, igreen2, iblue2] --- --- --- * description : --- --- Sets the primary colors to RGB values given by the user. --- --- --- * url : - -flColor :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -flColor i0init i1red i2green i3blue = outOpcode "FLcolor" args - where args = [to i1red, to i2green, to i3blue] ++ map to i0init - - --- | * opcode : FLcolor2 --- --- --- * syntax : --- --- > FLcolor2 ired, igreen, iblue --- --- --- * description : --- --- FLcolor2 is the same of FLcolor except it affects the secondary --- (selection) color. --- --- --- * url : - -flColor2 :: Irate -> Irate -> Irate -> SignalOut -flColor2 i0red i1green i2blue = outOpcode "FLcolor2" args - where args = [to i0red, to i1green, to i2blue] - - --- | * opcode : FLhide --- --- --- * syntax : --- --- > FLhide ihandle --- --- --- * description : --- --- Hides the target FLTK widget, making it invisible. --- --- --- * url : - -flHide :: Irate -> SignalOut -flHide i0handle = outOpcode "FLhide" args - where args = [to i0handle] - - --- | * opcode : FLlabel --- --- --- * syntax : --- --- > FLlabel isize, ifont, ialign, ired, igreen, iblue --- --- --- * description : --- --- Modifies a set of parameters related to the text label --- appearence of a widget (i.e. size, font, alignment and color of --- corresponding text). --- --- --- * url : - -flLabel :: - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -flLabel i0size i1font i2align i3red i4green i5blue - = outOpcode "FLlabel" args - where args - = [to i0size, to i1font, to i2align, to i3red, to i4green, - to i5blue] - - --- | * opcode : FLsetAlign --- --- --- * syntax : --- --- > FLsetAlign ialign, ihandle --- --- --- * description : --- --- FLsetAlign sets the text alignment of the label of the target --- widget. --- --- --- * url : - -flSetAlign :: Irate -> Irate -> SignalOut -flSetAlign i0align i1handle = outOpcode "FLsetAlign" args - where args = [to i0align, to i1handle] - - --- | * opcode : FLsetBox --- --- --- * syntax : --- --- > FLsetBox itype, ihandle --- --- --- * description : --- --- FLsetBox sets the appearance of a box surrounding the target --- widget. --- --- --- * url : - -flSetBox :: Irate -> Irate -> SignalOut -flSetBox i0type i1handle = outOpcode "FLsetBox" args - where args = [to i0type, to i1handle] - - --- | * opcode : FLsetColor --- --- --- * syntax : --- --- > FLsetColor ired, igreen, iblue, ihandle --- --- --- * description : --- --- FLsetColor sets the primary color of the target widget. --- --- --- * url : - -flSetColor :: Irate -> Irate -> Irate -> Irate -> SignalOut -flSetColor i0red i1green i2blue i3handle - = outOpcode "FLsetColor" args - where args = [to i0red, to i1green, to i2blue, to i3handle] - - --- | * opcode : FLsetColor2 --- --- --- * syntax : --- --- > FLsetColor2 ired, igreen, iblue, ihandle --- --- --- * description : --- --- FLsetColor2 sets the secondary (or selection) color of the --- target widget. --- --- --- * url : - -flSetColor2 :: Irate -> Irate -> Irate -> Irate -> SignalOut -flSetColor2 i0red i1green i2blue i3handle - = outOpcode "FLsetColor2" args - where args = [to i0red, to i1green, to i2blue, to i3handle] - - --- | * opcode : FLsetFont --- --- --- * syntax : --- --- > FLsetFont ifont, ihandle --- --- --- * description : --- --- FLsetFont sets the font type of the target widget. --- --- --- * url : - -flSetFont :: Irate -> Irate -> SignalOut -flSetFont i0font i1handle = outOpcode "FLsetFont" args - where args = [to i0font, to i1handle] - - --- | * opcode : FLsetPosition --- --- --- * syntax : --- --- > FLsetPosition ix, iy, ihandle --- --- --- * description : --- --- FLsetPosition sets the position of the target widget according --- to the ix and iy arguments. --- --- --- * url : - -flSetPosition :: Irate -> Irate -> Irate -> SignalOut -flSetPosition i0x i1y i2handle = outOpcode "FLsetPosition" args - where args = [to i0x, to i1y, to i2handle] - - --- | * opcode : FLsetSize --- --- --- * syntax : --- --- > FLsetSize iwidth, iheight, ihandle --- --- --- * description : --- --- FLsetSize resizes the target widget (not the size of its text) --- according to the iwidth and iheight arguments. --- --- --- * url : - -flSetSize :: Irate -> Irate -> Irate -> SignalOut -flSetSize i0width i1height i2handle = outOpcode "FLsetSize" args - where args = [to i0width, to i1height, to i2handle] - - --- | * opcode : FLsetText --- --- --- * syntax : --- --- > FLsetText "itext", ihandle --- --- --- * description : --- --- FLsetText sets the label of the target widget to the --- double-quoted text string provided with the itext argument. --- --- --- * url : - -flSetText :: String -> Irate -> SignalOut -flSetText s0itext i1handle = outOpcode "FLsetText" args - where args = [to s0itext, to i1handle] - - --- | * opcode : FLsetTextColor --- --- --- * syntax : --- --- > FLsetTextColor ired, iblue, igreen, ihandle --- --- --- * description : --- --- FLsetTextColor sets the color of the text label of the target --- widget. --- --- --- * url : - -flSetTextColor :: Irate -> Irate -> Irate -> Irate -> SignalOut -flSetTextColor i0red i1blue i2green i3handle - = outOpcode "FLsetTextColor" args - where args = [to i0red, to i1blue, to i2green, to i3handle] - - --- | * opcode : FLsetTextSize --- --- --- * syntax : --- --- > FLsetTextSize isize, ihandle --- --- --- * description : --- --- FLsetTextSize sets the size of the text label of the target --- widget. --- --- --- * url : - -flSetTextSize :: Irate -> Irate -> SignalOut -flSetTextSize i0size i1handle = outOpcode "FLsetTextSize" args - where args = [to i0size, to i1handle] - - --- | * opcode : FLsetTextType --- --- --- * syntax : --- --- > FLsetTextType itype, ihandle --- --- --- * description : --- --- FLsetTextType sets some attributes related to the fonts of the --- text label of the target widget. --- --- --- * url : - -flSetTextType :: Irate -> Irate -> SignalOut -flSetTextType i0type i1handle = outOpcode "FLsetTextType" args - where args = [to i0type, to i1handle] - - --- | * opcode : FLsetVal_i --- --- --- * syntax : --- --- > FLsetVal_i ivalue, ihandle --- --- --- * description : --- --- FLsetVal_i forces the value of a valuator to a number provided --- by the user. --- --- --- * url : - -flSetVal_i :: Irate -> Irate -> SignalOut -flSetVal_i i0value i1handle = outOpcode "FLsetVal_i" args - where args = [to i0value, to i1handle] - - --- | * opcode : FLsetVal --- --- --- * syntax : --- --- > FLsetVal ktrig, kvalue, ihandle --- --- --- * description : --- --- FLsetVal is almost identical to FLsetVal_i. Except it operates --- at k-rate and it affects the target valuator only when ktrig is --- set to a non-zero value. --- --- --- * url : - -flSetVal :: (K k0, K k1) => k0 -> k1 -> Irate -> SignalOut -flSetVal k0trig k1value i2handle = outOpcode "FLsetVal" args - where args = [to k0trig, to k1value, to i2handle] - - --- | * opcode : FLshow --- --- --- * syntax : --- --- > FLshow ihandle --- --- --- * description : --- --- FLshow restores the visibility of a previously hidden widget. --- --- --- * url : - -flShow :: Irate -> SignalOut -flShow i0handle = outOpcode "FLshow" args - where args = [to i0handle] diff --git a/src/CsoundExpr/Opcodes/Control/FltkGeneral.hs b/src/CsoundExpr/Opcodes/Control/FltkGeneral.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/FltkGeneral.hs +++ /dev/null @@ -1,32 +0,0 @@ --- | General FLTK Widget-related Opcodes -module CsoundExpr.Opcodes.Control.FltkGeneral - (flUpdate) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : FLupdate --- --- --- * syntax : --- --- > FLupdate --- --- --- * description : --- --- Same as the FLrun opcode. --- --- --- * url : - -flUpdate :: SignalOut -flUpdate = outOpcode "FLupdate" args - where args = [] diff --git a/src/CsoundExpr/Opcodes/Control/FltkIntro.hs b/src/CsoundExpr/Opcodes/Control/FltkIntro.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/FltkIntro.hs +++ /dev/null @@ -1,366 +0,0 @@ --- | FLTK Widgets and GUI controllers -module CsoundExpr.Opcodes.Control.FltkIntro - (flRun, - flGetsnap, - flLoadsnap, - flSavesnap, - flSetsnap, - flSetSnapGroup, - flGroup, - flGroupEnd, - flPack, - flPackEnd, - flPanel, - flPanelEnd, - flScroll, - flScrollEnd, - flTabs, - flTabsEnd) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : FLrun --- --- --- * syntax : --- --- > FLrun --- --- --- * description : --- --- Starts the FLTK widget thread. --- --- --- * url : - -flRun :: SignalOut -flRun = outOpcode "FLrun" args - where args = [] - - --- | * opcode : FLgetsnap --- --- --- * syntax : --- --- > inumsnap FLgetsnap index [, igroup] --- --- --- * description : --- --- Retrieves a previously stored snapshot (in memory), i.e. sets --- all valuator to the corresponding values stored in that snaphot. --- --- --- * url : - -flGetsnap :: [Irate] -> Irate -> Irate -flGetsnap i0init i1ndex = opcode "FLgetsnap" args - where args = [to i1ndex] ++ map to i0init - - --- | * opcode : FLloadsnap --- --- --- * syntax : --- --- > FLloadsnap "filename" [, igroup] --- --- --- * description : --- --- FLloadsnap loads all the snapshots contained in a file into the --- memory bank of the current orchestra. --- --- --- * url : - -flLoadsnap :: [Irate] -> String -> SignalOut -flLoadsnap i0init s1filename = outOpcode "FLloadsnap" args - where args = [to s1filename] ++ map to i0init - - --- | * opcode : FLsavesnap --- --- --- * syntax : --- --- > FLsavesnap "filename" [, igroup] --- --- --- * description : --- --- FLsavesnap saves all snapshots currently created (i.e. the --- entire memory bank) into a file. --- --- --- * url : - -flSavesnap :: [Irate] -> String -> SignalOut -flSavesnap i0init s1filename = outOpcode "FLsavesnap" args - where args = [to s1filename] ++ map to i0init - - --- | * opcode : FLsetsnap --- --- --- * syntax : --- --- > inumsnap, inumval FLsetsnap index [, ifn, igroup] --- --- --- * description : --- --- FLsetsnap stores the current status of all valuators present in --- the orchestra into a snapshot location (in memory). --- --- --- * url : - -flSetsnap :: [Irate] -> Irate -> MultiOut -flSetsnap i0init i1ndex = opcode "FLsetsnap" args - where args = [to i1ndex] ++ map to i0init - - --- | * opcode : FLsetSnapGroup --- --- --- * syntax : --- --- > FLsetSnapGroup igroup --- --- --- * description : --- --- FLsetSnapGroup determines the snapshot group of valuators --- declared after it. --- --- --- * url : - -flSetSnapGroup :: Irate -> SignalOut -flSetSnapGroup i0group = outOpcode "FLsetSnapGroup" args - where args = [to i0group] - - --- | * opcode : FLgroup --- --- --- * syntax : --- --- > FLgroup "label", iwidth, iheight, ix, iy [, iborder] [, image] --- --- --- * description : --- --- A FLTK container opcode that groups child widgets. --- --- --- * url : - -flGroup :: - [Irate] -> String -> Irate -> Irate -> Irate -> Irate -> SignalOut -flGroup i0init s1label i2width i3height i4x i5y - = outOpcode "FLgroup" args - where args - = [to s1label, to i2width, to i3height, to i4x, to i5y] ++ - map to i0init - - --- | * opcode : FLgroupEnd --- --- --- * syntax : --- --- > FLgroupEnd --- --- --- * description : --- --- Marks the end of a group of FLTK child widgets. --- --- --- * url : - -flGroupEnd :: SignalOut -flGroupEnd = outOpcode "FLgroupEnd" args - where args = [] - - --- | * opcode : FLpack --- --- --- * syntax : --- --- > FLpack iwidth, iheight, ix, iy, itype, ispace, iborder --- --- --- * description : --- --- FLpack provides the functionality of compressing and aligning --- widgets. --- --- --- * url : - -flPack :: - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -flPack i0width i1height i2x i3y i4type i5space i6border - = outOpcode "FLpack" args - where args - = [to i0width, to i1height, to i2x, to i3y, to i4type, to i5space, - to i6border] - - --- | * opcode : FLpackEnd --- --- --- * syntax : --- --- > FLpackEnd --- --- --- * description : --- --- Marks the end of a group of compressed or aligned FLTK widgets. --- --- --- * url : - -flPackEnd :: SignalOut -flPackEnd = outOpcode "FLpackEnd" args - where args = [] - - --- | * opcode : FLpanel --- --- --- * syntax : --- --- > FLpanel "label", iwidth, iheight [, ix] [, iy] [, iborder] [, ikbdcapture] [, iclose] --- --- --- * description : --- --- Creates a window that contains FLTK widgets. --- --- --- * url : - -flPanel :: [Irate] -> String -> Irate -> Irate -> SignalOut -flPanel i0init s1label i2width i3height = outOpcode "FLpanel" args - where args = [to s1label, to i2width, to i3height] ++ map to i0init - - --- | * opcode : FLpanelEnd --- --- --- * syntax : --- --- > FLpanelEnd --- --- --- * description : --- --- Marks the end of a group of FLTK widgets contained inside of a --- window (panel). --- --- --- * url : - -flPanelEnd :: SignalOut -flPanelEnd = outOpcode "FLpanelEnd" args - where args = [] - - --- | * opcode : FLscroll --- --- --- * syntax : --- --- > FLscroll iwidth, iheight [, ix] [, iy] --- --- --- * description : --- --- FLscroll adds scroll bars to an area. --- --- --- * url : - -flScroll :: [Irate] -> Irate -> Irate -> SignalOut -flScroll i0init i1width i2height = outOpcode "FLscroll" args - where args = [to i1width, to i2height] ++ map to i0init - - --- | * opcode : FLscrollEnd --- --- --- * syntax : --- --- > FLscrollEnd --- --- --- * description : --- --- A FLTK opcode that marks the end of an area with scrollbars. --- --- --- * url : - -flScrollEnd :: SignalOut -flScrollEnd = outOpcode "FLscrollEnd" args - where args = [] - - --- | * opcode : FLtabs --- --- --- * syntax : --- --- > FLtabs iwidth, iheight, ix, iy --- --- --- * description : --- --- FLtabs is a file card tabs interface that is useful to display --- several areas containing widgets in the same windows, --- alternatively. It must be used together with FLgroup, another --- container that groups child widgets. --- --- --- * url : - -flTabs :: Irate -> Irate -> Irate -> Irate -> SignalOut -flTabs i0width i1height i2x i3y = outOpcode "FLtabs" args - where args = [to i0width, to i1height, to i2x, to i3y] - - --- | * opcode : FLtabsEnd --- --- --- * syntax : --- --- > FLtabsEnd --- --- --- * description : --- --- Marks the end of a tabbed FLTK interface. --- --- --- * url : - -flTabsEnd :: SignalOut -flTabsEnd = outOpcode "FLtabsEnd" args - where args = [] diff --git a/src/CsoundExpr/Opcodes/Control/FltkOther.hs b/src/CsoundExpr/Opcodes/Control/FltkOther.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/FltkOther.hs +++ /dev/null @@ -1,456 +0,0 @@ --- | Other FLTK Widgets -module CsoundExpr.Opcodes.Control.FltkOther - (flBox, - flButBank, - flButton, - flKeyIn, - flHvsBox, - flMouse, - flPrintk, - flPrintk2, - flSlidBnk, - flSlidBnk2, - flSlidBnkGetHandle, - flSlidBnkSet, - flSlidBnk2Set, - flSlidBnk2Setk, - flValue, - flVslidBnk, - flVslidBnk2, - flXyin) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : FLbox --- --- --- * syntax : --- --- > ihandle FLbox "label", itype, ifont, isize, iwidth, iheight, ix, iy [, image] --- --- --- * description : --- --- A FLTK widget that displays text inside of a box. --- --- --- * url : - -flBox :: - [Irate] -> - String -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> Irate -flBox i0init s1label i2type i3font i4size i5width i6height i7x i8y - = opcode "FLbox" args - where args - = [to s1label, to i2type, to i3font, to i4size, to i5width, - to i6height, to i7x, to i8y] - ++ map to i0init - - --- | * opcode : FLbutBank --- --- --- * syntax : --- --- > kout, ihandle FLbutBank itype, inumx, inumy, iwidth, iheight, ix, iy, --- > iopcode [, kp1] [, kp2] [, kp3] [, kp4] [, kp5] [....] [, kpN] --- --- --- * description : --- --- A FLTK widget opcode that creates a bank of buttons. --- --- --- * url : - -flButBank :: - (K k0) => - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> [k0] -> (Krate, Irate) -flButBank i0type i1numx i2numy i3width i4height i5x i6y i7opcode - k8vals = mo2 $ opcode "FLbutBank" args - where args - = [to i0type, to i1numx, to i2numy, to i3width, to i4height, - to i5x, to i6y, to i7opcode] - ++ map to k8vals - - --- | * opcode : FLbutton --- --- --- * syntax : --- --- > kout, ihandle FLbutton "label", ion, ioff, itype, iwidth, iheight, ix, --- > iy, iopcode [, kp1] [, kp2] [, kp3] [, kp4] [, kp5] [....] [, kpN] --- --- --- * description : --- --- A FLTK widget opcode that creates a button. --- --- --- * url : - -flButton :: - (K k0) => - String -> - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> [k0] -> (Krate, Irate) -flButton s0label i1on i2off i3type i4width i5height i6x i7y - i8opcode k9vals = mo2 $ opcode "FLbutton" args - where args - = [to s0label, to i1on, to i2off, to i3type, to i4width, - to i5height, to i6x, to i7y, to i8opcode] - ++ map to k9vals - - --- | * opcode : FLkeyIn --- --- --- * syntax : --- --- > kascii FLkeyIn [ifn] --- --- --- * description : --- --- FLkeyIn informs about the status of a key pressed by the user on --- the alphanumeric keyboard when an FLTK panel has got the focus. --- --- --- * url : - -flKeyIn :: [Irate] -> Krate -flKeyIn i0init = opcode "FLkeyIn" args - where args = map to i0init - - --- | * opcode : FLhvsBox --- --- --- * syntax : --- --- > ihandle FLhvsBox inumlinesX, inumlinesY, iwidth, iheight, ix, iy [, image] --- --- --- * description : --- --- FLhvsBox displays a box with a grid useful for visualizing --- two-dimensional Hyper Vectorial Synthesis. --- --- --- * url : - -flHvsBox :: - [Irate] -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> Irate -flHvsBox i0init i1numlinesX i2numlinesY i3width i4height i5x i6y - = opcode "FLhvsBox" args - where args - = [to i1numlinesX, to i2numlinesY, to i3width, to i4height, to i5x, - to i6y] - ++ map to i0init - - --- | * opcode : FLmouse --- --- --- * syntax : --- --- > kx, ky, kb1, kb2, kb3 FLmouse [imode] --- --- --- * description : --- --- FLmouse returns the coordinates of the mouse position within an --- FLTK panel and the state of the three mouse buttons. --- --- --- * url : - -flMouse :: [Irate] -> MultiOut -flMouse i0init = opcode "FLmouse" args - where args = map to i0init - - --- | * opcode : FLprintk --- --- --- * syntax : --- --- > FLprintk itime, kval, idisp --- --- --- * description : --- --- FLprintk is similar to printk but shows values of a k-rate --- signal in a text field instead of on the console. --- --- --- * url : - -flPrintk :: (K k0) => Irate -> k0 -> Irate -> SignalOut -flPrintk i0time k1val i2disp = outOpcode "FLprintk" args - where args = [to i0time, to k1val, to i2disp] - - --- | * opcode : FLprintk2 --- --- --- * syntax : --- --- > FLprintk2 kval, idisp --- --- --- * description : --- --- FLprintk2 is similar to FLprintk but shows a k-rate variable's --- value only when it changes. --- --- --- * url : - -flPrintk2 :: (K k0) => k0 -> Irate -> SignalOut -flPrintk2 k0val i1disp = outOpcode "FLprintk2" args - where args = [to k0val, to i1disp] - - --- | * opcode : FLslidBnk --- --- --- * syntax : --- --- > FLslidBnk "names", inumsliders [, ioutable] [, iwidth] [, iheight] [, ix] --- > [, iy] [, itypetable] [, iexptable] [, istart_index] [, iminmaxtable] --- --- --- * description : --- --- FLslidBnk is a widget containing a bank of horizontal sliders. --- --- --- * url : - -flSlidBnk :: [Irate] -> String -> Irate -> SignalOut -flSlidBnk i0init s1names i2numsliders = outOpcode "FLslidBnk" args - where args = [to s1names, to i2numsliders] ++ map to i0init - - --- | * opcode : FLslidBnk2 --- --- --- * syntax : --- --- > FLslidBnk2 "names", inumsliders, ioutable, iconfigtable [,iwidth, iheight, ix, iy, istart_index] --- --- --- * description : --- --- FLslidBnk2 is a widget containing a bank of horizontal sliders. --- --- --- * url : - -flSlidBnk2 :: - [Irate] -> String -> Irate -> Irate -> Irate -> SignalOut -flSlidBnk2 i0init s1names i2numsliders i3outable i4configtable - = outOpcode "FLslidBnk2" args - where args - = [to s1names, to i2numsliders, to i3outable, to i4configtable] ++ - map to i0init - - --- | * opcode : FLslidBnkGetHandle --- --- --- * syntax : --- --- > ihandle FLslidBnkGetHandle --- --- --- * description : --- --- FLslidBnkGetHandle gets the handle of last slider bank created. --- --- --- * url : - -flSlidBnkGetHandle :: Irate -flSlidBnkGetHandle = opcode "FLslidBnkGetHandle" args - where args = [] - - --- | * opcode : FLslidBnkSet --- --- --- * syntax : --- --- > FLslidBnkSet ihandle, ifn [, istartIndex, istartSlid, inumSlid] --- --- --- * description : --- --- FLslidBnkSet modifies the values of a slider bank according to --- an array of values stored in a table. --- --- --- * url : - -flSlidBnkSet :: [Irate] -> Irate -> Irate -> SignalOut -flSlidBnkSet i0init i1handle i2fn = outOpcode "FLslidBnkSet" args - where args = [to i1handle, to i2fn] ++ map to i0init - - --- | * opcode : FLslidBnk2Set --- --- --- * syntax : --- --- > FLslidBnk2Set ihandle, ifn [, istartIndex, istartSlid, inumSlid] --- --- --- * description : --- --- FLslidBnk2Set modifies the values of a slider bank according to --- an array of values stored in a table. --- --- --- * url : - -flSlidBnk2Set :: [Irate] -> Irate -> Irate -> SignalOut -flSlidBnk2Set i0init i1handle i2fn = outOpcode "FLslidBnk2Set" args - where args = [to i1handle, to i2fn] ++ map to i0init - - --- | * opcode : FLslidBnk2Setk --- --- --- * syntax : --- --- > FLslidBnk2Setk ktrig, ihandle, ifn [, istartIndex, istartSlid, inumSlid] --- --- --- * description : --- --- FLslidBnk2Setk modifies the values of a slider bank according to --- an array of values stored in a table. --- --- --- * url : - -flSlidBnk2Setk :: - (K k0) => [Irate] -> k0 -> Irate -> Irate -> SignalOut -flSlidBnk2Setk i0init k1trig i2handle i3fn - = outOpcode "FLslidBnk2Setk" args - where args = [to k1trig, to i2handle, to i3fn] ++ map to i0init - - --- | * opcode : FLvalue --- --- --- * syntax : --- --- > ihandle FLvalue "label", iwidth, iheight, ix, iy --- --- --- * description : --- --- FLvalue shows current the value of a valuator in a text field. --- --- --- * url : - -flValue :: String -> Irate -> Irate -> Irate -> Irate -> Irate -flValue s0label i1width i2height i3x i4y = opcode "FLvalue" args - where args = [to s0label, to i1width, to i2height, to i3x, to i4y] - - --- | * opcode : FLvslidBnk --- --- --- * syntax : --- --- > FLvslidBnk "names", inumsliders [, ioutable] [, iwidth] [, iheight] [, ix] --- > [, iy] [, itypetable] [, iexptable] [, istart_index] [, iminmaxtable] --- --- --- * description : --- --- FLvslidBnk is a widget containing a bank of vertical sliders. --- --- --- * url : - -flVslidBnk :: [Irate] -> String -> Irate -> SignalOut -flVslidBnk i0init s1names i2numsliders - = outOpcode "FLvslidBnk" args - where args = [to s1names, to i2numsliders] ++ map to i0init - - --- | * opcode : FLvslidBnk2 --- --- --- * syntax : --- --- > FLvslidBnk2 "names", inumsliders, ioutable, iconfigtable [,iwidth, iheight, ix, iy, istart_index] --- --- --- * description : --- --- FLvslidBnk2 is a widget containing a bank of vertical sliders. --- --- --- * url : - -flVslidBnk2 :: - [Irate] -> String -> Irate -> Irate -> Irate -> SignalOut -flVslidBnk2 i0init s1names i2numsliders i3outable i4configtable - = outOpcode "FLvslidBnk2" args - where args - = [to s1names, to i2numsliders, to i3outable, to i4configtable] ++ - map to i0init - - --- | * opcode : FLxyin --- --- --- * syntax : --- --- > koutx, kouty, kinside FLxyin ioutx_min, ioutx_max, iouty_min, iouty_max, --- > iwindx_min, iwindx_max, iwindy_min, iwindy_max [, iexpx, iexpy, ioutx, iouty] --- --- --- * description : --- --- Similar to xyin, sense the mouse cursor position in a --- user-defined area inside an FLpanel. --- --- --- * url : - -flXyin :: - [Irate] -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -flXyin i0init i1outx_min i2outx_max i3outy_min i4outy_max - i5windx_min i6windx_max i7windy_min i8windy_max - = opcode "FLxyin" args - where args - = [to i1outx_min, to i2outx_max, to i3outy_min, to i4outy_max, - to i5windx_min, to i6windx_max, to i7windy_min, to i8windy_max] - ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Control/FltkValuators.hs b/src/CsoundExpr/Opcodes/Control/FltkValuators.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/FltkValuators.hs +++ /dev/null @@ -1,207 +0,0 @@ --- | FLTK Valuators -module CsoundExpr.Opcodes.Control.FltkValuators - (flCount, - flJoy, - flKnob, - flRoller, - flSlider, - flText) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : FLcount --- --- --- * syntax : --- --- > kout, ihandle FLcount "label", imin, imax, istep1, istep2, itype, --- > iwidth, iheight, ix, iy, iopcode [, kp1] [, kp2] [, kp3] [...] [, kpN] --- --- --- * description : --- --- Allows the user to increase/decrease a value with mouse clicks --- on a corresponding arrow button. --- --- --- * url : - -flCount :: - (K k0) => - String -> - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> [k0] -> (Krate, Irate) -flCount s0label i1min i2max i3step1 i4step2 i5type i6width i7height - i8opcode k9vals = mo2 $ opcode "FLcount" args - where args - = [to s0label, to i1min, to i2max, to i3step1, to i4step2, - to i5type, to i6width, to i7height, to i8opcode] - ++ map to k9vals - - --- | * opcode : FLjoy --- --- --- * syntax : --- --- > koutx, kouty, ihandlex, ihandley FLjoy "label", iminx, imaxx, iminy, --- > imaxy, iexpx, iexpy, idispx, idispy, iwidth, iheight, ix, iy --- --- --- * description : --- --- FLjoy is a squared area that allows the user to modify two --- output values at the same time. It acts like a joystick. --- --- --- * url : - -flJoy :: - String -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> (Krate, Krate, Irate, Irate) -flJoy s0label i1minx i2maxx i3miny i4maxy i5expx i6expy i7dispx - i8dispy i9width i10height i11x i12y = mo4 $ opcode "FLjoy" args - where args - = [to s0label, to i1minx, to i2maxx, to i3miny, to i4maxy, - to i5expx, to i6expy, to i7dispx, to i8dispy, to i9width, - to i10height, to i11x, to i12y] - - --- | * opcode : FLknob --- --- --- * syntax : --- --- > kout, ihandle FLknob "label", imin, imax, iexp, itype, idisp, iwidth, --- > ix, iy [, icursorsize] --- --- --- * description : --- --- A FLTK widget opcode that creates a knob. --- --- --- * url : - -flKnob :: - [Irate] -> - String -> - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> (Krate, Irate) -flKnob i0init s1label i2min i3max i4exp i5type i6disp i7width i8x - i9y = mo2 $ opcode "FLknob" args - where args - = [to s1label, to i2min, to i3max, to i4exp, to i5type, to i6disp, - to i7width, to i8x, to i9y] - ++ map to i0init - - --- | * opcode : FLroller --- --- --- * syntax : --- --- > kout, ihandle FLroller "label", imin, imax, istep, iexp, itype, idisp, --- > iwidth, iheight, ix, iy --- --- --- * description : --- --- FLroller is a sort of knob, but put transversally. --- --- --- * url : - -flRoller :: - String -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> (Krate, Irate) -flRoller s0label i1min i2max i3step i4exp i5type i6disp i7width - i8height i9x i10y = mo2 $ opcode "FLroller" args - where args - = [to s0label, to i1min, to i2max, to i3step, to i4exp, to i5type, - to i6disp, to i7width, to i8height, to i9x, to i10y] - - --- | * opcode : FLslider --- --- --- * syntax : --- --- > kout, ihandle FLslider "label", imin, imax, iexp, itype, idisp, iwidth, --- > iheight, ix, iy --- --- --- * description : --- --- FLslider puts a slider into the corresponding container. --- --- --- * url : - -flSlider :: - String -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> (Krate, Irate) -flSlider s0label i1min i2max i3exp i4type i5disp i6width i7height - i8x i9y = mo2 $ opcode "FLslider" args - where args - = [to s0label, to i1min, to i2max, to i3exp, to i4type, to i5disp, - to i6width, to i7height, to i8x, to i9y] - - --- | * opcode : FLtext --- --- --- * syntax : --- --- > kout, ihandle FLtext "label", imin, imax, istep, itype, iwidth, --- > iheight, ix, iy --- --- --- * description : --- --- FLtext allows the user to modify a parameter value by directly --- typing it into a text field. --- --- --- * url : - -flText :: - String -> - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> (Krate, Irate) -flText s0label i1min i2max i3step i4type i5width i6height i7x i8y - = mo2 $ opcode "FLtext" args - where args - = [to s0label, to i1min, to i2max, to i3step, to i4type, - to i5width, to i6height, to i7x, to i8y] diff --git a/src/CsoundExpr/Opcodes/Control/Invocat.hs b/src/CsoundExpr/Opcodes/Control/Invocat.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Invocat.hs +++ /dev/null @@ -1,58 +0,0 @@ --- | Instrument Invocation -module CsoundExpr.Opcodes.Control.Invocat - (scoreline_i, - scoreline) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : scoreline_i --- --- --- * syntax : --- --- > scoreline_i Sin --- --- --- * description : --- --- scoreline_i will issue score events at i-time. It can handle --- strings in the same conditions as the standard score. Multi-line --- strings are accepted, using {{ }} to enclose the string. --- --- --- * url : - -scoreline_i :: String -> SignalOut -scoreline_i s0in = outOpcode "scoreline_i" args - where args = [to s0in] - - --- | * opcode : scoreline --- --- --- * syntax : --- --- > scoreline Sin, ktrig --- --- --- * description : --- --- Scoreline will issue one or more score events, if ktrig is 1 --- every k-period. It can handle strings in the same conditions as --- the standard score. Multi-line strings are accepted, using {{ }} --- to enclose the string. --- --- --- * url : - -scoreline :: (K k0) => String -> k0 -> SignalOut -scoreline s0in k1trig = outOpcode "scoreline" args - where args = [to s0in, to k1trig] diff --git a/src/CsoundExpr/Opcodes/Control/Pgmctl.hs b/src/CsoundExpr/Opcodes/Control/Pgmctl.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Pgmctl.hs +++ /dev/null @@ -1,54 +0,0 @@ --- | Program Flow Control -module CsoundExpr.Opcodes.Control.Pgmctl - (else', - endif) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : else --- --- --- * syntax : --- --- > else --- --- --- * description : --- --- Executes a block of code when an "if...then" condition is false. --- --- --- * url : - -else' :: SignalOut -else' = outOpcode "else" args - where args = [] - - --- | * opcode : endif --- --- --- * syntax : --- --- > endif --- --- --- * description : --- --- Closes a block of code that begins with an "if...then" --- statement. --- --- --- * url : - -endif :: SignalOut -endif = outOpcode "endif" args - where args = [] diff --git a/src/CsoundExpr/Opcodes/Control/Realtime.hs b/src/CsoundExpr/Opcodes/Control/Realtime.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Realtime.hs +++ /dev/null @@ -1,164 +0,0 @@ --- | Real-time Performance Control -module CsoundExpr.Opcodes.Control.Realtime - (activeI, - activeK, - cpuprc, - maxalloc, - preallocI, - preallocS, - jacktransport) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : active --- --- --- * syntax : --- --- > ir active insnum --- > kres active kinsnum --- --- --- * description : --- --- Returns the number of active instances of an instrument. --- --- --- * url : - -activeI :: Irate -> Irate -activeI i0nsnum = opcode "active" args - where args = [to i0nsnum] - - --- | * opcode : active --- --- --- * syntax : --- --- > ir active insnum --- > kres active kinsnum --- --- --- * description : --- --- Returns the number of active instances of an instrument. --- --- --- * url : - -activeK :: (K k0) => k0 -> Krate -activeK k0insnum = opcode "active" args - where args = [to k0insnum] - - --- | * opcode : cpuprc --- --- --- * syntax : --- --- > cpuprc insnum, ipercent --- --- --- * description : --- --- Control allocation of cpu resources on a per-instrument basis, --- to optimize realtime output. --- --- --- * url : - -cpuprc :: Irate -> Irate -> SignalOut -cpuprc i0nsnum i1percent = outOpcode "cpuprc" args - where args = [to i0nsnum, to i1percent] - - --- | * opcode : maxalloc --- --- --- * syntax : --- --- > maxalloc insnum, icount --- --- --- * description : --- --- Limits the number of allocations of an instrument. --- --- --- * url : - -maxalloc :: Irate -> Irate -> SignalOut -maxalloc i0nsnum i1count = outOpcode "maxalloc" args - where args = [to i0nsnum, to i1count] - - --- | * opcode : prealloc --- --- --- * syntax : --- --- > prealloc insnum, icount --- > prealloc "insname", icount --- --- --- * description : --- --- Creates space for instruments but does not run them. --- --- --- * url : - -preallocI :: Irate -> Irate -> SignalOut -preallocI i0nsnum i1count = outOpcode "prealloc" args - where args = [to i0nsnum, to i1count] - - --- | * opcode : prealloc --- --- --- * syntax : --- --- > prealloc insnum, icount --- > prealloc "insname", icount --- --- --- * description : --- --- Creates space for instruments but does not run them. --- --- --- * url : - -preallocS :: String -> Irate -> SignalOut -preallocS s0insname i1count = outOpcode "prealloc" args - where args = [to s0insname, to i1count] - - --- | * opcode : jacktransport --- --- --- * syntax : --- --- > jacktransport icommand [, ilocation] --- --- --- * description : --- --- Start/stop jack_transport and can optionally relocate the --- playback head. --- --- --- * url : - -jacktransport :: [Irate] -> Irate -> SignalOut -jacktransport i0init i1command = outOpcode "jacktransport" args - where args = [to i1command] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Control/Reinitn.hs b/src/CsoundExpr/Opcodes/Control/Reinitn.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Reinitn.hs +++ /dev/null @@ -1,98 +0,0 @@ --- | Initialization and Reinitialization -module CsoundExpr.Opcodes.Control.Reinitn - (tival, - passign, - pset, - rireturn) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : tival --- --- --- * syntax : --- --- > ir tival --- --- --- * description : --- --- Puts the value of the instrument's internal tie-in flag into the --- named i-rate variable. --- --- --- * url : - -tival :: Irate -tival = opcode "tival" args - where args = [] - - --- | * opcode : passign --- --- --- * syntax : --- --- > ivar1,... passign [istart] --- --- --- * description : --- --- Assigns a range of p-fields to ivariables. --- --- --- * url : - -passign :: [Irate] -> Irate -passign i0init = opcode "passign" args - where args = map to i0init - - --- | * opcode : pset --- --- --- * syntax : --- --- > pset icon1 [, icon2] [...] --- --- --- * description : --- --- Defines and initializes numeric arrays at orchestra load time. --- --- --- * url : - -pset :: Irate -> SignalOut -pset i0vals = outOpcode "pset" args - where args = [to i0vals] - - --- | * opcode : rireturn --- --- --- * syntax : --- --- > rireturn --- --- --- * description : --- --- Terminates a reinit pass (i.e., no-op at standard i-time). This --- statement, or an endin, will cause normal performance to be --- resumed. --- --- --- * url : - -rireturn :: SignalOut -rireturn = outOpcode "rireturn" args - where args = [] diff --git a/src/CsoundExpr/Opcodes/Control/Sensing.hs b/src/CsoundExpr/Opcodes/Control/Sensing.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Sensing.hs +++ /dev/null @@ -1,604 +0,0 @@ --- | Sensing and Control -module CsoundExpr.Opcodes.Control.Sensing - (button, - checkbox, - control, - setctrl, - sensekey, - xyin, - follow, - follow2, - peakA, - peakK, - rms, - ptrack, - pitch, - pitchamdf, - tempest, - tempo, - miditempo, - tempoval, - seqtime, - seqtime2, - trigger, - timedseq, - changed, - getcfg, - rewindscore) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : button --- --- --- * syntax : --- --- > kres button knum --- --- --- * description : --- --- Sense on-screen controls. Requires Winsound or TCL/TK. --- --- --- * url : - -button :: (K k0) => k0 -> Krate -button k0num = opcode "button" args - where args = [to k0num] - - --- | * opcode : checkbox --- --- --- * syntax : --- --- > kres checkbox knum --- --- --- * description : --- --- Sense on-screen controls. Requires Winsound or TCL/TK. --- --- --- * url : - -checkbox :: (K k0) => k0 -> Krate -checkbox k0num = opcode "checkbox" args - where args = [to k0num] - - --- | * opcode : control --- --- --- * syntax : --- --- > kres control knum --- --- --- * description : --- --- Configurable slider controls for realtime user input. Requires --- Winsound or TCL/TK. control reads a slider's value. --- --- --- * url : - -control :: (K k0) => k0 -> Krate -control k0num = opcode "control" args - where args = [to k0num] - - --- | * opcode : setctrl --- --- --- * syntax : --- --- > setctrl inum, ival, itype --- --- --- * description : --- --- Configurable slider controls for realtime user input. Requires --- Winsound or TCL/TK. setctrl sets a slider to a specific value, or --- sets a minimum or maximum range. --- --- --- * url : - -setctrl :: Irate -> Irate -> Irate -> SignalOut -setctrl i0num i1val i2type = outOpcode "setctrl" args - where args = [to i0num, to i1val, to i2type] - - --- | * opcode : sensekey --- --- --- * syntax : --- --- > kres[, kkeydown] sensekey --- --- --- * description : --- --- Returns the ASCII code of a key that has been pressed, or -1 if --- no key has been pressed. --- --- --- * url : - -sensekey :: MultiOut -sensekey = opcode "sensekey" args - where args = [] - - --- | * opcode : xyin --- --- --- * syntax : --- --- > kx, ky xyin iprd, ixmin, ixmax, iymin, iymax [, ixinit] [, iyinit] --- --- --- * description : --- --- Sense the cursor position in an output window. When xyin is --- called the position of the mouse within the output window is used --- to reply to the request. This simple mechanism does mean that --- only one xyin can be used accurately at once. The position of the --- mouse is reported in the output window. --- --- --- * url : - -xyin :: - [Irate] -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -xyin i0init i1prd i2xmin i3xmax i4ymin i5ymax = opcode "xyin" args - where args - = [to i1prd, to i2xmin, to i3xmax, to i4ymin, to i5ymax] ++ - map to i0init - - --- | * opcode : follow --- --- --- * syntax : --- --- > ares follow asig, idt --- --- --- * description : --- --- Envelope follower unit generator. --- --- --- * url : - -follow :: Arate -> Irate -> Arate -follow a0sig i1dt = opcode "follow" args - where args = [to a0sig, to i1dt] - - --- | * opcode : follow2 --- --- --- * syntax : --- --- > ares follow2 asig, katt, krel --- --- --- * description : --- --- A controllable envelope extractor using the algorithm attributed --- to Jean-Marc Jot. --- --- --- * url : - -follow2 :: (K k0, K k1) => Arate -> k0 -> k1 -> Arate -follow2 a0sig k1att k2rel = opcode "follow2" args - where args = [to a0sig, to k1att, to k2rel] - - --- | * opcode : peak --- --- --- * syntax : --- --- > kres peak asig --- > kres peak ksig --- --- --- * description : --- --- These opcodes maintain the output k-rate variable as the peak --- absolute level so far received. --- --- --- * url : - -peakA :: Arate -> Krate -peakA a0sig = opcode "peak" args - where args = [to a0sig] - - --- | * opcode : peak --- --- --- * syntax : --- --- > kres peak asig --- > kres peak ksig --- --- --- * description : --- --- These opcodes maintain the output k-rate variable as the peak --- absolute level so far received. --- --- --- * url : - -peakK :: (K k0) => k0 -> Krate -peakK k0sig = opcode "peak" args - where args = [to k0sig] - - --- | * opcode : rms --- --- --- * syntax : --- --- > kres rms asig [, ihp] [, iskip] --- --- --- * description : --- --- Determines the root-mean-square amplitude of an audio signal. It --- low-pass filters the actual value, to average in the manner of a --- VU meter. --- --- --- * url : - -rms :: [Irate] -> Arate -> Krate -rms i0init a1sig = opcode "rms" args - where args = [to a1sig] ++ map to i0init - - --- | * opcode : ptrack --- --- --- * syntax : --- --- > kcps, kamp ptrack asig, ihopsize[,ipeaks] --- --- --- * description : --- --- ptrack takes an input signal, splits it into ihopsize blocks and --- using a STFT method, extracts an estimated pitch for its --- fundamental frequency as well as estimating the total amplitude --- of the signal in dB, relative to full-scale (0dB). The method --- implies an analysis window size of 2*ihopsize samples (overlaping --- by 1/2 window), which has to be a power-of-two, between 128 and --- 8192 (hopsizes between 64 and 4096). Smaller windows will give --- better time precision, but worse frequency accuracy (esp. in low --- fundamentals).This opcode is based on an original algorithm by M. --- Puckette. --- --- --- * url : - -ptrack :: [Irate] -> Arate -> Irate -> MultiOut -ptrack i0init a1sig i2hopsize = opcode "ptrack" args - where args = [to a1sig, to i2hopsize] ++ map to i0init - - --- | * opcode : pitch --- --- --- * syntax : --- --- > koct, kamp pitch asig, iupdte, ilo, ihi, idbthresh [, ifrqs] [, iconf] --- > [, istrt] [, iocts] [, iq] [, inptls] [, irolloff] [, iskip] --- --- --- * description : --- --- Using the same techniques as spectrum and specptrk, pitch tracks --- the pitch of the signal in octave point decimal form, and --- amplitude in dB. --- --- --- * url : - -pitch :: - [Irate] -> Arate -> Irate -> Irate -> Irate -> Irate -> MultiOut -pitch i0init a1sig i2updte i3lo i4hi i5dbthresh - = opcode "pitch" args - where args - = [to a1sig, to i2updte, to i3lo, to i4hi, to i5dbthresh] ++ - map to i0init - - --- | * opcode : pitchamdf --- --- --- * syntax : --- --- > kcps, krms pitchamdf asig, imincps, imaxcps [, icps] [, imedi] --- > [, idowns] [, iexcps] [, irmsmedi] --- --- --- * description : --- --- Follows the pitch of a signal based on the AMDF method (Average --- Magnitude Difference Function). Outputs pitch and amplitude --- tracking signals. The method is quite fast and should run in --- realtime. This technique usually works best for monophonic --- signals. --- --- --- * url : - -pitchamdf :: [Irate] -> Arate -> Irate -> Irate -> MultiOut -pitchamdf i0init a1sig i2mincps i3maxcps = opcode "pitchamdf" args - where args = [to a1sig, to i2mincps, to i3maxcps] ++ map to i0init - - --- | * opcode : tempest --- --- --- * syntax : --- --- > ktemp tempest kin, iprd, imindur, imemdur, ihp, ithresh, ihtim, ixfdbak, --- > istartempo, ifn [, idisprd] [, itweek] --- --- --- * description : --- --- Estimate the tempo of beat patterns in a control signal. --- --- --- * url : - -tempest :: - (K k0) => - [Irate] -> - k0 -> - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> Krate -tempest i0init k1in i2prd i3mindur i4memdur i5hp i6thresh i7htim - i8xfdbak i9startempo i10fn = opcode "tempest" args - where args - = [to k1in, to i2prd, to i3mindur, to i4memdur, to i5hp, - to i6thresh, to i7htim, to i8xfdbak, to i9startempo, to i10fn] - ++ map to i0init - - --- | * opcode : tempo --- --- --- * syntax : --- --- > tempo ktempo, istartempo --- --- --- * description : --- --- Apply tempo control to an uninterpreted score. --- --- --- * url : - -tempo :: (K k0) => k0 -> Irate -> SignalOut -tempo k0tempo i1startempo = outOpcode "tempo" args - where args = [to k0tempo, to i1startempo] - - --- | * opcode : miditempo --- --- --- * syntax : --- --- > ksig miditempo --- --- --- * description : --- --- Returns the current tempo at k-rate, of either the MIDI file (if --- available) or the score --- --- --- * url : - -miditempo :: Krate -miditempo = opcode "miditempo" args - where args = [] - - --- | * opcode : tempoval --- --- --- * syntax : --- --- > kres tempoval --- --- --- * description : --- --- Reads the current value of the tempo. --- --- --- * url : - -tempoval :: Krate -tempoval = opcode "tempoval" args - where args = [] - - --- | * opcode : seqtime --- --- --- * syntax : --- --- > ktrig_out seqtime ktime_unit, kstart, kloop, kinitndx, kfn_times --- --- --- * description : --- --- Generates a trigger signal according to the values stored in a --- table. --- --- --- * url : - -seqtime :: - (K k0, K k1, K k2, K k3, K k4) => - k0 -> k1 -> k2 -> k3 -> k4 -> Krate -seqtime k0time_unit k1start k2loop k3initndx k4fn_times - = opcode "seqtime" args - where args - = [to k0time_unit, to k1start, to k2loop, to k3initndx, - to k4fn_times] - - --- | * opcode : seqtime2 --- --- --- * syntax : --- --- > ktrig_out seqtime2 ktrig_in, ktime_unit, kstart, kloop, kinitndx, kfn_times --- --- --- * description : --- --- Generates a trigger signal according to the values stored in a --- table. --- --- --- * url : - -seqtime2 :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Krate -seqtime2 k0trig_in k1time_unit k2start k3loop k4initndx k5fn_times - = opcode "seqtime2" args - where args - = [to k0trig_in, to k1time_unit, to k2start, to k3loop, - to k4initndx, to k5fn_times] - - --- | * opcode : trigger --- --- --- * syntax : --- --- > kout trigger ksig, kthreshold, kmode --- --- --- * description : --- --- Informs when a krate signal crosses a threshold. --- --- --- * url : - -trigger :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -trigger k0sig k1threshold k2mode = opcode "trigger" args - where args = [to k0sig, to k1threshold, to k2mode] - - --- | * opcode : timedseq --- --- --- * syntax : --- --- > ktrig timedseq ktimpnt, ifn, kp1 [,kp2, kp3,...,kpN] --- --- --- * description : --- --- An event-sequencer in which time can be controlled by a --- time-pointer. Sequence data are stored into a table. --- --- --- * url : - -timedseq :: (K k0, K k1) => k0 -> Irate -> [k1] -> Krate -timedseq k0timpnt i1fn k2pN = opcode "timedseq" args - where args = [to k0timpnt, to i1fn] ++ map to k2pN - - --- | * opcode : changed --- --- --- * syntax : --- --- > ktrig changed kvar1 [, kvar2,..., kvarN] --- --- --- * description : --- --- This opcode outputs a trigger signal that informs when any one --- of its k-rate arguments has changed. Useful with valuator widgets --- or MIDI controllers. --- --- --- * url : - -changed :: (K k0) => [k0] -> Krate -changed k0varN = opcode "changed" args - where args = map to k0varN - - --- | * opcode : getcfg --- --- --- * syntax : --- --- > Svalue getcfg iopt --- --- --- * description : --- --- Return various configuration settings in Svalue as a string at --- init time. --- --- --- * url : - -getcfg :: Irate -> String -getcfg i0opt = opcode "getcfg" args - where args = [to i0opt] - - --- | * opcode : rewindscore --- --- --- * syntax : --- --- > rewindscore --- --- --- * description : --- --- Rewinds the playback position of the current score performance.. --- --- --- * url : - -rewindscore :: SignalOut -rewindscore = outOpcode "rewindscore" args - where args = [] diff --git a/src/CsoundExpr/Opcodes/Control/Stacks.hs b/src/CsoundExpr/Opcodes/Control/Stacks.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Stacks.hs +++ /dev/null @@ -1,76 +0,0 @@ --- | Stacks -module CsoundExpr.Opcodes.Control.Stacks - (stack, - pop, - push) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : stack --- --- --- * syntax : --- --- > stack iStackSize --- --- --- * description : --- --- Initializes and sets the size of the global stack. --- --- --- * url : - -stack :: Irate -> SignalOut -stack i0StackSize = outOpcode "stack" args - where args = [to i0StackSize] - - --- | * opcode : pop --- --- --- * syntax : --- --- > xval1, [xval2,..., xval31] pop --- > ival1, [ival2,..., ival31] pop --- --- --- * description : --- --- Pops values from the global stack. --- --- --- * url : - -pop :: MultiOut -pop = opcode "pop" args - where args = [] - - --- | * opcode : push --- --- --- * syntax : --- --- > push xval1, [xval2,..., xval31] --- > push ival1, [ival2,..., ival31] --- --- --- * description : --- --- Pushes a value into the global stack. --- --- --- * url : - -push :: (X x0) => [x0] -> SignalOut -push x0valN = outOpcode "push" args - where args = map to x0valN diff --git a/src/CsoundExpr/Opcodes/Control/Subinstrument.hs b/src/CsoundExpr/Opcodes/Control/Subinstrument.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Subinstrument.hs +++ /dev/null @@ -1,13 +0,0 @@ --- | Sub-instrument Control -module CsoundExpr.Opcodes.Control.Subinstrument - () -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - diff --git a/src/CsoundExpr/Opcodes/Control/Timeread.hs b/src/CsoundExpr/Opcodes/Control/Timeread.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Control/Timeread.hs +++ /dev/null @@ -1,256 +0,0 @@ --- | Time Reading -module CsoundExpr.Opcodes.Control.Timeread - (readclock, - rtclockI, - rtclockK, - timeinstk, - timeinsts, - timesI, - timesK, - timekI, - timekK, - date, - dates) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : readclock --- --- --- * syntax : --- --- > ir readclock inum --- --- --- * description : --- --- Reads the value of an internal clock. --- --- --- * url : - -readclock :: Irate -> Irate -readclock i0num = opcode "readclock" args - where args = [to i0num] - - --- | * opcode : rtclock --- --- --- * syntax : --- --- > ires rtclock --- > kres rtclock --- --- --- * description : --- --- Read the real-time clock from the operating system. --- --- --- * url : - -rtclockI :: Irate -rtclockI = opcode "rtclock" args - where args = [] - - --- | * opcode : rtclock --- --- --- * syntax : --- --- > ires rtclock --- > kres rtclock --- --- --- * description : --- --- Read the real-time clock from the operating system. --- --- --- * url : - -rtclockK :: Krate -rtclockK = opcode "rtclock" args - where args = [] - - --- | * opcode : timeinstk --- --- --- * syntax : --- --- > kres timeinstk --- --- --- * description : --- --- Read absolute time, in k-rate cycles, since the start of an --- instance of an instrument. Called at both i-time as well as --- k-time. --- --- --- * url : - -timeinstk :: Krate -timeinstk = opcode "timeinstk" args - where args = [] - - --- | * opcode : timeinsts --- --- --- * syntax : --- --- > kres timeinsts --- --- --- * description : --- --- Read absolute time, in seconds, since the start of an instance --- of an instrument. --- --- --- * url : - -timeinsts :: Krate -timeinsts = opcode "timeinsts" args - where args = [] - - --- | * opcode : times --- --- --- * syntax : --- --- > ires times --- > kres times --- --- --- * description : --- --- Read absolute time, in seconds, since the start of the --- performance. --- --- --- * url : - -timesI :: Irate -timesI = opcode "times" args - where args = [] - - --- | * opcode : times --- --- --- * syntax : --- --- > ires times --- > kres times --- --- --- * description : --- --- Read absolute time, in seconds, since the start of the --- performance. --- --- --- * url : - -timesK :: Krate -timesK = opcode "times" args - where args = [] - - --- | * opcode : timek --- --- --- * syntax : --- --- > ires timek --- > kres timek --- --- --- * description : --- --- Read absolute time, in k-rate cycles, since the start of the --- performance. --- --- --- * url : - -timekI :: Irate -timekI = opcode "timek" args - where args = [] - - --- | * opcode : timek --- --- --- * syntax : --- --- > ires timek --- > kres timek --- --- --- * description : --- --- Read absolute time, in k-rate cycles, since the start of the --- performance. --- --- --- * url : - -timekK :: Krate -timekK = opcode "timek" args - where args = [] - - --- | * opcode : date --- --- --- * syntax : --- --- > ir date --- --- --- * description : --- --- Returns the number seconds since 1 January 1970, using the --- operating system's clock. --- --- --- * url : - -date :: Irate -date = opcode "date" args - where args = [] - - --- | * opcode : dates --- --- --- * syntax : --- --- > Sir dates [ itime] --- --- --- * description : --- --- Returns as a string the date and time specified. --- --- --- * url : - -dates :: [Irate] -> String -dates i0init = opcode "dates" args - where args = map to i0init diff --git a/src/CsoundExpr/Opcodes/Imageopcodes.hs b/src/CsoundExpr/Opcodes/Imageopcodes.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Imageopcodes.hs +++ /dev/null @@ -1,8 +0,0 @@ --- | Image processing opcodes -module CsoundExpr.Opcodes.Imageopcodes - (module CsoundExpr.Opcodes.Imageopcodes.Top) -where - - - -import CsoundExpr.Opcodes.Imageopcodes.Top diff --git a/src/CsoundExpr/Opcodes/Imageopcodes/Top.hs b/src/CsoundExpr/Opcodes/Imageopcodes/Top.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Imageopcodes/Top.hs +++ /dev/null @@ -1,125 +0,0 @@ --- | Image processing opcodes -module CsoundExpr.Opcodes.Imageopcodes.Top - (imagecreate, - imagesize, - imagegetpixelA, - imagegetpixelK, - imagefree) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : imagecreate --- --- --- * syntax : --- --- > iimagenum imagecreate iwidth, iheight --- --- --- * description : --- --- Create an empty image of a given size. Individual pixel values --- can then be set with. imagegetpixel. --- --- --- * url : - -imagecreate :: Irate -> Irate -> Irate -imagecreate i0width i1height = opcode "imagecreate" args - where args = [to i0width, to i1height] - - --- | * opcode : imagesize --- --- --- * syntax : --- --- > iwidth iheight imagesize iimagenum --- --- --- * description : --- --- Return the width and height of a previously opened or created --- image. An image can be loaded with imageload. An empty image can --- be created with imagecreate. --- --- --- * url : - -imagesize :: Irate -> MultiOut -imagesize i0imagenum = opcode "imagesize" args - where args = [to i0imagenum] - - --- | * opcode : imagegetpixel --- --- --- * syntax : --- --- > ared agreen ablue imagegetpixel iimagenum, ax, ay --- > kred kgreen kblue imagegetpixel iimagenum, kx, ky --- --- --- * description : --- --- Return the RGB pixel values of a previously opened or created --- image. An image can be loaded with imageload. An empty image can --- be created with imagecreate. --- --- --- * url : - -imagegetpixelA :: Irate -> Arate -> Arate -> MultiOut -imagegetpixelA i0imagenum a1x a2y = opcode "imagegetpixel" args - where args = [to i0imagenum, to a1x, to a2y] - - --- | * opcode : imagegetpixel --- --- --- * syntax : --- --- > ared agreen ablue imagegetpixel iimagenum, ax, ay --- > kred kgreen kblue imagegetpixel iimagenum, kx, ky --- --- --- * description : --- --- Return the RGB pixel values of a previously opened or created --- image. An image can be loaded with imageload. An empty image can --- be created with imagecreate. --- --- --- * url : - -imagegetpixelK :: (K k0, K k1) => Irate -> k0 -> k1 -> MultiOut -imagegetpixelK i0imagenum k1x k2y = opcode "imagegetpixel" args - where args = [to i0imagenum, to k1x, to k2y] - - --- | * opcode : imagefree --- --- --- * syntax : --- --- > imagefree iimagenum --- --- --- * description : --- --- Frees memory allocated for a previously loaded or created image. --- --- --- * url : - -imagefree :: Irate -> SignalOut -imagefree i0imagenum = outOpcode "imagefree" args - where args = [to i0imagenum] diff --git a/src/CsoundExpr/Opcodes/Math.hs b/src/CsoundExpr/Opcodes/Math.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Math.hs +++ /dev/null @@ -1,18 +0,0 @@ --- | Mathematical Operations -module CsoundExpr.Opcodes.Math - (module CsoundExpr.Opcodes.Math.Amp, - module CsoundExpr.Opcodes.Math.SigmodCompaccum, - module CsoundExpr.Opcodes.Math.Matfunc, - module CsoundExpr.Opcodes.Math.Opeqfunc, - module CsoundExpr.Opcodes.Math.Rndfunc, - module CsoundExpr.Opcodes.Math.Trig) -where - - - -import CsoundExpr.Opcodes.Math.Amp -import CsoundExpr.Opcodes.Math.SigmodCompaccum -import CsoundExpr.Opcodes.Math.Matfunc -import CsoundExpr.Opcodes.Math.Opeqfunc -import CsoundExpr.Opcodes.Math.Rndfunc -import CsoundExpr.Opcodes.Math.Trig diff --git a/src/CsoundExpr/Opcodes/Math/Amp.hs b/src/CsoundExpr/Opcodes/Math/Amp.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Math/Amp.hs +++ /dev/null @@ -1,122 +0,0 @@ --- | Amplitude Converters -module CsoundExpr.Opcodes.Math.Amp - (ampdb, - ampdbfs, - db, - dbamp, - dbfsamp) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : ampdb --- --- --- * syntax : --- --- > ampdb(x) (no rate restriction) --- --- --- * description : --- --- Returns the amplitude equivalent of the decibel value x. Thus: --- --- --- * url : - -ampdb :: (X x0) => x0 -> x0 -ampdb x0sig = prefixOperation "ampdb" args - where args = [to x0sig] - - --- | * opcode : ampdbfs --- --- --- * syntax : --- --- > ampdbfs(x) (no rate restriction) --- --- --- * description : --- --- Returns the amplitude equivalent of the full scale decibel (dB --- FS) value x. The logarithmic full scale decibel values will be --- converted to linear 16-bit signed integer values from 32,768 to --- +32,767. --- --- --- * url : - -ampdbfs :: (X x0) => x0 -> x0 -ampdbfs x0sig = prefixOperation "ampdbfs" args - where args = [to x0sig] - - --- | * opcode : db --- --- --- * syntax : --- --- > db(x) --- --- --- * description : --- --- Returns the amplitude equivalent for a given decibel amount. --- This opcode is the same as ampdb. --- --- --- * url : - -db :: (X x0) => x0 -> x0 -db x0sig = prefixOperation "db" args - where args = [to x0sig] - - --- | * opcode : dbamp --- --- --- * syntax : --- --- > dbamp(x) (init-rate or control-rate args only) --- --- --- * description : --- --- Returns the decibel equivalent of the raw amplitude x. --- --- --- * url : - -dbamp :: (K k0) => k0 -> k0 -dbamp k0sig = prefixOperation "dbamp" args - where args = [to k0sig] - - --- | * opcode : dbfsamp --- --- --- * syntax : --- --- > dbfsamp(x) (init-rate or control-rate args only) --- --- --- * description : --- --- Returns the decibel equivalent of the raw amplitude x, relative --- to full scale amplitude. Full scale is assumed to be 16 bit. New --- is Csound version 4.10. --- --- --- * url : - -dbfsamp :: (K k0) => k0 -> k0 -dbfsamp k0sig = prefixOperation "dbfsamp" args - where args = [to k0sig] diff --git a/src/CsoundExpr/Opcodes/Math/Matfunc.hs b/src/CsoundExpr/Opcodes/Math/Matfunc.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Math/Matfunc.hs +++ /dev/null @@ -1,336 +0,0 @@ --- | Mathematical Functions -module CsoundExpr.Opcodes.Math.Matfunc - (abs', - ceil, - exp', - floor', - frac, - int, - log', - log10, - logbtwo, - powA, - powI, - powK, - powoftwo, - round', - sqrt') -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : abs --- --- --- * syntax : --- --- > abs(x) (no rate restriction) --- --- --- * description : --- --- Returns the absolute value of x. --- --- --- * url : - -abs' :: (X x0) => x0 -> x0 -abs' x0sig = prefixOperation "abs" args - where args = [to x0sig] - - --- | * opcode : ceil --- --- --- * syntax : --- --- > ceil(x) (init-, control-, or audio-rate arg allowed) --- --- --- * description : --- --- Returns the smallest integer not less than x --- --- --- * url : - -ceil :: (X x0) => x0 -> x0 -ceil x0sig = prefixOperation "ceil" args - where args = [to x0sig] - - --- | * opcode : exp --- --- --- * syntax : --- --- > exp(x) (no rate restriction) --- --- --- * description : --- --- Returns e raised to the xth power. --- --- --- * url : - -exp' :: (X x0) => x0 -> x0 -exp' x0sig = prefixOperation "exp" args - where args = [to x0sig] - - --- | * opcode : floor --- --- --- * syntax : --- --- > floor(x) (init-, control-, or audio-rate arg allowed) --- --- --- * description : --- --- Returns the largest integer not greater than x --- --- --- * url : - -floor' :: (X x0) => x0 -> x0 -floor' x0sig = prefixOperation "floor" args - where args = [to x0sig] - - --- | * opcode : frac --- --- --- * syntax : --- --- > frac(x) (init-rate or control-rate args; also works at audio rate in Csound5) --- --- --- * description : --- --- Returns the fractional part of x. --- --- --- * url : - -frac :: (K k0) => k0 -> k0 -frac k0sig = prefixOperation "frac" args - where args = [to k0sig] - - --- | * opcode : int --- --- --- * syntax : --- --- > int(x) (init-rate or control-rate; also works at audio rate in Csound5) --- --- --- * description : --- --- Returns the integer part of x. --- --- --- * url : - -int :: (K k0) => k0 -> k0 -int k0sig = prefixOperation "int" args - where args = [to k0sig] - - --- | * opcode : log --- --- --- * syntax : --- --- > log(x) (no rate restriction) --- --- --- * description : --- --- Returns the natural log of x (x positive only). --- --- --- * url : - -log' :: (X x0) => x0 -> x0 -log' x0sig = prefixOperation "log" args - where args = [to x0sig] - - --- | * opcode : log10 --- --- --- * syntax : --- --- > log10(x) (no rate restriction) --- --- --- * description : --- --- Returns the base 10 log of x (x positive only). --- --- --- * url : - -log10 :: (X x0) => x0 -> x0 -log10 x0sig = prefixOperation "log10" args - where args = [to x0sig] - - --- | * opcode : logbtwo --- --- --- * syntax : --- --- > logbtwo(x) (init-rate or control-rate args only) --- --- --- * description : --- --- Performs a logarithmic base two calculation. --- --- --- * url : - -logbtwo :: (K k0) => k0 -> k0 -logbtwo k0sig = prefixOperation "logbtwo" args - where args = [to k0sig] - - --- | * opcode : pow --- --- --- * syntax : --- --- > ares pow aarg, kpow [, inorm] --- > ires pow iarg, ipow [, inorm] --- > kres pow karg, kpow [, inorm] --- --- --- * description : --- --- Computes xarg to the power of kpow (or ipow) and scales the --- result by inorm. --- --- --- * url : - -powA :: (K k0) => [Irate] -> Arate -> k0 -> Arate -powA i0init a1arg k2pow = opcode "pow" args - where args = [to a1arg, to k2pow] ++ map to i0init - - --- | * opcode : pow --- --- --- * syntax : --- --- > ares pow aarg, kpow [, inorm] --- > ires pow iarg, ipow [, inorm] --- > kres pow karg, kpow [, inorm] --- --- --- * description : --- --- Computes xarg to the power of kpow (or ipow) and scales the --- result by inorm. --- --- --- * url : - -powI :: [Irate] -> Irate -> Irate -> Irate -powI i0init i1arg i2pow = opcode "pow" args - where args = [to i1arg, to i2pow] ++ map to i0init - - --- | * opcode : pow --- --- --- * syntax : --- --- > ares pow aarg, kpow [, inorm] --- > ires pow iarg, ipow [, inorm] --- > kres pow karg, kpow [, inorm] --- --- --- * description : --- --- Computes xarg to the power of kpow (or ipow) and scales the --- result by inorm. --- --- --- * url : - -powK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -powK i0init k1arg k2pow = opcode "pow" args - where args = [to k1arg, to k2pow] ++ map to i0init - - --- | * opcode : powoftwo --- --- --- * syntax : --- --- > powoftwo(x) (init-rate or control-rate args only) --- --- --- * description : --- --- Performs a power-of-two calculation. --- --- --- * url : - -powoftwo :: (K k0) => k0 -> k0 -powoftwo k0sig = prefixOperation "powoftwo" args - where args = [to k0sig] - - --- | * opcode : round --- --- --- * syntax : --- --- > round(x) (init-, control-, or audio-rate arg allowed) --- --- --- * description : --- --- The integer value nearest to x ; if the fractional part of x is --- exactly 0.5, the direction of rounding is undefined. --- --- --- * url : - -round' :: (X x0) => x0 -> x0 -round' x0sig = prefixOperation "round" args - where args = [to x0sig] - - --- | * opcode : sqrt --- --- --- * syntax : --- --- > sqrt(x) (no rate restriction) --- --- --- * description : --- --- Returns the square root of x (x non-negative). --- --- --- * url : - -sqrt' :: (X x0) => x0 -> x0 -sqrt' x0sig = prefixOperation "sqrt" args - where args = [to x0sig] diff --git a/src/CsoundExpr/Opcodes/Math/Opeqfunc.hs b/src/CsoundExpr/Opcodes/Math/Opeqfunc.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Math/Opeqfunc.hs +++ /dev/null @@ -1,191 +0,0 @@ --- | Opcode Equivalents of Functions -module CsoundExpr.Opcodes.Math.Opeqfunc - (divzA, - divzI, - divzK, - product', - sum', - taninv2A, - taninv2I, - taninv2K) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : divz --- --- --- * syntax : --- --- > ares divz xa, xb, ksubst --- > ires divz ia, ib, isubst --- > kres divz ka, kb, ksubst --- --- --- * description : --- --- Safely divides two numbers. --- --- --- * url : - -divzA :: (X x0, X x1, K k0) => x0 -> x1 -> k0 -> Arate -divzA x0a x1b k2subst = opcode "divz" args - where args = [to x0a, to x1b, to k2subst] - - --- | * opcode : divz --- --- --- * syntax : --- --- > ares divz xa, xb, ksubst --- > ires divz ia, ib, isubst --- > kres divz ka, kb, ksubst --- --- --- * description : --- --- Safely divides two numbers. --- --- --- * url : - -divzI :: Irate -> Irate -> Irate -> Irate -divzI i0a i1b i2subst = opcode "divz" args - where args = [to i0a, to i1b, to i2subst] - - --- | * opcode : divz --- --- --- * syntax : --- --- > ares divz xa, xb, ksubst --- > ires divz ia, ib, isubst --- > kres divz ka, kb, ksubst --- --- --- * description : --- --- Safely divides two numbers. --- --- --- * url : - -divzK :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -divzK k0a k1b k2subst = opcode "divz" args - where args = [to k0a, to k1b, to k2subst] - - --- | * opcode : product --- --- --- * syntax : --- --- > ares product asig1, asig2 [, asig3] [...] --- --- --- * description : --- --- Multiplies any number of a-rate signals. --- --- --- * url : - -product' :: [Arate] -> Arate -product' a0sig = opcode "product" args - where args = map to a0sig - - --- | * opcode : sum --- --- --- * syntax : --- --- > ares sum asig1 [, asig2] [, asig3] [...] --- --- --- * description : --- --- Sums any number of a-rate signals. --- --- --- * url : - -sum' :: [Arate] -> Arate -sum' a0sig = opcode "sum" args - where args = map to a0sig - - --- | * opcode : taninv2 --- --- --- * syntax : --- --- > ares taninv2 ay, ax --- > ires taninv2 iy, ix --- > kres taninv2 ky, kx --- --- --- * description : --- --- Returns the arctangent of iy/ix, ky/kx, or ay/ax. --- --- --- * url : - -taninv2A :: Arate -> Arate -> Arate -taninv2A a0y a1x = opcode "taninv2" args - where args = [to a0y, to a1x] - - --- | * opcode : taninv2 --- --- --- * syntax : --- --- > ares taninv2 ay, ax --- > ires taninv2 iy, ix --- > kres taninv2 ky, kx --- --- --- * description : --- --- Returns the arctangent of iy/ix, ky/kx, or ay/ax. --- --- --- * url : - -taninv2I :: Irate -> Irate -> Irate -taninv2I i0y i1x = opcode "taninv2" args - where args = [to i0y, to i1x] - - --- | * opcode : taninv2 --- --- --- * syntax : --- --- > ares taninv2 ay, ax --- > ires taninv2 iy, ix --- > kres taninv2 ky, kx --- --- --- * description : --- --- Returns the arctangent of iy/ix, ky/kx, or ay/ax. --- --- --- * url : - -taninv2K :: (K k0, K k1) => k0 -> k1 -> Krate -taninv2K k0y k1x = opcode "taninv2" args - where args = [to k0y, to k1x] diff --git a/src/CsoundExpr/Opcodes/Math/Rndfunc.hs b/src/CsoundExpr/Opcodes/Math/Rndfunc.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Math/Rndfunc.hs +++ /dev/null @@ -1,54 +0,0 @@ --- | Random Functions -module CsoundExpr.Opcodes.Math.Rndfunc - (birnd, - rnd) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : birnd --- --- --- * syntax : --- --- > birnd(x) (init- or control-rate only) --- --- --- * description : --- --- Returns a random number in a bi-polar range. --- --- --- * url : - -birnd :: (K k0) => k0 -> k0 -birnd k0sig = prefixOperation "birnd" args - where args = [to k0sig] - - --- | * opcode : rnd --- --- --- * syntax : --- --- > rnd(x) (init- or control-rate only) --- --- --- * description : --- --- Returns a random number in a unipolar range at the rate given by --- the input argument. --- --- --- * url : - -rnd :: (K k0) => k0 -> k0 -rnd k0sig = prefixOperation "rnd" args - where args = [to k0sig] diff --git a/src/CsoundExpr/Opcodes/Math/SigmodCompaccum.hs b/src/CsoundExpr/Opcodes/Math/SigmodCompaccum.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Math/SigmodCompaccum.hs +++ /dev/null @@ -1,350 +0,0 @@ --- | Comparators and Accumulators -module CsoundExpr.Opcodes.Math.SigmodCompaccum - (maxA, - maxK, - max_k, - maxabsA, - maxabsK, - maxabsaccum, - maxaccum, - minA, - minK, - minabsA, - minabsK, - minabsaccum, - minaccum) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : max --- --- --- * syntax : --- --- > amax max ain1 [, ain2] [, ain3] [, ain4] [...] --- > kmax max kin1 [, kin2] [, kin3] [, kin4] [...] --- --- --- * description : --- --- The max opcode takes any number of a-rate or k-rate signals as --- input (all of the same rate), and outputs a signal at the same --- rate that is the maximum of all of the inputs. For a-rate --- signals, the inputs are compared one sample at a time (i.e. max --- does not scan an entire ksmps period of a signal for its local --- maximum as the max_k opcode does). --- --- --- * url : - -maxA :: [Arate] -> Arate -maxA a0inN = opcode "max" args - where args = map to a0inN - - --- | * opcode : max --- --- --- * syntax : --- --- > amax max ain1 [, ain2] [, ain3] [, ain4] [...] --- > kmax max kin1 [, kin2] [, kin3] [, kin4] [...] --- --- --- * description : --- --- The max opcode takes any number of a-rate or k-rate signals as --- input (all of the same rate), and outputs a signal at the same --- rate that is the maximum of all of the inputs. For a-rate --- signals, the inputs are compared one sample at a time (i.e. max --- does not scan an entire ksmps period of a signal for its local --- maximum as the max_k opcode does). --- --- --- * url : - -maxK :: (K k0) => [k0] -> Krate -maxK k0inN = opcode "max" args - where args = map to k0inN - - --- | * opcode : max_k --- --- --- * syntax : --- --- > knumkout max_k asig, ktrig, itype --- --- --- * description : --- --- max_k outputs the local maximum (or minimum) value of the --- incoming asig signal, checked in the time interval between ktrig --- has become true twice. --- --- --- * url : - -max_k :: (K k0) => Arate -> k0 -> Irate -> Krate -max_k a0sig k1trig i2type = opcode "max_k" args - where args = [to a0sig, to k1trig, to i2type] - - --- | * opcode : maxabs --- --- --- * syntax : --- --- > amax maxabs ain1 [, ain2] [, ain3] [, ain4] [...] --- > kmax maxabs kin1 [, kin2] [, kin3] [, kin4] [...] --- --- --- * description : --- --- The maxabs opcode takes any number of a-rate or k-rate signals --- as input (all of the same rate), and outputs a signal at the same --- rate that is the maximum of all of the inputs. It is identical to --- the max opcode except that it takes the absolute value of each --- input before comparing them. Therefore, the output is always --- non-negative. For a-rate signals, the inputs are compared one --- sample at a time (i.e. maxabs does not scan an entire ksmps --- period of a signal for its local maximum as the max_k opcode --- does). --- --- --- * url : - -maxabsA :: [Arate] -> Arate -maxabsA a0inN = opcode "maxabs" args - where args = map to a0inN - - --- | * opcode : maxabs --- --- --- * syntax : --- --- > amax maxabs ain1 [, ain2] [, ain3] [, ain4] [...] --- > kmax maxabs kin1 [, kin2] [, kin3] [, kin4] [...] --- --- --- * description : --- --- The maxabs opcode takes any number of a-rate or k-rate signals --- as input (all of the same rate), and outputs a signal at the same --- rate that is the maximum of all of the inputs. It is identical to --- the max opcode except that it takes the absolute value of each --- input before comparing them. Therefore, the output is always --- non-negative. For a-rate signals, the inputs are compared one --- sample at a time (i.e. maxabs does not scan an entire ksmps --- period of a signal for its local maximum as the max_k opcode --- does). --- --- --- * url : - -maxabsK :: (K k0) => [k0] -> Krate -maxabsK k0inN = opcode "maxabs" args - where args = map to k0inN - - --- | * opcode : maxabsaccum --- --- --- * syntax : --- --- > maxabsaccum aAccumulator, aInput --- --- --- * description : --- --- maxabsaccum compares two audio-rate variables and stores the --- maximum of their absolute values into the first. --- --- --- * url : - -maxabsaccum :: Arate -> Arate -> SignalOut -maxabsaccum a0Accumulator a1Input = outOpcode "maxabsaccum" args - where args = [to a0Accumulator, to a1Input] - - --- | * opcode : maxaccum --- --- --- * syntax : --- --- > maxaccum aAccumulator, aInput --- --- --- * description : --- --- maxaccum compares two audio-rate variables and stores the --- maximum value between them into the first. --- --- --- * url : - -maxaccum :: Arate -> Arate -> SignalOut -maxaccum a0Accumulator a1Input = outOpcode "maxaccum" args - where args = [to a0Accumulator, to a1Input] - - --- | * opcode : min --- --- --- * syntax : --- --- > amin min ain1 [, ain2] [, ain3] [, ain4] [...] --- > kmin min kin1 [, kin2] [, kin3] [, kin4] [...] --- --- --- * description : --- --- The min opcode takes any number of a-rate or k-rate signals as --- input (all of the same rate), and outputs a signal at the same --- rate that is the minimum of all of the inputs. For a-rate --- signals, the inputs are compared one sample at a time (i.e. min --- does not scan an entire ksmps period of a signal for its local --- minimum as the max_k opcode does). --- --- --- * url : - -minA :: [Arate] -> Arate -minA a0inN = opcode "min" args - where args = map to a0inN - - --- | * opcode : min --- --- --- * syntax : --- --- > amin min ain1 [, ain2] [, ain3] [, ain4] [...] --- > kmin min kin1 [, kin2] [, kin3] [, kin4] [...] --- --- --- * description : --- --- The min opcode takes any number of a-rate or k-rate signals as --- input (all of the same rate), and outputs a signal at the same --- rate that is the minimum of all of the inputs. For a-rate --- signals, the inputs are compared one sample at a time (i.e. min --- does not scan an entire ksmps period of a signal for its local --- minimum as the max_k opcode does). --- --- --- * url : - -minK :: (K k0) => [k0] -> Krate -minK k0inN = opcode "min" args - where args = map to k0inN - - --- | * opcode : minabs --- --- --- * syntax : --- --- > amin minabs ain1 [, ain2] [, ain3] [, ain4] [...] --- > kmin minabs kin1 [, kin2] [, kin3] [, kin4] [...] --- --- --- * description : --- --- The minabs opcode takes any number of a-rate or k-rate signals --- as input (all of the same rate), and outputs a signal at the same --- rate that is the minimum of all of the inputs. It is identical to --- the min opcode except that it takes the absolute value of each --- input before comparing them. Therefore, the output is always --- non-negative. For a-rate signals, the inputs are compared one --- sample at a time (i.e. minabs does not scan an entire ksmps --- period of a signal for its local minimum as the max_k opcode --- does). --- --- --- * url : - -minabsA :: [Arate] -> Arate -minabsA a0inN = opcode "minabs" args - where args = map to a0inN - - --- | * opcode : minabs --- --- --- * syntax : --- --- > amin minabs ain1 [, ain2] [, ain3] [, ain4] [...] --- > kmin minabs kin1 [, kin2] [, kin3] [, kin4] [...] --- --- --- * description : --- --- The minabs opcode takes any number of a-rate or k-rate signals --- as input (all of the same rate), and outputs a signal at the same --- rate that is the minimum of all of the inputs. It is identical to --- the min opcode except that it takes the absolute value of each --- input before comparing them. Therefore, the output is always --- non-negative. For a-rate signals, the inputs are compared one --- sample at a time (i.e. minabs does not scan an entire ksmps --- period of a signal for its local minimum as the max_k opcode --- does). --- --- --- * url : - -minabsK :: (K k0) => [k0] -> Krate -minabsK k0inN = opcode "minabs" args - where args = map to k0inN - - --- | * opcode : minabsaccum --- --- --- * syntax : --- --- > minabsaccum aAccumulator, aInput --- --- --- * description : --- --- minabsaccum compares two audio-rate variables and stores the --- minimum of their absolute values into the first. --- --- --- * url : - -minabsaccum :: Arate -> Arate -> SignalOut -minabsaccum a0Accumulator a1Input = outOpcode "minabsaccum" args - where args = [to a0Accumulator, to a1Input] - - --- | * opcode : minaccum --- --- --- * syntax : --- --- > minaccum aAccumulator, aInput --- --- --- * description : --- --- minaccum compares two audio-rate variables and stores the --- minimum value between them into the first. --- --- --- * url : - -minaccum :: Arate -> Arate -> SignalOut -minaccum a0Accumulator a1Input = outOpcode "minaccum" args - where args = [to a0Accumulator, to a1Input] diff --git a/src/CsoundExpr/Opcodes/Math/Trig.hs b/src/CsoundExpr/Opcodes/Math/Trig.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Math/Trig.hs +++ /dev/null @@ -1,200 +0,0 @@ --- | Trigonometric Functions -module CsoundExpr.Opcodes.Math.Trig - (cos', - cosh', - cosinv, - sin', - sinh', - sininv, - tan', - tanh', - taninv) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : cos --- --- --- * syntax : --- --- > cos(x) (no rate restriction) --- --- --- * description : --- --- Returns the cosine of x (x in radians). --- --- --- * url : - -cos' :: (X x0) => x0 -> x0 -cos' x0sig = prefixOperation "cos" args - where args = [to x0sig] - - --- | * opcode : cosh --- --- --- * syntax : --- --- > cosh(x) (no rate restriction) --- --- --- * description : --- --- Returns the hyperbolic cosine of x (x in radians). --- --- --- * url : - -cosh' :: (X x0) => x0 -> x0 -cosh' x0sig = prefixOperation "cosh" args - where args = [to x0sig] - - --- | * opcode : cosinv --- --- --- * syntax : --- --- > cosinv(x) (no rate restriction) --- --- --- * description : --- --- Returns the arccosine of x (x in radians). --- --- --- * url : - -cosinv :: (X x0) => x0 -> x0 -cosinv x0sig = prefixOperation "cosinv" args - where args = [to x0sig] - - --- | * opcode : sin --- --- --- * syntax : --- --- > sin(x) (no rate restriction) --- --- --- * description : --- --- Returns the sine of x (x in radians). --- --- --- * url : - -sin' :: (X x0) => x0 -> x0 -sin' x0sig = prefixOperation "sin" args - where args = [to x0sig] - - --- | * opcode : sinh --- --- --- * syntax : --- --- > sinh(x) (no rate restriction) --- --- --- * description : --- --- Returns the hyperbolic sine of x (x in radians). --- --- --- * url : - -sinh' :: (X x0) => x0 -> x0 -sinh' x0sig = prefixOperation "sinh" args - where args = [to x0sig] - - --- | * opcode : sininv --- --- --- * syntax : --- --- > sininv(x) (no rate restriction) --- --- --- * description : --- --- Returns the arcsine of x (x in radians). --- --- --- * url : - -sininv :: (X x0) => x0 -> x0 -sininv x0sig = prefixOperation "sininv" args - where args = [to x0sig] - - --- | * opcode : tan --- --- --- * syntax : --- --- > tan(x) (no rate restriction) --- --- --- * description : --- --- Returns the tangent of x (x in radians). --- --- --- * url : - -tan' :: (X x0) => x0 -> x0 -tan' x0sig = prefixOperation "tan" args - where args = [to x0sig] - - --- | * opcode : tanh --- --- --- * syntax : --- --- > tanh(x) (no rate restriction) --- --- --- * description : --- --- Returns the hyperbolic tangent of x (x in radians). --- --- --- * url : - -tanh' :: (X x0) => x0 -> x0 -tanh' x0sig = prefixOperation "tanh" args - where args = [to x0sig] - - --- | * opcode : taninv --- --- --- * syntax : --- --- > taninv(x) (no rate restriction) --- --- --- * description : --- --- Returns the arctangent of x (x in radians). --- --- --- * url : - -taninv :: (X x0) => x0 -> x0 -taninv x0sig = prefixOperation "taninv" args - where args = [to x0sig] diff --git a/src/CsoundExpr/Opcodes/Midi.hs b/src/CsoundExpr/Opcodes/Midi.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi.hs +++ /dev/null @@ -1,24 +0,0 @@ --- | Real-time MIDI Support -module CsoundExpr.Opcodes.Midi - (module CsoundExpr.Opcodes.Midi.Input, - module CsoundExpr.Opcodes.Midi.Output, - module CsoundExpr.Opcodes.Midi.Generic, - module CsoundExpr.Opcodes.Midi.Convert, - module CsoundExpr.Opcodes.Midi.Extender, - module CsoundExpr.Opcodes.Midi.Onoff, - module CsoundExpr.Opcodes.Midi.Interop, - module CsoundExpr.Opcodes.Midi.Realtime, - module CsoundExpr.Opcodes.Midi.Slidrbk) -where - - - -import CsoundExpr.Opcodes.Midi.Input -import CsoundExpr.Opcodes.Midi.Output -import CsoundExpr.Opcodes.Midi.Generic -import CsoundExpr.Opcodes.Midi.Convert -import CsoundExpr.Opcodes.Midi.Extender -import CsoundExpr.Opcodes.Midi.Onoff -import CsoundExpr.Opcodes.Midi.Interop -import CsoundExpr.Opcodes.Midi.Realtime -import CsoundExpr.Opcodes.Midi.Slidrbk diff --git a/src/CsoundExpr/Opcodes/Midi/Convert.hs b/src/CsoundExpr/Opcodes/Midi/Convert.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Convert.hs +++ /dev/null @@ -1,258 +0,0 @@ --- | Converters -module CsoundExpr.Opcodes.Midi.Convert - (cpsmidi, - cpsmidibI, - cpsmidibK, - cpstmid, - octmidi, - octmidibI, - octmidibK, - pchmidi, - pchmidibI, - pchmidibK, - ampmidi) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : cpsmidi --- --- --- * syntax : --- --- > icps cpsmidi --- --- --- * description : --- --- Get the note number of the current MIDI event, expressed in --- cycles-per-second. --- --- --- * url : - -cpsmidi :: Irate -cpsmidi = opcode "cpsmidi" args - where args = [] - - --- | * opcode : cpsmidib --- --- --- * syntax : --- --- > icps cpsmidib [irange] --- > kcps cpsmidib [irange] --- --- --- * description : --- --- Get the note number of the current MIDI event and modify it by --- the current pitch-bend value, express it in cycles-per-second. --- --- --- * url : - -cpsmidibI :: [Irate] -> Irate -cpsmidibI i0init = opcode "cpsmidib" args - where args = map to i0init - - --- | * opcode : cpsmidib --- --- --- * syntax : --- --- > icps cpsmidib [irange] --- > kcps cpsmidib [irange] --- --- --- * description : --- --- Get the note number of the current MIDI event and modify it by --- the current pitch-bend value, express it in cycles-per-second. --- --- --- * url : - -cpsmidibK :: [Irate] -> Krate -cpsmidibK i0init = opcode "cpsmidib" args - where args = map to i0init - - --- | * opcode : cpstmid --- --- --- * syntax : --- --- > icps cpstmid ifn --- --- --- * description : --- --- This unit is similar to cpsmidi, but allows fully customized --- micro-tuning scales. --- --- --- * url : - -cpstmid :: Irate -> Irate -cpstmid i0fn = opcode "cpstmid" args - where args = [to i0fn] - - --- | * opcode : octmidi --- --- --- * syntax : --- --- > ioct octmidi --- --- --- * description : --- --- Get the note number, in octave-point-decimal units, of the --- current MIDI event. --- --- --- * url : - -octmidi :: Irate -octmidi = opcode "octmidi" args - where args = [] - - --- | * opcode : octmidib --- --- --- * syntax : --- --- > ioct octmidib [irange] --- > koct octmidib [irange] --- --- --- * description : --- --- Get the note number of the current MIDI event and modify it by --- the current pitch-bend value, express it in octave-point-decimal. --- --- --- * url : - -octmidibI :: [Irate] -> Irate -octmidibI i0init = opcode "octmidib" args - where args = map to i0init - - --- | * opcode : octmidib --- --- --- * syntax : --- --- > ioct octmidib [irange] --- > koct octmidib [irange] --- --- --- * description : --- --- Get the note number of the current MIDI event and modify it by --- the current pitch-bend value, express it in octave-point-decimal. --- --- --- * url : - -octmidibK :: [Irate] -> Krate -octmidibK i0init = opcode "octmidib" args - where args = map to i0init - - --- | * opcode : pchmidi --- --- --- * syntax : --- --- > ipch pchmidi --- --- --- * description : --- --- Get the note number of the current MIDI event, expressed in --- pitch-class units. --- --- --- * url : - -pchmidi :: Irate -pchmidi = opcode "pchmidi" args - where args = [] - - --- | * opcode : pchmidib --- --- --- * syntax : --- --- > ipch pchmidib [irange] --- > kpch pchmidib [irange] --- --- --- * description : --- --- Get the note number of the current MIDI event and modify it by --- the current pitch-bend value, express it in pitch-class units. --- --- --- * url : - -pchmidibI :: [Irate] -> Irate -pchmidibI i0init = opcode "pchmidib" args - where args = map to i0init - - --- | * opcode : pchmidib --- --- --- * syntax : --- --- > ipch pchmidib [irange] --- > kpch pchmidib [irange] --- --- --- * description : --- --- Get the note number of the current MIDI event and modify it by --- the current pitch-bend value, express it in pitch-class units. --- --- --- * url : - -pchmidibK :: [Irate] -> Krate -pchmidibK i0init = opcode "pchmidib" args - where args = map to i0init - - --- | * opcode : ampmidi --- --- --- * syntax : --- --- > iamp ampmidi iscal [, ifn] --- --- --- * description : --- --- Get the velocity of the current MIDI event. --- --- --- * url : - -ampmidi :: [Irate] -> Irate -> Irate -ampmidi i0init i1scal = opcode "ampmidi" args - where args = [to i1scal] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Midi/Extender.hs b/src/CsoundExpr/Opcodes/Midi/Extender.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Extender.hs +++ /dev/null @@ -1,58 +0,0 @@ --- | Event Extenders -module CsoundExpr.Opcodes.Midi.Extender - (release, - xtratim) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : release --- --- --- * syntax : --- --- > kflag release --- --- --- * description : --- --- Provides a way of knowing when a note off message for the --- current note is received. Only a noteoff message with the same --- MIDI note number as the one which triggered the note will be --- reported by release. --- --- --- * url : - -release :: Krate -release = opcode "release" args - where args = [] - - --- | * opcode : xtratim --- --- --- * syntax : --- --- > xtratim iextradur --- --- --- * description : --- --- Extend the duration of real-time generated events and handle --- their extra life (Usually for usage along with release instead of --- linenr, linsegr, etc). --- --- --- * url : - -xtratim :: Irate -> SignalOut -xtratim i0extradur = outOpcode "xtratim" args - where args = [to i0extradur] diff --git a/src/CsoundExpr/Opcodes/Midi/Generic.hs b/src/CsoundExpr/Opcodes/Midi/Generic.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Generic.hs +++ /dev/null @@ -1,54 +0,0 @@ --- | Generic Input and Output -module CsoundExpr.Opcodes.Midi.Generic - (midiin, - midiout) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : midiin --- --- --- * syntax : --- --- > kstatus, kchan, kdata1, kdata2 midiin --- --- --- * description : --- --- Returns a generic MIDI message received by the MIDI IN port --- --- --- * url : - -midiin :: MultiOut -midiin = opcode "midiin" args - where args = [] - - --- | * opcode : midiout --- --- --- * syntax : --- --- > midiout kstatus, kchan, kdata1, kdata2 --- --- --- * description : --- --- Sends a generic MIDI message to the MIDI OUT port. --- --- --- * url : - -midiout :: - (K k0, K k1, K k2, K k3) => k0 -> k1 -> k2 -> k3 -> SignalOut -midiout k0status k1chan k2data1 k3data2 = outOpcode "midiout" args - where args = [to k0status, to k1chan, to k2data1, to k3data2] diff --git a/src/CsoundExpr/Opcodes/Midi/Input.hs b/src/CsoundExpr/Opcodes/Midi/Input.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Input.hs +++ /dev/null @@ -1,661 +0,0 @@ --- | MIDI input -module CsoundExpr.Opcodes.Midi.Input - (aftouch, - chanctrlI, - chanctrlK, - polyaftI, - polyaftK, - pchbendI, - pchbendK, - veloc, - midictrlI, - midictrlK, - notnum, - ctrl7A, - ctrl7I, - ctrl7K, - ctrl14I, - ctrl14K, - ctrl21I, - ctrl21K, - midic7I, - midic7K, - midic14I, - midic14K, - midic21I, - midic21K, - initc7, - initc14, - initc21) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : aftouch --- --- --- * syntax : --- --- > kaft aftouch [imin] [, imax] --- --- --- * description : --- --- Get the current after-touch value for this channel. --- --- --- * url : - -aftouch :: [Irate] -> Krate -aftouch i0init = opcode "aftouch" args - where args = map to i0init - - --- | * opcode : chanctrl --- --- --- * syntax : --- --- > ival chanctrl ichnl, ictlno [, ilow] [, ihigh] --- > kval chanctrl ichnl, ictlno [, ilow] [, ihigh] --- --- --- * description : --- --- Get the current value of a controller and optionally map it onto --- specified range. --- --- --- * url : - -chanctrlI :: [Irate] -> Irate -> Irate -> Irate -chanctrlI i0init i1chnl i2ctlno = opcode "chanctrl" args - where args = [to i1chnl, to i2ctlno] ++ map to i0init - - --- | * opcode : chanctrl --- --- --- * syntax : --- --- > ival chanctrl ichnl, ictlno [, ilow] [, ihigh] --- > kval chanctrl ichnl, ictlno [, ilow] [, ihigh] --- --- --- * description : --- --- Get the current value of a controller and optionally map it onto --- specified range. --- --- --- * url : - -chanctrlK :: [Irate] -> Irate -> Irate -> Krate -chanctrlK i0init i1chnl i2ctlno = opcode "chanctrl" args - where args = [to i1chnl, to i2ctlno] ++ map to i0init - - --- | * opcode : polyaft --- --- --- * syntax : --- --- > ires polyaft inote [, ilow] [, ihigh] --- > kres polyaft inote [, ilow] [, ihigh] --- --- --- * description : --- --- polyaft returns the polyphonic pressure of the selected note --- number, optionally mapped to an user-specified range. --- --- --- * url : - -polyaftI :: [Irate] -> Irate -> Irate -polyaftI i0init i1note = opcode "polyaft" args - where args = [to i1note] ++ map to i0init - - --- | * opcode : polyaft --- --- --- * syntax : --- --- > ires polyaft inote [, ilow] [, ihigh] --- > kres polyaft inote [, ilow] [, ihigh] --- --- --- * description : --- --- polyaft returns the polyphonic pressure of the selected note --- number, optionally mapped to an user-specified range. --- --- --- * url : - -polyaftK :: [Irate] -> Irate -> Krate -polyaftK i0init i1note = opcode "polyaft" args - where args = [to i1note] ++ map to i0init - - --- | * opcode : pchbend --- --- --- * syntax : --- --- > ibend pchbend [imin] [, imax] --- > kbend pchbend [imin] [, imax] --- --- --- * description : --- --- Get the current pitch-bend value for this channel. --- --- --- * url : - -pchbendI :: [Irate] -> Irate -pchbendI i0init = opcode "pchbend" args - where args = map to i0init - - --- | * opcode : pchbend --- --- --- * syntax : --- --- > ibend pchbend [imin] [, imax] --- > kbend pchbend [imin] [, imax] --- --- --- * description : --- --- Get the current pitch-bend value for this channel. --- --- --- * url : - -pchbendK :: [Irate] -> Krate -pchbendK i0init = opcode "pchbend" args - where args = map to i0init - - --- | * opcode : veloc --- --- --- * syntax : --- --- > ival veloc [ilow] [, ihigh] --- --- --- * description : --- --- Get the velocity from a MIDI event. --- --- --- * url : - -veloc :: [Irate] -> Irate -veloc i0init = opcode "veloc" args - where args = map to i0init - - --- | * opcode : midictrl --- --- --- * syntax : --- --- > ival midictrl inum [, imin] [, imax] --- > kval midictrl inum [, imin] [, imax] --- --- --- * description : --- --- Get the current value (0-127) of a specified MIDI controller. --- --- --- * url : - -midictrlI :: [Irate] -> Irate -> Irate -midictrlI i0init i1num = opcode "midictrl" args - where args = [to i1num] ++ map to i0init - - --- | * opcode : midictrl --- --- --- * syntax : --- --- > ival midictrl inum [, imin] [, imax] --- > kval midictrl inum [, imin] [, imax] --- --- --- * description : --- --- Get the current value (0-127) of a specified MIDI controller. --- --- --- * url : - -midictrlK :: [Irate] -> Irate -> Krate -midictrlK i0init i1num = opcode "midictrl" args - where args = [to i1num] ++ map to i0init - - --- | * opcode : notnum --- --- --- * syntax : --- --- > ival notnum --- --- --- * description : --- --- Get a note number from a MIDI event. --- --- --- * url : - -notnum :: Irate -notnum = opcode "notnum" args - where args = [] - - --- | * opcode : ctrl7 --- --- --- * syntax : --- --- > idest ctrl7 ichan, ictlno, imin, imax [, ifn] --- > kdest ctrl7 ichan, ictlno, kmin, kmax [, ifn] --- > adest ctrl7 ichan, ictlno, kmin, kmax [, ifn] [, icutoff] --- --- --- * description : --- --- Allows a floating-point 7-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -ctrl7A :: - (K k0, K k1) => [Irate] -> Irate -> Irate -> k0 -> k1 -> Arate -ctrl7A i0init i1chan i2ctlno k3min k4max = opcode "ctrl7" args - where args - = [to i1chan, to i2ctlno, to k3min, to k4max] ++ map to i0init - - --- | * opcode : ctrl7 --- --- --- * syntax : --- --- > idest ctrl7 ichan, ictlno, imin, imax [, ifn] --- > kdest ctrl7 ichan, ictlno, kmin, kmax [, ifn] --- > adest ctrl7 ichan, ictlno, kmin, kmax [, ifn] [, icutoff] --- --- --- * description : --- --- Allows a floating-point 7-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -ctrl7I :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Irate -ctrl7I i0init i1chan i2ctlno i3min i4max = opcode "ctrl7" args - where args - = [to i1chan, to i2ctlno, to i3min, to i4max] ++ map to i0init - - --- | * opcode : ctrl7 --- --- --- * syntax : --- --- > idest ctrl7 ichan, ictlno, imin, imax [, ifn] --- > kdest ctrl7 ichan, ictlno, kmin, kmax [, ifn] --- > adest ctrl7 ichan, ictlno, kmin, kmax [, ifn] [, icutoff] --- --- --- * description : --- --- Allows a floating-point 7-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -ctrl7K :: - (K k0, K k1) => [Irate] -> Irate -> Irate -> k0 -> k1 -> Krate -ctrl7K i0init i1chan i2ctlno k3min k4max = opcode "ctrl7" args - where args - = [to i1chan, to i2ctlno, to k3min, to k4max] ++ map to i0init - - --- | * opcode : ctrl14 --- --- --- * syntax : --- --- > idest ctrl14 ichan, ictlno1, ictlno2, imin, imax [, ifn] --- > kdest ctrl14 ichan, ictlno1, ictlno2, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 14-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -ctrl14I :: - [Irate] -> Irate -> Irate -> Irate -> Irate -> Irate -> Irate -ctrl14I i0init i1chan i2ctlno1 i3ctlno2 i4min i5max - = opcode "ctrl14" args - where args - = [to i1chan, to i2ctlno1, to i3ctlno2, to i4min, to i5max] ++ - map to i0init - - --- | * opcode : ctrl14 --- --- --- * syntax : --- --- > idest ctrl14 ichan, ictlno1, ictlno2, imin, imax [, ifn] --- > kdest ctrl14 ichan, ictlno1, ictlno2, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 14-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -ctrl14K :: - (K k0, K k1) => - [Irate] -> Irate -> Irate -> Irate -> k0 -> k1 -> Krate -ctrl14K i0init i1chan i2ctlno1 i3ctlno2 k4min k5max - = opcode "ctrl14" args - where args - = [to i1chan, to i2ctlno1, to i3ctlno2, to k4min, to k5max] ++ - map to i0init - - --- | * opcode : ctrl21 --- --- --- * syntax : --- --- > idest ctrl21 ichan, ictlno1, ictlno2, ictlno3, imin, imax [, ifn] --- > kdest ctrl21 ichan, ictlno1, ictlno2, ictlno3, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 21-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -ctrl21I :: - [Irate] -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> Irate -ctrl21I i0init i1chan i2ctlno1 i3ctlno2 i4ctlno3 i5min i6max - = opcode "ctrl21" args - where args - = [to i1chan, to i2ctlno1, to i3ctlno2, to i4ctlno3, to i5min, - to i6max] - ++ map to i0init - - --- | * opcode : ctrl21 --- --- --- * syntax : --- --- > idest ctrl21 ichan, ictlno1, ictlno2, ictlno3, imin, imax [, ifn] --- > kdest ctrl21 ichan, ictlno1, ictlno2, ictlno3, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 21-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -ctrl21K :: - (K k0, K k1) => - [Irate] -> Irate -> Irate -> Irate -> Irate -> k0 -> k1 -> Krate -ctrl21K i0init i1chan i2ctlno1 i3ctlno2 i4ctlno3 k5min k6max - = opcode "ctrl21" args - where args - = [to i1chan, to i2ctlno1, to i3ctlno2, to i4ctlno3, to k5min, - to k6max] - ++ map to i0init - - --- | * opcode : midic7 --- --- --- * syntax : --- --- > idest midic7 ictlno, imin, imax [, ifn] --- > kdest midic7 ictlno, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 7-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -midic7I :: [Irate] -> Irate -> Irate -> Irate -> Irate -midic7I i0init i1ctlno i2min i3max = opcode "midic7" args - where args = [to i1ctlno, to i2min, to i3max] ++ map to i0init - - --- | * opcode : midic7 --- --- --- * syntax : --- --- > idest midic7 ictlno, imin, imax [, ifn] --- > kdest midic7 ictlno, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 7-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -midic7K :: (K k0, K k1) => [Irate] -> Irate -> k0 -> k1 -> Krate -midic7K i0init i1ctlno k2min k3max = opcode "midic7" args - where args = [to i1ctlno, to k2min, to k3max] ++ map to i0init - - --- | * opcode : midic14 --- --- --- * syntax : --- --- > idest midic14 ictlno1, ictlno2, imin, imax [, ifn] --- > kdest midic14 ictlno1, ictlno2, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 14-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -midic14I :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Irate -midic14I i0init i1ctlno1 i2ctlno2 i3min i4max - = opcode "midic14" args - where args - = [to i1ctlno1, to i2ctlno2, to i3min, to i4max] ++ map to i0init - - --- | * opcode : midic14 --- --- --- * syntax : --- --- > idest midic14 ictlno1, ictlno2, imin, imax [, ifn] --- > kdest midic14 ictlno1, ictlno2, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 14-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -midic14K :: - (K k0, K k1) => [Irate] -> Irate -> Irate -> k0 -> k1 -> Krate -midic14K i0init i1ctlno1 i2ctlno2 k3min k4max - = opcode "midic14" args - where args - = [to i1ctlno1, to i2ctlno2, to k3min, to k4max] ++ map to i0init - - --- | * opcode : midic21 --- --- --- * syntax : --- --- > idest midic21 ictlno1, ictlno2, ictlno3, imin, imax [, ifn] --- > kdest midic21 ictlno1, ictlno2, ictlno3, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 21-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -midic21I :: - [Irate] -> Irate -> Irate -> Irate -> Irate -> Irate -> Irate -midic21I i0init i1ctlno1 i2ctlno2 i3ctlno3 i4min i5max - = opcode "midic21" args - where args - = [to i1ctlno1, to i2ctlno2, to i3ctlno3, to i4min, to i5max] ++ - map to i0init - - --- | * opcode : midic21 --- --- --- * syntax : --- --- > idest midic21 ictlno1, ictlno2, ictlno3, imin, imax [, ifn] --- > kdest midic21 ictlno1, ictlno2, ictlno3, kmin, kmax [, ifn] --- --- --- * description : --- --- Allows a floating-point 21-bit MIDI signal scaled with a minimum --- and a maximum range. --- --- --- * url : - -midic21K :: - (K k0, K k1) => - [Irate] -> Irate -> Irate -> Irate -> k0 -> k1 -> Krate -midic21K i0init i1ctlno1 i2ctlno2 i3ctlno3 k4min k5max - = opcode "midic21" args - where args - = [to i1ctlno1, to i2ctlno2, to i3ctlno3, to k4min, to k5max] ++ - map to i0init - - --- | * opcode : initc7 --- --- --- * syntax : --- --- > initc7 ichan, ictlno, ivalue --- --- --- * description : --- --- Initializes MIDI controller ictlno with ivalue --- --- --- * url : - -initc7 :: Irate -> Irate -> Irate -> SignalOut -initc7 i0chan i1ctlno i2value = outOpcode "initc7" args - where args = [to i0chan, to i1ctlno, to i2value] - - --- | * opcode : initc14 --- --- --- * syntax : --- --- > initc14 ichan, ictlno1, ictlno2, ivalue --- --- --- * description : --- --- Initializes the controllers used to create a 14-bit MIDI value. --- --- --- * url : - -initc14 :: Irate -> Irate -> Irate -> Irate -> SignalOut -initc14 i0chan i1ctlno1 i2ctlno2 i3value = outOpcode "initc14" args - where args = [to i0chan, to i1ctlno1, to i2ctlno2, to i3value] - - --- | * opcode : initc21 --- --- --- * syntax : --- --- > initc21 ichan, ictlno1, ictlno2, ictlno3, ivalue --- --- --- * description : --- --- Initializes the controllers used to create a 21-bit MIDI value. --- --- --- * url : - -initc21 :: Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -initc21 i0chan i1ctlno1 i2ctlno2 i3ctlno3 i4value - = outOpcode "initc21" args - where args - = [to i0chan, to i1ctlno1, to i2ctlno2, to i3ctlno3, to i4value] diff --git a/src/CsoundExpr/Opcodes/Midi/Interop.hs b/src/CsoundExpr/Opcodes/Midi/Interop.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Interop.hs +++ /dev/null @@ -1,304 +0,0 @@ --- | MIDI/Score Interoperability opcodes -module CsoundExpr.Opcodes.Midi.Interop - (midichannelaftertouch, - midichn, - midicontrolchange, - mididefault, - midinoteoff, - midinoteoncps, - midinoteonkey, - midinoteonoct, - midinoteonpch, - midipitchbend, - midipolyaftertouch, - midiprogramchange) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : midichannelaftertouch --- --- --- * syntax : --- --- > midichannelaftertouch xchannelaftertouch [, ilow] [, ihigh] --- --- --- * description : --- --- midichannelaftertouch is designed to simplify writing --- instruments that can be used interchangeably for either score or --- MIDI input, and to make it easier to adapt instruments originally --- written for score input to work with MIDI input. --- --- --- * url : - -midichannelaftertouch :: (X x0) => [Irate] -> x0 -> SignalOut -midichannelaftertouch i0init x1channelaftertouch - = outOpcode "midichannelaftertouch" args - where args = [to x1channelaftertouch] ++ map to i0init - - --- | * opcode : midichn --- --- --- * syntax : --- --- > ichn midichn --- --- --- * description : --- --- midichn returns the MIDI channel number (1 - 16) from which the --- note was activated. In the case of score notes, it returns 0. --- --- --- * url : - -midichn :: Irate -midichn = opcode "midichn" args - where args = [] - - --- | * opcode : midicontrolchange --- --- --- * syntax : --- --- > midicontrolchange xcontroller, xcontrollervalue [, ilow] [, ihigh] --- --- --- * description : --- --- midicontrolchange is designed to simplify writing instruments --- that can be used interchangeably for either score or MIDI input, --- and to make it easier to adapt instruments originally written for --- score input to work with MIDI input. --- --- --- * url : - -midicontrolchange :: - (X x0, X x1) => [Irate] -> x0 -> x1 -> SignalOut -midicontrolchange i0init x1controller x2controllervalue - = outOpcode "midicontrolchange" args - where args - = [to x1controller, to x2controllervalue] ++ map to i0init - - --- | * opcode : mididefault --- --- --- * syntax : --- --- > mididefault xdefault, xvalue --- --- --- * description : --- --- mididefault is designed to simplify writing instruments that can --- be used interchangeably for either score or MIDI input, and to --- make it easier to adapt instruments originally written for score --- input to work with MIDI input. --- --- --- * url : - -mididefault :: (X x0, X x1) => x0 -> x1 -> SignalOut -mididefault x0default x1value = outOpcode "mididefault" args - where args = [to x0default, to x1value] - - --- | * opcode : midinoteoff --- --- --- * syntax : --- --- > midinoteoff xkey, xvelocity --- --- --- * description : --- --- midinoteoff is designed to simplify writing instruments that can --- be used interchangeably for either score or MIDI input, and to --- make it easier to adapt instruments originally written for score --- input to work with MIDI input. --- --- --- * url : - -midinoteoff :: (X x0, X x1) => x0 -> x1 -> SignalOut -midinoteoff x0key x1velocity = outOpcode "midinoteoff" args - where args = [to x0key, to x1velocity] - - --- | * opcode : midinoteoncps --- --- --- * syntax : --- --- > midinoteoncps xcps, xvelocity --- --- --- * description : --- --- midinoteoncps is designed to simplify writing instruments that --- can be used interchangeably for either score or MIDI input, and --- to make it easier to adapt instruments originally written for --- score input to work with MIDI input. --- --- --- * url : - -midinoteoncps :: (X x0, X x1) => x0 -> x1 -> SignalOut -midinoteoncps x0cps x1velocity = outOpcode "midinoteoncps" args - where args = [to x0cps, to x1velocity] - - --- | * opcode : midinoteonkey --- --- --- * syntax : --- --- > midinoteonkey xkey, xvelocity --- --- --- * description : --- --- midinoteonkey is designed to simplify writing instruments that --- can be used interchangeably for either score or MIDI input, and --- to make it easier to adapt instruments originally written for --- score input to work with MIDI input. --- --- --- * url : - -midinoteonkey :: (X x0, X x1) => x0 -> x1 -> SignalOut -midinoteonkey x0key x1velocity = outOpcode "midinoteonkey" args - where args = [to x0key, to x1velocity] - - --- | * opcode : midinoteonoct --- --- --- * syntax : --- --- > midinoteonoct xoct, xvelocity --- --- --- * description : --- --- midinoteonoct is designed to simplify writing instruments that --- can be used interchangeably for either score or MIDI input, and --- to make it easier to adapt instruments originally written for --- score input to work with MIDI input. --- --- --- * url : - -midinoteonoct :: (X x0, X x1) => x0 -> x1 -> SignalOut -midinoteonoct x0oct x1velocity = outOpcode "midinoteonoct" args - where args = [to x0oct, to x1velocity] - - --- | * opcode : midinoteonpch --- --- --- * syntax : --- --- > midinoteonpch xpch, xvelocity --- --- --- * description : --- --- midinoteonpch is designed to simplify writing instruments that --- can be used interchangeably for either score or MIDI input, and --- to make it easier to adapt instruments originally written for --- score input to work with MIDI input. --- --- --- * url : - -midinoteonpch :: (X x0, X x1) => x0 -> x1 -> SignalOut -midinoteonpch x0pch x1velocity = outOpcode "midinoteonpch" args - where args = [to x0pch, to x1velocity] - - --- | * opcode : midipitchbend --- --- --- * syntax : --- --- > midipitchbend xpitchbend [, ilow] [, ihigh] --- --- --- * description : --- --- midipitchbend is designed to simplify writing instruments that --- can be used interchangeably for either score or MIDI input, and --- to make it easier to adapt instruments originally written for --- score input to work with MIDI input. --- --- --- * url : - -midipitchbend :: (X x0) => [Irate] -> x0 -> SignalOut -midipitchbend i0init x1pitchbend = outOpcode "midipitchbend" args - where args = [to x1pitchbend] ++ map to i0init - - --- | * opcode : midipolyaftertouch --- --- --- * syntax : --- --- > midipolyaftertouch xpolyaftertouch, xcontrollervalue [, ilow] [, ihigh] --- --- --- * description : --- --- midipolyaftertouch is designed to simplify writing instruments --- that can be used interchangeably for either score or MIDI input, --- and to make it easier to adapt instruments originally written for --- score input to work with MIDI input. --- --- --- * url : - -midipolyaftertouch :: - (X x0, X x1) => [Irate] -> x0 -> x1 -> SignalOut -midipolyaftertouch i0init x1polyaftertouch x2controllervalue - = outOpcode "midipolyaftertouch" args - where args - = [to x1polyaftertouch, to x2controllervalue] ++ map to i0init - - --- | * opcode : midiprogramchange --- --- --- * syntax : --- --- > midiprogramchange xprogram --- --- --- * description : --- --- midiprogramchange is designed to simplify writing instruments --- that can be used interchangeably for either score or MIDI input, --- and to make it easier to adapt instruments originally written for --- score input to work with MIDI input. --- --- --- * url : - -midiprogramchange :: (X x0) => x0 -> SignalOut -midiprogramchange x0program = outOpcode "midiprogramchange" args - where args = [to x0program] diff --git a/src/CsoundExpr/Opcodes/Midi/Onoff.hs b/src/CsoundExpr/Opcodes/Midi/Onoff.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Onoff.hs +++ /dev/null @@ -1,164 +0,0 @@ --- | Note-on/Note-off Output -module CsoundExpr.Opcodes.Midi.Onoff - (midion, - midion2, - moscil, - noteoff, - noteon, - noteondur, - noteondur2) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : midion --- --- --- * syntax : --- --- > midion kchn, knum, kvel --- --- --- * description : --- --- Generates MIDI note messages at k-rate. --- --- --- * url : - -midion :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SignalOut -midion k0chn k1num k2vel = outOpcode "midion" args - where args = [to k0chn, to k1num, to k2vel] - - --- | * opcode : midion2 --- --- --- * syntax : --- --- > midion2 kchn, knum, kvel, ktrig --- --- --- * description : --- --- Sends noteon and noteoff messages to the MIDI OUT port when --- triggered by a value different than zero. --- --- --- * url : - -midion2 :: - (K k0, K k1, K k2, K k3) => k0 -> k1 -> k2 -> k3 -> SignalOut -midion2 k0chn k1num k2vel k3trig = outOpcode "midion2" args - where args = [to k0chn, to k1num, to k2vel, to k3trig] - - --- | * opcode : moscil --- --- --- * syntax : --- --- > moscil kchn, knum, kvel, kdur, kpause --- --- --- * description : --- --- Sends a stream of the MIDI notes. --- --- --- * url : - -moscil :: - (K k0, K k1, K k2, K k3, K k4) => - k0 -> k1 -> k2 -> k3 -> k4 -> SignalOut -moscil k0chn k1num k2vel k3dur k4pause = outOpcode "moscil" args - where args = [to k0chn, to k1num, to k2vel, to k3dur, to k4pause] - - --- | * opcode : noteoff --- --- --- * syntax : --- --- > noteoff ichn, inum, ivel --- --- --- * description : --- --- Send a noteoff message to the MIDI OUT port. --- --- --- * url : - -noteoff :: Irate -> Irate -> Irate -> SignalOut -noteoff i0chn i1num i2vel = outOpcode "noteoff" args - where args = [to i0chn, to i1num, to i2vel] - - --- | * opcode : noteon --- --- --- * syntax : --- --- > noteon ichn, inum, ivel --- --- --- * description : --- --- Send a noteon message to the MIDI OUT port. --- --- --- * url : - -noteon :: Irate -> Irate -> Irate -> SignalOut -noteon i0chn i1num i2vel = outOpcode "noteon" args - where args = [to i0chn, to i1num, to i2vel] - - --- | * opcode : noteondur --- --- --- * syntax : --- --- > noteondur ichn, inum, ivel, idur --- --- --- * description : --- --- Sends a noteon and a noteoff MIDI message both with the same --- channel, number and velocity. --- --- --- * url : - -noteondur :: Irate -> Irate -> Irate -> Irate -> SignalOut -noteondur i0chn i1num i2vel i3dur = outOpcode "noteondur" args - where args = [to i0chn, to i1num, to i2vel, to i3dur] - - --- | * opcode : noteondur2 --- --- --- * syntax : --- --- > noteondur2 ichn, inum, ivel, idur --- --- --- * description : --- --- Sends a noteon and a noteoff MIDI message both with the same --- channel, number and velocity. --- --- --- * url : - -noteondur2 :: Irate -> Irate -> Irate -> Irate -> SignalOut -noteondur2 i0chn i1num i2vel i3dur = outOpcode "noteondur2" args - where args = [to i0chn, to i1num, to i2vel, to i3dur] diff --git a/src/CsoundExpr/Opcodes/Midi/Output.hs b/src/CsoundExpr/Opcodes/Midi/Output.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Output.hs +++ /dev/null @@ -1,326 +0,0 @@ --- | MIDI Message Output -module CsoundExpr.Opcodes.Midi.Output - (mdelay, - nrpn, - outiat, - outic, - outic14, - outipat, - outipb, - outipc, - outkat, - outkc, - outkc14, - outkpat, - outkpb, - outkpc) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : mdelay --- --- --- * syntax : --- --- > mdelay kstatus, kchan, kd1, kd2, kdelay --- --- --- * description : --- --- A MIDI delay opcode. --- --- --- * url : - -mdelay :: - (K k0, K k1, K k2, K k3, K k4) => - k0 -> k1 -> k2 -> k3 -> k4 -> SignalOut -mdelay k0status k1chan k2d1 k3d2 k4delay = outOpcode "mdelay" args - where args = [to k0status, to k1chan, to k2d1, to k3d2, to k4delay] - - --- | * opcode : nrpn --- --- --- * syntax : --- --- > nrpn kchan, kparmnum, kparmvalue --- --- --- * description : --- --- Sends a NPRN (Non-Registered Parameter Number) message to the --- MIDI OUT port each time one of the input arguments changes. --- --- --- * url : - -nrpn :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SignalOut -nrpn k0chan k1parmnum k2parmvalue = outOpcode "nrpn" args - where args = [to k0chan, to k1parmnum, to k2parmvalue] - - --- | * opcode : outiat --- --- --- * syntax : --- --- > outiat ichn, ivalue, imin, imax --- --- --- * description : --- --- Sends MIDI aftertouch messages at i-rate. --- --- --- * url : - -outiat :: Irate -> Irate -> Irate -> Irate -> SignalOut -outiat i0chn i1value i2min i3max = outOpcode "outiat" args - where args = [to i0chn, to i1value, to i2min, to i3max] - - --- | * opcode : outic --- --- --- * syntax : --- --- > outic ichn, inum, ivalue, imin, imax --- --- --- * description : --- --- Sends MIDI controller output at i-rate. --- --- --- * url : - -outic :: Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -outic i0chn i1num i2value i3min i4max = outOpcode "outic" args - where args = [to i0chn, to i1num, to i2value, to i3min, to i4max] - - --- | * opcode : outic14 --- --- --- * syntax : --- --- > outic14 ichn, imsb, ilsb, ivalue, imin, imax --- --- --- * description : --- --- Sends 14-bit MIDI controller output at i-rate. --- --- --- * url : - -outic14 :: - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -outic14 i0chn i1msb i2lsb i3value i4min i5max - = outOpcode "outic14" args - where args - = [to i0chn, to i1msb, to i2lsb, to i3value, to i4min, to i5max] - - --- | * opcode : outipat --- --- --- * syntax : --- --- > outipat ichn, inotenum, ivalue, imin, imax --- --- --- * description : --- --- Sends polyphonic MIDI aftertouch messages at i-rate. --- --- --- * url : - -outipat :: Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -outipat i0chn i1notenum i2value i3min i4max - = outOpcode "outipat" args - where args - = [to i0chn, to i1notenum, to i2value, to i3min, to i4max] - - --- | * opcode : outipb --- --- --- * syntax : --- --- > outipb ichn, ivalue, imin, imax --- --- --- * description : --- --- Sends MIDI pitch-bend messages at i-rate. --- --- --- * url : - -outipb :: Irate -> Irate -> Irate -> Irate -> SignalOut -outipb i0chn i1value i2min i3max = outOpcode "outipb" args - where args = [to i0chn, to i1value, to i2min, to i3max] - - --- | * opcode : outipc --- --- --- * syntax : --- --- > outipc ichn, iprog, imin, imax --- --- --- * description : --- --- Sends MIDI program change messages at i-rate --- --- --- * url : - -outipc :: Irate -> Irate -> Irate -> Irate -> SignalOut -outipc i0chn i1prog i2min i3max = outOpcode "outipc" args - where args = [to i0chn, to i1prog, to i2min, to i3max] - - --- | * opcode : outkat --- --- --- * syntax : --- --- > outkat kchn, kvalue, kmin, kmax --- --- --- * description : --- --- Sends MIDI aftertouch messages at k-rate. --- --- --- * url : - -outkat :: - (K k0, K k1, K k2, K k3) => k0 -> k1 -> k2 -> k3 -> SignalOut -outkat k0chn k1value k2min k3max = outOpcode "outkat" args - where args = [to k0chn, to k1value, to k2min, to k3max] - - --- | * opcode : outkc --- --- --- * syntax : --- --- > outkc kchn, knum, kvalue, kmin, kmax --- --- --- * description : --- --- Sends MIDI controller messages at k-rate. --- --- --- * url : - -outkc :: - (K k0, K k1, K k2, K k3, K k4) => - k0 -> k1 -> k2 -> k3 -> k4 -> SignalOut -outkc k0chn k1num k2value k3min k4max = outOpcode "outkc" args - where args = [to k0chn, to k1num, to k2value, to k3min, to k4max] - - --- | * opcode : outkc14 --- --- --- * syntax : --- --- > outkc14 kchn, kmsb, klsb, kvalue, kmin, kmax --- --- --- * description : --- --- Sends 14-bit MIDI controller output at k-rate. --- --- --- * url : - -outkc14 :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> SignalOut -outkc14 k0chn k1msb k2lsb k3value k4min k5max - = outOpcode "outkc14" args - where args - = [to k0chn, to k1msb, to k2lsb, to k3value, to k4min, to k5max] - - --- | * opcode : outkpat --- --- --- * syntax : --- --- > outkpat kchn, knotenum, kvalue, kmin, kmax --- --- --- * description : --- --- Sends polyphonic MIDI aftertouch messages at k-rate. --- --- --- * url : - -outkpat :: - (K k0, K k1, K k2, K k3, K k4) => - k0 -> k1 -> k2 -> k3 -> k4 -> SignalOut -outkpat k0chn k1notenum k2value k3min k4max - = outOpcode "outkpat" args - where args - = [to k0chn, to k1notenum, to k2value, to k3min, to k4max] - - --- | * opcode : outkpb --- --- --- * syntax : --- --- > outkpb kchn, kvalue, kmin, kmax --- --- --- * description : --- --- Sends MIDI pitch-bend messages at k-rate. --- --- --- * url : - -outkpb :: - (K k0, K k1, K k2, K k3) => k0 -> k1 -> k2 -> k3 -> SignalOut -outkpb k0chn k1value k2min k3max = outOpcode "outkpb" args - where args = [to k0chn, to k1value, to k2min, to k3max] - - --- | * opcode : outkpc --- --- --- * syntax : --- --- > outkpc kchn, kprog, kmin, kmax --- --- --- * description : --- --- Sends MIDI program change messages at k-rate. --- --- --- * url : - -outkpc :: - (K k0, K k1, K k2, K k3) => k0 -> k1 -> k2 -> k3 -> SignalOut -outkpc k0chn k1prog k2min k3max = outOpcode "outkpc" args - where args = [to k0chn, to k1prog, to k2min, to k3max] diff --git a/src/CsoundExpr/Opcodes/Midi/Realtime.hs b/src/CsoundExpr/Opcodes/Midi/Realtime.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Realtime.hs +++ /dev/null @@ -1,53 +0,0 @@ --- | System Realtime Messages -module CsoundExpr.Opcodes.Midi.Realtime - (mclock, - mrtmsg) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : mclock --- --- --- * syntax : --- --- > mclock ifreq --- --- --- * description : --- --- Sends a MIDI CLOCK message. --- --- --- * url : - -mclock :: Irate -> SignalOut -mclock i0freq = outOpcode "mclock" args - where args = [to i0freq] - - --- | * opcode : mrtmsg --- --- --- * syntax : --- --- > mrtmsg imsgtype --- --- --- * description : --- --- Send system real-time messages to the MIDI OUT port. --- --- --- * url : - -mrtmsg :: Irate -> SignalOut -mrtmsg i0msgtype = outOpcode "mrtmsg" args - where args = [to i0msgtype] diff --git a/src/CsoundExpr/Opcodes/Midi/Slidrbk.hs b/src/CsoundExpr/Opcodes/Midi/Slidrbk.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Midi/Slidrbk.hs +++ /dev/null @@ -1,421 +0,0 @@ --- | Slider Banks -module CsoundExpr.Opcodes.Midi.Slidrbk - (slider16, - slider16f, - slider32, - slider32f, - slider64, - slider64f, - s16b14, - s32b14, - sliderKawai, - slider8table, - slider8tablef, - slider16table, - slider16tablef, - slider32table, - slider32tablef, - slider64table, - slider64tablef) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : slider16 --- --- --- * syntax : --- --- > i1,...,i16 slider16 ichan, ictlnum1, imin1, imax1, init1, ifn1,..., --- > ictlnum16, imin16, imax16, init16, ifn16 --- > k1,...,k16 slider16 ichan, ictlnum1, imin1, imax1, init1, ifn1,..., --- > ictlnum16, imin16, imax16, init16, ifn16 --- --- --- * description : --- --- Creates a bank of 16 different MIDI control message numbers. --- --- --- * url : - -slider16 :: Irate -> [Irate] -> MultiOut -slider16 i0chan i1vals = opcode "slider16" args - where args = [to i0chan] ++ map to i1vals - - --- | * opcode : slider16f --- --- --- * syntax : --- --- > k1,...,k16 slider16f ichan, ictlnum1, imin1, imax1, init1, ifn1, --- > icutoff1,..., ictlnum16, imin16, imax16, init16, ifn16, icutoff16 --- --- --- * description : --- --- Creates a bank of 16 different MIDI control message numbers, --- filtered before output. --- --- --- * url : - -slider16f :: Irate -> [Irate] -> MultiOut -slider16f i0chan i1vals = opcode "slider16f" args - where args = [to i0chan] ++ map to i1vals - - --- | * opcode : slider32 --- --- --- * syntax : --- --- > i1,...,i32 slider32 ichan, ictlnum1, imin1, imax1, init1, ifn1,..., --- > ictlnum32, imin32, imax32, init32, ifn32 --- > k1,...,k32 slider32 ichan, ictlnum1, imin1, imax1, init1, ifn1,..., --- > ictlnum32, imin32, imax32, init32, ifn32 --- --- --- * description : --- --- Creates a bank of 32 different MIDI control message numbers. --- --- --- * url : - -slider32 :: Irate -> [Irate] -> MultiOut -slider32 i0chan i1vals = opcode "slider32" args - where args = [to i0chan] ++ map to i1vals - - --- | * opcode : slider32f --- --- --- * syntax : --- --- > k1,...,k32 slider32f ichan, ictlnum1, imin1, imax1, init1, ifn1, icutoff1, --- > ..., ictlnum32, imin32, imax32, init32, ifn32, icutoff32 --- --- --- * description : --- --- Creates a bank of 32 different MIDI control message numbers, --- filtered before output. --- --- --- * url : - -slider32f :: Irate -> [Irate] -> MultiOut -slider32f i0chan i1vals = opcode "slider32f" args - where args = [to i0chan] ++ map to i1vals - - --- | * opcode : slider64 --- --- --- * syntax : --- --- > i1,...,i64 slider64 ichan, ictlnum1, imin1, imax1, init1, ifn1,..., --- > ictlnum64, imin64, imax64, init64, ifn64 --- > k1,...,k64 slider64 ichan, ictlnum1, imin1, imax1, init1, ifn1,..., --- > ictlnum64, imin64, imax64, init64, ifn64 --- --- --- * description : --- --- Creates a bank of 64 different MIDI control message numbers. --- --- --- * url : - -slider64 :: Irate -> [Irate] -> MultiOut -slider64 i0chan i1vals = opcode "slider64" args - where args = [to i0chan] ++ map to i1vals - - --- | * opcode : slider64f --- --- --- * syntax : --- --- > k1,...,k64 slider64f ichan, ictlnum1, imin1, imax1, init1, ifn1, --- > icutoff1,..., ictlnum64, imin64, imax64, init64, ifn64, icutoff64 --- --- --- * description : --- --- Creates a bank of 64 different MIDI control message numbers, --- filtered before output. --- --- --- * url : - -slider64f :: Irate -> [Irate] -> MultiOut -slider64f i0chan i1vals = opcode "slider64f" args - where args = [to i0chan] ++ map to i1vals - - --- | * opcode : s16b14 --- --- --- * syntax : --- --- > i1,...,i16 s16b14 ichan, ictlno_msb1, ictlno_lsb1, imin1, imax1, --- > initvalue1, ifn1,..., ictlno_msb16, ictlno_lsb16, imin16, imax16, initvalue16, ifn16 --- > k1,...,k16 s16b14 ichan, ictlno_msb1, ictlno_lsb1, imin1, imax1, --- > initvalue1, ifn1,..., ictlno_msb16, ictlno_lsb16, imin16, imax16, initvalue16, ifn16 --- --- --- * description : --- --- Creates a bank of 16 different 14-bit MIDI control message --- numbers. --- --- --- * url : - -s16b14 :: Irate -> [Irate] -> MultiOut -s16b14 i0chan i1vals = opcode "s16b14" args - where args = [to i0chan] ++ map to i1vals - - --- | * opcode : s32b14 --- --- --- * syntax : --- --- > i1,...,i32 s32b14 ichan, ictlno_msb1, ictlno_lsb1, imin1, imax1, --- > initvalue1, ifn1,..., ictlno_msb32, ictlno_lsb32, imin32, imax32, initvalue32, ifn32 --- > k1,...,k32 s32b14 ichan, ictlno_msb1, ictlno_lsb1, imin1, imax1, --- > initvalue1, ifn1,..., ictlno_msb32, ictlno_lsb32, imin32, imax32, initvalue32, ifn32 --- --- --- * description : --- --- Creates a bank of 32 different 14-bit MIDI control message --- numbers. --- --- --- * url : - -s32b14 :: Irate -> [Irate] -> MultiOut -s32b14 i0chan i1vals = opcode "s32b14" args - where args = [to i0chan] ++ map to i1vals - - --- | * opcode : sliderKawai --- --- --- * syntax : --- --- > k1, k2,...., k16 sliderKawai imin1, imax1, init1, ifn1, --- > imin2, imax2, init2, ifn2,..., imin16, imax16, init16, ifn16 --- --- --- * description : --- --- Creates a bank of 16 different MIDI control message numbers from --- a KAWAI MM-16 midi mixer. --- --- --- * url : - -sliderKawai :: [Irate] -> MultiOut -sliderKawai i0vals = opcode "sliderKawai" args - where args = map to i0vals - - --- | * opcode : slider8table --- --- --- * syntax : --- --- > kflag slider8table ichan, ioutTable, ioffset, ictlnum1, imin1, imax1, --- > init1, ifn1,..., ictlnum8, imin8, imax8, init8, ifn8 --- --- --- * description : --- --- Stores a bank of 8 different MIDI control messages to a table. --- --- --- * url : - -slider8table :: Irate -> Irate -> Irate -> [Irate] -> Krate -slider8table i0chan i1outTable i2offset i3vals - = opcode "slider8table" args - where args - = [to i0chan, to i1outTable, to i2offset] ++ map to i3vals - - --- | * opcode : slider8tablef --- --- --- * syntax : --- --- > kflag slider8tablef ichan, ioutTable, ioffset, ictlnum1, imin1, imax1, --- > init1, ifn1, icutoff1,...., ictlnum8, imin8, imax8, init8, ifn8, icutoff8 --- --- --- * description : --- --- Stores a bank of 8 different MIDI control messages to a table, --- filtered before output. --- --- --- * url : - -slider8tablef :: Irate -> Irate -> Irate -> [Irate] -> Krate -slider8tablef i0chan i1outTable i2offset i3vals - = opcode "slider8tablef" args - where args - = [to i0chan, to i1outTable, to i2offset] ++ map to i3vals - - --- | * opcode : slider16table --- --- --- * syntax : --- --- > kflag slider16table ichan, ioutTable, ioffset, ictlnum1, imin1, imax1, --- > init1, ifn1,...., ictlnum16, imin16, imax16, init16, ifn16 --- --- --- * description : --- --- Stores a bank of 16 different MIDI control messages to a table. --- --- --- * url : - -slider16table :: Irate -> Irate -> Irate -> [Irate] -> Krate -slider16table i0chan i1outTable i2offset i3vals - = opcode "slider16table" args - where args - = [to i0chan, to i1outTable, to i2offset] ++ map to i3vals - - --- | * opcode : slider16tablef --- --- --- * syntax : --- --- > kflag slider16tablef ichan, ioutTable, ioffset, ictlnum1, imin1, imax1, --- > init1, ifn1, icutoff1,...., ictlnum16, imin16, imax16, init16, ifn16, icutoff16 --- --- --- * description : --- --- Stores a bank of 16 different MIDI control messages to a table, --- filtered before output. --- --- --- * url : - -slider16tablef :: Irate -> Irate -> Irate -> [Irate] -> Krate -slider16tablef i0chan i1outTable i2offset i3vals - = opcode "slider16tablef" args - where args - = [to i0chan, to i1outTable, to i2offset] ++ map to i3vals - - --- | * opcode : slider32table --- --- --- * syntax : --- --- > kflag slider32table ichan, ioutTable, ioffset, ictlnum1, imin1, --- > imax1, init1, ifn1,...., ictlnum32, imin32, imax32, init32, ifn32 --- --- --- * description : --- --- Creates a bank of 32 different MIDI control messages to a table. --- --- --- * url : - -slider32table :: Irate -> Irate -> Irate -> [Irate] -> Krate -slider32table i0chan i1outTable i2offset i3vals - = opcode "slider32table" args - where args - = [to i0chan, to i1outTable, to i2offset] ++ map to i3vals - - --- | * opcode : slider32tablef --- --- --- * syntax : --- --- > kflag slider32tablef ichan, ioutTable, ioffset, ictlnum1, imin1, imax1, --- > init1, ifn1, icutoff1,...., ictlnum32, imin32, imax32, init32, ifn32, icutoff32 --- --- --- * description : --- --- Creates a bank of 32 different MIDI control message numbers, --- filtered before output. --- --- --- * url : - -slider32tablef :: Irate -> Irate -> Irate -> [Irate] -> Krate -slider32tablef i0chan i1outTable i2offset i3vals - = opcode "slider32tablef" args - where args - = [to i0chan, to i1outTable, to i2offset] ++ map to i3vals - - --- | * opcode : slider64table --- --- --- * syntax : --- --- > kflag slider64table ichan, ioutTable, ioffset, ictlnum1, imin1, --- > imax1, init1, ifn1,...., ictlnum64, imin64, imax64, init64, ifn64 --- --- --- * description : --- --- Creates a bank of 64 different MIDI control messages to a table. --- --- --- * url : - -slider64table :: Irate -> Irate -> Irate -> [Irate] -> Krate -slider64table i0chan i1outTable i2offset i3vals - = opcode "slider64table" args - where args - = [to i0chan, to i1outTable, to i2offset] ++ map to i3vals - - --- | * opcode : slider64tablef --- --- --- * syntax : --- --- > kflag slider64tablef ichan, ioutTable, ioffset, ictlnum1, imin1, imax1, --- > init1, ifn1, icutoff1,...., ictlnum64, imin64, imax64, init64, ifn64, icutoff64 --- --- --- * description : --- --- Stores a bank of 64 different MIDI MIDI control messages to a --- table, filtered before output. --- --- --- * url : - -slider64tablef :: Irate -> Irate -> Irate -> [Irate] -> Krate -slider64tablef i0chan i1outTable i2offset i3vals - = opcode "slider64tablef" args - where args - = [to i0chan, to i1outTable, to i2offset] ++ map to i3vals diff --git a/src/CsoundExpr/Opcodes/Miscopcodes.hs b/src/CsoundExpr/Opcodes/Miscopcodes.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Miscopcodes.hs +++ /dev/null @@ -1,8 +0,0 @@ --- | Miscellaneous opcodes -module CsoundExpr.Opcodes.Miscopcodes - (module CsoundExpr.Opcodes.Miscopcodes.Top) -where - - - -import CsoundExpr.Opcodes.Miscopcodes.Top diff --git a/src/CsoundExpr/Opcodes/Miscopcodes/Top.hs b/src/CsoundExpr/Opcodes/Miscopcodes/Top.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Miscopcodes/Top.hs +++ /dev/null @@ -1,69 +0,0 @@ --- | Miscellaneous opcodes -module CsoundExpr.Opcodes.Miscopcodes.Top - (system, - modmatrix) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : system --- --- --- * syntax : --- --- > ires system_i itrig, Scmd, [inowait] --- > kres system ktrig, Scmd, [knowait] --- --- --- * description : --- --- system and system_i call any external command understood by the --- operating system, similarly to the C function system(). system_i --- runs at i-time only, while system runs both at initialization and --- performance time. --- --- --- * url : - -system :: (K k0, K k1) => [k0] -> k1 -> String -> Krate -system k0init k1trig s2cmd = opcode "system" args - where args = [to k1trig, to s2cmd] ++ map to k0init - - --- | * opcode : modmatrix --- --- --- * syntax : --- --- > modmatrix iresfn, isrcmodfn, isrcparmfn, imodscale, inum_mod, --- > inum_parm, kupdate --- --- --- * description : --- --- The opcode can be used to let a large number of k-rate modulator --- variables modulate a large number of k-rate parameter variables, --- with arbitrary scaling of each modulator-to-parameter connection. --- Csound ftables are used to hold both the input (parameter) --- variables, the modulator variables, and the scaling coefficients. --- Output variables are written to another Csound ftable. --- --- --- * url : - -modmatrix :: - (K k0) => - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> k0 -> SignalOut -modmatrix i0resfn i1srcmodfn i2srcparmfn i3modscale i4num_mod - i5num_parm k6update = outOpcode "modmatrix" args - where args - = [to i0resfn, to i1srcmodfn, to i2srcparmfn, to i3modscale, - to i4num_mod, to i5num_parm, to k6update] diff --git a/src/CsoundExpr/Opcodes/MixerOpcodes.hs b/src/CsoundExpr/Opcodes/MixerOpcodes.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/MixerOpcodes.hs +++ /dev/null @@ -1,8 +0,0 @@ --- | Mixer Opcodes -module CsoundExpr.Opcodes.MixerOpcodes - (module CsoundExpr.Opcodes.MixerOpcodes.MixerOpcodes) -where - - - -import CsoundExpr.Opcodes.MixerOpcodes.MixerOpcodes diff --git a/src/CsoundExpr/Opcodes/MixerOpcodes/MixerOpcodes.hs b/src/CsoundExpr/Opcodes/MixerOpcodes/MixerOpcodes.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/MixerOpcodes/MixerOpcodes.hs +++ /dev/null @@ -1,147 +0,0 @@ --- | Mixer Opcodes -module CsoundExpr.Opcodes.MixerOpcodes.MixerOpcodes - (mixerSend, - mixerReceive, - mixerSetLevel, - mixerSetLevel_i, - mixerGetLevel, - mixerClear) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : MixerSend --- --- --- * syntax : --- --- > MixerSend asignal, isend, ibuss, ichannel --- --- --- * description : --- --- Mixes an arate signal into a channel of a buss. --- --- --- * url : - -mixerSend :: Arate -> Irate -> Irate -> Irate -> SignalOut -mixerSend a0signal i1send i2buss i3channel - = outOpcode "MixerSend" args - where args = [to a0signal, to i1send, to i2buss, to i3channel] - - --- | * opcode : MixerReceive --- --- --- * syntax : --- --- > asignal MixerReceive ibuss, ichannel --- --- --- * description : --- --- Receives an arate signal that has been mixed onto a channel of a --- buss. --- --- --- * url : - -mixerReceive :: Irate -> Irate -> Arate -mixerReceive i0buss i1channel = opcode "MixerReceive" args - where args = [to i0buss, to i1channel] - - --- | * opcode : MixerSetLevel --- --- --- * syntax : --- --- > MixerSetLevel isend, ibuss, kgain --- --- --- * description : --- --- Sets the level at which signals from the send are added to the --- buss. The actual sending of the signal to the buss is performed --- by the MixerSend opcode. --- --- --- * url : - -mixerSetLevel :: (K k0) => Irate -> Irate -> k0 -> SignalOut -mixerSetLevel i0send i1buss k2gain = outOpcode "MixerSetLevel" args - where args = [to i0send, to i1buss, to k2gain] - - --- | * opcode : MixerSetLevel_i --- --- --- * syntax : --- --- > MixerSetLevel_i isend, ibuss, igain --- --- --- * description : --- --- Sets the level at which signals from the send are added to the --- buss. This opcode, because all parameters are irate, may be used --- in the orchestra header. The actual sending of the signal to the --- buss is performed by the MixerSend opcode. --- --- --- * url : - -mixerSetLevel_i :: Irate -> Irate -> Irate -> SignalOut -mixerSetLevel_i i0send i1buss i2gain - = outOpcode "MixerSetLevel_i" args - where args = [to i0send, to i1buss, to i2gain] - - --- | * opcode : MixerGetLevel --- --- --- * syntax : --- --- > kgain MixerGetLevel isend, ibuss --- --- --- * description : --- --- Gets the level at which signals from the send are being added to --- the buss. The actual sending of the signal to the buss is --- performed by the MixerSend opcode. --- --- --- * url : - -mixerGetLevel :: Irate -> Irate -> Krate -mixerGetLevel i0send i1buss = opcode "MixerGetLevel" args - where args = [to i0send, to i1buss] - - --- | * opcode : MixerClear --- --- --- * syntax : --- --- > MixerClear --- --- --- * description : --- --- Resets all channels of a buss to 0. --- --- --- * url : - -mixerClear :: SignalOut -mixerClear = outOpcode "MixerClear" args - where args = [] diff --git a/src/CsoundExpr/Opcodes/OSCNetwork.hs b/src/CsoundExpr/Opcodes/OSCNetwork.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/OSCNetwork.hs +++ /dev/null @@ -1,12 +0,0 @@ --- | OSC and Network -module CsoundExpr.Opcodes.OSCNetwork - (module CsoundExpr.Opcodes.OSCNetwork.OSC, - module CsoundExpr.Opcodes.OSCNetwork.Network, - module CsoundExpr.Opcodes.OSCNetwork.Remote) -where - - - -import CsoundExpr.Opcodes.OSCNetwork.OSC -import CsoundExpr.Opcodes.OSCNetwork.Network -import CsoundExpr.Opcodes.OSCNetwork.Remote diff --git a/src/CsoundExpr/Opcodes/OSCNetwork/Network.hs b/src/CsoundExpr/Opcodes/OSCNetwork/Network.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/OSCNetwork/Network.hs +++ /dev/null @@ -1,63 +0,0 @@ --- | Network -module CsoundExpr.Opcodes.OSCNetwork.Network - (sockrecv, - socksend) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : sockrecv --- --- --- * syntax : --- --- > asig sockrecv iport, ilength --- > asigl, asigr sockrecvs iport, ilength --- > asig strecv Sipaddr, iport --- --- --- * description : --- --- Receives directly using the UDP (sockrecv and sockrecvs) or TCP --- (strecv) protocol onto a network. The data is not subject to any --- encoding or special routing. The sockrecvs opcode receives a --- stereo signal interleaved. --- --- --- * url : - -sockrecv :: Irate -> Irate -> Arate -sockrecv i0port i1length = opcode "sockrecv" args - where args = [to i0port, to i1length] - - --- | * opcode : socksend --- --- --- * syntax : --- --- > socksend asig, Sipaddr, iport, ilength --- > socksends asigl, asigr, Sipaddr, iport, ilength --- > stsend asig, Sipaddr, iport --- --- --- * description : --- --- Transmits data directly using the UDP (socksend and socksends) --- or TCP (stsend) protocol onto a network. The data is not subject --- to any encoding or special routing. The socksends opcode send a --- stereo signal interleaved. --- --- --- * url : - -socksend :: Arate -> String -> Irate -> Irate -> SignalOut -socksend a0sig s1ipaddr i2port i3length = outOpcode "socksend" args - where args = [to a0sig, to s1ipaddr, to i2port, to i3length] diff --git a/src/CsoundExpr/Opcodes/OSCNetwork/OSC.hs b/src/CsoundExpr/Opcodes/OSCNetwork/OSC.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/OSCNetwork/OSC.hs +++ /dev/null @@ -1,81 +0,0 @@ --- | OSC -module CsoundExpr.Opcodes.OSCNetwork.OSC - (oscInit, - oscListen, - oscSend) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : OSCinit --- --- --- * syntax : --- --- > ihandle OSCinit iport --- --- --- * description : --- --- Starts a listening process, which can be used by OSClisten. --- --- --- * url : - -oscInit :: Irate -> Irate -oscInit i0port = opcode "OSCinit" args - where args = [to i0port] - - --- | * opcode : OSClisten --- --- --- * syntax : --- --- > kans OSClisten ihandle, idest, itype [, xdata1, xdata2,...] --- --- --- * description : --- --- On each k-cycle looks to see if an OSC message has been send to --- a given path of a given type. --- --- --- * url : - -oscListen :: (X x0) => Irate -> Irate -> Irate -> [x0] -> Krate -oscListen i0handle i1dest i2type x3dataN = opcode "OSClisten" args - where args = [to i0handle, to i1dest, to i2type] ++ map to x3dataN - - --- | * opcode : OSCsend --- --- --- * syntax : --- --- > OSCsend kwhen, ihost, iport, idestination, itype [, kdata1, kdata2,...] --- --- --- * description : --- --- Uses the OSC protocol to send message to other OSC listening --- processes. --- --- --- * url : - -oscSend :: - (K k0, K k1) => - k0 -> Irate -> Irate -> Irate -> Irate -> [k1] -> SignalOut -oscSend k0when i1host i2port i3destination i4type k5dataN - = outOpcode "OSCsend" args - where args - = [to k0when, to i1host, to i2port, to i3destination, to i4type] ++ - map to k5dataN diff --git a/src/CsoundExpr/Opcodes/OSCNetwork/Remote.hs b/src/CsoundExpr/Opcodes/OSCNetwork/Remote.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/OSCNetwork/Remote.hs +++ /dev/null @@ -1,33 +0,0 @@ --- | Remote Opcodes -module CsoundExpr.Opcodes.OSCNetwork.Remote - (remoteport) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : remoteport --- --- --- * syntax : --- --- > remoteport iportnum --- --- --- * description : --- --- Defines the port for use with the insremot, midremot, insglobal --- and midglobal opcodes. --- --- --- * url : - -remoteport :: Irate -> SignalOut -remoteport i0portnum = outOpcode "remoteport" args - where args = [to i0portnum] diff --git a/src/CsoundExpr/Opcodes/Other.hs b/src/CsoundExpr/Opcodes/Other.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Other.hs +++ /dev/null @@ -1,26 +0,0 @@ -module CsoundExpr.Opcodes.Other( - filebit) -where - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - --- | * opcode : filebit --- --- --- * syntax : --- --- >ir filebit ifilcod [, iallowraw] --- --- * description : --- --- Returns the number of bits in each sample in a sound file. --- --- --- * url : -filebit :: [Irate] -> String -> Irate -filebit inits file = opcode "filebit" args - where args = [to file] ++ map to inits diff --git a/src/CsoundExpr/Opcodes/Pitch.hs b/src/CsoundExpr/Opcodes/Pitch.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Pitch.hs +++ /dev/null @@ -1,10 +0,0 @@ --- | Pitch Converters -module CsoundExpr.Opcodes.Pitch - (module CsoundExpr.Opcodes.Pitch.Funcs, - module CsoundExpr.Opcodes.Pitch.Tuning) -where - - - -import CsoundExpr.Opcodes.Pitch.Funcs -import CsoundExpr.Opcodes.Pitch.Tuning diff --git a/src/CsoundExpr/Opcodes/Pitch/Funcs.hs b/src/CsoundExpr/Opcodes/Pitch/Funcs.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Pitch/Funcs.hs +++ /dev/null @@ -1,246 +0,0 @@ --- | Functions -module CsoundExpr.Opcodes.Pitch.Funcs - (cent, - cpsmidinn, - cpsoct, - cpspch, - octave, - octcps, - octmidinn, - octpch, - pchmidinn, - pchoct, - semitone) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : cent --- --- --- * syntax : --- --- > cent(x) --- --- --- * description : --- --- Calculates a factor to raise/lower a frequency by a given amount --- of cents. --- --- --- * url : - -cent :: (X x0) => x0 -> x0 -cent x0sig = prefixOperation "cent" args - where args = [to x0sig] - - --- | * opcode : cpsmidinn --- --- --- * syntax : --- --- > cpsmidinn (MidiNoteNumber) (init- or control-rate args only) --- --- --- * description : --- --- Converts a Midi note number value to cycles-per-second. --- --- --- * url : - -cpsmidinn :: (K k0) => k0 -> k0 -cpsmidinn k0sig = prefixOperation "cpsmidinn" args - where args = [to k0sig] - - --- | * opcode : cpsoct --- --- --- * syntax : --- --- > cpsoct (oct) (no rate restriction) --- --- --- * description : --- --- Converts an octave-point-decimal value to cycles-per-second. --- --- --- * url : - -cpsoct :: (X x0) => x0 -> x0 -cpsoct x0sig = prefixOperation "cpsoct" args - where args = [to x0sig] - - --- | * opcode : cpspch --- --- --- * syntax : --- --- > cpspch (pch) (init- or control-rate args only) --- --- --- * description : --- --- Converts a pitch-class value to cycles-per-second. --- --- --- * url : - -cpspch :: (K k0) => k0 -> k0 -cpspch k0sig = prefixOperation "cpspch" args - where args = [to k0sig] - - --- | * opcode : octave --- --- --- * syntax : --- --- > octave(x) --- --- --- * description : --- --- Calculates a factor to raise/lower a frequency by a given amount --- of octaves. --- --- --- * url : - -octave :: (X x0) => x0 -> x0 -octave x0sig = prefixOperation "octave" args - where args = [to x0sig] - - --- | * opcode : octcps --- --- --- * syntax : --- --- > octcps (cps) (init- or control-rate args only) --- --- --- * description : --- --- Converts a cycles-per-second value to octave-point-decimal. --- --- --- * url : - -octcps :: (K k0) => k0 -> k0 -octcps k0sig = prefixOperation "octcps" args - where args = [to k0sig] - - --- | * opcode : octmidinn --- --- --- * syntax : --- --- > octmidinn (MidiNoteNumber) (init- or control-rate args only) --- --- --- * description : --- --- Converts a Midi note number value to octave-point-decimal. --- --- --- * url : - -octmidinn :: (K k0) => k0 -> k0 -octmidinn k0sig = prefixOperation "octmidinn" args - where args = [to k0sig] - - --- | * opcode : octpch --- --- --- * syntax : --- --- > octpch (pch) (init- or control-rate args only) --- --- --- * description : --- --- Converts a pitch-class value to octave-point-decimal. --- --- --- * url : - -octpch :: (K k0) => k0 -> k0 -octpch k0sig = prefixOperation "octpch" args - where args = [to k0sig] - - --- | * opcode : pchmidinn --- --- --- * syntax : --- --- > pchmidinn (MidiNoteNumber) (init- or control-rate args only) --- --- --- * description : --- --- Converts a Midi note number value to octave point pitch-class --- units. --- --- --- * url : - -pchmidinn :: (K k0) => k0 -> k0 -pchmidinn k0sig = prefixOperation "pchmidinn" args - where args = [to k0sig] - - --- | * opcode : pchoct --- --- --- * syntax : --- --- > pchoct (oct) (init- or control-rate args only) --- --- --- * description : --- --- Converts an octave-point-decimal value to pitch-class. --- --- --- * url : - -pchoct :: (K k0) => k0 -> k0 -pchoct k0sig = prefixOperation "pchoct" args - where args = [to k0sig] - - --- | * opcode : semitone --- --- --- * syntax : --- --- > semitone(x) --- --- --- * description : --- --- Calculates a factor to raise/lower a frequency by a given amount --- of semitones. --- --- --- * url : - -semitone :: (X x0) => x0 -> x0 -semitone x0sig = prefixOperation "semitone" args - where args = [to x0sig] diff --git a/src/CsoundExpr/Opcodes/Pitch/Tuning.hs b/src/CsoundExpr/Opcodes/Pitch/Tuning.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Pitch/Tuning.hs +++ /dev/null @@ -1,98 +0,0 @@ --- | Tuning Opcodes -module CsoundExpr.Opcodes.Pitch.Tuning - (cps2pch, - cpsxpch, - cpstun, - cpstuni) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : cps2pch --- --- --- * syntax : --- --- > icps cps2pch ipch, iequal --- --- --- * description : --- --- Converts a pitch-class value into cycles-per-second (Hz) for --- equal divisions of the octave. --- --- --- * url : - -cps2pch :: Irate -> Irate -> Irate -cps2pch i0pch i1equal = opcode "cps2pch" args - where args = [to i0pch, to i1equal] - - --- | * opcode : cpsxpch --- --- --- * syntax : --- --- > icps cpsxpch ipch, iequal, irepeat, ibase --- --- --- * description : --- --- Converts a pitch-class value into cycles-per-second (Hz) for --- equal divisions of any interval. There is a restriction of no --- more than 100 equal divisions. --- --- --- * url : - -cpsxpch :: Irate -> Irate -> Irate -> Irate -> Irate -cpsxpch i0pch i1equal i2repeat i3base = opcode "cpsxpch" args - where args = [to i0pch, to i1equal, to i2repeat, to i3base] - - --- | * opcode : cpstun --- --- --- * syntax : --- --- > kcps cpstun ktrig, kindex, kfn --- --- --- * description : --- --- Returns micro-tuning values at k-rate. --- --- --- * url : - -cpstun :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -cpstun k0trig k1index k2fn = opcode "cpstun" args - where args = [to k0trig, to k1index, to k2fn] - - --- | * opcode : cpstuni --- --- --- * syntax : --- --- > icps cpstuni index, ifn --- --- --- * description : --- --- Returns micro-tuning values at init-rate. --- --- --- * url : - -cpstuni :: Irate -> Irate -> Irate -cpstuni i0ndex i1fn = opcode "cpstuni" args - where args = [to i0ndex, to i1fn] diff --git a/src/CsoundExpr/Opcodes/Plugin.hs b/src/CsoundExpr/Opcodes/Plugin.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Plugin.hs +++ /dev/null @@ -1,10 +0,0 @@ --- | Plugin Hosting -module CsoundExpr.Opcodes.Plugin - (module CsoundExpr.Opcodes.Plugin.Dssi4cs, - module CsoundExpr.Opcodes.Plugin.Vst4cs) -where - - - -import CsoundExpr.Opcodes.Plugin.Dssi4cs -import CsoundExpr.Opcodes.Plugin.Vst4cs diff --git a/src/CsoundExpr/Opcodes/Plugin/Dssi4cs.hs b/src/CsoundExpr/Opcodes/Plugin/Dssi4cs.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Plugin/Dssi4cs.hs +++ /dev/null @@ -1,123 +0,0 @@ --- | DSSI and LADSPA for Csound -module CsoundExpr.Opcodes.Plugin.Dssi4cs - (dssiinit, - dssiactivate, - dssilist, - dssiaudio, - dssictls) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : dssiinit --- --- --- * syntax : --- --- > ihandle dssiinit ilibraryname, iplugindex [, iverbose] --- --- --- * description : --- --- dssiinit is used to load a DSSI or LADSPA plugin into memory for --- use with the other dssi4cs opcodes. Both LADSPA effects and DSSI --- instruments can be used. --- --- --- * url : - -dssiinit :: [Irate] -> Irate -> Irate -> Irate -dssiinit i0init i1libraryname i2plugindex = opcode "dssiinit" args - where args = [to i1libraryname, to i2plugindex] ++ map to i0init - - --- | * opcode : dssiactivate --- --- --- * syntax : --- --- > dssiactivate ihandle, ktoggle --- --- --- * description : --- --- dssiactivate is used to activate or deactivate a DSSI or LADSPA --- plugin. It calles the plugin's activate() and deactivate() --- functions if they are provided. --- --- --- * url : - -dssiactivate :: (K k0) => Irate -> k0 -> SignalOut -dssiactivate i0handle k1toggle = outOpcode "dssiactivate" args - where args = [to i0handle, to k1toggle] - - --- | * opcode : dssilist --- --- --- * syntax : --- --- > dssilist --- --- --- * description : --- --- dssilist checks the variables DSSI_PATH and LADSPA_PATH and --- lists all plugins available in all plugin libraries there. --- --- --- * url : - -dssilist :: SignalOut -dssilist = outOpcode "dssilist" args - where args = [] - - --- | * opcode : dssiaudio --- --- --- * syntax : --- --- > aout1 [, aout2, aout3, aout4] dssiaudio ihandle, ain1 [,ain2, ain3, ain4] --- --- --- * description : --- --- dssiaudio generates audio by processing an input signal through --- a LADSPA plugin. --- --- --- * url : - -dssiaudio :: [Arate] -> Irate -> Arate -> MultiOut -dssiaudio a0init i1handle a2in1 = opcode "dssiaudio" args - where args = [to i1handle, to a2in1] ++ map to a0init - - --- | * opcode : dssictls --- --- --- * syntax : --- --- > dssictls ihandle, iport, kvalue, ktrigger --- --- --- * description : --- --- dssictls sends control values to a plugin's control port --- --- --- * url : - -dssictls :: (K k0, K k1) => Irate -> Irate -> k0 -> k1 -> SignalOut -dssictls i0handle i1port k2value k3trigger - = outOpcode "dssictls" args - where args = [to i0handle, to i1port, to k2value, to k3trigger] diff --git a/src/CsoundExpr/Opcodes/Plugin/Vst4cs.hs b/src/CsoundExpr/Opcodes/Plugin/Vst4cs.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Plugin/Vst4cs.hs +++ /dev/null @@ -1,174 +0,0 @@ --- | VST for Csound -module CsoundExpr.Opcodes.Plugin.Vst4cs - (vstinit, - vstmidiout, - vstnote, - vstinfo, - vstbankload, - vstprogset, - vstedit) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vstinit --- --- --- * syntax : --- --- > instance vstinit ilibrarypath [,iverbose] --- --- --- * description : --- --- vstinit is used to load a VST plugin into memory for use with --- the other vst4cs opcodes. Both VST effects and instruments --- (synthesizers) can be used. --- --- --- * url : - -vstinit :: [Irate] -> Irate -> Irate -vstinit i0init i1librarypath = opcode "vstinit" args - where args = [to i1librarypath] ++ map to i0init - - --- | * opcode : vstmidiout --- --- --- * syntax : --- --- > vstmidiout instance, kstatus, kchan, kdata1, kdata2 --- --- --- * description : --- --- vstmidiout is used for sending MIDI information to a VST plugin. --- --- --- * url : - -vstmidiout :: - (K k0, K k1, K k2, K k3) => - Irate -> k0 -> k1 -> k2 -> k3 -> SignalOut -vstmidiout i0nstance k1status k2chan k3data1 k4data2 - = outOpcode "vstmidiout" args - where args - = [to i0nstance, to k1status, to k2chan, to k3data1, to k4data2] - - --- | * opcode : vstnote --- --- --- * syntax : --- --- > vstnote instance, kchan, knote, kveloc, kdur --- --- --- * description : --- --- vstnote sends a MIDI note with definite duration to a VST --- plugin. --- --- --- * url : - -vstnote :: - (K k0, K k1, K k2, K k3) => - Irate -> k0 -> k1 -> k2 -> k3 -> SignalOut -vstnote i0nstance k1chan k2note k3veloc k4dur - = outOpcode "vstnote" args - where args - = [to i0nstance, to k1chan, to k2note, to k3veloc, to k4dur] - - --- | * opcode : vstinfo --- --- --- * syntax : --- --- > vstinfo instance --- --- --- * description : --- --- vstinfo displays the parameters and the programs of a VST --- plugin. --- --- --- * url : - -vstinfo :: Irate -> SignalOut -vstinfo i0nstance = outOpcode "vstinfo" args - where args = [to i0nstance] - - --- | * opcode : vstbankload --- --- --- * syntax : --- --- > vstbankload instance, ipath --- --- --- * description : --- --- vstbankload is used for loading parameter banks to a VST plugin. --- --- --- * url : - -vstbankload :: Irate -> Irate -> SignalOut -vstbankload i0nstance i1path = outOpcode "vstbankload" args - where args = [to i0nstance, to i1path] - - --- | * opcode : vstprogset --- --- --- * syntax : --- --- > vstprogset instance, kprogram --- --- --- * description : --- --- vstprogset sets one of the programs in an .fxb bank. --- --- --- * url : - -vstprogset :: (K k0) => Irate -> k0 -> SignalOut -vstprogset i0nstance k1program = outOpcode "vstprogset" args - where args = [to i0nstance, to k1program] - - --- | * opcode : vstedit --- --- --- * syntax : --- --- > vstedit instance --- --- --- * description : --- --- vstedit opens the custom GUI editor widow for a VST plugin. Note --- that not all VST plugins have custom GUI editors. It may be --- necessary to use the --displays command-line option to ensure --- that Csound handles events from the editor window and displays it --- properly. --- --- --- * url : - -vstedit :: Irate -> SignalOut -vstedit i0nstance = outOpcode "vstedit" args - where args = [to i0nstance] diff --git a/src/CsoundExpr/Opcodes/Siggen.hs b/src/CsoundExpr/Opcodes/Siggen.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen.hs +++ /dev/null @@ -1,38 +0,0 @@ --- | Signal Generators -module CsoundExpr.Opcodes.Siggen - (module CsoundExpr.Opcodes.Siggen.Additive, - module CsoundExpr.Opcodes.Siggen.Basic, - module CsoundExpr.Opcodes.Siggen.Dynamic, - module CsoundExpr.Opcodes.Siggen.Fmsynth, - module CsoundExpr.Opcodes.Siggen.Granular, - module CsoundExpr.Opcodes.Siggen.Hvs, - module CsoundExpr.Opcodes.Siggen.Lineexp, - module CsoundExpr.Opcodes.Siggen.Envelope, - module CsoundExpr.Opcodes.Siggen.Models, - module CsoundExpr.Opcodes.Siggen.Phasors, - module CsoundExpr.Opcodes.Siggen.Noise, - module CsoundExpr.Opcodes.Siggen.Sample, - module CsoundExpr.Opcodes.Siggen.ScanTop, - module CsoundExpr.Opcodes.Siggen.Tableacc, - module CsoundExpr.Opcodes.Siggen.Waveterr, - module CsoundExpr.Opcodes.Siggen.Wavguide) -where - - - -import CsoundExpr.Opcodes.Siggen.Additive -import CsoundExpr.Opcodes.Siggen.Basic -import CsoundExpr.Opcodes.Siggen.Dynamic -import CsoundExpr.Opcodes.Siggen.Fmsynth -import CsoundExpr.Opcodes.Siggen.Granular -import CsoundExpr.Opcodes.Siggen.Hvs -import CsoundExpr.Opcodes.Siggen.Lineexp -import CsoundExpr.Opcodes.Siggen.Envelope -import CsoundExpr.Opcodes.Siggen.Models -import CsoundExpr.Opcodes.Siggen.Phasors -import CsoundExpr.Opcodes.Siggen.Noise -import CsoundExpr.Opcodes.Siggen.Sample -import CsoundExpr.Opcodes.Siggen.ScanTop -import CsoundExpr.Opcodes.Siggen.Tableacc -import CsoundExpr.Opcodes.Siggen.Waveterr -import CsoundExpr.Opcodes.Siggen.Wavguide diff --git a/src/CsoundExpr/Opcodes/Siggen/Additive.hs b/src/CsoundExpr/Opcodes/Siggen/Additive.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Additive.hs +++ /dev/null @@ -1,117 +0,0 @@ --- | Additive Synthesis/Resynthesis -module CsoundExpr.Opcodes.Siggen.Additive - (adsyn, - adsynt, - adsynt2, - hsboscil) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : adsyn --- --- --- * syntax : --- --- > ares adsyn kamod, kfmod, ksmod, ifilcod --- --- --- * description : --- --- Output is an additive set of individually controlled sinusoids, --- using an oscillator bank. --- --- --- * url : - -adsyn :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> String -> Arate -adsyn k0amod k1fmod k2smod s3file = opcode "adsyn" args - where args = [to k0amod, to k1fmod, to k2smod, to s3file] - - --- | * opcode : adsynt --- --- --- * syntax : --- --- > ares adsynt kamp, kcps, iwfn, ifreqfn, iampfn, icnt [, iphs] --- --- --- * description : --- --- Performs additive synthesis with an arbitrary number of --- partials, not necessarily harmonic. --- --- --- * url : - -adsynt :: - (K k0, K k1) => - [Irate] -> k0 -> k1 -> Irate -> Irate -> Irate -> Irate -> Arate -adsynt i0init k1amp k2cps i3wfn i4freqfn i5ampfn i6cnt - = opcode "adsynt" args - where args - = [to k1amp, to k2cps, to i3wfn, to i4freqfn, to i5ampfn, to i6cnt] - ++ map to i0init - - --- | * opcode : adsynt2 --- --- --- * syntax : --- --- > ar adsynt2 kamp, kcps, iwfn, ifreqfn, iampfn, icnt [, iphs] --- --- --- * description : --- --- Performs additive synthesis with an arbitrary number of --- partials, not necessarily harmonic. (see adsynt for detailed --- manual) --- --- --- * url : - -adsynt2 :: - (K k0, K k1) => - [Irate] -> k0 -> k1 -> Irate -> Irate -> Irate -> Irate -> Arate -adsynt2 i0init k1amp k2cps i3wfn i4freqfn i5ampfn i6cnt - = opcode "adsynt2" args - where args - = [to k1amp, to k2cps, to i3wfn, to i4freqfn, to i5ampfn, to i6cnt] - ++ map to i0init - - --- | * opcode : hsboscil --- --- --- * syntax : --- --- > ares hsboscil kamp, ktone, kbrite, ibasfreq, iwfn, ioctfn --- > [, ioctcnt] [, iphs] --- --- --- * description : --- --- An oscillator which takes tonality and brightness as arguments, --- relative to a base frequency. --- --- --- * url : - -hsboscil :: - (K k0, K k1, K k2) => - [Irate] -> k0 -> k1 -> k2 -> Irate -> Irate -> Irate -> Arate -hsboscil i0init k1amp k2tone k3brite i4basfreq i5wfn i6octfn - = opcode "hsboscil" args - where args - = [to k1amp, to k2tone, to k3brite, to i4basfreq, to i5wfn, - to i6octfn] - ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Siggen/Basic.hs b/src/CsoundExpr/Opcodes/Siggen/Basic.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Basic.hs +++ /dev/null @@ -1,661 +0,0 @@ --- | Basic Oscillators -module CsoundExpr.Opcodes.Siggen.Basic - (oscbnk, - oscilA, - oscilK, - oscil3A, - oscil3K, - osciliA, - osciliK, - oscils, - poscilAAA, - poscilAAK, - poscilAKA, - poscilAKK, - poscilI, - poscilK, - poscil3A, - poscil3K, - osciliktA, - osciliktK, - osciliktp, - oscilikts, - osciln, - lfoA, - lfoK, - vibr, - vibrato) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : oscbnk --- --- --- * syntax : --- --- > ares oscbnk kcps, kamd, kfmd, kpmd, iovrlap, iseed, kl1minf, kl1maxf, --- > kl2minf, kl2maxf, ilfomode, keqminf, keqmaxf, keqminl, keqmaxl, --- > keqminq, keqmaxq, ieqmode, kfn [, il1fn] [, il2fn] [, ieqffn] --- > [, ieqlfn] [, ieqqfn] [, itabl] [, ioutfn] --- --- --- * description : --- --- This unit generator mixes the output of any number of --- oscillators. The frequency, phase, and amplitude of each --- oscillator can be modulated by two LFOs (all oscillators have a --- separate set of LFOs, with different phase and frequency); --- additionally, the output of each oscillator can be filtered --- through an optional parametric equalizer (also controlled by the --- LFOs). This opcode is most useful for rendering ensemble --- (strings, choir, etc.) instruments. --- --- --- * url : - -oscbnk :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6, K k7, K k8, K k9, K k10, - K k11, K k12, K k13, K k14) => - [Irate] -> - k0 -> - k1 -> - k2 -> - k3 -> - Irate -> - Irate -> - k4 -> - k5 -> - k6 -> - k7 -> - Irate -> - k8 -> k9 -> k10 -> k11 -> k12 -> k13 -> Irate -> k14 -> Arate -oscbnk i0init k1cps k2amd k3fmd k4pmd i5ovrlap i6seed k7l1minf - k8l1maxf k9l2minf k10l2maxf i11lfomode k12eqminf k13eqmaxf - k14eqminl k15eqmaxl k16eqminq k17eqmaxq i18eqmode k19fn - = opcode "oscbnk" args - where args - = [to k1cps, to k2amd, to k3fmd, to k4pmd, to i5ovrlap, to i6seed, - to k7l1minf, to k8l1maxf, to k9l2minf, to k10l2maxf, to i11lfomode, - to k12eqminf, to k13eqmaxf, to k14eqminl, to k15eqmaxl, - to k16eqminq, to k17eqmaxq, to i18eqmode, to k19fn] - ++ map to i0init - - --- | * opcode : oscil --- --- --- * syntax : --- --- > ares oscil xamp, xcps, ifn [, iphs] --- > kres oscil kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- oscil reads table ifn sequentially and repeatedly at a frequency --- xcps. The amplitude is scaled by xamp. --- --- --- * url : - -oscilA :: (X x0, X x1) => [Irate] -> x0 -> x1 -> Irate -> Arate -oscilA i0init x1amp x2cps i3fn = opcode "oscil" args - where args = [to x1amp, to x2cps, to i3fn] ++ map to i0init - - --- | * opcode : oscil --- --- --- * syntax : --- --- > ares oscil xamp, xcps, ifn [, iphs] --- > kres oscil kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- oscil reads table ifn sequentially and repeatedly at a frequency --- xcps. The amplitude is scaled by xamp. --- --- --- * url : - -oscilK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Krate -oscilK i0init k1amp k2cps i3fn = opcode "oscil" args - where args = [to k1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : oscil3 --- --- --- * syntax : --- --- > ares oscil3 xamp, xcps, ifn [, iphs] --- > kres oscil3 kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- oscil3 reads table ifn sequentially and repeatedly at a --- frequency xcps. The amplitude is scaled by xamp. Cubic --- interpolation is applied for table look up from internal phase --- values. --- --- --- * url : - -oscil3A :: (X x0, X x1) => [Irate] -> x0 -> x1 -> Irate -> Arate -oscil3A i0init x1amp x2cps i3fn = opcode "oscil3" args - where args = [to x1amp, to x2cps, to i3fn] ++ map to i0init - - --- | * opcode : oscil3 --- --- --- * syntax : --- --- > ares oscil3 xamp, xcps, ifn [, iphs] --- > kres oscil3 kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- oscil3 reads table ifn sequentially and repeatedly at a --- frequency xcps. The amplitude is scaled by xamp. Cubic --- interpolation is applied for table look up from internal phase --- values. --- --- --- * url : - -oscil3K :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Krate -oscil3K i0init k1amp k2cps i3fn = opcode "oscil3" args - where args = [to k1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : oscili --- --- --- * syntax : --- --- > ares oscili xamp, xcps, ifn [, iphs] --- > kres oscili kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- oscili reads table ifn sequentially and repeatedly at a --- frequency xcps. The amplitude is scaled by xamp. Linear --- interpolation is applied for table look up from internal phase --- values. --- --- --- * url : - -osciliA :: (X x0, X x1) => [Irate] -> x0 -> x1 -> Irate -> Arate -osciliA i0init x1amp x2cps i3fn = opcode "oscili" args - where args = [to x1amp, to x2cps, to i3fn] ++ map to i0init - - --- | * opcode : oscili --- --- --- * syntax : --- --- > ares oscili xamp, xcps, ifn [, iphs] --- > kres oscili kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- oscili reads table ifn sequentially and repeatedly at a --- frequency xcps. The amplitude is scaled by xamp. Linear --- interpolation is applied for table look up from internal phase --- values. --- --- --- * url : - -osciliK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Krate -osciliK i0init k1amp k2cps i3fn = opcode "oscili" args - where args = [to k1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : oscils --- --- --- * syntax : --- --- > ares oscils iamp, icps, iphs [, iflg] --- --- --- * description : --- --- Simple, fast sine oscillator, that uses only one multiply, and --- two add operations to generate one sample of output, and does not --- require a function table. --- --- --- * url : - -oscils :: [Irate] -> Irate -> Irate -> Irate -> Arate -oscils i0init i1amp i2cps i3phs = opcode "oscils" args - where args = [to i1amp, to i2cps, to i3phs] ++ map to i0init - - --- | * opcode : poscil --- --- --- * syntax : --- --- > ares poscil aamp, acps, ifn [, iphs] --- > ares poscil aamp, kcps, ifn [, iphs] --- > ares poscil kamp, acps, ifn [, iphs] --- > ares poscil kamp, kcps, ifn [, iphs] --- > ires poscil kamp, kcps, ifn [, iphs] --- > kres poscil kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- High precision oscillator. --- --- --- * url : - -poscilAAA :: [Irate] -> Arate -> Arate -> Irate -> Arate -poscilAAA i0init a1amp a2cps i3fn = opcode "poscil" args - where args = [to a1amp, to a2cps, to i3fn] ++ map to i0init - - --- | * opcode : poscil --- --- --- * syntax : --- --- > ares poscil aamp, acps, ifn [, iphs] --- > ares poscil aamp, kcps, ifn [, iphs] --- > ares poscil kamp, acps, ifn [, iphs] --- > ares poscil kamp, kcps, ifn [, iphs] --- > ires poscil kamp, kcps, ifn [, iphs] --- > kres poscil kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- High precision oscillator. --- --- --- * url : - -poscilAAK :: (K k0) => [Irate] -> Arate -> k0 -> Irate -> Arate -poscilAAK i0init a1amp k2cps i3fn = opcode "poscil" args - where args = [to a1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : poscil --- --- --- * syntax : --- --- > ares poscil aamp, acps, ifn [, iphs] --- > ares poscil aamp, kcps, ifn [, iphs] --- > ares poscil kamp, acps, ifn [, iphs] --- > ares poscil kamp, kcps, ifn [, iphs] --- > ires poscil kamp, kcps, ifn [, iphs] --- > kres poscil kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- High precision oscillator. --- --- --- * url : - -poscilAKA :: (K k0) => [Irate] -> k0 -> Arate -> Irate -> Arate -poscilAKA i0init k1amp a2cps i3fn = opcode "poscil" args - where args = [to k1amp, to a2cps, to i3fn] ++ map to i0init - - --- | * opcode : poscil --- --- --- * syntax : --- --- > ares poscil aamp, acps, ifn [, iphs] --- > ares poscil aamp, kcps, ifn [, iphs] --- > ares poscil kamp, acps, ifn [, iphs] --- > ares poscil kamp, kcps, ifn [, iphs] --- > ires poscil kamp, kcps, ifn [, iphs] --- > kres poscil kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- High precision oscillator. --- --- --- * url : - -poscilAKK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Arate -poscilAKK i0init k1amp k2cps i3fn = opcode "poscil" args - where args = [to k1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : poscil --- --- --- * syntax : --- --- > ares poscil aamp, acps, ifn [, iphs] --- > ares poscil aamp, kcps, ifn [, iphs] --- > ares poscil kamp, acps, ifn [, iphs] --- > ares poscil kamp, kcps, ifn [, iphs] --- > ires poscil kamp, kcps, ifn [, iphs] --- > kres poscil kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- High precision oscillator. --- --- --- * url : - -poscilI :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Irate -poscilI i0init k1amp k2cps i3fn = opcode "poscil" args - where args = [to k1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : poscil --- --- --- * syntax : --- --- > ares poscil aamp, acps, ifn [, iphs] --- > ares poscil aamp, kcps, ifn [, iphs] --- > ares poscil kamp, acps, ifn [, iphs] --- > ares poscil kamp, kcps, ifn [, iphs] --- > ires poscil kamp, kcps, ifn [, iphs] --- > kres poscil kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- High precision oscillator. --- --- --- * url : - -poscilK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Krate -poscilK i0init k1amp k2cps i3fn = opcode "poscil" args - where args = [to k1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : poscil3 --- --- --- * syntax : --- --- > ares poscil3 kamp, kcps, ifn [, iphs] --- > kres poscil3 kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- High precision oscillator with cubic interpolation. --- --- --- * url : - -poscil3A :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Arate -poscil3A i0init k1amp k2cps i3fn = opcode "poscil3" args - where args = [to k1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : poscil3 --- --- --- * syntax : --- --- > ares poscil3 kamp, kcps, ifn [, iphs] --- > kres poscil3 kamp, kcps, ifn [, iphs] --- --- --- * description : --- --- High precision oscillator with cubic interpolation. --- --- --- * url : - -poscil3K :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Krate -poscil3K i0init k1amp k2cps i3fn = opcode "poscil3" args - where args = [to k1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : oscilikt --- --- --- * syntax : --- --- > ares oscilikt xamp, xcps, kfn [, iphs] [, istor] --- > kres oscilikt kamp, kcps, kfn [, iphs] [, istor] --- --- --- * description : --- --- oscilikt is very similar to oscili, but allows changing the --- table number at k-rate. It is slightly slower than oscili --- (especially with high control rate), although also more accurate --- as it uses a 31-bit phase accumulator, as opposed to the 24-bit --- one used by oscili. --- --- --- * url : - -osciliktA :: - (X x0, X x1, K k0) => [Irate] -> x0 -> x1 -> k0 -> Arate -osciliktA i0init x1amp x2cps k3fn = opcode "oscilikt" args - where args = [to x1amp, to x2cps, to k3fn] ++ map to i0init - - --- | * opcode : oscilikt --- --- --- * syntax : --- --- > ares oscilikt xamp, xcps, kfn [, iphs] [, istor] --- > kres oscilikt kamp, kcps, kfn [, iphs] [, istor] --- --- --- * description : --- --- oscilikt is very similar to oscili, but allows changing the --- table number at k-rate. It is slightly slower than oscili --- (especially with high control rate), although also more accurate --- as it uses a 31-bit phase accumulator, as opposed to the 24-bit --- one used by oscili. --- --- --- * url : - -osciliktK :: - (K k0, K k1, K k2) => [Irate] -> k0 -> k1 -> k2 -> Krate -osciliktK i0init k1amp k2cps k3fn = opcode "oscilikt" args - where args = [to k1amp, to k2cps, to k3fn] ++ map to i0init - - --- | * opcode : osciliktp --- --- --- * syntax : --- --- > ares osciliktp kcps, kfn, kphs [, istor] --- --- --- * description : --- --- osciliktp allows phase modulation (which is actually implemented --- as k-rate frequency modulation, by differentiating phase input). --- The disadvantage is that there is no amplitude control, and --- frequency can be varied only at the control-rate. This opcode can --- be faster or slower than oscilikt, depending on the control-rate. --- --- --- * url : - -osciliktp :: - (K k0, K k1, K k2) => [Irate] -> k0 -> k1 -> k2 -> Arate -osciliktp i0init k1cps k2fn k3phs = opcode "osciliktp" args - where args = [to k1cps, to k2fn, to k3phs] ++ map to i0init - - --- | * opcode : oscilikts --- --- --- * syntax : --- --- > ares oscilikts xamp, xcps, kfn, async, kphs [, istor] --- --- --- * description : --- --- oscilikts is the same as oscilikt. Except it has a sync input --- that can be used to re-initialize the oscillator to a k-rate --- phase value. It is slower than oscilikt and osciliktp. --- --- --- * url : - -oscilikts :: - (X x0, X x1, K k0, K k1) => - [Irate] -> x0 -> x1 -> k0 -> Arate -> k1 -> Arate -oscilikts i0init x1amp x2cps k3fn a4sync k5phs - = opcode "oscilikts" args - where args - = [to x1amp, to x2cps, to k3fn, to a4sync, to k5phs] ++ - map to i0init - - --- | * opcode : osciln --- --- --- * syntax : --- --- > ares osciln kamp, ifrq, ifn, itimes --- --- --- * description : --- --- Accesses table values at a user-defined frequency. This opcode --- can also be written as oscilx. --- --- --- * url : - -osciln :: (K k0) => k0 -> Irate -> Irate -> Irate -> Arate -osciln k0amp i1frq i2fn i3times = opcode "osciln" args - where args = [to k0amp, to i1frq, to i2fn, to i3times] - - --- | * opcode : lfo --- --- --- * syntax : --- --- > kres lfo kamp, kcps [, itype] --- > ares lfo kamp, kcps [, itype] --- --- --- * description : --- --- A low frequency oscillator of various shapes. --- --- --- * url : - -lfoA :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Arate -lfoA i0init k1amp k2cps = opcode "lfo" args - where args = [to k1amp, to k2cps] ++ map to i0init - - --- | * opcode : lfo --- --- --- * syntax : --- --- > kres lfo kamp, kcps [, itype] --- > ares lfo kamp, kcps [, itype] --- --- --- * description : --- --- A low frequency oscillator of various shapes. --- --- --- * url : - -lfoK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -lfoK i0init k1amp k2cps = opcode "lfo" args - where args = [to k1amp, to k2cps] ++ map to i0init - - --- | * opcode : vibr --- --- --- * syntax : --- --- > kout vibr kAverageAmp, kAverageFreq, ifn --- --- --- * description : --- --- Easier-to-use user-controllable vibrato. --- --- --- * url : - -vibr :: (K k0, K k1) => k0 -> k1 -> Irate -> Krate -vibr k0AverageAmp k1AverageFreq i2fn = opcode "vibr" args - where args = [to k0AverageAmp, to k1AverageFreq, to i2fn] - - --- | * opcode : vibrato --- --- --- * syntax : --- --- > kout vibrato kAverageAmp, kAverageFreq, kRandAmountAmp, --- > kRandAmountFreq, kAmpMinRate, kAmpMaxRate, kcpsMinRate, --- > kcpsMaxRate, ifn [, iphs] --- --- --- * description : --- --- Generates a natural-sounding user-controllable vibrato. --- --- --- * url : - -vibrato :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6, K k7) => - [Irate] -> - k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> Irate -> Krate -vibrato i0init k1AverageAmp k2AverageFreq k3RandAmountAmp - k4RandAmountFreq k5AmpMinRate k6AmpMaxRate k7cpsMinRate - k8cpsMaxRate i9fn = opcode "vibrato" args - where args - = [to k1AverageAmp, to k2AverageFreq, to k3RandAmountAmp, - to k4RandAmountFreq, to k5AmpMinRate, to k6AmpMaxRate, - to k7cpsMinRate, to k8cpsMaxRate, to i9fn] - ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Siggen/Dynamic.hs b/src/CsoundExpr/Opcodes/Siggen/Dynamic.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Dynamic.hs +++ /dev/null @@ -1,213 +0,0 @@ --- | Dynamic Spectrum Oscillators -module CsoundExpr.Opcodes.Siggen.Dynamic - (buzz, - gbuzz, - mpulse, - vco, - vco2, - vco2init, - vco2ft, - vco2ift) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : buzz --- --- --- * syntax : --- --- > ares buzz xamp, xcps, knh, ifn [, iphs] --- --- --- * description : --- --- Output is a set of harmonically related sine partials. --- --- --- * url : - -buzz :: - (X x0, X x1, K k0) => [Irate] -> x0 -> x1 -> k0 -> Irate -> Arate -buzz i0init x1amp x2cps k3nh i4fn = opcode "buzz" args - where args - = [to x1amp, to x2cps, to k3nh, to i4fn] ++ map to i0init - - --- | * opcode : gbuzz --- --- --- * syntax : --- --- > ares gbuzz xamp, xcps, knh, klh, kmul, ifn [, iphs] --- --- --- * description : --- --- Output is a set of harmonically related cosine partials. --- --- --- * url : - -gbuzz :: - (X x0, X x1, K k0, K k1, K k2) => - [Irate] -> x0 -> x1 -> k0 -> k1 -> k2 -> Irate -> Arate -gbuzz i0init x1amp x2cps k3nh k4lh k5mul i6fn = opcode "gbuzz" args - where args - = [to x1amp, to x2cps, to k3nh, to k4lh, to k5mul, to i6fn] ++ - map to i0init - - --- | * opcode : mpulse --- --- --- * syntax : --- --- > ares mpulse kamp, kintvl [, ioffset] --- --- --- * description : --- --- Generates a set of impulses of amplitude kamp separated by --- kintvl seconds (or samples if kintvl is negative). The first --- impulse is generated after a delay of ioffset seconds. --- --- --- * url : - -mpulse :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Arate -mpulse i0init k1amp k2intvl = opcode "mpulse" args - where args = [to k1amp, to k2intvl] ++ map to i0init - - --- | * opcode : vco --- --- --- * syntax : --- --- > ares vco xamp, xcps, iwave, kpw [, ifn] [, imaxd] [, ileak] [, inyx] --- > [, iphs] [, iskip] --- --- --- * description : --- --- Implementation of a band limited, analog modeled oscillator, --- based on integration of band limited impulses. vco can be used to --- simulate a variety of analog wave forms. --- --- --- * url : - -vco :: - (X x0, X x1, K k0) => [Irate] -> x0 -> x1 -> Irate -> k0 -> Arate -vco i0init x1amp x2cps i3wave k4pw = opcode "vco" args - where args - = [to x1amp, to x2cps, to i3wave, to k4pw] ++ map to i0init - - --- | * opcode : vco2 --- --- --- * syntax : --- --- > ares vco2 kamp, kcps [, imode] [, kpw] [, kphs] [, inyx] --- --- --- * description : --- --- vco2 is similar to vco. But the implementation uses --- pre-calculated tables of band-limited waveforms (see also GEN30) --- rather than integrating impulses. This opcode can be faster than --- vco (especially if a low control-rate is used) and also allows --- better sound quality. Additionally, there are more waveforms and --- oscillator phase can be modulated at k-rate. The disadvantage is --- increased memory usage. For more details about vco2 tables, see --- also vco2init and vco2ft. --- --- --- * url : - -vco2 :: - (K k0, K k1, K k2) => - [Irate] -> [k0] -> [Irate] -> k1 -> k2 -> Arate -vco2 i0init k1init i2init k3amp k4cps = opcode "vco2" args - where args - = [to k3amp, to k4cps] ++ map to i0init ++ map to k1init ++ - map to i2init - - --- | * opcode : vco2init --- --- --- * syntax : --- --- > ifn vco2init iwave [, ibasfn] [, ipmul] [, iminsiz] [, imaxsiz] [, isrcft] --- --- --- * description : --- --- vco2init calculates tables for use by vco2 opcode. Optionally, --- it is also possible to access these tables as standard Csound --- function tables. In this case, vco2ft can be used to find the --- correct table number for a given oscillator frequency. --- --- --- * url : - -vco2init :: [Irate] -> Irate -> Irate -vco2init i0init i1wave = opcode "vco2init" args - where args = [to i1wave] ++ map to i0init - - --- | * opcode : vco2ft --- --- --- * syntax : --- --- > kfn vco2ft kcps, iwave [, inyx] --- --- --- * description : --- --- vco2ft returns the function table number to be used for --- generating the specified waveform at a given frequency. This --- function table number can be used by any Csound opcode that --- generates a signal by reading function tables (like oscilikt). --- The tables must be calculated by vco2init before vco2ft is called --- and shared as Csound ftables (ibasfn). --- --- --- * url : - -vco2ft :: (K k0) => [Irate] -> k0 -> Irate -> Krate -vco2ft i0init k1cps i2wave = opcode "vco2ft" args - where args = [to k1cps, to i2wave] ++ map to i0init - - --- | * opcode : vco2ift --- --- --- * syntax : --- --- > ifn vco2ift icps, iwave [, inyx] --- --- --- * description : --- --- vco2ift is the same as vco2ft, but works at i-time. It is --- suitable for use with opcodes that expect an i-rate table number --- (for example, oscili). --- --- --- * url : - -vco2ift :: [Irate] -> Irate -> Irate -> Irate -vco2ift i0init i1cps i2wave = opcode "vco2ift" args - where args = [to i1cps, to i2wave] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Siggen/Envelope.hs b/src/CsoundExpr/Opcodes/Siggen/Envelope.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Envelope.hs +++ /dev/null @@ -1,409 +0,0 @@ --- | Envelope Generators -module CsoundExpr.Opcodes.Siggen.Envelope - (adsrA, - adsrK, - madsrA, - madsrK, - mxadsrA, - mxadsrK, - xadsrA, - xadsrK, - linenA, - linenK, - linenrA, - linenrK, - envlpxA, - envlpxK, - envlpxrA, - envlpxrK) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : adsr --- --- --- * syntax : --- --- > ares adsr iatt, idec, islev, irel [, idel] --- > kres adsr iatt, idec, islev, irel [, idel] --- --- --- * description : --- --- Calculates the classical ADSR envelope using linear segments. --- --- --- * url : - -adsrA :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Arate -adsrA i0init i1att i2dec i3slev i4rel = opcode "adsr" args - where args - = [to i1att, to i2dec, to i3slev, to i4rel] ++ map to i0init - - --- | * opcode : adsr --- --- --- * syntax : --- --- > ares adsr iatt, idec, islev, irel [, idel] --- > kres adsr iatt, idec, islev, irel [, idel] --- --- --- * description : --- --- Calculates the classical ADSR envelope using linear segments. --- --- --- * url : - -adsrK :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Krate -adsrK i0init i1att i2dec i3slev i4rel = opcode "adsr" args - where args - = [to i1att, to i2dec, to i3slev, to i4rel] ++ map to i0init - - --- | * opcode : madsr --- --- --- * syntax : --- --- > ares madsr iatt, idec, islev, irel [, idel] [, ireltim] --- > kres madsr iatt, idec, islev, irel [, idel] [, ireltim] --- --- --- * description : --- --- Calculates the classical ADSR envelope using the linsegr --- mechanism. --- --- --- * url : - -madsrA :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Arate -madsrA i0init i1att i2dec i3slev i4rel = opcode "madsr" args - where args - = [to i1att, to i2dec, to i3slev, to i4rel] ++ map to i0init - - --- | * opcode : madsr --- --- --- * syntax : --- --- > ares madsr iatt, idec, islev, irel [, idel] [, ireltim] --- > kres madsr iatt, idec, islev, irel [, idel] [, ireltim] --- --- --- * description : --- --- Calculates the classical ADSR envelope using the linsegr --- mechanism. --- --- --- * url : - -madsrK :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Krate -madsrK i0init i1att i2dec i3slev i4rel = opcode "madsr" args - where args - = [to i1att, to i2dec, to i3slev, to i4rel] ++ map to i0init - - --- | * opcode : mxadsr --- --- --- * syntax : --- --- > ares mxadsr iatt, idec, islev, irel [, idel] [, ireltim] --- > kres mxadsr iatt, idec, islev, irel [, idel] [, ireltim] --- --- --- * description : --- --- Calculates the classical ADSR envelope using the expsegr --- mechanism. --- --- --- * url : - -mxadsrA :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Arate -mxadsrA i0init i1att i2dec i3slev i4rel = opcode "mxadsr" args - where args - = [to i1att, to i2dec, to i3slev, to i4rel] ++ map to i0init - - --- | * opcode : mxadsr --- --- --- * syntax : --- --- > ares mxadsr iatt, idec, islev, irel [, idel] [, ireltim] --- > kres mxadsr iatt, idec, islev, irel [, idel] [, ireltim] --- --- --- * description : --- --- Calculates the classical ADSR envelope using the expsegr --- mechanism. --- --- --- * url : - -mxadsrK :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Krate -mxadsrK i0init i1att i2dec i3slev i4rel = opcode "mxadsr" args - where args - = [to i1att, to i2dec, to i3slev, to i4rel] ++ map to i0init - - --- | * opcode : xadsr --- --- --- * syntax : --- --- > ares xadsr iatt, idec, islev, irel [, idel] --- > kres xadsr iatt, idec, islev, irel [, idel] --- --- --- * description : --- --- Calculates the classical ADSR envelope --- --- --- * url : - -xadsrA :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Arate -xadsrA i0init i1att i2dec i3slev i4rel = opcode "xadsr" args - where args - = [to i1att, to i2dec, to i3slev, to i4rel] ++ map to i0init - - --- | * opcode : xadsr --- --- --- * syntax : --- --- > ares xadsr iatt, idec, islev, irel [, idel] --- > kres xadsr iatt, idec, islev, irel [, idel] --- --- --- * description : --- --- Calculates the classical ADSR envelope --- --- --- * url : - -xadsrK :: [Irate] -> Irate -> Irate -> Irate -> Irate -> Krate -xadsrK i0init i1att i2dec i3slev i4rel = opcode "xadsr" args - where args - = [to i1att, to i2dec, to i3slev, to i4rel] ++ map to i0init - - --- | * opcode : linen --- --- --- * syntax : --- --- > ares linen xamp, irise, idur, idec --- > kres linen kamp, irise, idur, idec --- --- --- * description : --- --- linen -- apply a straight line rise and decay pattern to an --- input amp signal. --- --- --- * url : - -linenA :: (X x0) => x0 -> Irate -> Irate -> Irate -> Arate -linenA x0amp i1rise i2dur i3dec = opcode "linen" args - where args = [to x0amp, to i1rise, to i2dur, to i3dec] - - --- | * opcode : linen --- --- --- * syntax : --- --- > ares linen xamp, irise, idur, idec --- > kres linen kamp, irise, idur, idec --- --- --- * description : --- --- linen -- apply a straight line rise and decay pattern to an --- input amp signal. --- --- --- * url : - -linenK :: (K k0) => k0 -> Irate -> Irate -> Irate -> Krate -linenK k0amp i1rise i2dur i3dec = opcode "linen" args - where args = [to k0amp, to i1rise, to i2dur, to i3dec] - - --- | * opcode : linenr --- --- --- * syntax : --- --- > ares linenr xamp, irise, idec, iatdec --- > kres linenr kamp, irise, idec, iatdec --- --- --- * description : --- --- linenr -- same as linen except that the final segment is entered --- only on sensing a MIDI note release. The note is then extended by --- the decay time. --- --- --- * url : - -linenrA :: (X x0) => x0 -> Irate -> Irate -> Irate -> Arate -linenrA x0amp i1rise i2dec i3atdec = opcode "linenr" args - where args = [to x0amp, to i1rise, to i2dec, to i3atdec] - - --- | * opcode : linenr --- --- --- * syntax : --- --- > ares linenr xamp, irise, idec, iatdec --- > kres linenr kamp, irise, idec, iatdec --- --- --- * description : --- --- linenr -- same as linen except that the final segment is entered --- only on sensing a MIDI note release. The note is then extended by --- the decay time. --- --- --- * url : - -linenrK :: (K k0) => k0 -> Irate -> Irate -> Irate -> Krate -linenrK k0amp i1rise i2dec i3atdec = opcode "linenr" args - where args = [to k0amp, to i1rise, to i2dec, to i3atdec] - - --- | * opcode : envlpx --- --- --- * syntax : --- --- > ares envlpx xamp, irise, idur, idec, ifn, iatss, iatdec [, ixmod] --- > kres envlpx kamp, irise, idur, idec, ifn, iatss, iatdec [, ixmod] --- --- --- * description : --- --- envlpx -- apply an envelope consisting of 3 segments: --- --- --- * url : - -envlpxA :: - (X x0) => - [Irate] -> - x0 -> Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -envlpxA i0init x1amp i2rise i3dur i4dec i5fn i6atss i7atdec - = opcode "envlpx" args - where args - = [to x1amp, to i2rise, to i3dur, to i4dec, to i5fn, to i6atss, - to i7atdec] - ++ map to i0init - - --- | * opcode : envlpx --- --- --- * syntax : --- --- > ares envlpx xamp, irise, idur, idec, ifn, iatss, iatdec [, ixmod] --- > kres envlpx kamp, irise, idur, idec, ifn, iatss, iatdec [, ixmod] --- --- --- * description : --- --- envlpx -- apply an envelope consisting of 3 segments: --- --- --- * url : - -envlpxK :: - (K k0) => - [Irate] -> - k0 -> Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> Krate -envlpxK i0init k1amp i2rise i3dur i4dec i5fn i6atss i7atdec - = opcode "envlpx" args - where args - = [to k1amp, to i2rise, to i3dur, to i4dec, to i5fn, to i6atss, - to i7atdec] - ++ map to i0init - - --- | * opcode : envlpxr --- --- --- * syntax : --- --- > ares envlpxr xamp, irise, idec, ifn, iatss, iatdec [, ixmod] [,irind] --- > kres envlpxr kamp, irise, idec, ifn, iatss, iatdec [, ixmod] [,irind] --- --- --- * description : --- --- envlpxr is the same as envlpx except that the final segment is --- entered only on sensing a MIDI note release. The note is then --- extended by the decay time. --- --- --- * url : - -envlpxrA :: - (X x0) => - [Irate] -> x0 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -envlpxrA i0init x1amp i2rise i3dec i4fn i5atss i6atdec - = opcode "envlpxr" args - where args - = [to x1amp, to i2rise, to i3dec, to i4fn, to i5atss, to i6atdec] - ++ map to i0init - - --- | * opcode : envlpxr --- --- --- * syntax : --- --- > ares envlpxr xamp, irise, idec, ifn, iatss, iatdec [, ixmod] [,irind] --- > kres envlpxr kamp, irise, idec, ifn, iatss, iatdec [, ixmod] [,irind] --- --- --- * description : --- --- envlpxr is the same as envlpx except that the final segment is --- entered only on sensing a MIDI note release. The note is then --- extended by the decay time. --- --- --- * url : - -envlpxrK :: - (K k0) => - [Irate] -> k0 -> Irate -> Irate -> Irate -> Irate -> Irate -> Krate -envlpxrK i0init k1amp i2rise i3dec i4fn i5atss i6atdec - = opcode "envlpxr" args - where args - = [to k1amp, to i2rise, to i3dec, to i4fn, to i5atss, to i6atdec] - ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Siggen/Fmsynth.hs b/src/CsoundExpr/Opcodes/Siggen/Fmsynth.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Fmsynth.hs +++ /dev/null @@ -1,491 +0,0 @@ --- | FM Synthesis -module CsoundExpr.Opcodes.Siggen.Fmsynth - (foscil, - foscili, - crossfm, - crossfmi, - crosspm, - crosspmi, - crossfmpm, - crossfmpmi, - fmb3, - fmbell, - fmmetal, - fmpercfl, - fmrhode, - fmvoice, - fmwurlie) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : foscil --- --- --- * syntax : --- --- > ares foscil xamp, kcps, xcar, xmod, kndx, ifn [, iphs] --- --- --- * description : --- --- A basic frequency modulated oscillator. --- --- --- * url : - -foscil :: - (X x0, K k0, X x1, X x2, K k1) => - [Irate] -> x0 -> k0 -> x1 -> x2 -> k1 -> Irate -> Arate -foscil i0init x1amp k2cps x3car x4mod k5ndx i6fn - = opcode "foscil" args - where args - = [to x1amp, to k2cps, to x3car, to x4mod, to k5ndx, to i6fn] ++ - map to i0init - - --- | * opcode : foscili --- --- --- * syntax : --- --- > ares foscili xamp, kcps, xcar, xmod, kndx, ifn [, iphs] --- --- --- * description : --- --- Basic frequency modulated oscillator with linear interpolation. --- --- --- * url : - -foscili :: - (X x0, K k0, X x1, X x2, K k1) => - [Irate] -> x0 -> k0 -> x1 -> x2 -> k1 -> Irate -> Arate -foscili i0init x1amp k2cps x3car x4mod k5ndx i6fn - = opcode "foscili" args - where args - = [to x1amp, to k2cps, to x3car, to x4mod, to k5ndx, to i6fn] ++ - map to i0init - - --- | * opcode : crossfm --- --- --- * syntax : --- --- > a1, a2 crossfm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- --- --- * description : --- --- Two oscillators, mutually frequency and/or phase modulated by --- each other. --- --- --- * url : - -crossfm :: - (X x0, X x1, X x2, X x3, K k0) => - [Irate] -> x0 -> x1 -> x2 -> x3 -> k0 -> Irate -> Irate -> MultiOut -crossfm i0init x1frq1 x2frq2 x3ndx1 x4ndx2 k5cps i6fn1 i7fn2 - = opcode "crossfm" args - where args - = [to x1frq1, to x2frq2, to x3ndx1, to x4ndx2, to k5cps, to i6fn1, - to i7fn2] - ++ map to i0init - - --- | * opcode : crossfmi --- --- --- * syntax : --- --- > a1, a2 crossfm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- --- --- * description : --- --- Two oscillators, mutually frequency and/or phase modulated by --- each other. --- --- --- * url : - -crossfmi :: - (X x0, X x1, X x2, X x3, K k0) => - [Irate] -> x0 -> x1 -> x2 -> x3 -> k0 -> Irate -> Irate -> MultiOut -crossfmi i0init x1frq1 x2frq2 x3ndx1 x4ndx2 k5cps i6fn1 i7fn2 - = opcode "crossfmi" args - where args - = [to x1frq1, to x2frq2, to x3ndx1, to x4ndx2, to k5cps, to i6fn1, - to i7fn2] - ++ map to i0init - - --- | * opcode : crosspm --- --- --- * syntax : --- --- > a1, a2 crossfm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- --- --- * description : --- --- Two oscillators, mutually frequency and/or phase modulated by --- each other. --- --- --- * url : - -crosspm :: - (X x0, X x1, X x2, X x3, K k0) => - [Irate] -> x0 -> x1 -> x2 -> x3 -> k0 -> Irate -> Irate -> MultiOut -crosspm i0init x1frq1 x2frq2 x3ndx1 x4ndx2 k5cps i6fn1 i7fn2 - = opcode "crosspm" args - where args - = [to x1frq1, to x2frq2, to x3ndx1, to x4ndx2, to k5cps, to i6fn1, - to i7fn2] - ++ map to i0init - - --- | * opcode : crosspmi --- --- --- * syntax : --- --- > a1, a2 crossfm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- --- --- * description : --- --- Two oscillators, mutually frequency and/or phase modulated by --- each other. --- --- --- * url : - -crosspmi :: - (X x0, X x1, X x2, X x3, K k0) => - [Irate] -> x0 -> x1 -> x2 -> x3 -> k0 -> Irate -> Irate -> MultiOut -crosspmi i0init x1frq1 x2frq2 x3ndx1 x4ndx2 k5cps i6fn1 i7fn2 - = opcode "crosspmi" args - where args - = [to x1frq1, to x2frq2, to x3ndx1, to x4ndx2, to k5cps, to i6fn1, - to i7fn2] - ++ map to i0init - - --- | * opcode : crossfmpm --- --- --- * syntax : --- --- > a1, a2 crossfm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- --- --- * description : --- --- Two oscillators, mutually frequency and/or phase modulated by --- each other. --- --- --- * url : - -crossfmpm :: - (X x0, X x1, X x2, X x3, K k0) => - [Irate] -> x0 -> x1 -> x2 -> x3 -> k0 -> Irate -> Irate -> MultiOut -crossfmpm i0init x1frq1 x2frq2 x3ndx1 x4ndx2 k5cps i6fn1 i7fn2 - = opcode "crossfmpm" args - where args - = [to x1frq1, to x2frq2, to x3ndx1, to x4ndx2, to k5cps, to i6fn1, - to i7fn2] - ++ map to i0init - - --- | * opcode : crossfmpmi --- --- --- * syntax : --- --- > a1, a2 crossfm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crosspmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpm xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- > a1, a2 crossfmpmi xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2] --- --- --- * description : --- --- Two oscillators, mutually frequency and/or phase modulated by --- each other. --- --- --- * url : - -crossfmpmi :: - (X x0, X x1, X x2, X x3, K k0) => - [Irate] -> x0 -> x1 -> x2 -> x3 -> k0 -> Irate -> Irate -> MultiOut -crossfmpmi i0init x1frq1 x2frq2 x3ndx1 x4ndx2 k5cps i6fn1 i7fn2 - = opcode "crossfmpmi" args - where args - = [to x1frq1, to x2frq2, to x3ndx1, to x4ndx2, to k5cps, to i6fn1, - to i7fn2] - ++ map to i0init - - --- | * opcode : fmb3 --- --- --- * syntax : --- --- > ares fmb3 kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, --- > ifn4, ivfn --- --- --- * description : --- --- Uses FM synthesis to create a Hammond B3 organ sound. It comes --- from a family of FM sounds, all using 4 basic oscillators and --- various architectures, as used in the TX81Z synthesizer. --- --- --- * url : - -fmb3 :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> - k1 -> - k2 -> - k3 -> - k4 -> k5 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -fmb3 k0amp k1freq k2c1 k3c2 k4vdepth k5vrate i6fn1 i7fn2 i8fn3 - i9fn4 i10vfn = opcode "fmb3" args - where args - = [to k0amp, to k1freq, to k2c1, to k3c2, to k4vdepth, to k5vrate, - to i6fn1, to i7fn2, to i8fn3, to i9fn4, to i10vfn] - - --- | * opcode : fmbell --- --- --- * syntax : --- --- > ares fmbell kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, --- > ifn4, ivfn --- --- --- * description : --- --- Uses FM synthesis to create a tublar bell sound. It comes from a --- family of FM sounds, all using 4 basic oscillators and various --- architectures, as used in the TX81Z synthesizer. --- --- --- * url : - -fmbell :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> - k1 -> - k2 -> - k3 -> - k4 -> k5 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -fmbell k0amp k1freq k2c1 k3c2 k4vdepth k5vrate i6fn1 i7fn2 i8fn3 - i9fn4 i10vfn = opcode "fmbell" args - where args - = [to k0amp, to k1freq, to k2c1, to k3c2, to k4vdepth, to k5vrate, - to i6fn1, to i7fn2, to i8fn3, to i9fn4, to i10vfn] - - --- | * opcode : fmmetal --- --- --- * syntax : --- --- > ares fmmetal kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, --- > ifn4, ivfn --- --- --- * description : --- --- Uses FM synthesis to create a Heavy Metal sound. It comes from a --- family of FM sounds, all using 4 basic oscillators and various --- architectures, as used in the TX81Z synthesizer. --- --- --- * url : - -fmmetal :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> - k1 -> - k2 -> - k3 -> - k4 -> k5 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -fmmetal k0amp k1freq k2c1 k3c2 k4vdepth k5vrate i6fn1 i7fn2 i8fn3 - i9fn4 i10vfn = opcode "fmmetal" args - where args - = [to k0amp, to k1freq, to k2c1, to k3c2, to k4vdepth, to k5vrate, - to i6fn1, to i7fn2, to i8fn3, to i9fn4, to i10vfn] - - --- | * opcode : fmpercfl --- --- --- * syntax : --- --- > ares fmpercfl kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, --- > ifn3, ifn4, ivfn --- --- --- * description : --- --- Uses FM synthesis to create a percussive flute sound. It comes --- from a family of FM sounds, all using 4 basic oscillators and --- various architectures, as used in the TX81Z synthesizer. --- --- --- * url : - -fmpercfl :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> - k1 -> - k2 -> - k3 -> - k4 -> k5 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -fmpercfl k0amp k1freq k2c1 k3c2 k4vdepth k5vrate i6fn1 i7fn2 i8fn3 - i9fn4 i10vfn = opcode "fmpercfl" args - where args - = [to k0amp, to k1freq, to k2c1, to k3c2, to k4vdepth, to k5vrate, - to i6fn1, to i7fn2, to i8fn3, to i9fn4, to i10vfn] - - --- | * opcode : fmrhode --- --- --- * syntax : --- --- > ares fmrhode kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, --- > ifn3, ifn4, ivfn --- --- --- * description : --- --- Uses FM synthesis to create a Fender Rhodes electric piano --- sound. It comes from a family of FM sounds, all using 4 basic --- oscillators and various architectures, as used in the TX81Z --- synthesizer. --- --- --- * url : - -fmrhode :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> - k1 -> - k2 -> - k3 -> - k4 -> k5 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -fmrhode k0amp k1freq k2c1 k3c2 k4vdepth k5vrate i6fn1 i7fn2 i8fn3 - i9fn4 i10vfn = opcode "fmrhode" args - where args - = [to k0amp, to k1freq, to k2c1, to k3c2, to k4vdepth, to k5vrate, - to i6fn1, to i7fn2, to i8fn3, to i9fn4, to i10vfn] - - --- | * opcode : fmvoice --- --- --- * syntax : --- --- > ares fmvoice kamp, kfreq, kvowel, ktilt, kvibamt, kvibrate, ifn1, --- > ifn2, ifn3, ifn4, ivibfn --- --- --- * description : --- --- FM Singing Voice Synthesis --- --- --- * url : - -fmvoice :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> - k1 -> - k2 -> - k3 -> - k4 -> k5 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -fmvoice k0amp k1freq k2vowel k3tilt k4vibamt k5vibrate i6fn1 i7fn2 - i8fn3 i9fn4 i10vibfn = opcode "fmvoice" args - where args - = [to k0amp, to k1freq, to k2vowel, to k3tilt, to k4vibamt, - to k5vibrate, to i6fn1, to i7fn2, to i8fn3, to i9fn4, to i10vibfn] - - --- | * opcode : fmwurlie --- --- --- * syntax : --- --- > ares fmwurlie kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, --- > ifn4, ivfn --- --- --- * description : --- --- Uses FM synthesis to create a Wurlitzer electric piano sound. It --- comes from a family of FM sounds, all using 4 basic oscillators --- and various architectures, as used in the TX81Z synthesizer. --- --- --- * url : - -fmwurlie :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> - k1 -> - k2 -> - k3 -> - k4 -> k5 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -fmwurlie k0amp k1freq k2c1 k3c2 k4vdepth k5vrate i6fn1 i7fn2 i8fn3 - i9fn4 i10vfn = opcode "fmwurlie" args - where args - = [to k0amp, to k1freq, to k2c1, to k3c2, to k4vdepth, to k5vrate, - to i6fn1, to i7fn2, to i8fn3, to i9fn4, to i10vfn] diff --git a/src/CsoundExpr/Opcodes/Siggen/Granular.hs b/src/CsoundExpr/Opcodes/Siggen/Granular.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Granular.hs +++ /dev/null @@ -1,588 +0,0 @@ --- | Granular Synthesis -module CsoundExpr.Opcodes.Siggen.Granular - (diskgrain, - fof, - fof2, - fog, - grain, - grain2, - grain3, - granule, - partikkel, - partikkelsync, - sndwarp, - sndwarpst, - syncgrain, - syncloop, - vosim) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : diskgrain --- --- --- * syntax : --- --- > asig diskgrain Sfname, kamp, kfreq, kpitch, kgrsize, kprate, --- > ifun, iolaps [,imaxgrsize, ioffset] --- --- --- * description : --- --- diskgrain implements synchronous granular synthesis. The source --- sound for the grains is obtained by reading a soundfile --- containing the samples of the source waveform. --- --- --- * url : - -diskgrain :: - (K k0, K k1, K k2, K k3, K k4) => - [Irate] -> - String -> k0 -> k1 -> k2 -> k3 -> k4 -> Irate -> Irate -> Arate -diskgrain i0init s1fname k2amp k3freq k4pitch k5grsize k6prate - i7fun i8olaps = opcode "diskgrain" args - where args - = [to s1fname, to k2amp, to k3freq, to k4pitch, to k5grsize, - to k6prate, to i7fun, to i8olaps] - ++ map to i0init - - --- | * opcode : fof --- --- --- * syntax : --- --- > ares fof xamp, xfund, xform, koct, kband, kris, kdur, kdec, iolaps, --- > ifna, ifnb, itotdur [, iphs] [, ifmode] [, iskip] --- --- --- * description : --- --- Audio output is a succession of sinusoid bursts initiated at --- frequency xfund with a spectral peak at xform. For xfund above 25 --- Hz these bursts produce a speech-like formant with spectral --- characteristics determined by the k-input parameters. For lower --- fundamentals this generator provides a special form of granular --- synthesis. --- --- --- * url : - -fof :: - (X x0, X x1, X x2, K k0, K k1, K k2, K k3, K k4) => - [Irate] -> - x0 -> - x1 -> - x2 -> - k0 -> - k1 -> k2 -> k3 -> k4 -> Irate -> Irate -> Irate -> Irate -> Arate -fof i0init x1amp x2fund x3form k4oct k5band k6ris k7dur k8dec - i9olaps i10fna i11fnb i12totdur = opcode "fof" args - where args - = [to x1amp, to x2fund, to x3form, to k4oct, to k5band, to k6ris, - to k7dur, to k8dec, to i9olaps, to i10fna, to i11fnb, to i12totdur] - ++ map to i0init - - --- | * opcode : fof2 --- --- --- * syntax : --- --- > ares fof2 xamp, xfund, xform, koct, kband, kris, kdur, kdec, iolaps, --- > ifna, ifnb, itotdur, kphs, kgliss [, iskip] --- --- --- * description : --- --- Audio output is a succession of sinusoid bursts initiated at --- frequency xfund with a spectral peak at xform. For xfund above 25 --- Hz these bursts produce a speech-like formant with spectral --- characteristics determined by the k-input parameters. For lower --- fundamentals this generator provides a special form of granular --- synthesis. --- --- --- * url : - -fof2 :: - (X x0, X x1, X x2, K k0, K k1, K k2, K k3, K k4, K k5, K k6) => - [Irate] -> - x0 -> - x1 -> - x2 -> - k0 -> - k1 -> - k2 -> - k3 -> k4 -> Irate -> Irate -> Irate -> Irate -> k5 -> k6 -> Arate -fof2 i0init x1amp x2fund x3form k4oct k5band k6ris k7dur k8dec - i9olaps i10fna i11fnb i12totdur k13phs k14gliss - = opcode "fof2" args - where args - = [to x1amp, to x2fund, to x3form, to k4oct, to k5band, to k6ris, - to k7dur, to k8dec, to i9olaps, to i10fna, to i11fnb, to i12totdur, - to k13phs, to k14gliss] - ++ map to i0init - - --- | * opcode : fog --- --- --- * syntax : --- --- > ares fog xamp, xdens, xtrans, aspd, koct, kband, kris, kdur, kdec, --- > iolaps, ifna, ifnb, itotdur [, iphs] [, itmode] [, iskip] --- --- --- * description : --- --- Audio output is a succession of grains derived from data in a --- stored function table ifna. The local envelope of these grains --- and their timing is based on the model of fof synthesis and --- permits detailed control of the granular synthesis. --- --- --- * url : - -fog :: - (X x0, X x1, X x2, K k0, K k1, K k2, K k3, K k4) => - [Irate] -> - x0 -> - x1 -> - x2 -> - Arate -> - k0 -> - k1 -> k2 -> k3 -> k4 -> Irate -> Irate -> Irate -> Irate -> Arate -fog i0init x1amp x2dens x3trans a4spd k5oct k6band k7ris k8dur - k9dec i10olaps i11fna i12fnb i13totdur = opcode "fog" args - where args - = [to x1amp, to x2dens, to x3trans, to a4spd, to k5oct, to k6band, - to k7ris, to k8dur, to k9dec, to i10olaps, to i11fna, to i12fnb, - to i13totdur] - ++ map to i0init - - --- | * opcode : grain --- --- --- * syntax : --- --- > ares grain xamp, xpitch, xdens, kampoff, kpitchoff, kgdur, igfn, --- > iwfn, imgdur [, igrnd] --- --- --- * description : --- --- Generates granular synthesis textures. --- --- --- * url : - -grain :: - (X x0, X x1, X x2, K k0, K k1, K k2) => - [Irate] -> - x0 -> - x1 -> x2 -> k0 -> k1 -> k2 -> Irate -> Irate -> Irate -> Arate -grain i0init x1amp x2pitch x3dens k4ampoff k5pitchoff k6gdur i7gfn - i8wfn i9mgdur = opcode "grain" args - where args - = [to x1amp, to x2pitch, to x3dens, to k4ampoff, to k5pitchoff, - to k6gdur, to i7gfn, to i8wfn, to i9mgdur] - ++ map to i0init - - --- | * opcode : grain2 --- --- --- * syntax : --- --- > ares grain2 kcps, kfmd, kgdur, iovrlp, kfn, iwfn [, irpow] --- > [, iseed] [, imode] --- --- --- * description : --- --- Generate granular synthesis textures. grain2 is simpler to use, --- but grain3 offers more control. --- --- --- * url : - -grain2 :: - (K k0, K k1, K k2, K k3) => - [Irate] -> k0 -> k1 -> k2 -> Irate -> k3 -> Irate -> Arate -grain2 i0init k1cps k2fmd k3gdur i4ovrlp k5fn i6wfn - = opcode "grain2" args - where args - = [to k1cps, to k2fmd, to k3gdur, to i4ovrlp, to k5fn, to i6wfn] ++ - map to i0init - - --- | * opcode : grain3 --- --- --- * syntax : --- --- > ares grain3 kcps, kphs, kfmd, kpmd, kgdur, kdens, imaxovr, kfn, iwfn, --- > kfrpow, kprpow [, iseed] [, imode] --- --- --- * description : --- --- Generate granular synthesis textures. grain2 is simpler to use --- but grain3 offers more control. --- --- --- * url : - -grain3 :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6, K k7, K k8) => - [Irate] -> - k0 -> - k1 -> - k2 -> k3 -> k4 -> k5 -> Irate -> k6 -> Irate -> k7 -> k8 -> Arate -grain3 i0init k1cps k2phs k3fmd k4pmd k5gdur k6dens i7maxovr k8fn - i9wfn k10frpow k11prpow = opcode "grain3" args - where args - = [to k1cps, to k2phs, to k3fmd, to k4pmd, to k5gdur, to k6dens, - to i7maxovr, to k8fn, to i9wfn, to k10frpow, to k11prpow] - ++ map to i0init - - --- | * opcode : granule --- --- --- * syntax : --- --- > ares granule xamp, ivoice, iratio, imode, ithd, ifn, ipshift, igskip, --- > igskip_os, ilength, kgap, igap_os, kgsize, igsize_os, iatt, idec --- > [, iseed] [, ipitch1] [, ipitch2] [, ipitch3] [, ipitch4] [, ifnenv] --- --- --- * description : --- --- The granule unit generator is more complex than grain, but does --- add new possibilities. --- --- --- * url : - -granule :: - (X x0, K k0, K k1) => - [Irate] -> - x0 -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> k0 -> Irate -> k1 -> Irate -> Irate -> Irate -> Arate -granule i0init x1amp i2voice i3ratio i4mode i5thd i6fn i7pshift - i8gskip i9gskip_os i10length k11gap i12gap_os k13gsize i14gsize_os - i15att i16dec = opcode "granule" args - where args - = [to x1amp, to i2voice, to i3ratio, to i4mode, to i5thd, to i6fn, - to i7pshift, to i8gskip, to i9gskip_os, to i10length, to k11gap, - to i12gap_os, to k13gsize, to i14gsize_os, to i15att, to i16dec] - ++ map to i0init - - --- | * opcode : partikkel --- --- --- * syntax : --- --- > a1 [, a2, a3, a4, a5, a6, a7, a8] partikkel agrainfreq, --- > kdistribution, idisttab, async, kenv2amt, ienv2tab, ienv_attack, --- > ienv_decay, ksustain_amount, ka_d_ratio, kduration, kamp, igainmasks, --- > kwavfreq, ksweepshape, iwavfreqstarttab, iwavfreqendtab, awavfm, --- > ifmamptab, kfmenv, icosine, ktraincps, knumpartials, kchroma, --- > ichannelmasks, krandommask, kwaveform1, kwaveform2, kwaveform3, --- > kwaveform4, iwaveamptab, asamplepos1, asamplepos2, asamplepos3, --- > asamplepos4, kwavekey1, kwavekey2, kwavekey3, kwavekey4, imax_grains --- > [, iopcode_id] --- --- --- * description : --- --- partikkel was conceived after reading Curtis Roads' book --- "Microsound", and the goal was to create an opcode that was --- capable of all time-domain varieties of granular synthesis --- described in this book. The idea being that most of the --- techniques only differ in parameter values, and by having a --- single opcode that can do all varieties of granular synthesis --- makes it possible to interpolate between techniques. Granular --- synthesis is sometimes dubbed particle synthesis, and it was --- thought apt to name the opcode partikkel to distinguish it from --- other granular opcodes. --- --- --- * url : - -partikkel :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6, K k7, K k8, K k9, K k10, - K k11, K k12, K k13, K k14, K k15, K k16, K k17, K k18, K k19, - K k20) => - [Irate] -> - Arate -> - k0 -> - Irate -> - Arate -> - k1 -> - Irate -> - Irate -> - Irate -> - k2 -> - k3 -> - k4 -> - k5 -> - Irate -> - k6 -> - k7 -> - Irate -> - Irate -> - Arate -> - Irate -> - k8 -> - Irate -> - k9 -> - k10 -> - k11 -> - Irate -> - k12 -> - k13 -> - k14 -> - k15 -> - k16 -> - Irate -> - Arate -> - Arate -> - Arate -> - Arate -> - k17 -> - k18 -> - k19 -> - k20 -> - Irate -> - MultiOut -partikkel i0init a1grainfreq k2distribution i3disttab a4sync - k5env2amt i6env2tab i7env_attack i8env_decay k9sustain_amount - k10a_d_ratio k11duration k12amp i13gainmasks k14wavfreq - k15sweepshape i16wavfreqstarttab i17wavfreqendtab a18wavfm - i19fmamptab k20fmenv i21cosine k22traincps k23numpartials k24chroma - i25channelmasks k26randommask k27waveform1 k28waveform2 - k29waveform3 k30waveform4 i31waveamptab a32samplepos1 a33samplepos2 - a34samplepos3 a35samplepos4 k36wavekey1 k37wavekey2 k38wavekey3 - k39wavekey4 i40max_grains = opcode "partikkel" args - where args - = [to a1grainfreq, to k2distribution, to i3disttab, to a4sync, - to k5env2amt, to i6env2tab, to i7env_attack, to i8env_decay, - to k9sustain_amount, to k10a_d_ratio, to k11duration, to k12amp, - to i13gainmasks, to k14wavfreq, to k15sweepshape, - to i16wavfreqstarttab, to i17wavfreqendtab, to a18wavfm, - to i19fmamptab, to k20fmenv, to i21cosine, to k22traincps, - to k23numpartials, to k24chroma, to i25channelmasks, - to k26randommask, to k27waveform1, to k28waveform2, - to k29waveform3, to k30waveform4, to i31waveamptab, - to a32samplepos1, to a33samplepos2, to a34samplepos3, - to a35samplepos4, to k36wavekey1, to k37wavekey2, to k38wavekey3, - to k39wavekey4, to i40max_grains] - ++ map to i0init - - --- | * opcode : partikkelsync --- --- --- * syntax : --- --- > async [,aphase] partikkelsync iopcode_id --- --- --- * description : --- --- partikkelsync is an opcode for outputting partikkel's grain --- scheduler clock pulse and phase. partikkelsync's output can be --- used to synchronize other instances of the partikkel opcode to --- the same clock. --- --- --- * url : - -partikkelsync :: Irate -> MultiOut -partikkelsync i0opcode_id = opcode "partikkelsync" args - where args = [to i0opcode_id] - - --- | * opcode : sndwarp --- --- --- * syntax : --- --- > ares [, ac] sndwarp xamp, xtimewarp, xresample, ifn1, ibeg, iwsize, --- > irandw, ioverlap, ifn2, itimemode --- --- --- * description : --- --- sndwarp reads sound samples from a table and applies --- time-stretching and/or pitch modification. Time and frequency --- modification are independent from one another. For example, a --- sound can be stretched in time while raising the pitch! --- --- --- * url : - -sndwarp :: - (X x0, X x1, X x2) => - x0 -> - x1 -> - x2 -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -sndwarp x0amp x1timewarp x2resample i3fn1 i4beg i5wsize i6randw - i7overlap i8fn2 i9timemode = opcode "sndwarp" args - where args - = [to x0amp, to x1timewarp, to x2resample, to i3fn1, to i4beg, - to i5wsize, to i6randw, to i7overlap, to i8fn2, to i9timemode] - - --- | * opcode : sndwarpst --- --- --- * syntax : --- --- > ar1, ar2 [,ac1] [, ac2] sndwarpst xamp, xtimewarp, xresample, ifn1, --- > ibeg, iwsize, irandw, ioverlap, ifn2, itimemode --- --- --- * description : --- --- sndwarpst reads stereo sound samples from a table and applies --- time-stretching and/or pitch modification. Time and frequency --- modification are independent from one another. For example, a --- sound can be stretched in time while raising the pitch! --- --- --- * url : - -sndwarpst :: - (X x0, X x1, X x2) => - x0 -> - x1 -> - x2 -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -sndwarpst x0amp x1timewarp x2resample i3fn1 i4beg i5wsize i6randw - i7overlap i8fn2 i9timemode = opcode "sndwarpst" args - where args - = [to x0amp, to x1timewarp, to x2resample, to i3fn1, to i4beg, - to i5wsize, to i6randw, to i7overlap, to i8fn2, to i9timemode] - - --- | * opcode : syncgrain --- --- --- * syntax : --- --- > asig syncgrain kamp, kfreq, kpitch, kgrsize, kprate, ifun1, --- > ifun2, iolaps --- --- --- * description : --- --- syncgrain implements synchronous granular synthesis. The source --- sound for the grains is obtained by reading a function table --- containing the samples of the source waveform. For sampled-sound --- sources, GEN01 is used. syncgrain will accept deferred allocation --- tables. --- --- --- * url : - -syncgrain :: - (K k0, K k1, K k2, K k3, K k4) => - k0 -> k1 -> k2 -> k3 -> k4 -> Irate -> Irate -> Irate -> Arate -syncgrain k0amp k1freq k2pitch k3grsize k4prate i5fun1 i6fun2 - i7olaps = opcode "syncgrain" args - where args - = [to k0amp, to k1freq, to k2pitch, to k3grsize, to k4prate, - to i5fun1, to i6fun2, to i7olaps] - - --- | * opcode : syncloop --- --- --- * syntax : --- --- > asig syncloop kamp, kfreq, kpitch, kgrsize, kprate, klstart, --- > klend, ifun1, ifun2, iolaps[,istart, iskip] --- --- --- * description : --- --- syncloop is a variation on syncgrain, which implements --- synchronous granular synthesis. syncloop adds loop start and end --- points and an optional start position. Loop start and end control --- grain start positions, so the actual grains can go beyond the --- loop points (if the loop points are not at the extremes of the --- table), enabling seamless crossfading. For more information on --- the granular synthesis process, check the syncgrain manual page. --- --- --- * url : - -syncloop :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6) => - [Irate] -> - k0 -> - k1 -> - k2 -> k3 -> k4 -> k5 -> k6 -> Irate -> Irate -> Irate -> Arate -syncloop i0init k1amp k2freq k3pitch k4grsize k5prate k6lstart - k7lend i8fun1 i9fun2 i10olaps = opcode "syncloop" args - where args - = [to k1amp, to k2freq, to k3pitch, to k4grsize, to k5prate, - to k6lstart, to k7lend, to i8fun1, to i9fun2, to i10olaps] - ++ map to i0init - - --- | * opcode : vosim --- --- --- * syntax : --- --- > ar vosim kamp, kFund, kForm, kDecay, kPulseCount, kPulseFactor, ifn [, iskip] --- --- --- * description : --- --- This opcode produces a simple vocal simulation based on glottal --- pulses with formant characteristics. Output is a series of sound --- events, where each event is composed of a burst of squared sine --- pulses followed by silence. The VOSIM (VOcal SIMulation) --- synthesis method was developed by Kaegi and Tempelaars in the --- 1970's. --- --- --- * url : - -vosim :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Irate -> Arate -vosim i0init k1amp k2Fund k3Form k4Decay k5PulseCount k6PulseFactor - i7fn = opcode "vosim" args - where args - = [to k1amp, to k2Fund, to k3Form, to k4Decay, to k5PulseCount, - to k6PulseFactor, to i7fn] - ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Siggen/Hvs.hs b/src/CsoundExpr/Opcodes/Siggen/Hvs.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Hvs.hs +++ /dev/null @@ -1,124 +0,0 @@ --- | Hyper Vectorial Synthesis -module CsoundExpr.Opcodes.Siggen.Hvs - (vphaseseg, - hvs1, - hvs2, - hvs3) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vphaseseg --- --- --- * syntax : --- --- > vphaseseg kphase, ioutab, ielems, itab1,idist1,itab2 --- > [,idist2,itab3,...,idistN-1,itabN] --- --- --- * description : --- --- vphaseseg allows one-dimensional HVS (Hyper-Vectorial --- Synthesis). --- --- --- * url : - -vphaseseg :: (K k0) => k0 -> Irate -> Irate -> [Irate] -> SignalOut -vphaseseg k0phase i1outab i2elems i3tabDist - = outOpcode "vphaseseg" args - where args - = [to k0phase, to i1outab, to i2elems] ++ map to i3tabDist - - --- | * opcode : hvs1 --- --- --- * syntax : --- --- > hvs1 kx, inumParms, inumPointsX, iOutTab, iPositionsTab, iSnapTab [, iConfigTab] --- --- --- * description : --- --- hvs1 allows one-dimensional Hyper Vectorial Synthesis (HVS) --- controlled by externally-updated k-variables. --- --- --- * url : - -hvs1 :: - (K k0) => - [Irate] -> - k0 -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -hvs1 i0init k1x i2numParms i3numPointsX i4OutTab i5PositionsTab - i6SnapTab = outOpcode "hvs1" args - where args - = [to k1x, to i2numParms, to i3numPointsX, to i4OutTab, - to i5PositionsTab, to i6SnapTab] - ++ map to i0init - - --- | * opcode : hvs2 --- --- --- * syntax : --- --- > hvs2 kx, ky, inumParms, inumPointsX, iOutTab, iPositionsTab, iSnapTab [, iConfigTab] --- --- --- * description : --- --- hvs2 allows two-dimensional Hyper Vectorial Synthesis (HVS) --- controlled by externally-updated k-variables. --- --- --- * url : - -hvs2 :: - (K k0, K k1) => - [Irate] -> - k0 -> k1 -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -hvs2 i0init k1x k2y i3numParms i4numPointsX i5OutTab i6PositionsTab - i7SnapTab = outOpcode "hvs2" args - where args - = [to k1x, to k2y, to i3numParms, to i4numPointsX, to i5OutTab, - to i6PositionsTab, to i7SnapTab] - ++ map to i0init - - --- | * opcode : hvs3 --- --- --- * syntax : --- --- > hvs3 kx, ky, kz, inumParms, inumPointsX, iOutTab, iPositionsTab, iSnapTab [, iConfigTab] --- --- --- * description : --- --- hvs3 allows three-dimensional Hyper Vectorial Synthesis (HVS) --- controlled by externally-updated k-variables. --- --- --- * url : - -hvs3 :: - (K k0, K k1, K k2) => - [Irate] -> - k0 -> - k1 -> k2 -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -hvs3 i0init k1x k2y k3z i4numParms i5numPointsX i6OutTab - i7PositionsTab i8SnapTab = outOpcode "hvs3" args - where args - = [to k1x, to k2y, to k3z, to i4numParms, to i5numPointsX, - to i6OutTab, to i7PositionsTab, to i8SnapTab] - ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Siggen/Lineexp.hs b/src/CsoundExpr/Opcodes/Siggen/Lineexp.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Lineexp.hs +++ /dev/null @@ -1,631 +0,0 @@ --- | Linear and Exponential Generators -module CsoundExpr.Opcodes.Siggen.Lineexp - (exponA, - exponK, - expcurve, - expsegA, - expsegK, - expsega, - expsegrA, - expsegrK, - gainslider, - jsplineA, - jsplineK, - lineA, - lineK, - linsegA, - linsegK, - linsegrA, - linsegrK, - logcurve, - loopseg, - loopsegp, - lpshold, - lpsholdp, - rsplineA, - rsplineK, - scale, - transegA, - transegK) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : expon --- --- --- * syntax : --- --- > ares expon ia, idur, ib --- > kres expon ia, idur, ib --- --- --- * description : --- --- Trace an exponential curve between specified points. --- --- --- * url : - -exponA :: Irate -> Irate -> Irate -> Arate -exponA i0a i1dur i2b = opcode "expon" args - where args = [to i0a, to i1dur, to i2b] - - --- | * opcode : expon --- --- --- * syntax : --- --- > ares expon ia, idur, ib --- > kres expon ia, idur, ib --- --- --- * description : --- --- Trace an exponential curve between specified points. --- --- --- * url : - -exponK :: Irate -> Irate -> Irate -> Krate -exponK i0a i1dur i2b = opcode "expon" args - where args = [to i0a, to i1dur, to i2b] - - --- | * opcode : expcurve --- --- --- * syntax : --- --- > kout expcurve kindex, ksteepness --- --- --- * description : --- --- Generates an exponential curve in range 0 to 1 of arbitrary --- steepness. Steepness index equal to or lower than 1.0 will result --- in Not-a-Number errors and cause unstable behavior. --- --- --- * url : - -expcurve :: (K k0, K k1) => k0 -> k1 -> Krate -expcurve k0index k1steepness = opcode "expcurve" args - where args = [to k0index, to k1steepness] - - --- | * opcode : expseg --- --- --- * syntax : --- --- > ares expseg ia, idur1, ib [, idur2] [, ic] [...] --- > kres expseg ia, idur1, ib [, idur2] [, ic] [...] --- --- --- * description : --- --- Trace a series of exponential segments between specified points. --- --- --- * url : - -expsegA :: [Irate] -> Arate -expsegA i0vals = opcode "expseg" args - where args = map to i0vals - - --- | * opcode : expseg --- --- --- * syntax : --- --- > ares expseg ia, idur1, ib [, idur2] [, ic] [...] --- > kres expseg ia, idur1, ib [, idur2] [, ic] [...] --- --- --- * description : --- --- Trace a series of exponential segments between specified points. --- --- --- * url : - -expsegK :: [Irate] -> Krate -expsegK i0vals = opcode "expseg" args - where args = map to i0vals - - --- | * opcode : expsega --- --- --- * syntax : --- --- > ares expsega ia, idur1, ib [, idur2] [, ic] [...] --- --- --- * description : --- --- An exponential segment generator operating at a-rate. This unit --- is almost identical to expseg, but more precise when defining --- segments with very short durations (i.e., in a percussive attack --- phase) at audio rate. --- --- --- * url : - -expsega :: [Irate] -> Arate -expsega i0vals = opcode "expsega" args - where args = map to i0vals - - --- | * opcode : expsegr --- --- --- * syntax : --- --- > ares expsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz --- > kres expsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz --- --- --- * description : --- --- Trace a series of exponential segments between specified points --- including a release segment. --- --- --- * url : - -expsegrA :: [Irate] -> Irate -> Irate -> Arate -expsegrA i0vals i1rel i2z = opcode "expsegr" args - where args = map to i0vals ++ [to i1rel, to i2z] - - --- | * opcode : expsegr --- --- --- * syntax : --- --- > ares expsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz --- > kres expsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz --- --- --- * description : --- --- Trace a series of exponential segments between specified points --- including a release segment. --- --- --- * url : - -expsegrK :: [Irate] -> Irate -> Irate -> Krate -expsegrK i0vals i1rel i2z = opcode "expsegr" args - where args = map to i0vals ++ [to i1rel, to i2z] - - --- | * opcode : gainslider --- --- --- * syntax : --- --- > kout gainslider kindex --- --- --- * description : --- --- This opcode is intended for use to multiply by an audio signal --- to give a console mixer like feel. There is no bounds in the --- source code so you can for example give higher than 127 values --- for extra amplitude but possibly clipped audio. --- --- --- * url : - -gainslider :: (K k0) => k0 -> Krate -gainslider k0index = opcode "gainslider" args - where args = [to k0index] - - --- | * opcode : jspline --- --- --- * syntax : --- --- > ares jspline xamp, kcpsMin, kcpsMax --- > kres jspline kamp, kcpsMin, kcpsMax --- --- --- * description : --- --- A jitter-spline generator. --- --- --- * url : - -jsplineA :: (X x0, K k0, K k1) => x0 -> k0 -> k1 -> Arate -jsplineA x0amp k1cpsMin k2cpsMax = opcode "jspline" args - where args = [to x0amp, to k1cpsMin, to k2cpsMax] - - --- | * opcode : jspline --- --- --- * syntax : --- --- > ares jspline xamp, kcpsMin, kcpsMax --- > kres jspline kamp, kcpsMin, kcpsMax --- --- --- * description : --- --- A jitter-spline generator. --- --- --- * url : - -jsplineK :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -jsplineK k0amp k1cpsMin k2cpsMax = opcode "jspline" args - where args = [to k0amp, to k1cpsMin, to k2cpsMax] - - --- | * opcode : line --- --- --- * syntax : --- --- > ares line ia, idur, ib --- > kres line ia, idur, ib --- --- --- * description : --- --- Trace a straight line between specified points. --- --- --- * url : - -lineA :: Irate -> Irate -> Irate -> Arate -lineA i0a i1dur i2b = opcode "line" args - where args = [to i0a, to i1dur, to i2b] - - --- | * opcode : line --- --- --- * syntax : --- --- > ares line ia, idur, ib --- > kres line ia, idur, ib --- --- --- * description : --- --- Trace a straight line between specified points. --- --- --- * url : - -lineK :: Irate -> Irate -> Irate -> Krate -lineK i0a i1dur i2b = opcode "line" args - where args = [to i0a, to i1dur, to i2b] - - --- | * opcode : linseg --- --- --- * syntax : --- --- > ares linseg ia, idur1, ib [, idur2] [, ic] [...] --- > kres linseg ia, idur1, ib [, idur2] [, ic] [...] --- --- --- * description : --- --- Trace a series of line segments between specified points. --- --- --- * url : - -linsegA :: [Irate] -> Arate -linsegA i0vals = opcode "linseg" args - where args = map to i0vals - - --- | * opcode : linseg --- --- --- * syntax : --- --- > ares linseg ia, idur1, ib [, idur2] [, ic] [...] --- > kres linseg ia, idur1, ib [, idur2] [, ic] [...] --- --- --- * description : --- --- Trace a series of line segments between specified points. --- --- --- * url : - -linsegK :: [Irate] -> Krate -linsegK i0vals = opcode "linseg" args - where args = map to i0vals - - --- | * opcode : linsegr --- --- --- * syntax : --- --- > ares linsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz --- > kres linsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz --- --- --- * description : --- --- Trace a series of line segments between specified points --- including a release segment. --- --- --- * url : - -linsegrA :: [Irate] -> Irate -> Irate -> Arate -linsegrA i0vals i1rel i2z = opcode "linsegr" args - where args = map to i0vals ++ [to i1rel, to i2z] - - --- | * opcode : linsegr --- --- --- * syntax : --- --- > ares linsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz --- > kres linsegr ia, idur1, ib [, idur2] [, ic] [...], irel, iz --- --- --- * description : --- --- Trace a series of line segments between specified points --- including a release segment. --- --- --- * url : - -linsegrK :: [Irate] -> Irate -> Irate -> Krate -linsegrK i0vals i1rel i2z = opcode "linsegr" args - where args = map to i0vals ++ [to i1rel, to i2z] - - --- | * opcode : logcurve --- --- --- * syntax : --- --- > kout logcurve kindex, ksteepness --- --- --- * description : --- --- Generates a logarithmic curve in range 0 to 1 of arbitrary --- steepness. Steepness index equal to or lower than 1.0 will result --- in Not-a-Number errors and cause unstable behavior. --- --- --- * url : - -logcurve :: (K k0, K k1) => k0 -> k1 -> Krate -logcurve k0index k1steepness = opcode "logcurve" args - where args = [to k0index, to k1steepness] - - --- | * opcode : loopseg --- --- --- * syntax : --- --- > ksig loopseg kfreq, ktrig, ktime0, kvalue0 [, ktime1] [, kvalue1] --- > [, ktime2] [, kvalue2] [...] --- --- --- * description : --- --- Generate control signal consisting of linear segments delimited --- by two or more specified points. The entire envelope is looped at --- kfreq rate. Each parameter can be varied at k-rate. --- --- --- * url : - -loopseg :: (K k0, K k1, K k2) => k0 -> k1 -> [k2] -> Krate -loopseg k0freq k1trig k2vals = opcode "loopseg" args - where args = [to k0freq, to k1trig] ++ map to k2vals - - --- | * opcode : loopsegp --- --- --- * syntax : --- --- > ksig loopsegp kphase, kvalue0, kdur0, kvalue1 --- > [, kdur1,..., kdurN-1, kvalueN] --- --- --- * description : --- --- Generate control signal consisiting of linear segments delimited --- by two or more specified points. The entire envelope can be --- looped at time-variant rate. Each segment coordinate can also be --- varied at k-rate. --- --- --- * url : - -loopsegp :: (K k0, K k1) => k0 -> [k1] -> Krate -loopsegp k0phase k1vals = opcode "loopsegp" args - where args = [to k0phase] ++ map to k1vals - - --- | * opcode : lpshold --- --- --- * syntax : --- --- > ksig lpshold kfreq, ktrig, ktime0, kvalue0 [, ktime1] [, kvalue1] --- > [, ktime2] [, kvalue2] [...] --- --- --- * description : --- --- Generate control signal consisting of held segments delimited by --- two or more specified points. The entire envelope is looped at --- kfreq rate. Each parameter can be varied at k-rate. --- --- --- * url : - -lpshold :: (K k0, K k1, K k2) => k0 -> k1 -> [k2] -> Krate -lpshold k0freq k1trig k2vals = opcode "lpshold" args - where args = [to k0freq, to k1trig] ++ map to k2vals - - --- | * opcode : lpsholdp --- --- --- * syntax : --- --- > ksig lpsholdp kphase, ktrig, ktime0, kvalue0 [, ktime1] [, kvalue1] --- > [, ktime2] [, kvalue2] [...] --- --- --- * description : --- --- Generate control signal consisiting of held segments delimited --- by two or more specified points. The entire envelope can be --- looped at time-variant rate. Each segment coordinate can also be --- varied at k-rate. --- --- --- * url : - -lpsholdp :: (K k0, K k1) => k0 -> [k1] -> Krate -lpsholdp k0phase k1vals = opcode "lpsholdp" args - where args = [to k0phase] ++ map to k1vals - - --- | * opcode : rspline --- --- --- * syntax : --- --- > ares rspline xrangeMin, xrangeMax, kcpsMin, kcpsMax --- > kres rspline krangeMin, krangeMax, kcpsMin, kcpsMax --- --- --- * description : --- --- Generate random spline curves. --- --- --- * url : - -rsplineA :: - (X x0, X x1, K k0, K k1) => x0 -> x1 -> k0 -> k1 -> Arate -rsplineA x0rangeMin x1rangeMax k2cpsMin k3cpsMax - = opcode "rspline" args - where args - = [to x0rangeMin, to x1rangeMax, to k2cpsMin, to k3cpsMax] - - --- | * opcode : rspline --- --- --- * syntax : --- --- > ares rspline xrangeMin, xrangeMax, kcpsMin, kcpsMax --- > kres rspline krangeMin, krangeMax, kcpsMin, kcpsMax --- --- --- * description : --- --- Generate random spline curves. --- --- --- * url : - -rsplineK :: - (K k0, K k1, K k2, K k3) => k0 -> k1 -> k2 -> k3 -> Krate -rsplineK k0rangeMin k1rangeMax k2cpsMin k3cpsMax - = opcode "rspline" args - where args - = [to k0rangeMin, to k1rangeMax, to k2cpsMin, to k3cpsMax] - - --- | * opcode : scale --- --- --- * syntax : --- --- > kscl scale kinput, kmax, kmin --- --- --- * description : --- --- Scales incoming value to user-definable range. Similar to scale --- object found in popular dataflow languages. --- --- --- * url : - -scale :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -scale k0input k1max k2min = opcode "scale" args - where args = [to k0input, to k1max, to k2min] - - --- | * opcode : transeg --- --- --- * syntax : --- --- > ares transeg ia, idur, itype, ib [, idur2] [, itype] [, ic]... --- > kres transeg ia, idur, itype, ib [, idur2] [, itype] [, ic]... --- --- --- * description : --- --- Constructs a user-definable envelope. --- --- --- * url : - -transegA :: [Irate] -> Arate -transegA i0vals = opcode "transeg" args - where args = map to i0vals - - --- | * opcode : transeg --- --- --- * syntax : --- --- > ares transeg ia, idur, itype, ib [, idur2] [, itype] [, ic]... --- > kres transeg ia, idur, itype, ib [, idur2] [, itype] [, ic]... --- --- --- * description : --- --- Constructs a user-definable envelope. --- --- --- * url : - -transegK :: [Irate] -> Krate -transegK i0vals = opcode "transeg" args - where args = map to i0vals diff --git a/src/CsoundExpr/Opcodes/Siggen/Models.hs b/src/CsoundExpr/Opcodes/Siggen/Models.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Models.hs +++ /dev/null @@ -1,715 +0,0 @@ --- | Models and Emulations -module CsoundExpr.Opcodes.Siggen.Models - (bamboo, - barmodel, - cabasa, - crunch, - dripwater, - gogobel, - guiro, - mandol, - marimba, - moog, - sandpaper, - sekere, - shaker, - sleighbells, - stix, - tambourine, - vibes, - voice, - lorenz, - planet, - prepiano, - prepianoA, - mandel, - chuap) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : bamboo --- --- --- * syntax : --- --- > ares bamboo kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] --- > [, ifreq1] [, ifreq2] --- --- --- * description : --- --- bamboo is a semi-physical model of a bamboo sound. It is one of --- the PhISEM percussion opcodes. PhISEM (Physically Informed --- Stochastic Event Modeling) is an algorithmic approach for --- simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -bamboo :: (K k0) => [Irate] -> k0 -> Irate -> Arate -bamboo i0init k1amp i2dettack = opcode "bamboo" args - where args = [to k1amp, to i2dettack] ++ map to i0init - - --- | * opcode : barmodel --- --- --- * syntax : --- --- > ares barmodel kbcL, kbcR, iK, ib, kscan, iT30, ipos, ivel, iwid --- --- --- * description : --- --- Audio output is a tone similar to a struck metal bar, using a --- physical model developed from solving the partial differential --- equation. There are controls over the boundary conditions as well --- as the bar characteristics. --- --- --- * url : - -barmodel :: - (K k0, K k1, K k2) => - k0 -> - k1 -> - Irate -> Irate -> k2 -> Irate -> Irate -> Irate -> Irate -> Arate -barmodel k0bcL k1bcR i2K i3b k4scan i5T30 i6pos i7vel i8wid - = opcode "barmodel" args - where args - = [to k0bcL, to k1bcR, to i2K, to i3b, to k4scan, to i5T30, - to i6pos, to i7vel, to i8wid] - - --- | * opcode : cabasa --- --- --- * syntax : --- --- > ares cabasa iamp, idettack [, inum] [, idamp] [, imaxshake] --- --- --- * description : --- --- cabasa is a semi-physical model of a cabasa sound. It is one of --- the PhISEM percussion opcodes. PhISEM (Physically Informed --- Stochastic Event Modeling) is an algorithmic approach for --- simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -cabasa :: [Irate] -> Irate -> Irate -> Arate -cabasa i0init i1amp i2dettack = opcode "cabasa" args - where args = [to i1amp, to i2dettack] ++ map to i0init - - --- | * opcode : crunch --- --- --- * syntax : --- --- > ares crunch iamp, idettack [, inum] [, idamp] [, imaxshake] --- --- --- * description : --- --- crunch is a semi-physical model of a crunch sound. It is one of --- the PhISEM percussion opcodes. PhISEM (Physically Informed --- Stochastic Event Modeling) is an algorithmic approach for --- simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -crunch :: [Irate] -> Irate -> Irate -> Arate -crunch i0init i1amp i2dettack = opcode "crunch" args - where args = [to i1amp, to i2dettack] ++ map to i0init - - --- | * opcode : dripwater --- --- --- * syntax : --- --- > ares dripwater kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] --- > [, ifreq1] [, ifreq2] --- --- --- * description : --- --- dripwater is a semi-physical model of a water drop. It is one of --- the PhISEM percussion opcodes. PhISEM (Physically Informed --- Stochastic Event Modeling) is an algorithmic approach for --- simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -dripwater :: (K k0) => [Irate] -> k0 -> Irate -> Arate -dripwater i0init k1amp i2dettack = opcode "dripwater" args - where args = [to k1amp, to i2dettack] ++ map to i0init - - --- | * opcode : gogobel --- --- --- * syntax : --- --- > ares gogobel kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivfn --- --- --- * description : --- --- Audio output is a tone related to the striking of a cow bell or --- similar. The method is a physical model developed from Perry --- Cook, but re-coded for Csound. --- --- --- * url : - -gogobel :: - (K k0, K k1, K k2, K k3) => - k0 -> k1 -> Irate -> Irate -> Irate -> k2 -> k3 -> Irate -> Arate -gogobel k0amp k1freq i2hrd i3pos i4mp k5vibf k6vamp i7vfn - = opcode "gogobel" args - where args - = [to k0amp, to k1freq, to i2hrd, to i3pos, to i4mp, to k5vibf, - to k6vamp, to i7vfn] - - --- | * opcode : guiro --- --- --- * syntax : --- --- > ares guiro kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] [, ifreq1] --- --- --- * description : --- --- guiro is a semi-physical model of a guiro sound. It is one of --- the PhISEM percussion opcodes. PhISEM (Physically Informed --- Stochastic Event Modeling) is an algorithmic approach for --- simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -guiro :: (K k0) => [Irate] -> k0 -> Irate -> Arate -guiro i0init k1amp i2dettack = opcode "guiro" args - where args = [to k1amp, to i2dettack] ++ map to i0init - - --- | * opcode : mandol --- --- --- * syntax : --- --- > ares mandol kamp, kfreq, kpluck, kdetune, kgain, ksize, ifn [, iminfreq] --- --- --- * description : --- --- An emulation of a mandolin. --- --- --- * url : - -mandol :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Irate -> Arate -mandol i0init k1amp k2freq k3pluck k4detune k5gain k6size i7fn - = opcode "mandol" args - where args - = [to k1amp, to k2freq, to k3pluck, to k4detune, to k5gain, - to k6size, to i7fn] - ++ map to i0init - - --- | * opcode : marimba --- --- --- * syntax : --- --- > ares marimba kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivibfn, idec --- > [, idoubles] [, itriples] --- --- --- * description : --- --- Audio output is a tone related to the striking of a wooden block --- as found in a marimba. The method is a physical model developed --- from Perry Cook but re-coded for Csound. --- --- --- * url : - -marimba :: - (K k0, K k1, K k2, K k3) => - [Irate] -> - k0 -> - k1 -> - Irate -> Irate -> Irate -> k2 -> k3 -> Irate -> Irate -> Arate -marimba i0init k1amp k2freq i3hrd i4pos i5mp k6vibf k7vamp i8vibfn - i9dec = opcode "marimba" args - where args - = [to k1amp, to k2freq, to i3hrd, to i4pos, to i5mp, to k6vibf, - to k7vamp, to i8vibfn, to i9dec] - ++ map to i0init - - --- | * opcode : moog --- --- --- * syntax : --- --- > ares moog kamp, kfreq, kfiltq, kfiltrate, kvibf, kvamp, iafn, iwfn, ivfn --- --- --- * description : --- --- An emulation of a mini-Moog synthesizer. --- --- --- * url : - -moog :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> - k1 -> k2 -> k3 -> k4 -> k5 -> Irate -> Irate -> Irate -> Arate -moog k0amp k1freq k2filtq k3filtrate k4vibf k5vamp i6afn i7wfn - i8vfn = opcode "moog" args - where args - = [to k0amp, to k1freq, to k2filtq, to k3filtrate, to k4vibf, - to k5vamp, to i6afn, to i7wfn, to i8vfn] - - --- | * opcode : sandpaper --- --- --- * syntax : --- --- > ares sandpaper iamp, idettack [, inum] [, idamp] [, imaxshake] --- --- --- * description : --- --- sandpaper is a semi-physical model of a sandpaper sound. It is --- one of the PhISEM percussion opcodes. PhISEM (Physically Informed --- Stochastic Event Modeling) is an algorithmic approach for --- simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -sandpaper :: [Irate] -> Irate -> Irate -> Arate -sandpaper i0init i1amp i2dettack = opcode "sandpaper" args - where args = [to i1amp, to i2dettack] ++ map to i0init - - --- | * opcode : sekere --- --- --- * syntax : --- --- > ares sekere iamp, idettack [, inum] [, idamp] [, imaxshake] --- --- --- * description : --- --- sekere is a semi-physical model of a sekere sound. It is one of --- the PhISEM percussion opcodes. PhISEM (Physically Informed --- Stochastic Event Modeling) is an algorithmic approach for --- simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -sekere :: [Irate] -> Irate -> Irate -> Arate -sekere i0init i1amp i2dettack = opcode "sekere" args - where args = [to i1amp, to i2dettack] ++ map to i0init - - --- | * opcode : shaker --- --- --- * syntax : --- --- > ares shaker kamp, kfreq, kbeans, kdamp, ktimes [, idecay] --- --- --- * description : --- --- Audio output is a tone related to the shaking of a maraca or --- similar gourd instrument. The method is a physically inspired --- model developed from Perry Cook, but re-coded for Csound. --- --- --- * url : - -shaker :: - (K k0, K k1, K k2, K k3, K k4) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> k4 -> Arate -shaker i0init k1amp k2freq k3beans k4damp k5times - = opcode "shaker" args - where args - = [to k1amp, to k2freq, to k3beans, to k4damp, to k5times] ++ - map to i0init - - --- | * opcode : sleighbells --- --- --- * syntax : --- --- > ares sleighbells kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] --- > [, ifreq1] [, ifreq2] --- --- --- * description : --- --- sleighbells is a semi-physical model of a sleighbell sound. It --- is one of the PhISEM percussion opcodes. PhISEM (Physically --- Informed Stochastic Event Modeling) is an algorithmic approach --- for simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -sleighbells :: (K k0) => [Irate] -> k0 -> Irate -> Arate -sleighbells i0init k1amp i2dettack = opcode "sleighbells" args - where args = [to k1amp, to i2dettack] ++ map to i0init - - --- | * opcode : stix --- --- --- * syntax : --- --- > ares stix iamp, idettack [, inum] [, idamp] [, imaxshake] --- --- --- * description : --- --- stix is a semi-physical model of a stick sound. It is one of the --- PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic --- Event Modeling) is an algorithmic approach for simulating --- collisions of multiple independent sound producing objects. --- --- --- * url : - -stix :: [Irate] -> Irate -> Irate -> Arate -stix i0init i1amp i2dettack = opcode "stix" args - where args = [to i1amp, to i2dettack] ++ map to i0init - - --- | * opcode : tambourine --- --- --- * syntax : --- --- > ares tambourine kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] --- > [, ifreq1] [, ifreq2] --- --- --- * description : --- --- tambourine is a semi-physical model of a tambourine sound. It is --- one of the PhISEM percussion opcodes. PhISEM (Physically Informed --- Stochastic Event Modeling) is an algorithmic approach for --- simulating collisions of multiple independent sound producing --- objects. --- --- --- * url : - -tambourine :: (K k0) => [Irate] -> k0 -> Irate -> Arate -tambourine i0init k1amp i2dettack = opcode "tambourine" args - where args = [to k1amp, to i2dettack] ++ map to i0init - - --- | * opcode : vibes --- --- --- * syntax : --- --- > ares vibes kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivibfn, idec --- --- --- * description : --- --- Audio output is a tone related to the striking of a metal block --- as found in a vibraphone. The method is a physical model --- developed from Perry Cook, but re-coded for Csound. --- --- --- * url : - -vibes :: - (K k0, K k1, K k2, K k3) => - k0 -> - k1 -> - Irate -> Irate -> Irate -> k2 -> k3 -> Irate -> Irate -> Arate -vibes k0amp k1freq i2hrd i3pos i4mp k5vibf k6vamp i7vibfn i8dec - = opcode "vibes" args - where args - = [to k0amp, to k1freq, to i2hrd, to i3pos, to i4mp, to k5vibf, - to k6vamp, to i7vibfn, to i8dec] - - --- | * opcode : voice --- --- --- * syntax : --- --- > ares voice kamp, kfreq, kphoneme, kform, kvibf, kvamp, ifn, ivfn --- --- --- * description : --- --- An emulation of a human voice. --- --- --- * url : - -voice :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Irate -> Irate -> Arate -voice k0amp k1freq k2phoneme k3form k4vibf k5vamp i6fn i7vfn - = opcode "voice" args - where args - = [to k0amp, to k1freq, to k2phoneme, to k3form, to k4vibf, - to k5vamp, to i6fn, to i7vfn] - - --- | * opcode : lorenz --- --- --- * syntax : --- --- > ax, ay, az lorenz ksv, krv, kbv, kh, ix, iy, iz, iskip [, iskipinit] --- --- --- * description : --- --- Implements the Lorenz system of equations. The Lorenz system is --- a chaotic-dynamic system which was originally used to simulate --- the motion of a particle in convection currents and simplified --- weather systems. Small differences in initial conditions rapidly --- lead to diverging values. This is sometimes expressed as the --- butterfly effect. If a butterfly flaps its wings in Australia, it --- will have an effect on the weather in Alaska. This system is one --- of the milestones in the development of chaos theory. It is --- useful as a chaotic audio source or as a low frequency modulation --- source. --- --- --- * url : - -lorenz :: - (K k0, K k1, K k2, K k3) => - [Irate] -> - k0 -> - k1 -> k2 -> k3 -> Irate -> Irate -> Irate -> Irate -> MultiOut -lorenz i0init k1sv k2rv k3bv k4h i5x i6y i7z i8skip - = opcode "lorenz" args - where args - = [to k1sv, to k2rv, to k3bv, to k4h, to i5x, to i6y, to i7z, - to i8skip] - ++ map to i0init - - --- | * opcode : planet --- --- --- * syntax : --- --- > ax, ay, az planet kmass1, kmass2, ksep, ix, iy, iz, ivx, ivy, ivz, idelta --- > [, ifriction] [, iskip] --- --- --- * description : --- --- planet simulates a planet orbiting in a binary star system. The --- outputs are the x, y and z coordinates of the orbiting planet. It --- is possible for the planet to achieve escape velocity by a close --- encounter with a star. This makes this system somewhat unstable. --- --- --- * url : - -planet :: - (K k0, K k1, K k2) => - [Irate] -> - k0 -> - k1 -> - k2 -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -planet i0init k1mass1 k2mass2 k3sep i4x i5y i6z i7vx i8vy i9vz - i10delta = opcode "planet" args - where args - = [to k1mass1, to k2mass2, to k3sep, to i4x, to i5y, to i6z, - to i7vx, to i8vy, to i9vz, to i10delta] - ++ map to i0init - - --- | * opcode : prepiano --- --- --- * syntax : --- --- > ares prepiano ifreq, iNS, iD, iK, --- > iT30,iB, kbcl, kbcr, imass, ifreq, iinit, ipos, ivel, isfreq, --- > isspread[, irattles, irubbers] --- > al,ar prepiano ifreq, iNS, iD, iK, --- > iT30,iB, kbcl, kbcr, imass, ifreq, iinit, ipos, ivel, isfreq, --- > isspread[, irattles, irubbers] --- --- --- * description : --- --- Audio output is a tone similar to a piano string, prepared with --- a number of rubbers and rattles. The method uses a physical model --- developed from solving the partial differential equation. --- --- --- * url : - -prepiano :: - (K k0, K k1) => - [Irate] -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - k0 -> - k1 -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -prepiano i0init i1freq i2NS i3D i4K i5T30 i6B k7bcl k8bcr i9mass - i10freq i11init i12pos i13vel i14sfreq i15sspread - = opcode "prepiano" args - where args - = [to i1freq, to i2NS, to i3D, to i4K, to i5T30, to i6B, to k7bcl, - to k8bcr, to i9mass, to i10freq, to i11init, to i12pos, to i13vel, - to i14sfreq, to i15sspread] - ++ map to i0init - - --- | * opcode : prepiano --- --- --- * syntax : --- --- > ares prepiano ifreq, iNS, iD, iK, --- > iT30,iB, kbcl, kbcr, imass, ifreq, iinit, ipos, ivel, isfreq, --- > isspread[, irattles, irubbers] --- > al,ar prepiano ifreq, iNS, iD, iK, --- > iT30,iB, kbcl, kbcr, imass, ifreq, iinit, ipos, ivel, isfreq, --- > isspread[, irattles, irubbers] --- --- --- * description : --- --- Audio output is a tone similar to a piano string, prepared with --- a number of rubbers and rattles. The method uses a physical model --- developed from solving the partial differential equation. --- --- --- * url : - -prepianoA :: - (K k0, K k1) => - [Irate] -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - k0 -> - k1 -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -prepianoA i0init i1freq i2NS i3D i4K i5T30 i6B k7bcl k8bcr i9mass - i10freq i11init i12pos i13vel i14sfreq i15sspread - = opcode "prepiano" args - where args - = [to i1freq, to i2NS, to i3D, to i4K, to i5T30, to i6B, to k7bcl, - to k8bcr, to i9mass, to i10freq, to i11init, to i12pos, to i13vel, - to i14sfreq, to i15sspread] - ++ map to i0init - - --- | * opcode : mandel --- --- --- * syntax : --- --- > kiter, koutrig mandel ktrig, kx, ky, kmaxIter --- --- --- * description : --- --- Returns the number of iterations corresponding to a given point --- of complex plane by applying the Mandelbrot set formula. --- --- --- * url : - -mandel :: - (K k0, K k1, K k2, K k3) => k0 -> k1 -> k2 -> k3 -> MultiOut -mandel k0trig k1x k2y k3maxIter = opcode "mandel" args - where args = [to k0trig, to k1x, to k2y, to k3maxIter] - - --- | * opcode : chuap --- --- --- * syntax : --- --- > aI3, aV2, aV1 chuap kL, kR0, kC1, kG, kGa, kGb, kE, kC2, iI3, iV2, iV1, ktime_step --- --- --- * description : --- --- Simulates Chua's oscillator, an LRC oscillator with an active --- resistor, proved capable of bifurcation and chaotic attractors, --- with k-rate control of circuit elements. --- --- --- * url : - -chuap :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6, K k7, K k8) => - k0 -> - k1 -> - k2 -> - k3 -> - k4 -> k5 -> k6 -> k7 -> Irate -> Irate -> Irate -> k8 -> MultiOut -chuap k0L k1R0 k2C1 k3G k4Ga k5Gb k6E k7C2 i8I3 i9V2 i10V1 - k11time_step = opcode "chuap" args - where args - = [to k0L, to k1R0, to k2C1, to k3G, to k4Ga, to k5Gb, to k6E, - to k7C2, to i8I3, to i9V2, to i10V1, to k11time_step] diff --git a/src/CsoundExpr/Opcodes/Siggen/Noise.hs b/src/CsoundExpr/Opcodes/Siggen/Noise.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Noise.hs +++ /dev/null @@ -1,2725 +0,0 @@ --- | Random (Noise) Generators -module CsoundExpr.Opcodes.Siggen.Noise - (bexprndA', - bexprndA, - bexprndI', - bexprndI, - bexprndK', - bexprndK, - cauchyA', - cauchyA, - cauchyI', - cauchyI, - cauchyK', - cauchyK, - cuserrndA', - cuserrndA, - cuserrndI', - cuserrndI, - cuserrndK', - cuserrndK, - duserrndA', - duserrndA, - duserrndI', - duserrndI, - duserrndK', - duserrndK, - exprandA', - exprandA, - exprandI', - exprandI, - exprandK', - exprandK, - gaussA', - gaussA, - gaussI', - gaussI, - gaussK', - gaussK, - linrandA', - linrandA, - linrandI', - linrandI, - linrandK', - linrandK, - noise', - noise, - pcauchyA', - pcauchyA, - pcauchyI', - pcauchyI, - pcauchyK', - pcauchyK, - pinkish', - pinkish, - poissonA', - poissonA, - poissonI', - poissonI, - poissonK', - poissonK, - randA, - randK, - randhA, - randhK, - randiA, - randiK, - rnd31A', - rnd31A, - rnd31I', - rnd31I, - rnd31K', - rnd31K, - randomA', - randomA, - randomI', - randomI, - randomK', - randomK, - randomhA', - randomhA, - randomhK', - randomhK, - randomiA', - randomiA, - randomiK', - randomiK, - trirandA', - trirandA, - trirandI', - trirandI, - trirandK', - trirandK, - unirandA', - unirandA, - unirandI', - unirandI, - unirandK', - unirandK, - urdA', - urdA, - urdI', - urdI, - urdK', - urdK, - weibullA', - weibullA, - weibullI', - weibullI, - weibullK', - weibullK, - jitter', - jitter, - jitter2', - jitter2, - trandom', - trandom) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : bexprnd --- --- --- * syntax : --- --- > ares bexprnd krange --- > ires bexprnd krange --- > kres bexprnd krange --- --- --- * description : --- --- Exponential distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -bexprndA' :: (K k0) => k0 -> Arate -bexprndA' k0range = opcode "bexprnd" args - where args = [to k0range] - - --- | * opcode : bexprnd --- --- --- * syntax : --- --- > ares bexprnd krange --- > ires bexprnd krange --- > kres bexprnd krange --- --- --- * description : --- --- Exponential distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -bexprndA :: (K k0) => k0 -> SideEffect Arate -bexprndA k0range = opcode "bexprnd" args - where args = [to k0range] - - --- | * opcode : bexprnd --- --- --- * syntax : --- --- > ares bexprnd krange --- > ires bexprnd krange --- > kres bexprnd krange --- --- --- * description : --- --- Exponential distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -bexprndI' :: (K k0) => k0 -> Irate -bexprndI' k0range = opcode "bexprnd" args - where args = [to k0range] - - --- | * opcode : bexprnd --- --- --- * syntax : --- --- > ares bexprnd krange --- > ires bexprnd krange --- > kres bexprnd krange --- --- --- * description : --- --- Exponential distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -bexprndI :: (K k0) => k0 -> SideEffect Irate -bexprndI k0range = opcode "bexprnd" args - where args = [to k0range] - - --- | * opcode : bexprnd --- --- --- * syntax : --- --- > ares bexprnd krange --- > ires bexprnd krange --- > kres bexprnd krange --- --- --- * description : --- --- Exponential distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -bexprndK' :: (K k0) => k0 -> Krate -bexprndK' k0range = opcode "bexprnd" args - where args = [to k0range] - - --- | * opcode : bexprnd --- --- --- * syntax : --- --- > ares bexprnd krange --- > ires bexprnd krange --- > kres bexprnd krange --- --- --- * description : --- --- Exponential distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -bexprndK :: (K k0) => k0 -> SideEffect Krate -bexprndK k0range = opcode "bexprnd" args - where args = [to k0range] - - --- | * opcode : cauchy --- --- --- * syntax : --- --- > ares cauchy kalpha --- > ires cauchy kalpha --- > kres cauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator. This is an x-class --- noise generator. --- --- --- * url : - -cauchyA' :: (K k0) => k0 -> Arate -cauchyA' k0alpha = opcode "cauchy" args - where args = [to k0alpha] - - --- | * opcode : cauchy --- --- --- * syntax : --- --- > ares cauchy kalpha --- > ires cauchy kalpha --- > kres cauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator. This is an x-class --- noise generator. --- --- --- * url : - -cauchyA :: (K k0) => k0 -> SideEffect Arate -cauchyA k0alpha = opcode "cauchy" args - where args = [to k0alpha] - - --- | * opcode : cauchy --- --- --- * syntax : --- --- > ares cauchy kalpha --- > ires cauchy kalpha --- > kres cauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator. This is an x-class --- noise generator. --- --- --- * url : - -cauchyI' :: (K k0) => k0 -> Irate -cauchyI' k0alpha = opcode "cauchy" args - where args = [to k0alpha] - - --- | * opcode : cauchy --- --- --- * syntax : --- --- > ares cauchy kalpha --- > ires cauchy kalpha --- > kres cauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator. This is an x-class --- noise generator. --- --- --- * url : - -cauchyI :: (K k0) => k0 -> SideEffect Irate -cauchyI k0alpha = opcode "cauchy" args - where args = [to k0alpha] - - --- | * opcode : cauchy --- --- --- * syntax : --- --- > ares cauchy kalpha --- > ires cauchy kalpha --- > kres cauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator. This is an x-class --- noise generator. --- --- --- * url : - -cauchyK' :: (K k0) => k0 -> Krate -cauchyK' k0alpha = opcode "cauchy" args - where args = [to k0alpha] - - --- | * opcode : cauchy --- --- --- * syntax : --- --- > ares cauchy kalpha --- > ires cauchy kalpha --- > kres cauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator. This is an x-class --- noise generator. --- --- --- * url : - -cauchyK :: (K k0) => k0 -> SideEffect Krate -cauchyK k0alpha = opcode "cauchy" args - where args = [to k0alpha] - - --- | * opcode : cuserrnd --- --- --- * syntax : --- --- > aout cuserrnd kmin, kmax, ktableNum --- > iout cuserrnd imin, imax, itableNum --- > kout cuserrnd kmin, kmax, ktableNum --- --- --- * description : --- --- Continuous USER-defined-distribution RaNDom generator. --- --- --- * url : - -cuserrndA' :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Arate -cuserrndA' k0min k1max k2tableNum = opcode "cuserrnd" args - where args = [to k0min, to k1max, to k2tableNum] - - --- | * opcode : cuserrnd --- --- --- * syntax : --- --- > aout cuserrnd kmin, kmax, ktableNum --- > iout cuserrnd imin, imax, itableNum --- > kout cuserrnd kmin, kmax, ktableNum --- --- --- * description : --- --- Continuous USER-defined-distribution RaNDom generator. --- --- --- * url : - -cuserrndA :: - (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SideEffect Arate -cuserrndA k0min k1max k2tableNum = opcode "cuserrnd" args - where args = [to k0min, to k1max, to k2tableNum] - - --- | * opcode : cuserrnd --- --- --- * syntax : --- --- > aout cuserrnd kmin, kmax, ktableNum --- > iout cuserrnd imin, imax, itableNum --- > kout cuserrnd kmin, kmax, ktableNum --- --- --- * description : --- --- Continuous USER-defined-distribution RaNDom generator. --- --- --- * url : - -cuserrndI' :: Irate -> Irate -> Irate -> Irate -cuserrndI' i0min i1max i2tableNum = opcode "cuserrnd" args - where args = [to i0min, to i1max, to i2tableNum] - - --- | * opcode : cuserrnd --- --- --- * syntax : --- --- > aout cuserrnd kmin, kmax, ktableNum --- > iout cuserrnd imin, imax, itableNum --- > kout cuserrnd kmin, kmax, ktableNum --- --- --- * description : --- --- Continuous USER-defined-distribution RaNDom generator. --- --- --- * url : - -cuserrndI :: Irate -> Irate -> Irate -> SideEffect Irate -cuserrndI i0min i1max i2tableNum = opcode "cuserrnd" args - where args = [to i0min, to i1max, to i2tableNum] - - --- | * opcode : cuserrnd --- --- --- * syntax : --- --- > aout cuserrnd kmin, kmax, ktableNum --- > iout cuserrnd imin, imax, itableNum --- > kout cuserrnd kmin, kmax, ktableNum --- --- --- * description : --- --- Continuous USER-defined-distribution RaNDom generator. --- --- --- * url : - -cuserrndK' :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -cuserrndK' k0min k1max k2tableNum = opcode "cuserrnd" args - where args = [to k0min, to k1max, to k2tableNum] - - --- | * opcode : cuserrnd --- --- --- * syntax : --- --- > aout cuserrnd kmin, kmax, ktableNum --- > iout cuserrnd imin, imax, itableNum --- > kout cuserrnd kmin, kmax, ktableNum --- --- --- * description : --- --- Continuous USER-defined-distribution RaNDom generator. --- --- --- * url : - -cuserrndK :: - (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SideEffect Krate -cuserrndK k0min k1max k2tableNum = opcode "cuserrnd" args - where args = [to k0min, to k1max, to k2tableNum] - - --- | * opcode : duserrnd --- --- --- * syntax : --- --- > aout duserrnd ktableNum --- > iout duserrnd itableNum --- > kout duserrnd ktableNum --- --- --- * description : --- --- Discrete USER-defined-distribution RaNDom generator. --- --- --- * url : - -duserrndA' :: (K k0) => k0 -> Arate -duserrndA' k0tableNum = opcode "duserrnd" args - where args = [to k0tableNum] - - --- | * opcode : duserrnd --- --- --- * syntax : --- --- > aout duserrnd ktableNum --- > iout duserrnd itableNum --- > kout duserrnd ktableNum --- --- --- * description : --- --- Discrete USER-defined-distribution RaNDom generator. --- --- --- * url : - -duserrndA :: (K k0) => k0 -> SideEffect Arate -duserrndA k0tableNum = opcode "duserrnd" args - where args = [to k0tableNum] - - --- | * opcode : duserrnd --- --- --- * syntax : --- --- > aout duserrnd ktableNum --- > iout duserrnd itableNum --- > kout duserrnd ktableNum --- --- --- * description : --- --- Discrete USER-defined-distribution RaNDom generator. --- --- --- * url : - -duserrndI' :: Irate -> Irate -duserrndI' i0tableNum = opcode "duserrnd" args - where args = [to i0tableNum] - - --- | * opcode : duserrnd --- --- --- * syntax : --- --- > aout duserrnd ktableNum --- > iout duserrnd itableNum --- > kout duserrnd ktableNum --- --- --- * description : --- --- Discrete USER-defined-distribution RaNDom generator. --- --- --- * url : - -duserrndI :: Irate -> SideEffect Irate -duserrndI i0tableNum = opcode "duserrnd" args - where args = [to i0tableNum] - - --- | * opcode : duserrnd --- --- --- * syntax : --- --- > aout duserrnd ktableNum --- > iout duserrnd itableNum --- > kout duserrnd ktableNum --- --- --- * description : --- --- Discrete USER-defined-distribution RaNDom generator. --- --- --- * url : - -duserrndK' :: (K k0) => k0 -> Krate -duserrndK' k0tableNum = opcode "duserrnd" args - where args = [to k0tableNum] - - --- | * opcode : duserrnd --- --- --- * syntax : --- --- > aout duserrnd ktableNum --- > iout duserrnd itableNum --- > kout duserrnd ktableNum --- --- --- * description : --- --- Discrete USER-defined-distribution RaNDom generator. --- --- --- * url : - -duserrndK :: (K k0) => k0 -> SideEffect Krate -duserrndK k0tableNum = opcode "duserrnd" args - where args = [to k0tableNum] - - --- | * opcode : exprand --- --- --- * syntax : --- --- > ares exprand klambda --- > ires exprand klambda --- > kres exprand klambda --- --- --- * description : --- --- Exponential distribution random number generator (positive --- values only). This is an x-class noise generator. --- --- --- * url : - -exprandA' :: (K k0) => k0 -> Arate -exprandA' k0lambda = opcode "exprand" args - where args = [to k0lambda] - - --- | * opcode : exprand --- --- --- * syntax : --- --- > ares exprand klambda --- > ires exprand klambda --- > kres exprand klambda --- --- --- * description : --- --- Exponential distribution random number generator (positive --- values only). This is an x-class noise generator. --- --- --- * url : - -exprandA :: (K k0) => k0 -> SideEffect Arate -exprandA k0lambda = opcode "exprand" args - where args = [to k0lambda] - - --- | * opcode : exprand --- --- --- * syntax : --- --- > ares exprand klambda --- > ires exprand klambda --- > kres exprand klambda --- --- --- * description : --- --- Exponential distribution random number generator (positive --- values only). This is an x-class noise generator. --- --- --- * url : - -exprandI' :: (K k0) => k0 -> Irate -exprandI' k0lambda = opcode "exprand" args - where args = [to k0lambda] - - --- | * opcode : exprand --- --- --- * syntax : --- --- > ares exprand klambda --- > ires exprand klambda --- > kres exprand klambda --- --- --- * description : --- --- Exponential distribution random number generator (positive --- values only). This is an x-class noise generator. --- --- --- * url : - -exprandI :: (K k0) => k0 -> SideEffect Irate -exprandI k0lambda = opcode "exprand" args - where args = [to k0lambda] - - --- | * opcode : exprand --- --- --- * syntax : --- --- > ares exprand klambda --- > ires exprand klambda --- > kres exprand klambda --- --- --- * description : --- --- Exponential distribution random number generator (positive --- values only). This is an x-class noise generator. --- --- --- * url : - -exprandK' :: (K k0) => k0 -> Krate -exprandK' k0lambda = opcode "exprand" args - where args = [to k0lambda] - - --- | * opcode : exprand --- --- --- * syntax : --- --- > ares exprand klambda --- > ires exprand klambda --- > kres exprand klambda --- --- --- * description : --- --- Exponential distribution random number generator (positive --- values only). This is an x-class noise generator. --- --- --- * url : - -exprandK :: (K k0) => k0 -> SideEffect Krate -exprandK k0lambda = opcode "exprand" args - where args = [to k0lambda] - - --- | * opcode : gauss --- --- --- * syntax : --- --- > ares gauss krange --- > ires gauss krange --- > kres gauss krange --- --- --- * description : --- --- Gaussian distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -gaussA' :: (K k0) => k0 -> Arate -gaussA' k0range = opcode "gauss" args - where args = [to k0range] - - --- | * opcode : gauss --- --- --- * syntax : --- --- > ares gauss krange --- > ires gauss krange --- > kres gauss krange --- --- --- * description : --- --- Gaussian distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -gaussA :: (K k0) => k0 -> SideEffect Arate -gaussA k0range = opcode "gauss" args - where args = [to k0range] - - --- | * opcode : gauss --- --- --- * syntax : --- --- > ares gauss krange --- > ires gauss krange --- > kres gauss krange --- --- --- * description : --- --- Gaussian distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -gaussI' :: (K k0) => k0 -> Irate -gaussI' k0range = opcode "gauss" args - where args = [to k0range] - - --- | * opcode : gauss --- --- --- * syntax : --- --- > ares gauss krange --- > ires gauss krange --- > kres gauss krange --- --- --- * description : --- --- Gaussian distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -gaussI :: (K k0) => k0 -> SideEffect Irate -gaussI k0range = opcode "gauss" args - where args = [to k0range] - - --- | * opcode : gauss --- --- --- * syntax : --- --- > ares gauss krange --- > ires gauss krange --- > kres gauss krange --- --- --- * description : --- --- Gaussian distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -gaussK' :: (K k0) => k0 -> Krate -gaussK' k0range = opcode "gauss" args - where args = [to k0range] - - --- | * opcode : gauss --- --- --- * syntax : --- --- > ares gauss krange --- > ires gauss krange --- > kres gauss krange --- --- --- * description : --- --- Gaussian distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -gaussK :: (K k0) => k0 -> SideEffect Krate -gaussK k0range = opcode "gauss" args - where args = [to k0range] - - --- | * opcode : linrand --- --- --- * syntax : --- --- > ares linrand krange --- > ires linrand krange --- > kres linrand krange --- --- --- * description : --- --- Linear distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -linrandA' :: (K k0) => k0 -> Arate -linrandA' k0range = opcode "linrand" args - where args = [to k0range] - - --- | * opcode : linrand --- --- --- * syntax : --- --- > ares linrand krange --- > ires linrand krange --- > kres linrand krange --- --- --- * description : --- --- Linear distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -linrandA :: (K k0) => k0 -> SideEffect Arate -linrandA k0range = opcode "linrand" args - where args = [to k0range] - - --- | * opcode : linrand --- --- --- * syntax : --- --- > ares linrand krange --- > ires linrand krange --- > kres linrand krange --- --- --- * description : --- --- Linear distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -linrandI' :: (K k0) => k0 -> Irate -linrandI' k0range = opcode "linrand" args - where args = [to k0range] - - --- | * opcode : linrand --- --- --- * syntax : --- --- > ares linrand krange --- > ires linrand krange --- > kres linrand krange --- --- --- * description : --- --- Linear distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -linrandI :: (K k0) => k0 -> SideEffect Irate -linrandI k0range = opcode "linrand" args - where args = [to k0range] - - --- | * opcode : linrand --- --- --- * syntax : --- --- > ares linrand krange --- > ires linrand krange --- > kres linrand krange --- --- --- * description : --- --- Linear distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -linrandK' :: (K k0) => k0 -> Krate -linrandK' k0range = opcode "linrand" args - where args = [to k0range] - - --- | * opcode : linrand --- --- --- * syntax : --- --- > ares linrand krange --- > ires linrand krange --- > kres linrand krange --- --- --- * description : --- --- Linear distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -linrandK :: (K k0) => k0 -> SideEffect Krate -linrandK k0range = opcode "linrand" args - where args = [to k0range] - - --- | * opcode : noise --- --- --- * syntax : --- --- > ares noise xamp, kbeta --- --- --- * description : --- --- A white noise generator with an IIR lowpass filter. --- --- --- * url : - -noise' :: (X x0, K k0) => x0 -> k0 -> Arate -noise' x0amp k1beta = opcode "noise" args - where args = [to x0amp, to k1beta] - - --- | * opcode : noise --- --- --- * syntax : --- --- > ares noise xamp, kbeta --- --- --- * description : --- --- A white noise generator with an IIR lowpass filter. --- --- --- * url : - -noise :: (X x0, K k0) => x0 -> k0 -> SideEffect Arate -noise x0amp k1beta = opcode "noise" args - where args = [to x0amp, to k1beta] - - --- | * opcode : pcauchy --- --- --- * syntax : --- --- > ares pcauchy kalpha --- > ires pcauchy kalpha --- > kres pcauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -pcauchyA' :: (K k0) => k0 -> Arate -pcauchyA' k0alpha = opcode "pcauchy" args - where args = [to k0alpha] - - --- | * opcode : pcauchy --- --- --- * syntax : --- --- > ares pcauchy kalpha --- > ires pcauchy kalpha --- > kres pcauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -pcauchyA :: (K k0) => k0 -> SideEffect Arate -pcauchyA k0alpha = opcode "pcauchy" args - where args = [to k0alpha] - - --- | * opcode : pcauchy --- --- --- * syntax : --- --- > ares pcauchy kalpha --- > ires pcauchy kalpha --- > kres pcauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -pcauchyI' :: (K k0) => k0 -> Irate -pcauchyI' k0alpha = opcode "pcauchy" args - where args = [to k0alpha] - - --- | * opcode : pcauchy --- --- --- * syntax : --- --- > ares pcauchy kalpha --- > ires pcauchy kalpha --- > kres pcauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -pcauchyI :: (K k0) => k0 -> SideEffect Irate -pcauchyI k0alpha = opcode "pcauchy" args - where args = [to k0alpha] - - --- | * opcode : pcauchy --- --- --- * syntax : --- --- > ares pcauchy kalpha --- > ires pcauchy kalpha --- > kres pcauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -pcauchyK' :: (K k0) => k0 -> Krate -pcauchyK' k0alpha = opcode "pcauchy" args - where args = [to k0alpha] - - --- | * opcode : pcauchy --- --- --- * syntax : --- --- > ares pcauchy kalpha --- > ires pcauchy kalpha --- > kres pcauchy kalpha --- --- --- * description : --- --- Cauchy distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -pcauchyK :: (K k0) => k0 -> SideEffect Krate -pcauchyK k0alpha = opcode "pcauchy" args - where args = [to k0alpha] - - --- | * opcode : pinkish --- --- --- * syntax : --- --- > ares pinkish xin [, imethod] [, inumbands] [, iseed] [, iskip] --- --- --- * description : --- --- Generates approximate pink noise (-3dB/oct response) by one of --- two different methods: --- --- --- * url : - -pinkish' :: (X x0) => [Irate] -> x0 -> Arate -pinkish' i0init x1in = opcode "pinkish" args - where args = [to x1in] ++ map to i0init - - --- | * opcode : pinkish --- --- --- * syntax : --- --- > ares pinkish xin [, imethod] [, inumbands] [, iseed] [, iskip] --- --- --- * description : --- --- Generates approximate pink noise (-3dB/oct response) by one of --- two different methods: --- --- --- * url : - -pinkish :: (X x0) => [Irate] -> x0 -> SideEffect Arate -pinkish i0init x1in = opcode "pinkish" args - where args = [to x1in] ++ map to i0init - - --- | * opcode : poisson --- --- --- * syntax : --- --- > ares poisson klambda --- > ires poisson klambda --- > kres poisson klambda --- --- --- * description : --- --- Poisson distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -poissonA' :: (K k0) => k0 -> Arate -poissonA' k0lambda = opcode "poisson" args - where args = [to k0lambda] - - --- | * opcode : poisson --- --- --- * syntax : --- --- > ares poisson klambda --- > ires poisson klambda --- > kres poisson klambda --- --- --- * description : --- --- Poisson distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -poissonA :: (K k0) => k0 -> SideEffect Arate -poissonA k0lambda = opcode "poisson" args - where args = [to k0lambda] - - --- | * opcode : poisson --- --- --- * syntax : --- --- > ares poisson klambda --- > ires poisson klambda --- > kres poisson klambda --- --- --- * description : --- --- Poisson distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -poissonI' :: (K k0) => k0 -> Irate -poissonI' k0lambda = opcode "poisson" args - where args = [to k0lambda] - - --- | * opcode : poisson --- --- --- * syntax : --- --- > ares poisson klambda --- > ires poisson klambda --- > kres poisson klambda --- --- --- * description : --- --- Poisson distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -poissonI :: (K k0) => k0 -> SideEffect Irate -poissonI k0lambda = opcode "poisson" args - where args = [to k0lambda] - - --- | * opcode : poisson --- --- --- * syntax : --- --- > ares poisson klambda --- > ires poisson klambda --- > kres poisson klambda --- --- --- * description : --- --- Poisson distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -poissonK' :: (K k0) => k0 -> Krate -poissonK' k0lambda = opcode "poisson" args - where args = [to k0lambda] - - --- | * opcode : poisson --- --- --- * syntax : --- --- > ares poisson klambda --- > ires poisson klambda --- > kres poisson klambda --- --- --- * description : --- --- Poisson distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -poissonK :: (K k0) => k0 -> SideEffect Krate -poissonK k0lambda = opcode "poisson" args - where args = [to k0lambda] - - --- | * opcode : rand --- --- --- * syntax : --- --- > ares rand xamp [, iseed] [, isel] [, ioffset] --- > kres rand xamp [, iseed] [, isel] [, ioffset] --- --- --- * description : --- --- Output is a controlled random number series between -amp and --- +amp --- --- --- * url : - -randA :: (X x0) => [Irate] -> x0 -> Arate -randA i0init x1amp = opcode "rand" args - where args = [to x1amp] ++ map to i0init - - --- | * opcode : rand --- --- --- * syntax : --- --- > ares rand xamp [, iseed] [, isel] [, ioffset] --- > kres rand xamp [, iseed] [, isel] [, ioffset] --- --- --- * description : --- --- Output is a controlled random number series between -amp and --- +amp --- --- --- * url : - -randK :: (X x0) => [Irate] -> x0 -> Krate -randK i0init x1amp = opcode "rand" args - where args = [to x1amp] ++ map to i0init - - --- | * opcode : randh --- --- --- * syntax : --- --- > ares randh xamp, xcps [, iseed] [, isize] [, ioffset] --- > kres randh kamp, kcps [, iseed] [, isize] [, ioffset] --- --- --- * description : --- --- Generates random numbers and holds them for a period of time. --- --- --- * url : - -randhA :: (X x0, X x1) => [Irate] -> x0 -> x1 -> Arate -randhA i0init x1amp x2cps = opcode "randh" args - where args = [to x1amp, to x2cps] ++ map to i0init - - --- | * opcode : randh --- --- --- * syntax : --- --- > ares randh xamp, xcps [, iseed] [, isize] [, ioffset] --- > kres randh kamp, kcps [, iseed] [, isize] [, ioffset] --- --- --- * description : --- --- Generates random numbers and holds them for a period of time. --- --- --- * url : - -randhK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -randhK i0init k1amp k2cps = opcode "randh" args - where args = [to k1amp, to k2cps] ++ map to i0init - - --- | * opcode : randi --- --- --- * syntax : --- --- > ares randi xamp, xcps [, iseed] [, isize] [, ioffset] --- > kres randi kamp, kcps [, iseed] [, isize] [, ioffset] --- --- --- * description : --- --- Generates a controlled random number series with interpolation --- between each new number. --- --- --- * url : - -randiA :: (X x0, X x1) => [Irate] -> x0 -> x1 -> Arate -randiA i0init x1amp x2cps = opcode "randi" args - where args = [to x1amp, to x2cps] ++ map to i0init - - --- | * opcode : randi --- --- --- * syntax : --- --- > ares randi xamp, xcps [, iseed] [, isize] [, ioffset] --- > kres randi kamp, kcps [, iseed] [, isize] [, ioffset] --- --- --- * description : --- --- Generates a controlled random number series with interpolation --- between each new number. --- --- --- * url : - -randiK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -randiK i0init k1amp k2cps = opcode "randi" args - where args = [to k1amp, to k2cps] ++ map to i0init - - --- | * opcode : rnd31 --- --- --- * syntax : --- --- > ax rnd31 kscl, krpow [, iseed] --- > ix rnd31 iscl, irpow [, iseed] --- > kx rnd31 kscl, krpow [, iseed] --- --- --- * description : --- --- 31-bit bipolar random opcodes with controllable distribution. --- These units are portable, i.e. using the same seed value will --- generate the same random sequence on all systems. The --- distribution of generated random numbers can be varied at k-rate. --- --- --- * url : - -rnd31A' :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Arate -rnd31A' i0init k1scl k2rpow = opcode "rnd31" args - where args = [to k1scl, to k2rpow] ++ map to i0init - - --- | * opcode : rnd31 --- --- --- * syntax : --- --- > ax rnd31 kscl, krpow [, iseed] --- > ix rnd31 iscl, irpow [, iseed] --- > kx rnd31 kscl, krpow [, iseed] --- --- --- * description : --- --- 31-bit bipolar random opcodes with controllable distribution. --- These units are portable, i.e. using the same seed value will --- generate the same random sequence on all systems. The --- distribution of generated random numbers can be varied at k-rate. --- --- --- * url : - -rnd31A :: (K k0, K k1) => [Irate] -> k0 -> k1 -> SideEffect Arate -rnd31A i0init k1scl k2rpow = opcode "rnd31" args - where args = [to k1scl, to k2rpow] ++ map to i0init - - --- | * opcode : rnd31 --- --- --- * syntax : --- --- > ax rnd31 kscl, krpow [, iseed] --- > ix rnd31 iscl, irpow [, iseed] --- > kx rnd31 kscl, krpow [, iseed] --- --- --- * description : --- --- 31-bit bipolar random opcodes with controllable distribution. --- These units are portable, i.e. using the same seed value will --- generate the same random sequence on all systems. The --- distribution of generated random numbers can be varied at k-rate. --- --- --- * url : - -rnd31I' :: [Irate] -> Irate -> Irate -> Irate -rnd31I' i0init i1scl i2rpow = opcode "rnd31" args - where args = [to i1scl, to i2rpow] ++ map to i0init - - --- | * opcode : rnd31 --- --- --- * syntax : --- --- > ax rnd31 kscl, krpow [, iseed] --- > ix rnd31 iscl, irpow [, iseed] --- > kx rnd31 kscl, krpow [, iseed] --- --- --- * description : --- --- 31-bit bipolar random opcodes with controllable distribution. --- These units are portable, i.e. using the same seed value will --- generate the same random sequence on all systems. The --- distribution of generated random numbers can be varied at k-rate. --- --- --- * url : - -rnd31I :: [Irate] -> Irate -> Irate -> SideEffect Irate -rnd31I i0init i1scl i2rpow = opcode "rnd31" args - where args = [to i1scl, to i2rpow] ++ map to i0init - - --- | * opcode : rnd31 --- --- --- * syntax : --- --- > ax rnd31 kscl, krpow [, iseed] --- > ix rnd31 iscl, irpow [, iseed] --- > kx rnd31 kscl, krpow [, iseed] --- --- --- * description : --- --- 31-bit bipolar random opcodes with controllable distribution. --- These units are portable, i.e. using the same seed value will --- generate the same random sequence on all systems. The --- distribution of generated random numbers can be varied at k-rate. --- --- --- * url : - -rnd31K' :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -rnd31K' i0init k1scl k2rpow = opcode "rnd31" args - where args = [to k1scl, to k2rpow] ++ map to i0init - - --- | * opcode : rnd31 --- --- --- * syntax : --- --- > ax rnd31 kscl, krpow [, iseed] --- > ix rnd31 iscl, irpow [, iseed] --- > kx rnd31 kscl, krpow [, iseed] --- --- --- * description : --- --- 31-bit bipolar random opcodes with controllable distribution. --- These units are portable, i.e. using the same seed value will --- generate the same random sequence on all systems. The --- distribution of generated random numbers can be varied at k-rate. --- --- --- * url : - -rnd31K :: (K k0, K k1) => [Irate] -> k0 -> k1 -> SideEffect Krate -rnd31K i0init k1scl k2rpow = opcode "rnd31" args - where args = [to k1scl, to k2rpow] ++ map to i0init - - --- | * opcode : random --- --- --- * syntax : --- --- > ares random kmin, kmax --- > ires random imin, imax --- > kres random kmin, kmax --- --- --- * description : --- --- Generates is a controlled pseudo-random number series between --- min and max values. --- --- --- * url : - -randomA' :: (K k0, K k1) => k0 -> k1 -> Arate -randomA' k0min k1max = opcode "random" args - where args = [to k0min, to k1max] - - --- | * opcode : random --- --- --- * syntax : --- --- > ares random kmin, kmax --- > ires random imin, imax --- > kres random kmin, kmax --- --- --- * description : --- --- Generates is a controlled pseudo-random number series between --- min and max values. --- --- --- * url : - -randomA :: (K k0, K k1) => k0 -> k1 -> SideEffect Arate -randomA k0min k1max = opcode "random" args - where args = [to k0min, to k1max] - - --- | * opcode : random --- --- --- * syntax : --- --- > ares random kmin, kmax --- > ires random imin, imax --- > kres random kmin, kmax --- --- --- * description : --- --- Generates is a controlled pseudo-random number series between --- min and max values. --- --- --- * url : - -randomI' :: Irate -> Irate -> Irate -randomI' i0min i1max = opcode "random" args - where args = [to i0min, to i1max] - - --- | * opcode : random --- --- --- * syntax : --- --- > ares random kmin, kmax --- > ires random imin, imax --- > kres random kmin, kmax --- --- --- * description : --- --- Generates is a controlled pseudo-random number series between --- min and max values. --- --- --- * url : - -randomI :: Irate -> Irate -> SideEffect Irate -randomI i0min i1max = opcode "random" args - where args = [to i0min, to i1max] - - --- | * opcode : random --- --- --- * syntax : --- --- > ares random kmin, kmax --- > ires random imin, imax --- > kres random kmin, kmax --- --- --- * description : --- --- Generates is a controlled pseudo-random number series between --- min and max values. --- --- --- * url : - -randomK' :: (K k0, K k1) => k0 -> k1 -> Krate -randomK' k0min k1max = opcode "random" args - where args = [to k0min, to k1max] - - --- | * opcode : random --- --- --- * syntax : --- --- > ares random kmin, kmax --- > ires random imin, imax --- > kres random kmin, kmax --- --- --- * description : --- --- Generates is a controlled pseudo-random number series between --- min and max values. --- --- --- * url : - -randomK :: (K k0, K k1) => k0 -> k1 -> SideEffect Krate -randomK k0min k1max = opcode "random" args - where args = [to k0min, to k1max] - - --- | * opcode : randomh --- --- --- * syntax : --- --- > ares randomh kmin, kmax, acps --- > kres randomh kmin, kmax, kcps --- --- --- * description : --- --- Generates random numbers with a user-defined limit and holds --- them for a period of time. --- --- --- * url : - -randomhA' :: (K k0, K k1) => k0 -> k1 -> Arate -> Arate -randomhA' k0min k1max a2cps = opcode "randomh" args - where args = [to k0min, to k1max, to a2cps] - - --- | * opcode : randomh --- --- --- * syntax : --- --- > ares randomh kmin, kmax, acps --- > kres randomh kmin, kmax, kcps --- --- --- * description : --- --- Generates random numbers with a user-defined limit and holds --- them for a period of time. --- --- --- * url : - -randomhA :: (K k0, K k1) => k0 -> k1 -> Arate -> SideEffect Arate -randomhA k0min k1max a2cps = opcode "randomh" args - where args = [to k0min, to k1max, to a2cps] - - --- | * opcode : randomh --- --- --- * syntax : --- --- > ares randomh kmin, kmax, acps --- > kres randomh kmin, kmax, kcps --- --- --- * description : --- --- Generates random numbers with a user-defined limit and holds --- them for a period of time. --- --- --- * url : - -randomhK' :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -randomhK' k0min k1max k2cps = opcode "randomh" args - where args = [to k0min, to k1max, to k2cps] - - --- | * opcode : randomh --- --- --- * syntax : --- --- > ares randomh kmin, kmax, acps --- > kres randomh kmin, kmax, kcps --- --- --- * description : --- --- Generates random numbers with a user-defined limit and holds --- them for a period of time. --- --- --- * url : - -randomhK :: - (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SideEffect Krate -randomhK k0min k1max k2cps = opcode "randomh" args - where args = [to k0min, to k1max, to k2cps] - - --- | * opcode : randomi --- --- --- * syntax : --- --- > ares randomi kmin, kmax, acps --- > kres randomi kmin, kmax, kcps --- --- --- * description : --- --- Generates a user-controlled random number series with --- interpolation between each new number. --- --- --- * url : - -randomiA' :: (K k0, K k1) => k0 -> k1 -> Arate -> Arate -randomiA' k0min k1max a2cps = opcode "randomi" args - where args = [to k0min, to k1max, to a2cps] - - --- | * opcode : randomi --- --- --- * syntax : --- --- > ares randomi kmin, kmax, acps --- > kres randomi kmin, kmax, kcps --- --- --- * description : --- --- Generates a user-controlled random number series with --- interpolation between each new number. --- --- --- * url : - -randomiA :: (K k0, K k1) => k0 -> k1 -> Arate -> SideEffect Arate -randomiA k0min k1max a2cps = opcode "randomi" args - where args = [to k0min, to k1max, to a2cps] - - --- | * opcode : randomi --- --- --- * syntax : --- --- > ares randomi kmin, kmax, acps --- > kres randomi kmin, kmax, kcps --- --- --- * description : --- --- Generates a user-controlled random number series with --- interpolation between each new number. --- --- --- * url : - -randomiK' :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -randomiK' k0min k1max k2cps = opcode "randomi" args - where args = [to k0min, to k1max, to k2cps] - - --- | * opcode : randomi --- --- --- * syntax : --- --- > ares randomi kmin, kmax, acps --- > kres randomi kmin, kmax, kcps --- --- --- * description : --- --- Generates a user-controlled random number series with --- interpolation between each new number. --- --- --- * url : - -randomiK :: - (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SideEffect Krate -randomiK k0min k1max k2cps = opcode "randomi" args - where args = [to k0min, to k1max, to k2cps] - - --- | * opcode : trirand --- --- --- * syntax : --- --- > ares trirand krange --- > ires trirand krange --- > kres trirand krange --- --- --- * description : --- --- Triangular distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -trirandA' :: (K k0) => k0 -> Arate -trirandA' k0range = opcode "trirand" args - where args = [to k0range] - - --- | * opcode : trirand --- --- --- * syntax : --- --- > ares trirand krange --- > ires trirand krange --- > kres trirand krange --- --- --- * description : --- --- Triangular distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -trirandA :: (K k0) => k0 -> SideEffect Arate -trirandA k0range = opcode "trirand" args - where args = [to k0range] - - --- | * opcode : trirand --- --- --- * syntax : --- --- > ares trirand krange --- > ires trirand krange --- > kres trirand krange --- --- --- * description : --- --- Triangular distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -trirandI' :: (K k0) => k0 -> Irate -trirandI' k0range = opcode "trirand" args - where args = [to k0range] - - --- | * opcode : trirand --- --- --- * syntax : --- --- > ares trirand krange --- > ires trirand krange --- > kres trirand krange --- --- --- * description : --- --- Triangular distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -trirandI :: (K k0) => k0 -> SideEffect Irate -trirandI k0range = opcode "trirand" args - where args = [to k0range] - - --- | * opcode : trirand --- --- --- * syntax : --- --- > ares trirand krange --- > ires trirand krange --- > kres trirand krange --- --- --- * description : --- --- Triangular distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -trirandK' :: (K k0) => k0 -> Krate -trirandK' k0range = opcode "trirand" args - where args = [to k0range] - - --- | * opcode : trirand --- --- --- * syntax : --- --- > ares trirand krange --- > ires trirand krange --- > kres trirand krange --- --- --- * description : --- --- Triangular distribution random number generator. This is an --- x-class noise generator. --- --- --- * url : - -trirandK :: (K k0) => k0 -> SideEffect Krate -trirandK k0range = opcode "trirand" args - where args = [to k0range] - - --- | * opcode : unirand --- --- --- * syntax : --- --- > ares unirand krange --- > ires unirand krange --- > kres unirand krange --- --- --- * description : --- --- Uniform distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -unirandA' :: (K k0) => k0 -> Arate -unirandA' k0range = opcode "unirand" args - where args = [to k0range] - - --- | * opcode : unirand --- --- --- * syntax : --- --- > ares unirand krange --- > ires unirand krange --- > kres unirand krange --- --- --- * description : --- --- Uniform distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -unirandA :: (K k0) => k0 -> SideEffect Arate -unirandA k0range = opcode "unirand" args - where args = [to k0range] - - --- | * opcode : unirand --- --- --- * syntax : --- --- > ares unirand krange --- > ires unirand krange --- > kres unirand krange --- --- --- * description : --- --- Uniform distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -unirandI' :: (K k0) => k0 -> Irate -unirandI' k0range = opcode "unirand" args - where args = [to k0range] - - --- | * opcode : unirand --- --- --- * syntax : --- --- > ares unirand krange --- > ires unirand krange --- > kres unirand krange --- --- --- * description : --- --- Uniform distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -unirandI :: (K k0) => k0 -> SideEffect Irate -unirandI k0range = opcode "unirand" args - where args = [to k0range] - - --- | * opcode : unirand --- --- --- * syntax : --- --- > ares unirand krange --- > ires unirand krange --- > kres unirand krange --- --- --- * description : --- --- Uniform distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -unirandK' :: (K k0) => k0 -> Krate -unirandK' k0range = opcode "unirand" args - where args = [to k0range] - - --- | * opcode : unirand --- --- --- * syntax : --- --- > ares unirand krange --- > ires unirand krange --- > kres unirand krange --- --- --- * description : --- --- Uniform distribution random number generator (positive values --- only). This is an x-class noise generator. --- --- --- * url : - -unirandK :: (K k0) => k0 -> SideEffect Krate -unirandK k0range = opcode "unirand" args - where args = [to k0range] - - --- | * opcode : urd --- --- --- * syntax : --- --- > aout = urd(ktableNum) --- > iout = urd(itableNum) --- > kout = urd(ktableNum) --- --- --- * description : --- --- A discrete user-defined-distribution random generator that can --- be used as a function. --- --- --- * url : - -urdA' :: (X x0) => x0 -> x0 -urdA' x0sig = prefixOperation "urd" args - where args = [to x0sig] - - --- | * opcode : urd --- --- --- * syntax : --- --- > aout = urd(ktableNum) --- > iout = urd(itableNum) --- > kout = urd(ktableNum) --- --- --- * description : --- --- A discrete user-defined-distribution random generator that can --- be used as a function. --- --- --- * url : - -urdA :: (X x0) => x0 -> x0 -urdA x0sig = prefixOperation "urd" args - where args = [to x0sig] - - --- | * opcode : urd --- --- --- * syntax : --- --- > aout = urd(ktableNum) --- > iout = urd(itableNum) --- > kout = urd(ktableNum) --- --- --- * description : --- --- A discrete user-defined-distribution random generator that can --- be used as a function. --- --- --- * url : - -urdI' :: (X x0) => x0 -> x0 -urdI' x0sig = prefixOperation "urd" args - where args = [to x0sig] - - --- | * opcode : urd --- --- --- * syntax : --- --- > aout = urd(ktableNum) --- > iout = urd(itableNum) --- > kout = urd(ktableNum) --- --- --- * description : --- --- A discrete user-defined-distribution random generator that can --- be used as a function. --- --- --- * url : - -urdI :: (X x0) => x0 -> x0 -urdI x0sig = prefixOperation "urd" args - where args = [to x0sig] - - --- | * opcode : urd --- --- --- * syntax : --- --- > aout = urd(ktableNum) --- > iout = urd(itableNum) --- > kout = urd(ktableNum) --- --- --- * description : --- --- A discrete user-defined-distribution random generator that can --- be used as a function. --- --- --- * url : - -urdK' :: (X x0) => x0 -> x0 -urdK' x0sig = prefixOperation "urd" args - where args = [to x0sig] - - --- | * opcode : urd --- --- --- * syntax : --- --- > aout = urd(ktableNum) --- > iout = urd(itableNum) --- > kout = urd(ktableNum) --- --- --- * description : --- --- A discrete user-defined-distribution random generator that can --- be used as a function. --- --- --- * url : - -urdK :: (X x0) => x0 -> x0 -urdK x0sig = prefixOperation "urd" args - where args = [to x0sig] - - --- | * opcode : weibull --- --- --- * syntax : --- --- > ares weibull ksigma, ktau --- > ires weibull ksigma, ktau --- > kres weibull ksigma, ktau --- --- --- * description : --- --- Weibull distribution random number generator (positive values --- only). This is an x-class noise generator --- --- --- * url : - -weibullA' :: (K k0, K k1) => k0 -> k1 -> Arate -weibullA' k0sigma k1tau = opcode "weibull" args - where args = [to k0sigma, to k1tau] - - --- | * opcode : weibull --- --- --- * syntax : --- --- > ares weibull ksigma, ktau --- > ires weibull ksigma, ktau --- > kres weibull ksigma, ktau --- --- --- * description : --- --- Weibull distribution random number generator (positive values --- only). This is an x-class noise generator --- --- --- * url : - -weibullA :: (K k0, K k1) => k0 -> k1 -> SideEffect Arate -weibullA k0sigma k1tau = opcode "weibull" args - where args = [to k0sigma, to k1tau] - - --- | * opcode : weibull --- --- --- * syntax : --- --- > ares weibull ksigma, ktau --- > ires weibull ksigma, ktau --- > kres weibull ksigma, ktau --- --- --- * description : --- --- Weibull distribution random number generator (positive values --- only). This is an x-class noise generator --- --- --- * url : - -weibullI' :: (K k0, K k1) => k0 -> k1 -> Irate -weibullI' k0sigma k1tau = opcode "weibull" args - where args = [to k0sigma, to k1tau] - - --- | * opcode : weibull --- --- --- * syntax : --- --- > ares weibull ksigma, ktau --- > ires weibull ksigma, ktau --- > kres weibull ksigma, ktau --- --- --- * description : --- --- Weibull distribution random number generator (positive values --- only). This is an x-class noise generator --- --- --- * url : - -weibullI :: (K k0, K k1) => k0 -> k1 -> SideEffect Irate -weibullI k0sigma k1tau = opcode "weibull" args - where args = [to k0sigma, to k1tau] - - --- | * opcode : weibull --- --- --- * syntax : --- --- > ares weibull ksigma, ktau --- > ires weibull ksigma, ktau --- > kres weibull ksigma, ktau --- --- --- * description : --- --- Weibull distribution random number generator (positive values --- only). This is an x-class noise generator --- --- --- * url : - -weibullK' :: (K k0, K k1) => k0 -> k1 -> Krate -weibullK' k0sigma k1tau = opcode "weibull" args - where args = [to k0sigma, to k1tau] - - --- | * opcode : weibull --- --- --- * syntax : --- --- > ares weibull ksigma, ktau --- > ires weibull ksigma, ktau --- > kres weibull ksigma, ktau --- --- --- * description : --- --- Weibull distribution random number generator (positive values --- only). This is an x-class noise generator --- --- --- * url : - -weibullK :: (K k0, K k1) => k0 -> k1 -> SideEffect Krate -weibullK k0sigma k1tau = opcode "weibull" args - where args = [to k0sigma, to k1tau] - - --- | * opcode : jitter --- --- --- * syntax : --- --- > kout jitter kamp, kcpsMin, kcpsMax --- --- --- * description : --- --- Generates a segmented line whose segments are randomly --- generated. --- --- --- * url : - -jitter' :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -jitter' k0amp k1cpsMin k2cpsMax = opcode "jitter" args - where args = [to k0amp, to k1cpsMin, to k2cpsMax] - - --- | * opcode : jitter --- --- --- * syntax : --- --- > kout jitter kamp, kcpsMin, kcpsMax --- --- --- * description : --- --- Generates a segmented line whose segments are randomly --- generated. --- --- --- * url : - -jitter :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SideEffect Krate -jitter k0amp k1cpsMin k2cpsMax = opcode "jitter" args - where args = [to k0amp, to k1cpsMin, to k2cpsMax] - - --- | * opcode : jitter2 --- --- --- * syntax : --- --- > kout jitter2 ktotamp, kamp1, kcps1, kamp2, kcps2, kamp3, kcps3 --- --- --- * description : --- --- Generates a segmented line with user-controllable random --- segments. --- --- --- * url : - -jitter2' :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6) => - k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> Krate -jitter2' k0totamp k1amp1 k2cps1 k3amp2 k4cps2 k5amp3 k6cps3 - = opcode "jitter2" args - where args - = [to k0totamp, to k1amp1, to k2cps1, to k3amp2, to k4cps2, - to k5amp3, to k6cps3] - - --- | * opcode : jitter2 --- --- --- * syntax : --- --- > kout jitter2 ktotamp, kamp1, kcps1, kamp2, kcps2, kamp3, kcps3 --- --- --- * description : --- --- Generates a segmented line with user-controllable random --- segments. --- --- --- * url : - -jitter2 :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6) => - k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> SideEffect Krate -jitter2 k0totamp k1amp1 k2cps1 k3amp2 k4cps2 k5amp3 k6cps3 - = opcode "jitter2" args - where args - = [to k0totamp, to k1amp1, to k2cps1, to k3amp2, to k4cps2, - to k5amp3, to k6cps3] - - --- | * opcode : trandom --- --- --- * syntax : --- --- > kout trandom ktrig, kmin, kmax --- --- --- * description : --- --- Generates a controlled pseudo-random number series between min --- and max values at k-rate whenever the trigger parameter is --- different to 0. --- --- --- * url : - -trandom' :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -trandom' k0trig k1min k2max = opcode "trandom" args - where args = [to k0trig, to k1min, to k2max] - - --- | * opcode : trandom --- --- --- * syntax : --- --- > kout trandom ktrig, kmin, kmax --- --- --- * description : --- --- Generates a controlled pseudo-random number series between min --- and max values at k-rate whenever the trigger parameter is --- different to 0. --- --- --- * url : - -trandom :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> SideEffect Krate -trandom k0trig k1min k2max = opcode "trandom" args - where args = [to k0trig, to k1min, to k2max] diff --git a/src/CsoundExpr/Opcodes/Siggen/Phasors.hs b/src/CsoundExpr/Opcodes/Siggen/Phasors.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Phasors.hs +++ /dev/null @@ -1,125 +0,0 @@ --- | Phasors -module CsoundExpr.Opcodes.Siggen.Phasors - (phasorA, - phasorK, - phasorbnkA, - phasorbnkK, - syncphasor) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : phasor --- --- --- * syntax : --- --- > ares phasor xcps [, iphs] --- > kres phasor kcps [, iphs] --- --- --- * description : --- --- Produce a normalized moving phase value. --- --- --- * url : - -phasorA :: (X x0) => [Irate] -> x0 -> Arate -phasorA i0init x1cps = opcode "phasor" args - where args = [to x1cps] ++ map to i0init - - --- | * opcode : phasor --- --- --- * syntax : --- --- > ares phasor xcps [, iphs] --- > kres phasor kcps [, iphs] --- --- --- * description : --- --- Produce a normalized moving phase value. --- --- --- * url : - -phasorK :: (K k0) => [Irate] -> k0 -> Krate -phasorK i0init k1cps = opcode "phasor" args - where args = [to k1cps] ++ map to i0init - - --- | * opcode : phasorbnk --- --- --- * syntax : --- --- > ares phasorbnk xcps, kndx, icnt [, iphs] --- > kres phasorbnk kcps, kndx, icnt [, iphs] --- --- --- * description : --- --- Produce an arbitrary number of normalized moving phase values, --- accessable by an index. --- --- --- * url : - -phasorbnkA :: (X x0, K k0) => [Irate] -> x0 -> k0 -> Irate -> Arate -phasorbnkA i0init x1cps k2ndx i3cnt = opcode "phasorbnk" args - where args = [to x1cps, to k2ndx, to i3cnt] ++ map to i0init - - --- | * opcode : phasorbnk --- --- --- * syntax : --- --- > ares phasorbnk xcps, kndx, icnt [, iphs] --- > kres phasorbnk kcps, kndx, icnt [, iphs] --- --- --- * description : --- --- Produce an arbitrary number of normalized moving phase values, --- accessable by an index. --- --- --- * url : - -phasorbnkK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Krate -phasorbnkK i0init k1cps k2ndx i3cnt = opcode "phasorbnk" args - where args = [to k1cps, to k2ndx, to i3cnt] ++ map to i0init - - --- | * opcode : syncphasor --- --- --- * syntax : --- --- > aphase, asyncout syncphasor xcps, asyncin, [, iphs] --- --- --- * description : --- --- Produces a moving phase value between zero and one and an extra --- impulse output ("sync out") whenever its phase value crosses or --- is reset to zero. The phase can be reset at any time by an --- impulse on the "sync in" parameter. --- --- --- * url : - -syncphasor :: (X x0) => [Irate] -> x0 -> Arate -> MultiOut -syncphasor i0init x1cps a2syncin = opcode "syncphasor" args - where args = [to x1cps, to a2syncin] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Siggen/Sample.hs b/src/CsoundExpr/Opcodes/Siggen/Sample.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Sample.hs +++ /dev/null @@ -1,1076 +0,0 @@ --- | Sample Playback -module CsoundExpr.Opcodes.Siggen.Sample - (bbcutm, - bbcuts, - flooper, - flooper2, - loscil, - loscil3, - loscilx, - lphasor, - lposcil, - lposcil3, - lposcila, - lposcilsa, - lposcilsa2, - sndloop, - waveset, - fluidAllOut, - fluidCCi, - fluidCCk, - fluidControl, - fluidEngine, - fluidLoad, - fluidNote, - fluidOut, - fluidProgramSelect, - fluidSetInterpMethod, - sfilist, - sfinstr, - sfinstr3, - sfinstr3m, - sfinstrm, - sfload, - sfpassign, - sfplay, - sfplay3, - sfplay3m, - sfplaym, - sflooper, - sfplist, - sfpreset) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : bbcutm --- --- --- * syntax : --- --- > a1 bbcutm asource, ibps, isubdiv, ibarlength, iphrasebars, inumrepeats --- > [, istutterspeed] [, istutterchance] [, ienvchoice ] --- --- --- * description : --- --- The BreakBeat Cutter automatically generates cut-ups of a source --- audio stream in the style of drum and bass/jungle breakbeat --- manipulations. There are two versions, for mono (bbcutm) or --- stereo (bbcuts) sources. Whilst originally based on breakbeat --- cutting, the opcode can be applied to any type of source audio. --- --- --- * url : - -bbcutm :: - [Irate] -> - Arate -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -bbcutm i0init a1source i2bps i3subdiv i4barlength i5phrasebars - i6numrepeats = opcode "bbcutm" args - where args - = [to a1source, to i2bps, to i3subdiv, to i4barlength, - to i5phrasebars, to i6numrepeats] - ++ map to i0init - - --- | * opcode : bbcuts --- --- --- * syntax : --- --- > a1,a2 bbcuts asource1, asource2, ibps, isubdiv, ibarlength, iphrasebars, --- > inumrepeats [, istutterspeed] [, istutterchance] [, ienvchoice] --- --- --- * description : --- --- The BreakBeat Cutter automatically generates cut-ups of a source --- audio stream in the style of drum and bass/jungle breakbeat --- manipulations. There are two versions, for mono (bbcutm) or --- stereo (bbcuts) sources. Whilst originally based on breakbeat --- cutting, the opcode can be applied to any type of source audio. --- --- --- * url : - -bbcuts :: - [Irate] -> - Arate -> - Arate -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -bbcuts i0init a1source1 a2source2 i3bps i4subdiv i5barlength - i6phrasebars i7numrepeats = opcode "bbcuts" args - where args - = [to a1source1, to a2source2, to i3bps, to i4subdiv, - to i5barlength, to i6phrasebars, to i7numrepeats] - ++ map to i0init - - --- | * opcode : flooper --- --- --- * syntax : --- --- > asig flooper kamp, kpitch, istart, idur, ifad, ifn --- --- --- * description : --- --- This opcode reads audio from a function table and plays it back --- in a loop with user-defined start time, duration and crossfade --- time. It also allows the pitch of the loop to be controlled, --- including reversed playback. It accepts non-power-of-two tables, --- such as deferred-allocation GEN01 tables. --- --- --- * url : - -flooper :: - (K k0, K k1) => - k0 -> k1 -> Irate -> Irate -> Irate -> Irate -> Arate -flooper k0amp k1pitch i2start i3dur i4fad i5fn - = opcode "flooper" args - where args - = [to k0amp, to k1pitch, to i2start, to i3dur, to i4fad, to i5fn] - - --- | * opcode : flooper2 --- --- --- * syntax : --- --- > asig flooper2 kamp, kpitch, kloopstart, kloopend, kcrossfade, ifn --- > [, istart, imode, ifenv, iskip] --- --- --- * description : --- --- This opcode implements a crossfading looper with variable loop --- parameters and three looping modes, optionally using a table for --- its crossfade shape. It accepts non-power-of-two tables for its --- source sounds, such as deferred-allocation GEN01 tables. --- --- --- * url : - -flooper2 :: - (K k0, K k1, K k2, K k3, K k4) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> k4 -> Irate -> Arate -flooper2 i0init k1amp k2pitch k3loopstart k4loopend k5crossfade - i6fn = opcode "flooper2" args - where args - = [to k1amp, to k2pitch, to k3loopstart, to k4loopend, - to k5crossfade, to i6fn] - ++ map to i0init - - --- | * opcode : loscil --- --- --- * syntax : --- --- > ar1 [,ar2] loscil xamp, kcps, ifn [, ibas] [, imod1] [, ibeg1] [, iend1] --- > [, imod2] [, ibeg2] [, iend2] --- --- --- * description : --- --- Read sampled sound (mono or stereo) from a table, with optional --- sustain and release looping. --- --- --- * url : - -loscil :: (X x0, K k0) => [Irate] -> x0 -> k0 -> Irate -> MultiOut -loscil i0init x1amp k2cps i3fn = opcode "loscil" args - where args = [to x1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : loscil3 --- --- --- * syntax : --- --- > ar1 [,ar2] loscil3 xamp, kcps, ifn [, ibas] [, imod1] [, ibeg1] [, iend1] --- > [, imod2] [, ibeg2] [, iend2] --- --- --- * description : --- --- Read sampled sound (mono or stereo) from a table, with optional --- sustain and release looping, using cubic interpolation. --- --- --- * url : - -loscil3 :: (X x0, K k0) => [Irate] -> x0 -> k0 -> Irate -> MultiOut -loscil3 i0init x1amp k2cps i3fn = opcode "loscil3" args - where args = [to x1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : loscilx --- --- --- * syntax : --- --- > ar1 [, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9, ar10, ar11, ar12, ar13, ar14, --- > ar15, ar16] loscilx xamp, kcps, ifn --- > [, iwsize, ibas, istrt, imod1, ibeg1, iend1] --- --- --- * description : --- --- This file is currently a stub, but the syntax should be correct. --- --- --- * url : - -loscilx :: (X x0, K k0) => [Irate] -> x0 -> k0 -> Irate -> MultiOut -loscilx i0init x1amp k2cps i3fn = opcode "loscilx" args - where args = [to x1amp, to k2cps, to i3fn] ++ map to i0init - - --- | * opcode : lphasor --- --- --- * syntax : --- --- > ares lphasor xtrns [, ilps] [, ilpe] [, imode] [, istrt] [, istor] --- --- --- * description : --- --- This opcode can be used to generate table index for sample --- playback (e.g. tablexkt). --- --- --- * url : - -lphasor :: (X x0) => [Irate] -> x0 -> Arate -lphasor i0init x1trns = opcode "lphasor" args - where args = [to x1trns] ++ map to i0init - - --- | * opcode : lposcil --- --- --- * syntax : --- --- > ares lposcil kamp, kfreqratio, kloop, kend, ifn [, iphs] --- --- --- * description : --- --- Read sampled sound (mono or stereo) from a table, with optional --- sustain and release looping, and high precision. --- --- --- * url : - -lposcil :: - (K k0, K k1, K k2, K k3) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> Irate -> Arate -lposcil i0init k1amp k2freqratio k3loop k4end i5fn - = opcode "lposcil" args - where args - = [to k1amp, to k2freqratio, to k3loop, to k4end, to i5fn] ++ - map to i0init - - --- | * opcode : lposcil3 --- --- --- * syntax : --- --- > ares lposcil3 kamp, kfreqratio, kloop, kend, ifn [, iphs] --- --- --- * description : --- --- Read sampled sound (mono or stereo) from a table, with optional --- sustain and release looping, and high precision. lposcil3 uses --- cubic interpolation. --- --- --- * url : - -lposcil3 :: - (K k0, K k1, K k2, K k3) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> Irate -> Arate -lposcil3 i0init k1amp k2freqratio k3loop k4end i5fn - = opcode "lposcil3" args - where args - = [to k1amp, to k2freqratio, to k3loop, to k4end, to i5fn] ++ - map to i0init - - --- | * opcode : lposcila --- --- --- * syntax : --- --- > ar lposcila aamp, kfreqratio, kloop, kend, ift [,iphs] --- --- --- * description : --- --- lposcila reads sampled sound from a table with optional looping --- and high precision. --- --- --- * url : - -lposcila :: - (K k0, K k1, K k2) => - [Irate] -> Arate -> k0 -> k1 -> k2 -> Irate -> Arate -lposcila i0init a1amp k2freqratio k3loop k4end i5ft - = opcode "lposcila" args - where args - = [to a1amp, to k2freqratio, to k3loop, to k4end, to i5ft] ++ - map to i0init - - --- | * opcode : lposcilsa --- --- --- * syntax : --- --- > ar1, ar2 lposcilsa aamp, kfreqratio, kloop, kend, ift [,iphs] --- --- --- * description : --- --- lposcilsa reads stereo sampled sound from a table with optional --- looping and high precision. --- --- --- * url : - -lposcilsa :: - (K k0, K k1, K k2) => - [Irate] -> Arate -> k0 -> k1 -> k2 -> Irate -> MultiOut -lposcilsa i0init a1amp k2freqratio k3loop k4end i5ft - = opcode "lposcilsa" args - where args - = [to a1amp, to k2freqratio, to k3loop, to k4end, to i5ft] ++ - map to i0init - - --- | * opcode : lposcilsa2 --- --- --- * syntax : --- --- > ar1, ar2 lposcilsa2 aamp, kfreqratio, kloop, kend, ift [,iphs] --- --- --- * description : --- --- lposcilsa2 reads stereo sampled sound from a table with optional --- looping and high precision. --- --- --- * url : - -lposcilsa2 :: - (K k0, K k1, K k2) => - [Irate] -> Arate -> k0 -> k1 -> k2 -> Irate -> MultiOut -lposcilsa2 i0init a1amp k2freqratio k3loop k4end i5ft - = opcode "lposcilsa2" args - where args - = [to a1amp, to k2freqratio, to k3loop, to k4end, to i5ft] ++ - map to i0init - - --- | * opcode : sndloop --- --- --- * syntax : --- --- > asig, krec sndloop ain, kpitch, ktrig, idur, ifad --- --- --- * description : --- --- This opcode records input audio and plays it back in a loop with --- user-defined duration and crossfade time. It also allows the --- pitch of the loop to be controlled, including reversed playback. --- --- --- * url : - -sndloop :: - (K k0, K k1) => - Arate -> k0 -> k1 -> Irate -> Irate -> (Arate, Krate) -sndloop a0in k1pitch k2trig i3dur i4fad - = mo2 $ opcode "sndloop" args - where args = [to a0in, to k1pitch, to k2trig, to i3dur, to i4fad] - - --- | * opcode : waveset --- --- --- * syntax : --- --- > ares waveset ain, krep [, ilen] --- --- --- * description : --- --- A simple time stretch by repeating cycles. --- --- --- * url : - -waveset :: (K k0) => [Irate] -> Arate -> k0 -> Arate -waveset i0init a1in k2rep = opcode "waveset" args - where args = [to a1in, to k2rep] ++ map to i0init - - --- | * opcode : fluidAllOut --- --- --- * syntax : --- --- > aleft, aright fluidAllOut --- --- --- * description : --- --- Collects all audio from all Fluidsynth engines in a performance --- --- --- * url : - -fluidAllOut :: MultiOut -fluidAllOut = opcode "fluidAllOut" args - where args = [] - - --- | * opcode : fluidCCi --- --- --- * syntax : --- --- > fluidCCi iEngineNumber, iChannelNumber, iControllerNumber, iValue --- --- --- * description : --- --- Sends a MIDI controller data (MIDI controller number and value --- to use) message to a fluid engine by number on the user specified --- MIDI channel number. --- --- --- * url : - -fluidCCi :: Irate -> Irate -> Irate -> Irate -> SignalOut -fluidCCi i0EngineNumber i1ChannelNumber i2ControllerNumber i3Value - = outOpcode "fluidCCi" args - where args - = [to i0EngineNumber, to i1ChannelNumber, to i2ControllerNumber, - to i3Value] - - --- | * opcode : fluidCCk --- --- --- * syntax : --- --- > fluidCCk iEngineNumber, iChannelNumber, iControllerNumber, kValue --- --- --- * description : --- --- Sends a MIDI controller data (MIDI controller number and value --- to use) message to a fluid engine by number on the user specified --- MIDI channel number. --- --- --- * url : - -fluidCCk :: (K k0) => Irate -> Irate -> Irate -> k0 -> SignalOut -fluidCCk i0EngineNumber i1ChannelNumber i2ControllerNumber k3Value - = outOpcode "fluidCCk" args - where args - = [to i0EngineNumber, to i1ChannelNumber, to i2ControllerNumber, - to k3Value] - - --- | * opcode : fluidControl --- --- --- * syntax : --- --- > fluidControl ienginenum, kstatus, kchannel, kdata1, kdata2 --- --- --- * description : --- --- The fluid opcodes provide a simple Csound opcode wrapper around --- Peter Hanappe's Fluidsynth SoundFont2 synthesizer. This --- implementation accepts any MIDI note on, note off, controller, --- pitch bend, or program change message at k-rate. Maximum --- polyphony is 4096 simultaneously sounding voices. Any number of --- SoundFonts may be loaded and played simultaneously. --- --- --- * url : - -fluidControl :: - (K k0, K k1, K k2, K k3) => - Irate -> k0 -> k1 -> k2 -> k3 -> SignalOut -fluidControl i0enginenum k1status k2channel k3data1 k4data2 - = outOpcode "fluidControl" args - where args - = [to i0enginenum, to k1status, to k2channel, to k3data1, - to k4data2] - - --- | * opcode : fluidEngine --- --- --- * syntax : --- --- > ienginenum fluidEngine [iReverbEnabled] [, iChorusEnabled] [,iNumChannels] [, iPolyphony] --- --- --- * description : --- --- Instantiates a fluidsynth engine, and returns ienginenum to --- identify the engine. ienginenum is passed to other other opcodes --- for loading and playing SoundFonts and gathering the generated --- sound. --- --- --- * url : - -fluidEngine :: [Irate] -> Irate -fluidEngine i0init = opcode "fluidEngine" args - where args = map to i0init - - --- | * opcode : fluidLoad --- --- --- * syntax : --- --- > isfnum fluidLoad soundfont, ienginenum[, ilistpresets] --- --- --- * description : --- --- Loads a SoundFont into an instance of a fluidEngine, optionally --- listing banks and presets for SoundFont. --- --- --- * url : - -fluidLoad :: [Irate] -> String -> Irate -> Irate -fluidLoad i0init s1soundfont i2enginenum = opcode "fluidLoad" args - where args = [to s1soundfont, to i2enginenum] ++ map to i0init - - --- | * opcode : fluidNote --- --- --- * syntax : --- --- > fluidNote ienginenum, ichannelnum, imidikey, imidivel --- --- --- * description : --- --- Plays a note at imidikey pitch and imidivel velocity on --- ichannelnum channel of number ienginenum fluidEngine. --- --- --- * url : - -fluidNote :: Irate -> Irate -> Irate -> Irate -> SignalOut -fluidNote i0enginenum i1channelnum i2midikey i3midivel - = outOpcode "fluidNote" args - where args - = [to i0enginenum, to i1channelnum, to i2midikey, to i3midivel] - - --- | * opcode : fluidOut --- --- --- * syntax : --- --- > aleft, aright fluidOut ienginenum --- --- --- * description : --- --- Outputs the sound from a fluidEngine. --- --- --- * url : - -fluidOut :: Irate -> MultiOut -fluidOut i0enginenum = opcode "fluidOut" args - where args = [to i0enginenum] - - --- | * opcode : fluidProgramSelect --- --- --- * syntax : --- --- > fluidProgramSelect ienginenum, ichannelnum, isfnum, ibanknum, ipresetnum --- --- --- * description : --- --- Assigns a preset from a SoundFont to a channel on a fluidEngine. --- --- --- * url : - -fluidProgramSelect :: - Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -fluidProgramSelect i0enginenum i1channelnum i2sfnum i3banknum - i4presetnum = outOpcode "fluidProgramSelect" args - where args - = [to i0enginenum, to i1channelnum, to i2sfnum, to i3banknum, - to i4presetnum] - - --- | * opcode : fluidSetInterpMethod --- --- --- * syntax : --- --- > fluidSetInterpMethod ienginenum, ichannelnum, iInterpMethod --- --- --- * description : --- --- Set interpolation method for channel in Fluid Engine. Lower --- order interpolation methods will render faster at lower fidelity --- while higher order interpolation methods will render slower at --- higher fidelity. Default interpolation for a channel is 4th order --- interpolation. --- --- --- * url : - -fluidSetInterpMethod :: Irate -> Irate -> Irate -> SignalOut -fluidSetInterpMethod i0enginenum i1channelnum i2InterpMethod - = outOpcode "fluidSetInterpMethod" args - where args = [to i0enginenum, to i1channelnum, to i2InterpMethod] - - --- | * opcode : sfilist --- --- --- * syntax : --- --- > sfilist ifilhandle --- --- --- * description : --- --- Prints a list of all instruments of a previously loaded --- SoundFont2 (SF2) sample file. These opcodes allow management the --- sample-structure of SF2 files. In order to understand the usage --- of these opcodes, the user must have some knowledge of the SF2 --- format, so a brief description of this format can be found in the --- SoundFont2 File Format Appendix. --- --- --- * url : - -sfilist :: Irate -> SignalOut -sfilist i0filhandle = outOpcode "sfilist" args - where args = [to i0filhandle] - - --- | * opcode : sfinstr --- --- --- * syntax : --- --- > ar1, ar2 sfinstr ivel, inotenum, xamp, xfreq, instrnum, ifilhandle --- > [, iflag] [, ioffset] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample instrument, generating a stereo --- sound. These opcodes allow management the sample-structure of SF2 --- files. In order to understand the usage of these opcodes, the --- user must have some knowledge of the SF2 format, so a brief --- description of this format can be found in the SoundFont2 File --- Format Appendix. --- --- --- * url : - -sfinstr :: - (X x0, X x1) => - [Irate] -> Irate -> Irate -> x0 -> x1 -> Irate -> Irate -> MultiOut -sfinstr i0init i1vel i2notenum x3amp x4freq i5nstrnum i6filhandle - = opcode "sfinstr" args - where args - = [to i1vel, to i2notenum, to x3amp, to x4freq, to i5nstrnum, - to i6filhandle] - ++ map to i0init - - --- | * opcode : sfinstr3 --- --- --- * syntax : --- --- > ar1, ar2 sfinstr3 ivel, inotenum, xamp, xfreq, instrnum, ifilhandle --- > [, iflag] [, ioffset] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample instrument, generating a stereo --- sound with cubic interpolation. These opcodes allow management --- the sample-structure of SF2 files. In order to understand the --- usage of these opcodes, the user must have some knowledge of the --- SF2 format, so a brief description of this format can be found in --- the SoundFont2 File Format Appendix. --- --- --- * url : - -sfinstr3 :: - (X x0, X x1) => - [Irate] -> Irate -> Irate -> x0 -> x1 -> Irate -> Irate -> MultiOut -sfinstr3 i0init i1vel i2notenum x3amp x4freq i5nstrnum i6filhandle - = opcode "sfinstr3" args - where args - = [to i1vel, to i2notenum, to x3amp, to x4freq, to i5nstrnum, - to i6filhandle] - ++ map to i0init - - --- | * opcode : sfinstr3m --- --- --- * syntax : --- --- > ares sfinstr3m ivel, inotenum, xamp, xfreq, instrnum, ifilhandle --- > [, iflag] [, ioffset] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample instrument, generating a mono --- sound with cubic interpolation. These opcodes allow management --- the sample-structure of SF2 files. In order to understand the --- usage of these opcodes, the user must have some knowledge of the --- SF2 format, so a brief description of this format can be found in --- the SoundFont2 File Format Appendix. --- --- --- * url : - -sfinstr3m :: - (X x0, X x1) => - [Irate] -> Irate -> Irate -> x0 -> x1 -> Irate -> Irate -> Arate -sfinstr3m i0init i1vel i2notenum x3amp x4freq i5nstrnum i6filhandle - = opcode "sfinstr3m" args - where args - = [to i1vel, to i2notenum, to x3amp, to x4freq, to i5nstrnum, - to i6filhandle] - ++ map to i0init - - --- | * opcode : sfinstrm --- --- --- * syntax : --- --- > ares sfinstrm ivel, inotenum, xamp, xfreq, instrnum, ifilhandle --- > [, iflag] [, ioffset] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample instrument, generating a mono --- sound. These opcodes allow management the sample-structure of SF2 --- files. In order to understand the usage of these opcodes, the --- user must have some knowledge of the SF2 format, so a brief --- description of this format can be found in the SoundFont2 File --- Format Appendix. --- --- --- * url : - -sfinstrm :: - (X x0, X x1) => - [Irate] -> Irate -> Irate -> x0 -> x1 -> Irate -> Irate -> Arate -sfinstrm i0init i1vel i2notenum x3amp x4freq i5nstrnum i6filhandle - = opcode "sfinstrm" args - where args - = [to i1vel, to i2notenum, to x3amp, to x4freq, to i5nstrnum, - to i6filhandle] - ++ map to i0init - - --- | * opcode : sfload --- --- --- * syntax : --- --- > ir sfload "filename" --- --- --- * description : --- --- Loads an entire SoundFont2 (SF2) sample file into memory. These --- opcodes allow management the sample-structure of SF2 files. In --- order to understand the usage of these opcodes, the user must --- have some knowledge of the SF2 format, so a brief description of --- this format can be found in the SoundFont2 File Format Appendix. --- --- --- * url : - -sfload :: String -> Irate -sfload s0filename = opcode "sfload" args - where args = [to s0filename] - - --- | * opcode : sfpassign --- --- --- * syntax : --- --- > sfpassign istartindex, ifilhandle[, imsgs] --- --- --- * description : --- --- Assigns all presets of a previously loaded SoundFont2 (SF2) --- sample file to a sequence of progressive index numbers. These --- opcodes allow management the sample-structure of SF2 files. In --- order to understand the usage of these opcodes, the user must --- have some knowledge of the SF2 format, so a brief description of --- this format can be found in the SoundFont2 File Format Appendix. --- --- --- * url : - -sfpassign :: [Irate] -> Irate -> Irate -> SignalOut -sfpassign i0init i1startindex i2filhandle - = outOpcode "sfpassign" args - where args = [to i1startindex, to i2filhandle] ++ map to i0init - - --- | * opcode : sfplay --- --- --- * syntax : --- --- > ar1, ar2 sfplay ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample preset, generating a stereo --- sound. These opcodes allow management the sample-structure of SF2 --- files. In order to understand the usage of these opcodes, the --- user must have some knowledge of the SF2 format, so a brief --- description of this format can be found in the SoundFont2 File --- Format Appendix. --- --- --- * url : - -sfplay :: - (X x0, X x1) => - [Irate] -> Irate -> Irate -> x0 -> x1 -> Irate -> MultiOut -sfplay i0init i1vel i2notenum x3amp x4freq i5preindex - = opcode "sfplay" args - where args - = [to i1vel, to i2notenum, to x3amp, to x4freq, to i5preindex] ++ - map to i0init - - --- | * opcode : sfplay3 --- --- --- * syntax : --- --- > ar1, ar2 sfplay3 ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample preset, generating a stereo --- sound with cubic interpolation. These opcodes allow management --- the sample-structure of SF2 files. In order to understand the --- usage of these opcodes, the user must have some knowledge of the --- SF2 format, so a brief description of this format can be found in --- the SoundFont2 File Format Appendix. --- --- --- * url : - -sfplay3 :: - (X x0, X x1) => - [Irate] -> Irate -> Irate -> x0 -> x1 -> Irate -> MultiOut -sfplay3 i0init i1vel i2notenum x3amp x4freq i5preindex - = opcode "sfplay3" args - where args - = [to i1vel, to i2notenum, to x3amp, to x4freq, to i5preindex] ++ - map to i0init - - --- | * opcode : sfplay3m --- --- --- * syntax : --- --- > ares sfplay3m ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample preset, generating a mono sound --- with cubic interpolation. These opcodes allow management the --- sample-structure of SF2 files. In order to understand the usage --- of these opcodes, the user must have some knowledge of the SF2 --- format, so a brief description of this format can be found in the --- SoundFont2 File Format Appendix. --- --- --- * url : - -sfplay3m :: - (X x0, X x1) => - [Irate] -> Irate -> Irate -> x0 -> x1 -> Irate -> Arate -sfplay3m i0init i1vel i2notenum x3amp x4freq i5preindex - = opcode "sfplay3m" args - where args - = [to i1vel, to i2notenum, to x3amp, to x4freq, to i5preindex] ++ - map to i0init - - --- | * opcode : sfplaym --- --- --- * syntax : --- --- > ares sfplaym ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample preset, generating a mono sound. --- These opcodes allow management the sample-structure of SF2 files. --- In order to understand the usage of these opcodes, the user must --- have some knowledge of the SF2 format, so a brief description of --- this format can be found in the SoundFont2 File Format Appendix. --- --- --- * url : - -sfplaym :: - (X x0, X x1) => - [Irate] -> Irate -> Irate -> x0 -> x1 -> Irate -> Arate -sfplaym i0init i1vel i2notenum x3amp x4freq i5preindex - = opcode "sfplaym" args - where args - = [to i1vel, to i2notenum, to x3amp, to x4freq, to i5preindex] ++ - map to i0init - - --- | * opcode : sflooper --- --- --- * syntax : --- --- > ar1, ar2 sflooper ivel, inotenum, kamp, kpitch, ipreindex, kloopstart, kloopend, kcrossfade, ifn --- > [, istart, imode, ifenv, iskip] --- --- --- * description : --- --- Plays a SoundFont2 (SF2) sample preset, generating a stereo --- sound, similarly to sfplay. Unlike that opcode, though, it --- ignores the looping points set in the SF2 file and substitutes --- them for a user-defined crossfade loop. It is a cross between --- sfplay and flooper2. --- --- --- * url : - -sflooper :: - (K k0, K k1, K k2, K k3, K k4) => - [Irate] -> - Irate -> - Irate -> k0 -> k1 -> Irate -> k2 -> k3 -> k4 -> Irate -> MultiOut -sflooper i0init i1vel i2notenum k3amp k4pitch i5preindex - k6loopstart k7loopend k8crossfade i9fn = opcode "sflooper" args - where args - = [to i1vel, to i2notenum, to k3amp, to k4pitch, to i5preindex, - to k6loopstart, to k7loopend, to k8crossfade, to i9fn] - ++ map to i0init - - --- | * opcode : sfplist --- --- --- * syntax : --- --- > sfplist ifilhandle --- --- --- * description : --- --- Prints a list of all presets of a previously loaded SoundFont2 --- (SF2) sample file. These opcodes allow management the --- sample-structure of SF2 files. In order to understand the usage --- of these opcodes, the user must have some knowledge of the SF2 --- format, so a brief description of this format can be found in the --- SoundFont2 File Format Appendix. --- --- --- * url : - -sfplist :: Irate -> SignalOut -sfplist i0filhandle = outOpcode "sfplist" args - where args = [to i0filhandle] - - --- | * opcode : sfpreset --- --- --- * syntax : --- --- > ir sfpreset iprog, ibank, ifilhandle, ipreindex --- --- --- * description : --- --- Assigns an existing preset of a previously loaded SoundFont2 --- (SF2) sample file to an index number. These opcodes allow --- management the sample-structure of SF2 files. In order to --- understand the usage of these opcodes, the user must have some --- knowledge of the SF2 format, so a brief description of this --- format can be found in the SoundFont2 File Format Appendix. --- --- --- * url : - -sfpreset :: Irate -> Irate -> Irate -> Irate -> Irate -sfpreset i0prog i1bank i2filhandle i3preindex - = opcode "sfpreset" args - where args = [to i0prog, to i1bank, to i2filhandle, to i3preindex] diff --git a/src/CsoundExpr/Opcodes/Siggen/ScanTop.hs b/src/CsoundExpr/Opcodes/Siggen/ScanTop.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/ScanTop.hs +++ /dev/null @@ -1,250 +0,0 @@ --- | Scanned Synthesis -module CsoundExpr.Opcodes.Siggen.ScanTop - (scanhammer, - scans, - scantable, - scanu, - xscanmap, - xscans, - xscansmap, - xscanu) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : scanhammer --- --- --- * syntax : --- --- > scanhammer isrc, idst, ipos, imult --- --- --- * description : --- --- This is is a variant of tablecopy, copying from one table to --- another, starting at ipos, and with a gain control. The number of --- points copied is determined by the length of the source. Other --- points are not changed. This opcode can be used to hit a string --- in the scanned synthesis code. --- --- --- * url : - -scanhammer :: Irate -> Irate -> Irate -> Irate -> SignalOut -scanhammer i0src i1dst i2pos i3mult = outOpcode "scanhammer" args - where args = [to i0src, to i1dst, to i2pos, to i3mult] - - --- | * opcode : scans --- --- --- * syntax : --- --- > ares scans kamp, kfreq, ifn, id [, iorder] --- --- --- * description : --- --- Generate audio output using scanned synthesis. --- --- --- * url : - -scans :: - (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Irate -> Arate -scans i0init k1amp k2freq i3fn i4d = opcode "scans" args - where args - = [to k1amp, to k2freq, to i3fn, to i4d] ++ map to i0init - - --- | * opcode : scantable --- --- --- * syntax : --- --- > aout scantable kamp, kpch, ipos, imass, istiff, idamp, ivel --- --- --- * description : --- --- A simpler scanned synthesis implementation. This is an --- implementation of a circular string scanned using external --- tables. This opcode will allow direct modification and reading of --- values with the table opcodes. --- --- --- * url : - -scantable :: - (K k0, K k1) => - k0 -> k1 -> Irate -> Irate -> Irate -> Irate -> Irate -> Arate -scantable k0amp k1pch i2pos i3mass i4stiff i5damp i6vel - = opcode "scantable" args - where args - = [to k0amp, to k1pch, to i2pos, to i3mass, to i4stiff, to i5damp, - to i6vel] - - --- | * opcode : scanu --- --- --- * syntax : --- --- > scanu init, irate, ifnvel, ifnmass, ifnstif, ifncentr, ifndamp, kmass, --- > kstif, kcentr, kdamp, ileft, iright, kpos, kstrngth, ain, idisp, id --- --- --- * description : --- --- Compute the waveform and the wavetable for use in scanned --- synthesis. --- --- --- * url : - -scanu :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - k0 -> - k1 -> - k2 -> - k3 -> - Irate -> Irate -> k4 -> k5 -> Arate -> Irate -> Irate -> SignalOut -scanu i0nit i1rate i2fnvel i3fnmass i4fnstif i5fncentr i6fndamp - k7mass k8stif k9centr k10damp i11left i12right k13pos k14strngth - a15in i16disp i17d = outOpcode "scanu" args - where args - = [to i0nit, to i1rate, to i2fnvel, to i3fnmass, to i4fnstif, - to i5fncentr, to i6fndamp, to k7mass, to k8stif, to k9centr, - to k10damp, to i11left, to i12right, to k13pos, to k14strngth, - to a15in, to i16disp, to i17d] - - --- | * opcode : xscanmap --- --- --- * syntax : --- --- > kpos, kvel xscanmap iscan, kamp, kvamp [, iwhich] --- --- --- * description : --- --- Allows the position and velocity of a node in a scanned process --- to be read. --- --- --- * url : - -xscanmap :: - (K k0, K k1) => [Irate] -> Irate -> k0 -> k1 -> MultiOut -xscanmap i0init i1scan k2amp k3vamp = opcode "xscanmap" args - where args = [to i1scan, to k2amp, to k3vamp] ++ map to i0init - - --- | * opcode : xscans --- --- --- * syntax : --- --- > ares xscans kamp, kfreq, ifntraj, id [, iorder] --- --- --- * description : --- --- Experimental version of scans. Allows much larger matrices and --- is faster and smaller but removes some (unused?) flexibility. If --- liked, it will replace the older opcode as it is syntax --- compatible but extended. --- --- --- * url : - -xscans :: - (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Irate -> Arate -xscans i0init k1amp k2freq i3fntraj i4d = opcode "xscans" args - where args - = [to k1amp, to k2freq, to i3fntraj, to i4d] ++ map to i0init - - --- | * opcode : xscansmap --- --- --- * syntax : --- --- > xscansmap kpos, kvel, iscan, kamp, kvamp [, iwhich] --- --- --- * description : --- --- Allows the position and velocity of a node in a scanned process --- to be read. --- --- --- * url : - -xscansmap :: - (K k0, K k1, K k2, K k3) => - [Irate] -> k0 -> k1 -> Irate -> k2 -> k3 -> SignalOut -xscansmap i0init k1pos k2vel i3scan k4amp k5vamp - = outOpcode "xscansmap" args - where args - = [to k1pos, to k2vel, to i3scan, to k4amp, to k5vamp] ++ - map to i0init - - --- | * opcode : xscanu --- --- --- * syntax : --- --- > xscanu init, irate, ifnvel, ifnmass, ifnstif, ifncentr, ifndamp, kmass, --- > kstif, kcentr, kdamp, ileft, iright, kpos, kstrngth, ain, idisp, id --- --- --- * description : --- --- Experimental version of scanu. Allows much larger matrices and --- is faster and smaller but removes some (unused?) flexibility. If --- liked, it will replace the older opcode as it is syntax --- compatible but extended. --- --- --- * url : - -xscanu :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - Irate -> - k0 -> - k1 -> - k2 -> - k3 -> - Irate -> Irate -> k4 -> k5 -> Arate -> Irate -> Irate -> SignalOut -xscanu i0nit i1rate i2fnvel i3fnmass i4fnstif i5fncentr i6fndamp - k7mass k8stif k9centr k10damp i11left i12right k13pos k14strngth - a15in i16disp i17d = outOpcode "xscanu" args - where args - = [to i0nit, to i1rate, to i2fnvel, to i3fnmass, to i4fnstif, - to i5fncentr, to i6fndamp, to k7mass, to k8stif, to k9centr, - to k10damp, to i11left, to i12right, to k13pos, to k14strngth, - to a15in, to i16disp, to i17d] diff --git a/src/CsoundExpr/Opcodes/Siggen/Tableacc.hs b/src/CsoundExpr/Opcodes/Siggen/Tableacc.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Tableacc.hs +++ /dev/null @@ -1,447 +0,0 @@ --- | Table Access -module CsoundExpr.Opcodes.Siggen.Tableacc - (oscil1, - oscil1i, - tableA, - tableI, - tableK, - table3A, - table3I, - table3K, - tableiA, - tableiI, - tableiK, - tabA, - tabK, - tab_i, - tabwA, - tabwK, - tabw_i) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : oscil1 --- --- --- * syntax : --- --- > kres oscil1 idel, kamp, idur, ifn --- --- --- * description : --- --- Accesses table values by incremental sampling. --- --- --- * url : - -oscil1 :: (K k0) => Irate -> k0 -> Irate -> Irate -> Krate -oscil1 i0del k1amp i2dur i3fn = opcode "oscil1" args - where args = [to i0del, to k1amp, to i2dur, to i3fn] - - --- | * opcode : oscil1i --- --- --- * syntax : --- --- > kres oscil1i idel, kamp, idur, ifn --- --- --- * description : --- --- Accesses table values by incremental sampling with linear --- interpolation. --- --- --- * url : - -oscil1i :: (K k0) => Irate -> k0 -> Irate -> Irate -> Krate -oscil1i i0del k1amp i2dur i3fn = opcode "oscil1i" args - where args = [to i0del, to k1amp, to i2dur, to i3fn] - - --- | * opcode : table --- --- --- * syntax : --- --- > ares table andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires table indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres table kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing. --- --- --- * url : - -tableA :: [Irate] -> Arate -> Irate -> Arate -tableA i0init a1ndx i2fn = opcode "table" args - where args = [to a1ndx, to i2fn] ++ map to i0init - - --- | * opcode : table --- --- --- * syntax : --- --- > ares table andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires table indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres table kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing. --- --- --- * url : - -tableI :: [Irate] -> Irate -> Irate -> Irate -tableI i0init i1ndx i2fn = opcode "table" args - where args = [to i1ndx, to i2fn] ++ map to i0init - - --- | * opcode : table --- --- --- * syntax : --- --- > ares table andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires table indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres table kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing. --- --- --- * url : - -tableK :: (K k0) => [Irate] -> k0 -> Irate -> Krate -tableK i0init k1ndx i2fn = opcode "table" args - where args = [to k1ndx, to i2fn] ++ map to i0init - - --- | * opcode : table3 --- --- --- * syntax : --- --- > ares table3 andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires table3 indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres table3 kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing with cubic --- interpolation. --- --- --- * url : - -table3A :: [Irate] -> Arate -> Irate -> Arate -table3A i0init a1ndx i2fn = opcode "table3" args - where args = [to a1ndx, to i2fn] ++ map to i0init - - --- | * opcode : table3 --- --- --- * syntax : --- --- > ares table3 andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires table3 indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres table3 kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing with cubic --- interpolation. --- --- --- * url : - -table3I :: [Irate] -> Irate -> Irate -> Irate -table3I i0init i1ndx i2fn = opcode "table3" args - where args = [to i1ndx, to i2fn] ++ map to i0init - - --- | * opcode : table3 --- --- --- * syntax : --- --- > ares table3 andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires table3 indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres table3 kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing with cubic --- interpolation. --- --- --- * url : - -table3K :: (K k0) => [Irate] -> k0 -> Irate -> Krate -table3K i0init k1ndx i2fn = opcode "table3" args - where args = [to k1ndx, to i2fn] ++ map to i0init - - --- | * opcode : tablei --- --- --- * syntax : --- --- > ares tablei andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires tablei indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres tablei kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing with linear --- interpolation. --- --- --- * url : - -tableiA :: [Irate] -> Arate -> Irate -> Arate -tableiA i0init a1ndx i2fn = opcode "tablei" args - where args = [to a1ndx, to i2fn] ++ map to i0init - - --- | * opcode : tablei --- --- --- * syntax : --- --- > ares tablei andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires tablei indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres tablei kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing with linear --- interpolation. --- --- --- * url : - -tableiI :: [Irate] -> Irate -> Irate -> Irate -tableiI i0init i1ndx i2fn = opcode "tablei" args - where args = [to i1ndx, to i2fn] ++ map to i0init - - --- | * opcode : tablei --- --- --- * syntax : --- --- > ares tablei andx, ifn [, ixmode] [, ixoff] [, iwrap] --- > ires tablei indx, ifn [, ixmode] [, ixoff] [, iwrap] --- > kres tablei kndx, ifn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Accesses table values by direct indexing with linear --- interpolation. --- --- --- * url : - -tableiK :: (K k0) => [Irate] -> k0 -> Irate -> Krate -tableiK i0init k1ndx i2fn = opcode "tablei" args - where args = [to k1ndx, to i2fn] ++ map to i0init - - --- | * opcode : tab --- --- --- * syntax : --- --- > ir tab_i indx, ifn[, ixmode] --- > kr tab kndx, ifn[, ixmode] --- > ar tab xndx, ifn[, ixmode] --- > tabw_i isig, indx, ifn [,ixmode] --- > tabw ksig, kndx, ifn [,ixmode] --- > tabw asig, andx, ifn [,ixmode] --- --- --- * description : --- --- Fast table opcodes. Faster than table and tablew because don't --- allow wrap-around and limit and don't check index validity. Have --- been implemented in order to provide fast access to arrays. --- Support non-power of two tables (can be generated by any GEN --- function by giving a negative length value). --- --- --- * url : - -tabA :: (X x0) => [Irate] -> x0 -> Irate -> Arate -tabA i0init x1ndx i2fn = opcode "tab" args - where args = [to x1ndx, to i2fn] ++ map to i0init - - --- | * opcode : tab --- --- --- * syntax : --- --- > ir tab_i indx, ifn[, ixmode] --- > kr tab kndx, ifn[, ixmode] --- > ar tab xndx, ifn[, ixmode] --- > tabw_i isig, indx, ifn [,ixmode] --- > tabw ksig, kndx, ifn [,ixmode] --- > tabw asig, andx, ifn [,ixmode] --- --- --- * description : --- --- Fast table opcodes. Faster than table and tablew because don't --- allow wrap-around and limit and don't check index validity. Have --- been implemented in order to provide fast access to arrays. --- Support non-power of two tables (can be generated by any GEN --- function by giving a negative length value). --- --- --- * url : - -tabK :: (K k0) => [Irate] -> k0 -> Irate -> Krate -tabK i0init k1ndx i2fn = opcode "tab" args - where args = [to k1ndx, to i2fn] ++ map to i0init - - --- | * opcode : tab_i --- --- --- * syntax : --- --- > ir tab_i indx, ifn[, ixmode] --- > kr tab kndx, ifn[, ixmode] --- > ar tab xndx, ifn[, ixmode] --- > tabw_i isig, indx, ifn [,ixmode] --- > tabw ksig, kndx, ifn [,ixmode] --- > tabw asig, andx, ifn [,ixmode] --- --- --- * description : --- --- Fast table opcodes. Faster than table and tablew because don't --- allow wrap-around and limit and don't check index validity. Have --- been implemented in order to provide fast access to arrays. --- Support non-power of two tables (can be generated by any GEN --- function by giving a negative length value). --- --- --- * url : - -tab_i :: [Irate] -> Irate -> Irate -> Irate -tab_i i0init i1ndx i2fn = opcode "tab_i" args - where args = [to i1ndx, to i2fn] ++ map to i0init - - --- | * opcode : tabw --- --- --- * syntax : --- --- > ir tab_i indx, ifn[, ixmode] --- > kr tab kndx, ifn[, ixmode] --- > ar tab xndx, ifn[, ixmode] --- > tabw_i isig, indx, ifn [,ixmode] --- > tabw ksig, kndx, ifn [,ixmode] --- > tabw asig, andx, ifn [,ixmode] --- --- --- * description : --- --- Fast table opcodes. Faster than table and tablew because don't --- allow wrap-around and limit and don't check index validity. Have --- been implemented in order to provide fast access to arrays. --- Support non-power of two tables (can be generated by any GEN --- function by giving a negative length value). --- --- --- * url : - -tabwA :: [Irate] -> Arate -> Arate -> Irate -> SignalOut -tabwA i0init a1sig a2ndx i3fn = outOpcode "tabw" args - where args = [to a1sig, to a2ndx, to i3fn] ++ map to i0init - - --- | * opcode : tabw --- --- --- * syntax : --- --- > ir tab_i indx, ifn[, ixmode] --- > kr tab kndx, ifn[, ixmode] --- > ar tab xndx, ifn[, ixmode] --- > tabw_i isig, indx, ifn [,ixmode] --- > tabw ksig, kndx, ifn [,ixmode] --- > tabw asig, andx, ifn [,ixmode] --- --- --- * description : --- --- Fast table opcodes. Faster than table and tablew because don't --- allow wrap-around and limit and don't check index validity. Have --- been implemented in order to provide fast access to arrays. --- Support non-power of two tables (can be generated by any GEN --- function by giving a negative length value). --- --- --- * url : - -tabwK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> SignalOut -tabwK i0init k1sig k2ndx i3fn = outOpcode "tabw" args - where args = [to k1sig, to k2ndx, to i3fn] ++ map to i0init - - --- | * opcode : tabw_i --- --- --- * syntax : --- --- > ir tab_i indx, ifn[, ixmode] --- > kr tab kndx, ifn[, ixmode] --- > ar tab xndx, ifn[, ixmode] --- > tabw_i isig, indx, ifn [,ixmode] --- > tabw ksig, kndx, ifn [,ixmode] --- > tabw asig, andx, ifn [,ixmode] --- --- --- * description : --- --- Fast table opcodes. Faster than table and tablew because don't --- allow wrap-around and limit and don't check index validity. Have --- been implemented in order to provide fast access to arrays. --- Support non-power of two tables (can be generated by any GEN --- function by giving a negative length value). --- --- --- * url : - -tabw_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -tabw_i i0init i1sig i2ndx i3fn = outOpcode "tabw_i" args - where args = [to i1sig, to i2ndx, to i3fn] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Siggen/Waveterr.hs b/src/CsoundExpr/Opcodes/Siggen/Waveterr.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Waveterr.hs +++ /dev/null @@ -1,38 +0,0 @@ --- | Wave Terrain Synthesis -module CsoundExpr.Opcodes.Siggen.Waveterr - (wterrain) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : wterrain --- --- --- * syntax : --- --- > aout wterrain kamp, kpch, k_xcenter, k_ycenter, k_xradius, k_yradius, --- > itabx, itaby --- --- --- * description : --- --- A simple wave-terrain synthesis opcode. --- --- --- * url : - -wterrain :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Irate -> Irate -> Arate -wterrain k0amp k1pch k2_xcenter k3_ycenter k4_xradius k5_yradius - i6tabx i7taby = opcode "wterrain" args - where args - = [to k0amp, to k1pch, to k2_xcenter, to k3_ycenter, to k4_xradius, - to k5_yradius, to i6tabx, to i7taby] diff --git a/src/CsoundExpr/Opcodes/Siggen/Wavguide.hs b/src/CsoundExpr/Opcodes/Siggen/Wavguide.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Siggen/Wavguide.hs +++ /dev/null @@ -1,315 +0,0 @@ --- | Waveguide Physical Modeling -module CsoundExpr.Opcodes.Siggen.Wavguide - (pluck, - repluck, - wgbow, - wgbowedbar, - wgbrass, - wgclar, - wgflute, - wgpluck, - wgpluck2, - wguide1, - wguide2) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : pluck --- --- --- * syntax : --- --- > ares pluck kamp, kcps, icps, ifn, imeth [, iparm1] [, iparm2] --- --- --- * description : --- --- Audio output is a naturally decaying plucked string or drum --- sound based on the Karplus-Strong algorithms. --- --- --- * url : - -pluck :: - (K k0, K k1) => - [Irate] -> k0 -> k1 -> Irate -> Irate -> Irate -> Arate -pluck i0init k1amp k2cps i3cps i4fn i5meth = opcode "pluck" args - where args - = [to k1amp, to k2cps, to i3cps, to i4fn, to i5meth] ++ - map to i0init - - --- | * opcode : repluck --- --- --- * syntax : --- --- > ares repluck iplk, kamp, icps, kpick, krefl, axcite --- --- --- * description : --- --- repluck is an implementation of the physical model of the --- plucked string. A user can control the pluck point, the pickup --- point, the filter, and an additional audio signal, axcite. axcite --- is used to excite the 'string'. Based on the Karplus-Strong --- algorithm. --- --- --- * url : - -repluck :: - (K k0, K k1, K k2) => - Irate -> k0 -> Irate -> k1 -> k2 -> Arate -> Arate -repluck i0plk k1amp i2cps k3pick k4refl a5xcite - = opcode "repluck" args - where args - = [to i0plk, to k1amp, to i2cps, to k3pick, to k4refl, to a5xcite] - - --- | * opcode : wgbow --- --- --- * syntax : --- --- > ares wgbow kamp, kfreq, kpres, krat, kvibf, kvamp, ifn [, iminfreq] --- --- --- * description : --- --- Audio output is a tone similar to a bowed string, using a --- physical model developed from Perry Cook, but re-coded for --- Csound. --- --- --- * url : - -wgbow :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Irate -> Arate -wgbow i0init k1amp k2freq k3pres k4rat k5vibf k6vamp i7fn - = opcode "wgbow" args - where args - = [to k1amp, to k2freq, to k3pres, to k4rat, to k5vibf, to k6vamp, - to i7fn] - ++ map to i0init - - --- | * opcode : wgbowedbar --- --- --- * syntax : --- --- > ares wgbowedbar kamp, kfreq, kpos, kbowpres, kgain [, iconst] [, itvel] --- > [, ibowpos] [, ilow] --- --- --- * description : --- --- A physical model of a bowed bar, belonging to the Perry Cook --- family of waveguide instruments. --- --- --- * url : - -wgbowedbar :: - (K k0, K k1, K k2, K k3, K k4) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> k4 -> Arate -wgbowedbar i0init k1amp k2freq k3pos k4bowpres k5gain - = opcode "wgbowedbar" args - where args - = [to k1amp, to k2freq, to k3pos, to k4bowpres, to k5gain] ++ - map to i0init - - --- | * opcode : wgbrass --- --- --- * syntax : --- --- > ares wgbrass kamp, kfreq, ktens, iatt, kvibf, kvamp, ifn [, iminfreq] --- --- --- * description : --- --- Audio output is a tone related to a brass instrument, using a --- physical model developed from Perry Cook, but re-coded for --- Csound. --- --- --- * url : - -wgbrass :: - (K k0, K k1, K k2, K k3, K k4) => - [Irate] -> k0 -> k1 -> k2 -> Irate -> k3 -> k4 -> Irate -> Arate -wgbrass i0init k1amp k2freq k3tens i4att k5vibf k6vamp i7fn - = opcode "wgbrass" args - where args - = [to k1amp, to k2freq, to k3tens, to i4att, to k5vibf, to k6vamp, - to i7fn] - ++ map to i0init - - --- | * opcode : wgclar --- --- --- * syntax : --- --- > ares wgclar kamp, kfreq, kstiff, iatt, idetk, kngain, kvibf, kvamp, ifn --- > [, iminfreq] --- --- --- * description : --- --- Audio output is a tone similar to a clarinet, using a physical --- model developed from Perry Cook, but re-coded for Csound. --- --- --- * url : - -wgclar :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - [Irate] -> - k0 -> - k1 -> k2 -> Irate -> Irate -> k3 -> k4 -> k5 -> Irate -> Arate -wgclar i0init k1amp k2freq k3stiff i4att i5detk k6ngain k7vibf - k8vamp i9fn = opcode "wgclar" args - where args - = [to k1amp, to k2freq, to k3stiff, to i4att, to i5detk, - to k6ngain, to k7vibf, to k8vamp, to i9fn] - ++ map to i0init - - --- | * opcode : wgflute --- --- --- * syntax : --- --- > ares wgflute kamp, kfreq, kjet, iatt, idetk, kngain, kvibf, kvamp, ifn --- > [, iminfreq] [, ijetrf] [, iendrf] --- --- --- * description : --- --- Audio output is a tone similar to a flute, using a physical --- model developed from Perry Cook, but re-coded for Csound. --- --- --- * url : - -wgflute :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - [Irate] -> - k0 -> - k1 -> k2 -> Irate -> Irate -> k3 -> k4 -> k5 -> Irate -> Arate -wgflute i0init k1amp k2freq k3jet i4att i5detk k6ngain k7vibf - k8vamp i9fn = opcode "wgflute" args - where args - = [to k1amp, to k2freq, to k3jet, to i4att, to i5detk, to k6ngain, - to k7vibf, to k8vamp, to i9fn] - ++ map to i0init - - --- | * opcode : wgpluck --- --- --- * syntax : --- --- > ares wgpluck icps, iamp, kpick, iplk, idamp, ifilt, axcite --- --- --- * description : --- --- A high fidelity simulation of a plucked string, using --- interpolating delay-lines. --- --- --- * url : - -wgpluck :: - (K k0) => - Irate -> Irate -> k0 -> Irate -> Irate -> Irate -> Arate -> Arate -wgpluck i0cps i1amp k2pick i3plk i4damp i5filt a6xcite - = opcode "wgpluck" args - where args - = [to i0cps, to i1amp, to k2pick, to i3plk, to i4damp, to i5filt, - to a6xcite] - - --- | * opcode : wgpluck2 --- --- --- * syntax : --- --- > ares wgpluck2 iplk, kamp, icps, kpick, krefl --- --- --- * description : --- --- wgpluck2 is an implementation of the physical model of the --- plucked string, with control over the pluck point, the pickup --- point and the filter. Based on the Karplus-Strong algorithm. --- --- --- * url : - -wgpluck2 :: - (K k0, K k1, K k2) => Irate -> k0 -> Irate -> k1 -> k2 -> Arate -wgpluck2 i0plk k1amp i2cps k3pick k4refl = opcode "wgpluck2" args - where args = [to i0plk, to k1amp, to i2cps, to k3pick, to k4refl] - - --- | * opcode : wguide1 --- --- --- * syntax : --- --- > ares wguide1 asig, xfreq, kcutoff, kfeedback --- --- --- * description : --- --- A simple waveguide model consisting of one delay-line and one --- first-order lowpass filter. --- --- --- * url : - -wguide1 :: (X x0, K k0, K k1) => Arate -> x0 -> k0 -> k1 -> Arate -wguide1 a0sig x1freq k2cutoff k3feedback = opcode "wguide1" args - where args = [to a0sig, to x1freq, to k2cutoff, to k3feedback] - - --- | * opcode : wguide2 --- --- --- * syntax : --- --- > ares wguide2 asig, xfreq1, xfreq2, kcutoff1, kcutoff2, --- > kfeedback1, kfeedback2 --- --- --- * description : --- --- A model of beaten plate consisting of two parallel delay-lines --- and two first-order lowpass filters. --- --- --- * url : - -wguide2 :: - (X x0, X x1, K k0, K k1, K k2, K k3) => - Arate -> x0 -> x1 -> k0 -> k1 -> k2 -> k3 -> Arate -wguide2 a0sig x1freq1 x2freq2 k3cutoff1 k4cutoff2 k5feedback1 - k6feedback2 = opcode "wguide2" args - where args - = [to a0sig, to x1freq1, to x2freq2, to k3cutoff1, to k4cutoff2, - to k5feedback1, to k6feedback2] diff --git a/src/CsoundExpr/Opcodes/Sigio.hs b/src/CsoundExpr/Opcodes/Sigio.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigio.hs +++ /dev/null @@ -1,18 +0,0 @@ --- | Signal Input and Output -module CsoundExpr.Opcodes.Sigio - (module CsoundExpr.Opcodes.Sigio.FileIO, - module CsoundExpr.Opcodes.Sigio.Input, - module CsoundExpr.Opcodes.Sigio.Output, - module CsoundExpr.Opcodes.Sigio.SoftwareBus, - module CsoundExpr.Opcodes.Sigio.Pdisplay, - module CsoundExpr.Opcodes.Sigio.Queries) -where - - - -import CsoundExpr.Opcodes.Sigio.FileIO -import CsoundExpr.Opcodes.Sigio.Input -import CsoundExpr.Opcodes.Sigio.Output -import CsoundExpr.Opcodes.Sigio.SoftwareBus -import CsoundExpr.Opcodes.Sigio.Pdisplay -import CsoundExpr.Opcodes.Sigio.Queries diff --git a/src/CsoundExpr/Opcodes/Sigio/FileIO.hs b/src/CsoundExpr/Opcodes/Sigio/FileIO.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigio/FileIO.hs +++ /dev/null @@ -1,506 +0,0 @@ --- | File Input and Output -module CsoundExpr.Opcodes.Sigio.FileIO - (fiopen, - ficloseI, - ficloseS, - dumpk, - dumpk2, - dumpk3, - dumpk4, - fout, - fouti, - foutir, - foutk, - readk, - readk2, - readk3, - readk4, - fin, - fini, - fink, - clear, - vincr, - fprints, - fprintks) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : fiopen --- --- --- * syntax : --- --- > ihandle fiopen ifilename, imode --- --- --- * description : --- --- fiopen can be used to open a file in one of the specified modes. --- --- --- * url : - -fiopen :: Irate -> Irate -> Irate -fiopen i0filename i1mode = opcode "fiopen" args - where args = [to i0filename, to i1mode] - - --- | * opcode : ficlose --- --- --- * syntax : --- --- > ficlose ihandle --- > ficlose Sfilename --- --- --- * description : --- --- ficlose can be used to close a file which was opened with --- fiopen. --- --- --- * url : - -ficloseI :: Irate -> SignalOut -ficloseI i0handle = outOpcode "ficlose" args - where args = [to i0handle] - - --- | * opcode : ficlose --- --- --- * syntax : --- --- > ficlose ihandle --- > ficlose Sfilename --- --- --- * description : --- --- ficlose can be used to close a file which was opened with --- fiopen. --- --- --- * url : - -ficloseS :: String -> SignalOut -ficloseS s0filename = outOpcode "ficlose" args - where args = [to s0filename] - - --- | * opcode : dumpk --- --- --- * syntax : --- --- > dumpk ksig, ifilname, iformat, iprd --- --- --- * description : --- --- Periodically writes an orchestra control-signal value to a named --- external file in a specific format. --- --- --- * url : - -dumpk :: (K k0) => k0 -> Irate -> Irate -> Irate -> SignalOut -dumpk k0sig i1filname i2format i3prd = outOpcode "dumpk" args - where args = [to k0sig, to i1filname, to i2format, to i3prd] - - --- | * opcode : dumpk2 --- --- --- * syntax : --- --- > dumpk2 ksig1, ksig2, ifilname, iformat, iprd --- --- --- * description : --- --- Periodically writes two orchestra control-signal values to a --- named external file in a specific format. --- --- --- * url : - -dumpk2 :: - (K k0, K k1) => k0 -> k1 -> Irate -> Irate -> Irate -> SignalOut -dumpk2 k0sig1 k1sig2 i2filname i3format i4prd - = outOpcode "dumpk2" args - where args - = [to k0sig1, to k1sig2, to i2filname, to i3format, to i4prd] - - --- | * opcode : dumpk3 --- --- --- * syntax : --- --- > dumpk3 ksig1, ksig2, ksig3, ifilname, iformat, iprd --- --- --- * description : --- --- Periodically writes three orchestra control-signal values to a --- named external file in a specific format. --- --- --- * url : - -dumpk3 :: - (K k0, K k1, K k2) => - k0 -> k1 -> k2 -> Irate -> Irate -> Irate -> SignalOut -dumpk3 k0sig1 k1sig2 k2sig3 i3filname i4format i5prd - = outOpcode "dumpk3" args - where args - = [to k0sig1, to k1sig2, to k2sig3, to i3filname, to i4format, - to i5prd] - - --- | * opcode : dumpk4 --- --- --- * syntax : --- --- > dumpk4 ksig1, ksig2, ksig3, ksig4, ifilname, iformat, iprd --- --- --- * description : --- --- Periodically writes four orchestra control-signal values to a --- named external file in a specific format. --- --- --- * url : - -dumpk4 :: - (K k0, K k1, K k2, K k3) => - k0 -> k1 -> k2 -> k3 -> Irate -> Irate -> Irate -> SignalOut -dumpk4 k0sig1 k1sig2 k2sig3 k3sig4 i4filname i5format i6prd - = outOpcode "dumpk4" args - where args - = [to k0sig1, to k1sig2, to k2sig3, to k3sig4, to i4filname, - to i5format, to i6prd] - - --- | * opcode : fout --- --- --- * syntax : --- --- > fout ifilename, iformat, aout1 [, aout2, aout3,...,aoutN] --- --- --- * description : --- --- fout outputs N a-rate signals to a specified file of N channels. --- --- --- * url : - -fout :: String -> Irate -> [Arate] -> SignalOut -fout s0filename i1format a2outN = outOpcode "fout" args - where args = [to s0filename, to i1format] ++ map to a2outN - - --- | * opcode : fouti --- --- --- * syntax : --- --- > fouti ihandle, iformat, iflag, iout1 [, iout2, iout3,....,ioutN] --- --- --- * description : --- --- fouti output N i-rate signals to a specified file of N channels. --- --- --- * url : - -fouti :: Irate -> Irate -> Irate -> [Irate] -> SignalOut -fouti i0handle i1format i2flag i3outN = outOpcode "fouti" args - where args = [to i0handle, to i1format, to i2flag] ++ map to i3outN - - --- | * opcode : foutir --- --- --- * syntax : --- --- > foutir ihandle, iformat, iflag, iout1 [, iout2, iout3,....,ioutN] --- --- --- * description : --- --- foutir output N i-rate signals to a specified file of N --- channels. --- --- --- * url : - -foutir :: Irate -> Irate -> Irate -> [Irate] -> SignalOut -foutir i0handle i1format i2flag i3outN = outOpcode "foutir" args - where args = [to i0handle, to i1format, to i2flag] ++ map to i3outN - - --- | * opcode : foutk --- --- --- * syntax : --- --- > foutk ifilename, iformat, kout1 [, kout2, kout3,....,koutN] --- --- --- * description : --- --- foutk outputs N k-rate signals to a specified file of N --- channels. --- --- --- * url : - -foutk :: (K k0) => String -> Irate -> [k0] -> SignalOut -foutk s0filename i1format k2outN = outOpcode "foutk" args - where args = [to s0filename, to i1format] ++ map to k2outN - - --- | * opcode : readk --- --- --- * syntax : --- --- > kres readk ifilname, iformat, iprd --- --- --- * description : --- --- Periodically reads an orchestra control-signal value from a --- named external file in a specific format. --- --- --- * url : - -readk :: Irate -> Irate -> Irate -> Krate -readk i0filname i1format i2prd = opcode "readk" args - where args = [to i0filname, to i1format, to i2prd] - - --- | * opcode : readk2 --- --- --- * syntax : --- --- > kr1, kr2 readk2 ifilname, iformat, iprd --- --- --- * description : --- --- Periodically reads two orchestra control-signal values from an --- external file. --- --- --- * url : - -readk2 :: Irate -> Irate -> Irate -> MultiOut -readk2 i0filname i1format i2prd = opcode "readk2" args - where args = [to i0filname, to i1format, to i2prd] - - --- | * opcode : readk3 --- --- --- * syntax : --- --- > kr1, kr2, kr3 readk3 ifilname, iformat, iprd --- --- --- * description : --- --- Periodically reads three orchestra control-signal values from an --- external file. --- --- --- * url : - -readk3 :: Irate -> Irate -> Irate -> MultiOut -readk3 i0filname i1format i2prd = opcode "readk3" args - where args = [to i0filname, to i1format, to i2prd] - - --- | * opcode : readk4 --- --- --- * syntax : --- --- > kr1, kr2, kr3, kr4 readk4 ifilname, iformat, iprd --- --- --- * description : --- --- Periodically reads four orchestra control-signal values from an --- external file. --- --- --- * url : - -readk4 :: Irate -> Irate -> Irate -> MultiOut -readk4 i0filname i1format i2prd = opcode "readk4" args - where args = [to i0filname, to i1format, to i2prd] - - --- | * opcode : fin --- --- --- * syntax : --- --- > fin ifilename, iskipframes, iformat, ain1 [, ain2] [, ain3] [,...] --- --- --- * description : --- --- Read signals from a file at a-rate. --- --- --- * url : - -fin :: String -> Irate -> Irate -> [Arate] -> SignalOut -fin s0filename i1skipframes i2format a3outN = outOpcode "fin" args - where args - = [to s0filename, to i1skipframes, to i2format] ++ map to a3outN - - --- | * opcode : fini --- --- --- * syntax : --- --- > fini ifilename, iskipframes, iformat, in1 [, in2] [, in3] [,...] --- --- --- * description : --- --- Read signals from a file at i-rate. --- --- --- * url : - -fini :: String -> Irate -> Irate -> [Irate] -> SignalOut -fini s0filename i1skipframes i2format i3outN - = outOpcode "fini" args - where args - = [to s0filename, to i1skipframes, to i2format] ++ map to i3outN - - --- | * opcode : fink --- --- --- * syntax : --- --- > fink ifilename, iskipframes, iformat, kin1 [, kin2] [, kin3] [,...] --- --- --- * description : --- --- Read signals from a file at k-rate. --- --- --- * url : - -fink :: (K k0) => String -> Irate -> Irate -> [k0] -> SignalOut -fink s0filename i1skipframes i2format k3outN - = outOpcode "fink" args - where args - = [to s0filename, to i1skipframes, to i2format] ++ map to k3outN - - --- | * opcode : clear --- --- --- * syntax : --- --- > clear avar1 [, avar2] [, avar3] [...] --- --- --- * description : --- --- clear zeroes a list of audio signals. --- --- --- * url : - -clear :: [Arate] -> SignalOut -clear a0var = outOpcode "clear" args - where args = map to a0var - - --- | * opcode : vincr --- --- --- * syntax : --- --- > vincr accum, aincr --- --- --- * description : --- --- vincr increments one audio variable with another signal, i.e. it --- accumulates output. --- --- --- * url : - -vincr :: Arate -> Arate -> SignalOut -vincr a0ccum a1incr = outOpcode "vincr" args - where args = [to a0ccum, to a1incr] - - --- | * opcode : fprints --- --- --- * syntax : --- --- > fprints "filename", "string" [, ival1] [, ival2] [...] --- --- --- * description : --- --- Similar to prints but prints to a file. --- --- --- * url : - -fprints :: String -> String -> [Irate] -> SignalOut -fprints s0filename s1string i2valN = outOpcode "fprints" args - where args = [to s0filename, to s1string] ++ map to i2valN - - --- | * opcode : fprintks --- --- --- * syntax : --- --- > fprintks "filename", "string", [, kval1] [, kval2] [...] --- --- --- * description : --- --- Similar to printks but prints to a file. --- --- --- * url : - -fprintks :: (K k0) => String -> String -> [k0] -> SignalOut -fprintks s0filename s1string k2valN = outOpcode "fprintks" args - where args = [to s0filename, to s1string] ++ map to k2valN diff --git a/src/CsoundExpr/Opcodes/Sigio/Input.hs b/src/CsoundExpr/Opcodes/Sigio/Input.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigio/Input.hs +++ /dev/null @@ -1,348 +0,0 @@ --- | Signal Input -module CsoundExpr.Opcodes.Sigio.Input - (in', - in32, - inch, - inh, - ino, - inq, - inrg, - ins, - inx, - diskin, - diskin2, - soundin, - invalueK, - invalueS, - inz) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : in --- --- --- * syntax : --- --- > ar1 in --- --- --- * description : --- --- Reads mono audio data from an external device or stream. --- --- --- * url : - -in' :: Arate -in' = opcode "in" args - where args = [] - - --- | * opcode : in32 --- --- --- * syntax : --- --- > ar1, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9, ar10, ar11, ar12, ar13, ar14, --- > ar15, ar16, ar17, ar18, ar19, ar20, ar21, ar22, ar23, ar24, ar25, ar26, --- > ar27, ar28, ar29, ar30, ar31, ar32 in32 --- --- --- * description : --- --- Reads a 32-channel audio signal from an external device or --- stream. --- --- --- * url : - -in32 :: MultiOut -in32 = opcode "in32" args - where args = [] - - --- | * opcode : inch --- --- --- * syntax : --- --- > ain inch kchan --- --- --- * description : --- --- Reads from a numbered channel in an external audio signal or --- stream. --- --- --- * url : - -inch :: (K k0) => k0 -> Arate -inch k0chan = opcode "inch" args - where args = [to k0chan] - - --- | * opcode : inh --- --- --- * syntax : --- --- > ar1, ar2, ar3, ar4, ar5, ar6 inh --- --- --- * description : --- --- Reads six-channel audio data from an external device or stream. --- --- --- * url : - -inh :: MultiOut -inh = opcode "inh" args - where args = [] - - --- | * opcode : ino --- --- --- * syntax : --- --- > ar1, ar2, ar3, ar4, ar5, ar6, ar7, ar8 ino --- --- --- * description : --- --- Reads eight-channel audio data from an external device or --- stream. --- --- --- * url : - -ino :: MultiOut -ino = opcode "ino" args - where args = [] - - --- | * opcode : inq --- --- --- * syntax : --- --- > ar1, ar2, ar3, a4 inq --- --- --- * description : --- --- Reads quad audio data from an external device or stream. --- --- --- * url : - -inq :: MultiOut -inq = opcode "inq" args - where args = [] - - --- | * opcode : inrg --- --- --- * syntax : --- --- > inrg kstart, ain1 [,ain2, ain3,..., ainN] --- --- --- * description : --- --- inrg reads audio from a range of adjacent audio channels from --- the audio input device. --- --- --- * url : - -inrg :: (K k0) => k0 -> [Arate] -> SignalOut -inrg k0start a1ins = outOpcode "inrg" args - where args = [to k0start] ++ map to a1ins - - --- | * opcode : ins --- --- --- * syntax : --- --- > ar1, ar2 ins --- --- --- * description : --- --- Reads stereo audio data from an external device or stream. --- --- --- * url : - -ins :: MultiOut -ins = opcode "ins" args - where args = [] - - --- | * opcode : inx --- --- --- * syntax : --- --- > ar1, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9, ar10, ar11, ar12, --- > ar13, ar14, ar15, ar16 inx --- --- --- * description : --- --- Reads a 16-channel audio signal from an external device or --- stream. --- --- --- * url : - -inx :: MultiOut -inx = opcode "inx" args - where args = [] - - --- | * opcode : diskin --- --- --- * syntax : --- --- > ar1 [, ar2 [, ar3 [,... ar24]]] diskin ifilcod, kpitch [, iskiptim] --- > [, iwraparound] [, iformat] [, iskipinit] --- --- --- * description : --- --- Deprecated. Reads audio data from an external device or stream --- and can alter its pitch. --- --- --- * url : - -diskin :: (K k0) => [Irate] -> String -> k0 -> MultiOut -diskin i0init s1file k2pitch = opcode "diskin" args - where args = [to s1file, to k2pitch] ++ map to i0init - - --- | * opcode : diskin2 --- --- --- * syntax : --- --- > a1[, a2[,... a24]] diskin2 ifilcod, kpitch[, iskiptim --- > [, iwrap[, iformat [, iwsize[, ibufsize[, iskipinit]]]]]] --- --- --- * description : --- --- Reads audio data from a file, and can alter its pitch using one --- of several available interpolation types, as well as convert the --- sample rate to match the orchestra sr setting. diskin2 can also --- read multichannel files with any number of channels in the range --- 1 to 24. diskin2 allows more control and higher sound quality --- than diskin, but there is also the disadvantage of higher CPU --- usage. --- --- --- * url : - -diskin2 :: (K k0) => [Irate] -> String -> k0 -> MultiOut -diskin2 i0init s1file k2pitch = opcode "diskin2" args - where args = [to s1file, to k2pitch] ++ map to i0init - - --- | * opcode : soundin --- --- --- * syntax : --- --- > ar1[, ar2[, ar3[,... a24]]] soundin ifilcod [, iskptim] [, iformat] --- > [, iskipinit] [, ibufsize] --- --- --- * description : --- --- Reads audio data from an external device or stream. Up to 24 --- channels may be read. --- --- --- * url : - -soundin :: [Irate] -> String -> MultiOut -soundin i0init s1file = opcode "soundin" args - where args = [to s1file] ++ map to i0init - - --- | * opcode : invalue --- --- --- * syntax : --- --- > kvalue invalue "channel name" --- > Sname invalue "channel name" --- --- --- * description : --- --- Reads a k-rate signal or string from a user-defined channel. --- --- --- * url : - -invalueK :: String -> Krate -invalueK s0channelname = opcode "invalue" args - where args = [to s0channelname] - - --- | * opcode : invalue --- --- --- * syntax : --- --- > kvalue invalue "channel name" --- > Sname invalue "channel name" --- --- --- * description : --- --- Reads a k-rate signal or string from a user-defined channel. --- --- --- * url : - -invalueS :: String -> String -invalueS s0channelname = opcode "invalue" args - where args = [to s0channelname] - - --- | * opcode : inz --- --- --- * syntax : --- --- > inz ksig1 --- --- --- * description : --- --- Reads multi-channel audio samples into a ZAK array from an --- external device or stream. --- --- --- * url : - -inz :: (K k0) => k0 -> SignalOut -inz k0sig1 = outOpcode "inz" args - where args = [to k0sig1] diff --git a/src/CsoundExpr/Opcodes/Sigio/Output.hs b/src/CsoundExpr/Opcodes/Sigio/Output.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigio/Output.hs +++ /dev/null @@ -1,535 +0,0 @@ --- | Signal Output -module CsoundExpr.Opcodes.Sigio.Output - (out, - out32, - outc, - outch, - outh, - outo, - outrg, - outq, - outq1, - outq2, - outq3, - outq4, - outs, - outs1, - outs2, - outx, - soundout, - soundouts, - outvalueK, - outvalueS, - outz) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : out --- --- --- * syntax : --- --- > out asig --- --- --- * description : --- --- Writes mono audio data to an external device or stream. --- --- --- * url : - -out :: Arate -> SignalOut -out a0sig = outOpcode "out" args - where args = [to a0sig] - - --- | * opcode : out32 --- --- --- * syntax : --- --- > out32 asig1, asig2, asig3, asig4, asig5, asig6, asig7, asig8, asig10, --- > asig11, asig12, asig13, asig14, asig15, asig16, asig17, asig18, --- > asig19, asig20, asig21, asig22, asig23, asig24, asig25, asig26, --- > asig27, asig28, asig29, asig30, asig31, asig32 --- --- --- * description : --- --- Writes 32-channel audio data to an external device or stream. --- --- --- * url : - -out32 :: - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> Arate -> Arate -> SignalOut -out32 a0sig1 a1sig2 a2sig3 a3sig4 a4sig5 a5sig6 a6sig7 a7sig8 - a8sig10 a9sig11 a10sig12 a11sig13 a12sig14 a13sig15 a14sig16 - a15sig17 a16sig18 a17sig19 a18sig20 a19sig21 a20sig22 a21sig23 - a22sig24 a23sig25 a24sig26 a25sig27 a26sig28 a27sig29 a28sig30 - a29sig31 a30sig32 = outOpcode "out32" args - where args - = [to a0sig1, to a1sig2, to a2sig3, to a3sig4, to a4sig5, - to a5sig6, to a6sig7, to a7sig8, to a8sig10, to a9sig11, - to a10sig12, to a11sig13, to a12sig14, to a13sig15, to a14sig16, - to a15sig17, to a16sig18, to a17sig19, to a18sig20, to a19sig21, - to a20sig22, to a21sig23, to a22sig24, to a23sig25, to a24sig26, - to a25sig27, to a26sig28, to a27sig29, to a28sig30, to a29sig31, - to a30sig32] - - --- | * opcode : outc --- --- --- * syntax : --- --- > outc asig1 [, asig2] [...] --- --- --- * description : --- --- Writes audio data with an arbitrary number of channels to an --- external device or stream. --- --- --- * url : - -outc :: (K k0) => k0 -> [Arate] -> SignalOut -outc k0chan a1sigN = outOpcode "outc" args - where args = [to k0chan] ++ map to a1sigN - - --- | * opcode : outch --- --- --- * syntax : --- --- > outch kchan1, asig1 [, kchan2] [, asig2] [...] --- --- --- * description : --- --- Writes multi-channel audio data, with user-controllable --- channels, to an external device or stream. --- --- --- * url : - -outch :: (K k0) => k0 -> [Arate] -> SignalOut -outch k0chan a1sigN = outOpcode "outch" args - where args = [to k0chan] ++ map to a1sigN - - --- | * opcode : outh --- --- --- * syntax : --- --- > outh asig1, asig2, asig3, asig4, asig5, asig6 --- --- --- * description : --- --- Writes 6-channel audio data to an external device or stream. --- --- --- * url : - -outh :: - Arate -> Arate -> Arate -> Arate -> Arate -> Arate -> SignalOut -outh a0sig1 a1sig2 a2sig3 a3sig4 a4sig5 a5sig6 - = outOpcode "outh" args - where args - = [to a0sig1, to a1sig2, to a2sig3, to a3sig4, to a4sig5, - to a5sig6] - - --- | * opcode : outo --- --- --- * syntax : --- --- > outo asig1, asig2, asig3, asig4, asig5, asig6, asig7, asig8 --- --- --- * description : --- --- Writes 8-channel audio data to an external device or stream. --- --- --- * url : - -outo :: - Arate -> - Arate -> - Arate -> Arate -> Arate -> Arate -> Arate -> Arate -> SignalOut -outo a0sig1 a1sig2 a2sig3 a3sig4 a4sig5 a5sig6 a6sig7 a7sig8 - = outOpcode "outo" args - where args - = [to a0sig1, to a1sig2, to a2sig3, to a3sig4, to a4sig5, - to a5sig6, to a6sig7, to a7sig8] - - --- | * opcode : outrg --- --- --- * syntax : --- --- > outrg kstart, aout1 [,aout2, aout3,..., aoutN] --- --- --- * description : --- --- outrg outputs audio to a range of adjacent audio channels on the --- audio output device. --- --- --- * url : - -outrg :: (K k0) => k0 -> [Arate] -> SignalOut -outrg k0start a1outN = outOpcode "outrg" args - where args = [to k0start] ++ map to a1outN - - --- | * opcode : outq --- --- --- * syntax : --- --- > outq asig1, asig2, asig3, asig4 --- --- --- * description : --- --- Writes 4-channel audio data to an external device or stream. --- --- --- * url : - -outq :: Arate -> Arate -> Arate -> Arate -> SignalOut -outq a0sig1 a1sig2 a2sig3 a3sig4 = outOpcode "outq" args - where args = [to a0sig1, to a1sig2, to a2sig3, to a3sig4] - - --- | * opcode : outq1 --- --- --- * syntax : --- --- > outq1 asig --- --- --- * description : --- --- Writes samples to quad channel 1 of an external device or --- stream. --- --- --- * url : - -outq1 :: Arate -> SignalOut -outq1 a0sig = outOpcode "outq1" args - where args = [to a0sig] - - --- | * opcode : outq2 --- --- --- * syntax : --- --- > outq2 asig --- --- --- * description : --- --- Writes samples to quad channel 2 of an external device or --- stream. --- --- --- * url : - -outq2 :: Arate -> SignalOut -outq2 a0sig = outOpcode "outq2" args - where args = [to a0sig] - - --- | * opcode : outq3 --- --- --- * syntax : --- --- > outq3 asig --- --- --- * description : --- --- Writes samples to quad channel 3 of an external device or --- stream. --- --- --- * url : - -outq3 :: Arate -> SignalOut -outq3 a0sig = outOpcode "outq3" args - where args = [to a0sig] - - --- | * opcode : outq4 --- --- --- * syntax : --- --- > outq4 asig --- --- --- * description : --- --- Writes samples to quad channel 4 of an external device or --- stream. --- --- --- * url : - -outq4 :: Arate -> SignalOut -outq4 a0sig = outOpcode "outq4" args - where args = [to a0sig] - - --- | * opcode : outs --- --- --- * syntax : --- --- > outs asig1, asig2 --- --- --- * description : --- --- Writes stereo audio data to an external device or stream. --- --- --- * url : - -outs :: Arate -> Arate -> SignalOut -outs a0sig1 a1sig2 = outOpcode "outs" args - where args = [to a0sig1, to a1sig2] - - --- | * opcode : outs1 --- --- --- * syntax : --- --- > outs1 asig --- --- --- * description : --- --- Writes samples to stereo channel 1 of an external device or --- stream. --- --- --- * url : - -outs1 :: Arate -> SignalOut -outs1 a0sig = outOpcode "outs1" args - where args = [to a0sig] - - --- | * opcode : outs2 --- --- --- * syntax : --- --- > outs2 asig --- --- --- * description : --- --- Writes samples to stereo channel 2 of an external device or --- stream. --- --- --- * url : - -outs2 :: Arate -> SignalOut -outs2 a0sig = outOpcode "outs2" args - where args = [to a0sig] - - --- | * opcode : outx --- --- --- * syntax : --- --- > outx asig1, asig2, asig3, asig4, asig5, asig6, asig7, asig8, --- > asig9, asig10, asig11, asig12, asig13, asig14, asig15, asig16 --- --- --- * description : --- --- Writes 16-channel audio data to an external device or stream. --- --- --- * url : - -outx :: - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> - Arate -> Arate -> Arate -> Arate -> Arate -> Arate -> SignalOut -outx a0sig1 a1sig2 a2sig3 a3sig4 a4sig5 a5sig6 a6sig7 a7sig8 a8sig9 - a9sig10 a10sig11 a11sig12 a12sig13 a13sig14 a14sig15 a15sig16 - = outOpcode "outx" args - where args - = [to a0sig1, to a1sig2, to a2sig3, to a3sig4, to a4sig5, - to a5sig6, to a6sig7, to a7sig8, to a8sig9, to a9sig10, - to a10sig11, to a11sig12, to a12sig13, to a13sig14, to a14sig15, - to a15sig16] - - --- | * opcode : soundout --- --- --- * syntax : --- --- > soundout asig1, ifilcod [, iformat] --- --- --- * description : --- --- The usage of soundout is discouraged. Please use fout instead. --- --- --- * url : - -soundout :: [Irate] -> Arate -> String -> SignalOut -soundout i0init a1sig1 s2file = outOpcode "soundout" args - where args = [to a1sig1, to s2file] ++ map to i0init - - --- | * opcode : soundouts --- --- --- * syntax : --- --- > soundouts asigl, asigr, ifilcod [, iformat] --- --- --- * description : --- --- The usage of soundouts is discouraged. Please use fout instead. --- --- --- * url : - -soundouts :: [Irate] -> Arate -> Arate -> String -> SignalOut -soundouts i0init a1sigl a2sigr s3file = outOpcode "soundouts" args - where args = [to a1sigl, to a2sigr, to s3file] ++ map to i0init - - --- | * opcode : outvalue --- --- --- * syntax : --- --- > outvalue "channel name", kvalue --- > outvalue "channel name", "string" --- --- --- * description : --- --- Sends a k-rate signal or string to a user-defined channel. --- --- --- * url : - -outvalueK :: (K k0) => String -> k0 -> SignalOut -outvalueK s0channelname k1value = outOpcode "outvalue" args - where args = [to s0channelname, to k1value] - - --- | * opcode : outvalue --- --- --- * syntax : --- --- > outvalue "channel name", kvalue --- > outvalue "channel name", "string" --- --- --- * description : --- --- Sends a k-rate signal or string to a user-defined channel. --- --- --- * url : - -outvalueS :: String -> String -> SignalOut -outvalueS s0channelname s1string = outOpcode "outvalue" args - where args = [to s0channelname, to s1string] - - --- | * opcode : outz --- --- --- * syntax : --- --- > outz ksig1 --- --- --- * description : --- --- Writes multi-channel audio data from a ZAK array to an external --- device or stream. --- --- --- * url : - -outz :: (K k0) => k0 -> SignalOut -outz k0sig1 = outOpcode "outz" args - where args = [to k0sig1] diff --git a/src/CsoundExpr/Opcodes/Sigio/Pdisplay.hs b/src/CsoundExpr/Opcodes/Sigio/Pdisplay.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigio/Pdisplay.hs +++ /dev/null @@ -1,234 +0,0 @@ --- | Printing and Display -module CsoundExpr.Opcodes.Sigio.Pdisplay - (dispfft, - display, - flashtxt, - print', - printf, - printf_i, - printk, - printk2, - printks, - prints) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : dispfft --- --- --- * syntax : --- --- > dispfft xsig, iprd, iwsiz [, iwtyp] [, idbout] [, iwtflg] --- --- --- * description : --- --- These units will print orchestra init-values, or produce graphic --- display of orchestra control signals and audio signals. Uses X11 --- windows if enabled, else (or if -g flag is set) displays are --- approximated in ASCII characters. --- --- --- * url : - -dispfft :: (X x0) => [Irate] -> x0 -> Irate -> Irate -> SignalOut -dispfft i0init x1sig i2prd i3wsiz = outOpcode "dispfft" args - where args = [to x1sig, to i2prd, to i3wsiz] ++ map to i0init - - --- | * opcode : display --- --- --- * syntax : --- --- > display xsig, iprd [, inprds] [, iwtflg] --- --- --- * description : --- --- These units will print orchestra init-values, or produce graphic --- display of orchestra control signals and audio signals. Uses X11 --- windows if enabled, else (or if -g flag is set) displays are --- approximated in ASCII characters. --- --- --- * url : - -display :: (X x0) => [Irate] -> x0 -> Irate -> SignalOut -display i0init x1sig i2prd = outOpcode "display" args - where args = [to x1sig, to i2prd] ++ map to i0init - - --- | * opcode : flashtxt --- --- --- * syntax : --- --- > flashtxt iwhich, String --- --- --- * description : --- --- Allows text to be displayed from instruments like sliders etc. --- (only on Unix and Windows at present) --- --- --- * url : - -flashtxt :: Irate -> String -> SignalOut -flashtxt i0which s1tring = outOpcode "flashtxt" args - where args = [to i0which, to s1tring] - - --- | * opcode : print --- --- --- * syntax : --- --- > print iarg [, iarg1] [, iarg2] [...] --- --- --- * description : --- --- These units will print orchestra init-values. --- --- --- * url : - -print' :: [Irate] -> SignalOut -print' i0argN = outOpcode "print" args - where args = map to i0argN - - --- | * opcode : printf --- --- --- * syntax : --- --- > printf_i Sfmt, itrig, [iarg1[, iarg2[,... ]]] --- > printf Sfmt, ktrig, [xarg1[, xarg2[,... ]]] --- --- --- * description : --- --- printf and printf_i write formatted output, similarly to the C --- function printf(). printf_i runs at i-time only, while printf --- runs both at initialization and performance time. --- --- --- * url : - -printf :: (K k0, X x0) => String -> k0 -> [x0] -> SignalOut -printf s0fmt k1trig x2argN = outOpcode "printf" args - where args = [to s0fmt, to k1trig] ++ map to x2argN - - --- | * opcode : printf_i --- --- --- * syntax : --- --- > printf_i Sfmt, itrig, [iarg1[, iarg2[,... ]]] --- > printf Sfmt, ktrig, [xarg1[, xarg2[,... ]]] --- --- --- * description : --- --- printf and printf_i write formatted output, similarly to the C --- function printf(). printf_i runs at i-time only, while printf --- runs both at initialization and performance time. --- --- --- * url : - -printf_i :: String -> Irate -> [Irate] -> SignalOut -printf_i s0fmt i1trig i2argN = outOpcode "printf_i" args - where args = [to s0fmt, to i1trig] ++ map to i2argN - - --- | * opcode : printk --- --- --- * syntax : --- --- > printk itime, kval [, ispace] --- --- --- * description : --- --- Prints one k-rate value at specified intervals. --- --- --- * url : - -printk :: (K k0) => [Irate] -> Irate -> k0 -> SignalOut -printk i0init i1time k2val = outOpcode "printk" args - where args = [to i1time, to k2val] ++ map to i0init - - --- | * opcode : printk2 --- --- --- * syntax : --- --- > printk2 kvar [, inumspaces] --- --- --- * description : --- --- Prints a new value every time a control variable changes. --- --- --- * url : - -printk2 :: (K k0) => [Irate] -> k0 -> SignalOut -printk2 i0init k1var = outOpcode "printk2" args - where args = [to k1var] ++ map to i0init - - --- | * opcode : printks --- --- --- * syntax : --- --- > printks "string", itime [, kval1] [, kval2] [...] --- --- --- * description : --- --- Prints at k-rate using a printf() style syntax. --- --- --- * url : - -printks :: (K k0) => String -> Irate -> [k0] -> SignalOut -printks s0string i1time k2argN = outOpcode "printks" args - where args = [to s0string, to i1time] ++ map to k2argN - - --- | * opcode : prints --- --- --- * syntax : --- --- > prints "string" [, kval1] [, kval2] [...] --- --- --- * description : --- --- Prints at init-time using a printf() style syntax. --- --- --- * url : - -prints :: (K k0) => String -> [k0] -> SignalOut -prints s0string k1argN = outOpcode "prints" args - where args = [to s0string] ++ map to k1argN diff --git a/src/CsoundExpr/Opcodes/Sigio/Queries.hs b/src/CsoundExpr/Opcodes/Sigio/Queries.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigio/Queries.hs +++ /dev/null @@ -1,95 +0,0 @@ --- | Sound File Queries -module CsoundExpr.Opcodes.Sigio.Queries - (filelen, - filenchnls, - filepeak, - filesr) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : filelen --- --- --- * syntax : --- --- > ir filelen ifilcod, [iallowraw] --- --- --- * description : --- --- Returns the length of a sound file. --- --- --- * url : - -filelen :: [Irate] -> String -> Irate -filelen i0init s1file = opcode "filelen" args - where args = [to s1file] ++ map to i0init - - --- | * opcode : filenchnls --- --- --- * syntax : --- --- > ir filenchnls ifilcod [, iallowraw] --- --- --- * description : --- --- Returns the number of channels in a sound file. --- --- --- * url : - -filenchnls :: [Irate] -> String -> Irate -filenchnls i0init s1file = opcode "filenchnls" args - where args = [to s1file] ++ map to i0init - - --- | * opcode : filepeak --- --- --- * syntax : --- --- > ir filepeak ifilcod [, ichnl] --- --- --- * description : --- --- Returns the peak absolute value of a sound file. --- --- --- * url : - -filepeak :: [Irate] -> String -> Irate -filepeak i0init s1file = opcode "filepeak" args - where args = [to s1file] ++ map to i0init - - --- | * opcode : filesr --- --- --- * syntax : --- --- > ir filesr ifilcod [, iallowraw] --- --- --- * description : --- --- Returns the sample rate of a sound file. --- --- --- * url : - -filesr :: [Irate] -> String -> Irate -filesr i0init s1file = opcode "filesr" args - where args = [to s1file] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Sigio/SoftwareBus.hs b/src/CsoundExpr/Opcodes/Sigio/SoftwareBus.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigio/SoftwareBus.hs +++ /dev/null @@ -1,575 +0,0 @@ --- | Software Bus -module CsoundExpr.Opcodes.Sigio.SoftwareBus - (chn_k, - chn_a, - chn_S, - chngetA, - chngetI, - chngetK, - chngetS, - chnsetA, - chnsetI, - chnsetK, - chnsetS, - chnsendA, - chnsendI, - chnsendK, - chnsendS, - chnrecvA, - chnrecvI, - chnrecvK, - chnrecvS, - chnclear, - chnmix, - chnparams) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : chn_k --- --- --- * syntax : --- --- > chn_k Sname, imode[, itype, idflt, imin, imax] --- > chn_a Sname, imode --- > chn_S Sname, imode --- --- --- * description : --- --- Declare a channel of the named software bus, with setting --- optional parameters in the case of a control channel. If the --- channel does not exist yet, it is created, with an inital value --- of zero or empty string. Otherwise, the type (control, audio, or --- string) of the existing channel must match the declaration, or an --- init error occurs. The input/output mode of an existing channel --- is updated so that it becomes the bitwise OR of the previous and --- the newly specified value. --- --- --- * url : - -chn_k :: [Irate] -> String -> Irate -> SignalOut -chn_k i0init s1name i2mode = outOpcode "chn_k" args - where args = [to s1name, to i2mode] ++ map to i0init - - --- | * opcode : chn_a --- --- --- * syntax : --- --- > chn_k Sname, imode[, itype, idflt, imin, imax] --- > chn_a Sname, imode --- > chn_S Sname, imode --- --- --- * description : --- --- Declare a channel of the named software bus, with setting --- optional parameters in the case of a control channel. If the --- channel does not exist yet, it is created, with an inital value --- of zero or empty string. Otherwise, the type (control, audio, or --- string) of the existing channel must match the declaration, or an --- init error occurs. The input/output mode of an existing channel --- is updated so that it becomes the bitwise OR of the previous and --- the newly specified value. --- --- --- * url : - -chn_a :: String -> Irate -> SignalOut -chn_a s0name i1mode = outOpcode "chn_a" args - where args = [to s0name, to i1mode] - - --- | * opcode : chn_S --- --- --- * syntax : --- --- > chn_k Sname, imode[, itype, idflt, imin, imax] --- > chn_a Sname, imode --- > chn_S Sname, imode --- --- --- * description : --- --- Declare a channel of the named software bus, with setting --- optional parameters in the case of a control channel. If the --- channel does not exist yet, it is created, with an inital value --- of zero or empty string. Otherwise, the type (control, audio, or --- string) of the existing channel must match the declaration, or an --- init error occurs. The input/output mode of an existing channel --- is updated so that it becomes the bitwise OR of the previous and --- the newly specified value. --- --- --- * url : - -chn_S :: String -> Irate -> SignalOut -chn_S s0name i1mode = outOpcode "chn_S" args - where args = [to s0name, to i1mode] - - --- | * opcode : chnget --- --- --- * syntax : --- --- > ival chnget Sname --- > kval chnget Sname --- > aval chnget Sname --- > Sval chnget Sname --- --- --- * description : --- --- Reads data from a channel of the inward named software bus. --- Implies declaring the channel with imode=1 (see also chn_k, --- chn_a, and chn_S). --- --- --- * url : - -chngetA :: String -> Arate -chngetA s0name = opcode "chnget" args - where args = [to s0name] - - --- | * opcode : chnget --- --- --- * syntax : --- --- > ival chnget Sname --- > kval chnget Sname --- > aval chnget Sname --- > Sval chnget Sname --- --- --- * description : --- --- Reads data from a channel of the inward named software bus. --- Implies declaring the channel with imode=1 (see also chn_k, --- chn_a, and chn_S). --- --- --- * url : - -chngetI :: String -> Irate -chngetI s0name = opcode "chnget" args - where args = [to s0name] - - --- | * opcode : chnget --- --- --- * syntax : --- --- > ival chnget Sname --- > kval chnget Sname --- > aval chnget Sname --- > Sval chnget Sname --- --- --- * description : --- --- Reads data from a channel of the inward named software bus. --- Implies declaring the channel with imode=1 (see also chn_k, --- chn_a, and chn_S). --- --- --- * url : - -chngetK :: String -> Krate -chngetK s0name = opcode "chnget" args - where args = [to s0name] - - --- | * opcode : chnget --- --- --- * syntax : --- --- > ival chnget Sname --- > kval chnget Sname --- > aval chnget Sname --- > Sval chnget Sname --- --- --- * description : --- --- Reads data from a channel of the inward named software bus. --- Implies declaring the channel with imode=1 (see also chn_k, --- chn_a, and chn_S). --- --- --- * url : - -chngetS :: String -> String -chngetS s0name = opcode "chnget" args - where args = [to s0name] - - --- | * opcode : chnset --- --- --- * syntax : --- --- > chnset ival, Sname --- > chnset kval, Sname --- > chnset aval, Sname --- > chnset Sval, Sname --- --- --- * description : --- --- Write to a channel of the named software bus. Implies declaring --- the channel with imod=2 (see also chn_k, chn_a, and chn_S). --- --- --- * url : - -chnsetA :: Arate -> String -> SignalOut -chnsetA a0val s1name = outOpcode "chnset" args - where args = [to a0val, to s1name] - - --- | * opcode : chnset --- --- --- * syntax : --- --- > chnset ival, Sname --- > chnset kval, Sname --- > chnset aval, Sname --- > chnset Sval, Sname --- --- --- * description : --- --- Write to a channel of the named software bus. Implies declaring --- the channel with imod=2 (see also chn_k, chn_a, and chn_S). --- --- --- * url : - -chnsetI :: Irate -> String -> SignalOut -chnsetI i0val s1name = outOpcode "chnset" args - where args = [to i0val, to s1name] - - --- | * opcode : chnset --- --- --- * syntax : --- --- > chnset ival, Sname --- > chnset kval, Sname --- > chnset aval, Sname --- > chnset Sval, Sname --- --- --- * description : --- --- Write to a channel of the named software bus. Implies declaring --- the channel with imod=2 (see also chn_k, chn_a, and chn_S). --- --- --- * url : - -chnsetK :: (K k0) => k0 -> String -> SignalOut -chnsetK k0val s1name = outOpcode "chnset" args - where args = [to k0val, to s1name] - - --- | * opcode : chnset --- --- --- * syntax : --- --- > chnset ival, Sname --- > chnset kval, Sname --- > chnset aval, Sname --- > chnset Sval, Sname --- --- --- * description : --- --- Write to a channel of the named software bus. Implies declaring --- the channel with imod=2 (see also chn_k, chn_a, and chn_S). --- --- --- * url : - -chnsetS :: String -> String -> SignalOut -chnsetS s0val s1name = outOpcode "chnset" args - where args = [to s0val, to s1name] - - --- | * opcode : chnsend --- --- --- * syntax : --- --- > chnsend ival, Sname --- > chnsend kval, Sname --- > chnsend aval, Sname --- > chnsend Sval, Sname --- --- --- * description : --- --- Send to a channel of the named software bus. Implies declaring --- the channel with imode=2 (see also chn_k, chn_a, and chn_S). --- --- --- * url : - -chnsendA :: Arate -> String -> SignalOut -chnsendA a0val s1name = outOpcode "chnsend" args - where args = [to a0val, to s1name] - - --- | * opcode : chnsend --- --- --- * syntax : --- --- > chnsend ival, Sname --- > chnsend kval, Sname --- > chnsend aval, Sname --- > chnsend Sval, Sname --- --- --- * description : --- --- Send to a channel of the named software bus. Implies declaring --- the channel with imode=2 (see also chn_k, chn_a, and chn_S). --- --- --- * url : - -chnsendI :: Irate -> String -> SignalOut -chnsendI i0val s1name = outOpcode "chnsend" args - where args = [to i0val, to s1name] - - --- | * opcode : chnsend --- --- --- * syntax : --- --- > chnsend ival, Sname --- > chnsend kval, Sname --- > chnsend aval, Sname --- > chnsend Sval, Sname --- --- --- * description : --- --- Send to a channel of the named software bus. Implies declaring --- the channel with imode=2 (see also chn_k, chn_a, and chn_S). --- --- --- * url : - -chnsendK :: (K k0) => k0 -> String -> SignalOut -chnsendK k0val s1name = outOpcode "chnsend" args - where args = [to k0val, to s1name] - - --- | * opcode : chnsend --- --- --- * syntax : --- --- > chnsend ival, Sname --- > chnsend kval, Sname --- > chnsend aval, Sname --- > chnsend Sval, Sname --- --- --- * description : --- --- Send to a channel of the named software bus. Implies declaring --- the channel with imode=2 (see also chn_k, chn_a, and chn_S). --- --- --- * url : - -chnsendS :: String -> String -> SignalOut -chnsendS s0val s1name = outOpcode "chnsend" args - where args = [to s0val, to s1name] - - --- | * opcode : chnrecv --- --- --- * syntax : --- --- > ival chnrecv Sname --- > kval chnrecv Sname --- > aval chnrecv Sname --- > Sval chnrecv Sname --- --- --- * description : --- --- Receives data from a channel of the inward named software bus. --- Implies declaring the channel with imode=1 (see also chn_k, --- chn_a, and chn_S). --- --- --- * url : - -chnrecvA :: String -> Arate -chnrecvA s0name = opcode "chnrecv" args - where args = [to s0name] - - --- | * opcode : chnrecv --- --- --- * syntax : --- --- > ival chnrecv Sname --- > kval chnrecv Sname --- > aval chnrecv Sname --- > Sval chnrecv Sname --- --- --- * description : --- --- Receives data from a channel of the inward named software bus. --- Implies declaring the channel with imode=1 (see also chn_k, --- chn_a, and chn_S). --- --- --- * url : - -chnrecvI :: String -> Irate -chnrecvI s0name = opcode "chnrecv" args - where args = [to s0name] - - --- | * opcode : chnrecv --- --- --- * syntax : --- --- > ival chnrecv Sname --- > kval chnrecv Sname --- > aval chnrecv Sname --- > Sval chnrecv Sname --- --- --- * description : --- --- Receives data from a channel of the inward named software bus. --- Implies declaring the channel with imode=1 (see also chn_k, --- chn_a, and chn_S). --- --- --- * url : - -chnrecvK :: String -> Krate -chnrecvK s0name = opcode "chnrecv" args - where args = [to s0name] - - --- | * opcode : chnrecv --- --- --- * syntax : --- --- > ival chnrecv Sname --- > kval chnrecv Sname --- > aval chnrecv Sname --- > Sval chnrecv Sname --- --- --- * description : --- --- Receives data from a channel of the inward named software bus. --- Implies declaring the channel with imode=1 (see also chn_k, --- chn_a, and chn_S). --- --- --- * url : - -chnrecvS :: String -> String -chnrecvS s0name = opcode "chnrecv" args - where args = [to s0name] - - --- | * opcode : chnclear --- --- --- * syntax : --- --- > chnclear Sname --- --- --- * description : --- --- Clears an audio channel of the named software bus to zero. --- Implies declaring the channel with imode=2 (see also chn_a). --- --- --- * url : - -chnclear :: String -> SignalOut -chnclear s0name = outOpcode "chnclear" args - where args = [to s0name] - - --- | * opcode : chnmix --- --- --- * syntax : --- --- > chnmix aval, Sname --- --- --- * description : --- --- Adds an audio signal to a channel of the named software bus. --- Implies declaring the channel with imode=2 (see also chn_a). --- --- --- * url : - -chnmix :: Arate -> String -> SignalOut -chnmix a0val s1name = outOpcode "chnmix" args - where args = [to a0val, to s1name] - - --- | * opcode : chnparams --- --- --- * syntax : --- --- > itype, imode, ictltype, idflt, imin, imax chnparams --- --- --- * description : --- --- Query parameters of a channel (if it does not exist, all --- returned values are zero). --- --- --- * url : - -chnparams :: MultiOut -chnparams = opcode "chnparams" args - where args = [] diff --git a/src/CsoundExpr/Opcodes/Sigmod.hs b/src/CsoundExpr/Opcodes/Sigmod.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod.hs +++ /dev/null @@ -1,30 +0,0 @@ --- | Signal Modifiers -module CsoundExpr.Opcodes.Sigmod - (module CsoundExpr.Opcodes.Sigmod.SigProcAmpMod, - module CsoundExpr.Opcodes.Sigmod.SigProcConmorph, - module CsoundExpr.Opcodes.Sigmod.Delay, - module CsoundExpr.Opcodes.Sigmod.Panspatl, - module CsoundExpr.Opcodes.Sigmod.Reverbtn, - module CsoundExpr.Opcodes.Sigmod.Sample, - module CsoundExpr.Opcodes.Sigmod.Siglimit, - module CsoundExpr.Opcodes.Sigmod.Speciale, - module CsoundExpr.Opcodes.Sigmod.Standard, - module CsoundExpr.Opcodes.Sigmod.Speciali, - module CsoundExpr.Opcodes.Sigmod.Wavguide, - module CsoundExpr.Opcodes.Sigmod.Wavshape) -where - - - -import CsoundExpr.Opcodes.Sigmod.SigProcAmpMod -import CsoundExpr.Opcodes.Sigmod.SigProcConmorph -import CsoundExpr.Opcodes.Sigmod.Delay -import CsoundExpr.Opcodes.Sigmod.Panspatl -import CsoundExpr.Opcodes.Sigmod.Reverbtn -import CsoundExpr.Opcodes.Sigmod.Sample -import CsoundExpr.Opcodes.Sigmod.Siglimit -import CsoundExpr.Opcodes.Sigmod.Speciale -import CsoundExpr.Opcodes.Sigmod.Standard -import CsoundExpr.Opcodes.Sigmod.Speciali -import CsoundExpr.Opcodes.Sigmod.Wavguide -import CsoundExpr.Opcodes.Sigmod.Wavshape diff --git a/src/CsoundExpr/Opcodes/Sigmod/Delay.hs b/src/CsoundExpr/Opcodes/Sigmod/Delay.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Delay.hs +++ /dev/null @@ -1,464 +0,0 @@ --- | Delay -module CsoundExpr.Opcodes.Sigmod.Delay - (delay, - delay1, - delayk, - delayr, - delayw, - deltap, - deltap3, - deltapi, - deltapn, - deltapx, - deltapxw, - vdelay, - vdelay3, - vdelayx, - vdelayxs, - vdelayxq, - vdelayxw, - vdelayxwq, - vdelayxws, - multitap) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : delay --- --- --- * syntax : --- --- > ares delay asig, idlt [, iskip] --- --- --- * description : --- --- A signal can be read from or written into a delay path, or it --- can be automatically delayed by some time interval. --- --- --- * url : - -delay :: [Irate] -> Arate -> Irate -> Arate -delay i0init a1sig i2dlt = opcode "delay" args - where args = [to a1sig, to i2dlt] ++ map to i0init - - --- | * opcode : delay1 --- --- --- * syntax : --- --- > ares delay1 asig [, iskip] --- --- --- * description : --- --- Delays an input signal by one sample. --- --- --- * url : - -delay1 :: [Irate] -> Arate -> Arate -delay1 i0init a1sig = opcode "delay1" args - where args = [to a1sig] ++ map to i0init - - --- | * opcode : delayk --- --- --- * syntax : --- --- > kr delayk ksig, idel[, imode] --- > kr vdel_k ksig, kdel, imdel[, imode] --- --- --- * description : --- --- k-rate delay opcodes --- --- --- * url : - -delayk :: (K k0) => [Irate] -> k0 -> Irate -> Krate -delayk i0init k1sig i2del = opcode "delayk" args - where args = [to k1sig, to i2del] ++ map to i0init - - --- | * opcode : delayr --- --- --- * syntax : --- --- > ares delayr idlt [, iskip] --- --- --- * description : --- --- Reads from an automatically established digital delay line. --- --- --- * url : - -delayr :: [Irate] -> Irate -> Arate -delayr i0init i1dlt = opcode "delayr" args - where args = [to i1dlt] ++ map to i0init - - --- | * opcode : delayw --- --- --- * syntax : --- --- > delayw asig --- --- --- * description : --- --- Writes the audio signal to a digital delay line. --- --- --- * url : - -delayw :: Arate -> SignalOut -delayw a0sig = outOpcode "delayw" args - where args = [to a0sig] - - --- | * opcode : deltap --- --- --- * syntax : --- --- > ares deltap kdlt --- --- --- * description : --- --- Tap a delay line at variable offset times. --- --- --- * url : - -deltap :: (K k0) => k0 -> Arate -deltap k0dlt = opcode "deltap" args - where args = [to k0dlt] - - --- | * opcode : deltap3 --- --- --- * syntax : --- --- > ares deltap3 xdlt --- --- --- * description : --- --- Taps a delay line at variable offset times, uses cubic --- interpolation. --- --- --- * url : - -deltap3 :: (X x0) => x0 -> Arate -deltap3 x0dlt = opcode "deltap3" args - where args = [to x0dlt] - - --- | * opcode : deltapi --- --- --- * syntax : --- --- > ares deltapi xdlt --- --- --- * description : --- --- Taps a delay line at variable offset times, uses interpolation. --- --- --- * url : - -deltapi :: (X x0) => x0 -> Arate -deltapi x0dlt = opcode "deltapi" args - where args = [to x0dlt] - - --- | * opcode : deltapn --- --- --- * syntax : --- --- > ares deltapn xnumsamps --- --- --- * description : --- --- Tap a delay line at variable offset times. --- --- --- * url : - -deltapn :: (X x0) => x0 -> Arate -deltapn x0numsamps = opcode "deltapn" args - where args = [to x0numsamps] - - --- | * opcode : deltapx --- --- --- * syntax : --- --- > aout deltapx adel, iwsize --- --- --- * description : --- --- deltapx is similar to deltapi or deltap3. However, it allows --- higher quality interpolation. This opcode can read from and write --- to a delayr/delayw delay line with interpolation. --- --- --- * url : - -deltapx :: Arate -> Irate -> Arate -deltapx a0del i1wsize = opcode "deltapx" args - where args = [to a0del, to i1wsize] - - --- | * opcode : deltapxw --- --- --- * syntax : --- --- > deltapxw ain, adel, iwsize --- --- --- * description : --- --- deltapxw mixes the input signal to a delay line. This opcode can --- be mixed with reading units (deltap, deltapn, deltapi, deltap3, --- and deltapx) in any order; the actual delay time is the --- difference of the read and write time. This opcode can read from --- and write to a delayr/delayw delay line with interpolation. --- --- --- * url : - -deltapxw :: Arate -> Arate -> Irate -> SignalOut -deltapxw a0in a1del i2wsize = outOpcode "deltapxw" args - where args = [to a0in, to a1del, to i2wsize] - - --- | * opcode : vdelay --- --- --- * syntax : --- --- > ares vdelay asig, adel, imaxdel [, iskip] --- --- --- * description : --- --- This is an interpolating variable time delay, it is not very --- different from the existing implementation (deltapi), it is only --- easier to use. --- --- --- * url : - -vdelay :: [Irate] -> Arate -> Arate -> Irate -> Arate -vdelay i0init a1sig a2del i3maxdel = opcode "vdelay" args - where args = [to a1sig, to a2del, to i3maxdel] ++ map to i0init - - --- | * opcode : vdelay3 --- --- --- * syntax : --- --- > ares vdelay3 asig, adel, imaxdel [, iskip] --- --- --- * description : --- --- vdelay3 is experimental. It is the same as vdelay except that it --- uses cubic interpolation. (New in Version 3.50.) --- --- --- * url : - -vdelay3 :: [Irate] -> Arate -> Arate -> Irate -> Arate -vdelay3 i0init a1sig a2del i3maxdel = opcode "vdelay3" args - where args = [to a1sig, to a2del, to i3maxdel] ++ map to i0init - - --- | * opcode : vdelayx --- --- --- * syntax : --- --- > aout vdelayx ain, adl, imd, iws [, ist] --- --- --- * description : --- --- A variable delay opcode with high quality interpolation. --- --- --- * url : - -vdelayx :: [Irate] -> Arate -> Arate -> Irate -> Irate -> Arate -vdelayx i0init a1in a2dl i3md i4ws = opcode "vdelayx" args - where args = [to a1in, to a2dl, to i3md, to i4ws] ++ map to i0init - - --- | * opcode : vdelayxs --- --- --- * syntax : --- --- > aout1, aout2 vdelayxs ain1, ain2, adl, imd, iws [, ist] --- --- --- * description : --- --- A stereo variable delay opcode with high quality interpolation. --- --- --- * url : - -vdelayxs :: - [Irate] -> Arate -> Arate -> Arate -> Irate -> Irate -> MultiOut -vdelayxs i0init a1in1 a2in2 a3dl i4md i5ws = opcode "vdelayxs" args - where args - = [to a1in1, to a2in2, to a3dl, to i4md, to i5ws] ++ map to i0init - - --- | * opcode : vdelayxq --- --- --- * syntax : --- --- > aout1, aout2, aout3, aout4 vdelayxq ain1, ain2, ain3, ain4, adl, imd, iws [, ist] --- --- --- * description : --- --- A 4-channel variable delay opcode with high quality --- interpolation. --- --- --- * url : - -vdelayxq :: - [Irate] -> - Arate -> - Arate -> Arate -> Arate -> Arate -> Irate -> Irate -> MultiOut -vdelayxq i0init a1in1 a2in2 a3in3 a4in4 a5dl i6md i7ws - = opcode "vdelayxq" args - where args - = [to a1in1, to a2in2, to a3in3, to a4in4, to a5dl, to i6md, - to i7ws] - ++ map to i0init - - --- | * opcode : vdelayxw --- --- --- * syntax : --- --- > aout vdelayxw ain, adl, imd, iws [, ist] --- --- --- * description : --- --- Variable delay opcodes with high quality interpolation. --- --- --- * url : - -vdelayxw :: [Irate] -> Arate -> Arate -> Irate -> Irate -> Arate -vdelayxw i0init a1in a2dl i3md i4ws = opcode "vdelayxw" args - where args = [to a1in, to a2dl, to i3md, to i4ws] ++ map to i0init - - --- | * opcode : vdelayxwq --- --- --- * syntax : --- --- > aout1, aout2, aout3, aout4 vdelayxwq ain1, ain2, ain3, ain4, adl, --- > imd, iws [, ist] --- --- --- * description : --- --- Variable delay opcodes with high quality interpolation. --- --- --- * url : - -vdelayxwq :: - [Irate] -> - Arate -> - Arate -> Arate -> Arate -> Arate -> Irate -> Irate -> MultiOut -vdelayxwq i0init a1in1 a2in2 a3in3 a4in4 a5dl i6md i7ws - = opcode "vdelayxwq" args - where args - = [to a1in1, to a2in2, to a3in3, to a4in4, to a5dl, to i6md, - to i7ws] - ++ map to i0init - - --- | * opcode : vdelayxws --- --- --- * syntax : --- --- > aout1, aout2 vdelayxws ain1, ain2, adl, imd, iws [, ist] --- --- --- * description : --- --- Variable delay opcodes with high quality interpolation. --- --- --- * url : - -vdelayxws :: - [Irate] -> Arate -> Arate -> Arate -> Irate -> Irate -> MultiOut -vdelayxws i0init a1in1 a2in2 a3dl i4md i5ws - = opcode "vdelayxws" args - where args - = [to a1in1, to a2in2, to a3dl, to i4md, to i5ws] ++ map to i0init - - --- | * opcode : multitap --- --- --- * syntax : --- --- > ares multitap asig [, itime1] [, igain1] [, itime2] [, igain2] [...] --- --- --- * description : --- --- Multitap delay line implementation. --- --- --- * url : - -multitap :: Arate -> [Irate] -> Arate -multitap a0sig i1vals = opcode "multitap" args - where args = [to a0sig] ++ map to i1vals diff --git a/src/CsoundExpr/Opcodes/Sigmod/Panspatl.hs b/src/CsoundExpr/Opcodes/Sigmod/Panspatl.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Panspatl.hs +++ /dev/null @@ -1,711 +0,0 @@ --- | Panning and Spatialization -module CsoundExpr.Opcodes.Sigmod.Panspatl - (locsend, - locsig, - pan, - pan2, - space, - spdist, - spsend, - spat3d, - spat3di, - spat3dt, - vbap16, - vbap16move, - vbap4, - vbap4move, - vbap8, - vbap8move, - vbaplsinit, - vbapz, - vbapzmove, - hrtfer, - hrtfmove, - hrtfmove2, - hrtfstat, - bformdec, - bformenc, - bformencK) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : locsend --- --- --- * syntax : --- --- > a1, a2 locsend --- > a1, a2, a3, a4 locsend --- --- --- * description : --- --- locsend depends upon the existence of a previously defined --- locsig. The number of output signals must match the number in the --- previous locsig. The output signals from locsend are derived from --- the values given for distance and reverb in the locsig and are --- ready to be sent to local or global reverb units (see example --- below). The reverb amount and the balance between the 2 or 4 --- channels are calculated in the same way as described in the Dodge --- book (an essential text!). --- --- --- * url : - -locsend :: MultiOut -locsend = opcode "locsend" args - where args = [] - - --- | * opcode : locsig --- --- --- * syntax : --- --- > a1, a2 locsig asig, kdegree, kdistance, kreverbsend --- > a1, a2, a3, a4 locsig asig, kdegree, kdistance, kreverbsend --- --- --- * description : --- --- locsig takes an input signal and distributes it among 2 or 4 --- channels using values in degrees to calculate the balance between --- adjacent channels. It also takes arguments for distance (used to --- attenuate signals that are to sound as if they are some distance --- further than the loudspeaker itself), and for the amount the --- signal that will be sent to reverberators. This unit is based --- upon the example in the Charles Dodge/Thomas Jerse book, Computer --- Music, page 320. --- --- --- * url : - -locsig :: (K k0, K k1, K k2) => Arate -> k0 -> k1 -> k2 -> MultiOut -locsig a0sig k1degree k2distance k3reverbsend - = opcode "locsig" args - where args - = [to a0sig, to k1degree, to k2distance, to k3reverbsend] - - --- | * opcode : pan --- --- --- * syntax : --- --- > a1, a2, a3, a4 pan asig, kx, ky, ifn [, imode] [, ioffset] --- --- --- * description : --- --- Distribute an audio signal amongst four channels with --- localization control. --- --- --- * url : - -pan :: - (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Irate -> MultiOut -pan i0init a1sig k2x k3y i4fn = opcode "pan" args - where args = [to a1sig, to k2x, to k3y, to i4fn] ++ map to i0init - - --- | * opcode : pan2 --- --- --- * syntax : --- --- > a1, a2 pan2 asig, xp [, imode] --- --- --- * description : --- --- Distribute an audio signal across two channels with a choice of --- methods. --- --- --- * url : - -pan2 :: (X x0) => [Irate] -> Arate -> x0 -> MultiOut -pan2 i0init a1sig x2p = opcode "pan2" args - where args = [to a1sig, to x2p] ++ map to i0init - - --- | * opcode : space --- --- --- * syntax : --- --- > a1, a2, a3, a4 space asig, ifn, ktime, kreverbsend, kx, ky --- --- --- * description : --- --- space takes an input signal and distributes it among 4 channels --- using Cartesian xy coordinates to calculate the balance of the --- outputs. The xy coordinates can be defined in a separate text --- file and accessed through a Function statement in the score using --- Gen28, or they can be specified using the optional kx, ky --- arguments. The advantages to the former are: --- --- --- * url : - -space :: - (K k0, K k1, K k2, K k3) => - Arate -> Irate -> k0 -> k1 -> k2 -> k3 -> MultiOut -space a0sig i1fn k2time k3reverbsend k4x k5y = opcode "space" args - where args - = [to a0sig, to i1fn, to k2time, to k3reverbsend, to k4x, to k5y] - - --- | * opcode : spdist --- --- --- * syntax : --- --- > k1 spdist ifn, ktime, kx, ky --- --- --- * description : --- --- spdist uses the same xy data as space, also either from a text --- file using Gen28 or from x and y arguments given to the unit --- directly. The purpose of this unit is to make available the --- values for distance that are calculated from the xy coordinates. --- --- --- * url : - -spdist :: (K k0, K k1, K k2) => Irate -> k0 -> k1 -> k2 -> Krate -spdist i0fn k1time k2x k3y = opcode "spdist" args - where args = [to i0fn, to k1time, to k2x, to k3y] - - --- | * opcode : spsend --- --- --- * syntax : --- --- > a1, a2, a3, a4 spsend --- --- --- * description : --- --- spsend depends upon the existence of a previously defined space. --- The output signals from spsend are derived from the values given --- for xy and reverb in the space and are ready to be sent to local --- or global reverb units (see example below). --- --- --- * url : - -spsend :: MultiOut -spsend = opcode "spsend" args - where args = [] - - --- | * opcode : spat3d --- --- --- * syntax : --- --- > aW, aX, aY, aZ spat3d ain, kX, kY, kZ, idist, ift, imode, imdel, iovr [, istor] --- --- --- * description : --- --- This opcode positions the input sound in a 3D space, with --- optional simulation of room acoustics, in various output formats. --- spat3d allows moving the sound at k-rate (this movement is --- interpolated internally to eliminate "zipper noise" if sr not --- equal to kr). --- --- --- * url : - -spat3d :: - (K k0, K k1, K k2) => - [Irate] -> - Arate -> - k0 -> - k1 -> k2 -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -spat3d i0init a1in k2X k3Y k4Z i5dist i6ft i7mode i8mdel i9ovr - = opcode "spat3d" args - where args - = [to a1in, to k2X, to k3Y, to k4Z, to i5dist, to i6ft, to i7mode, - to i8mdel, to i9ovr] - ++ map to i0init - - --- | * opcode : spat3di --- --- --- * syntax : --- --- > aW, aX, aY, aZ spat3di ain, iX, iY, iZ, idist, ift, imode [, istor] --- --- --- * description : --- --- This opcode positions the input sound in a 3D space, with --- optional simulation of room acoustics, in various output formats. --- With spat3di, sound source position is set at i-time. --- --- --- * url : - -spat3di :: - [Irate] -> - Arate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> MultiOut -spat3di i0init a1in i2X i3Y i4Z i5dist i6ft i7mode - = opcode "spat3di" args - where args - = [to a1in, to i2X, to i3Y, to i4Z, to i5dist, to i6ft, to i7mode] - ++ map to i0init - - --- | * opcode : spat3dt --- --- --- * syntax : --- --- > spat3dt ioutft, iX, iY, iZ, idist, ift, imode, irlen [, iftnocl] --- --- --- * description : --- --- This opcode positions the input sound in a 3D space, with --- optional simulation of room acoustics, in various output formats. --- spat3dt can be used to render the impulse response at i-time, --- storing output in a function table, suitable for convolution. --- --- --- * url : - -spat3dt :: - [Irate] -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -spat3dt i0init i1outft i2X i3Y i4Z i5dist i6ft i7mode i8rlen - = outOpcode "spat3dt" args - where args - = [to i1outft, to i2X, to i3Y, to i4Z, to i5dist, to i6ft, - to i7mode, to i8rlen] - ++ map to i0init - - --- | * opcode : vbap16 --- --- --- * syntax : --- --- > ar1,..., ar16 vbap16 asig, kazim [, kelev] [, kspread] --- --- --- * description : --- --- Distributes an audio signal among 16 channels. --- --- --- * url : - -vbap16 :: (K k0, K k1) => [k0] -> Arate -> k1 -> MultiOut -vbap16 k0init a1sig k2azim = opcode "vbap16" args - where args = [to a1sig, to k2azim] ++ map to k0init - - --- | * opcode : vbap16move --- --- --- * syntax : --- --- > ar1,..., ar16 vbap16move asig, idur, ispread, ifldnum, ifld1 --- > [, ifld2] [...] --- --- --- * description : --- --- Distribute an audio signal among 16 channels with moving virtual --- sources. --- --- --- * url : - -vbap16move :: - Arate -> Irate -> Irate -> Irate -> [Irate] -> MultiOut -vbap16move a0sig i1dur i2spread i3fldnum i4fldN - = opcode "vbap16move" args - where args - = [to a0sig, to i1dur, to i2spread, to i3fldnum] ++ map to i4fldN - - --- | * opcode : vbap4 --- --- --- * syntax : --- --- > ar1, ar2, ar3, ar4 vbap4 asig, kazim [, kelev] [, kspread] --- --- --- * description : --- --- Distributes an audio signal among 4 channels. --- --- --- * url : - -vbap4 :: (K k0, K k1) => [k0] -> Arate -> k1 -> MultiOut -vbap4 k0init a1sig k2azim = opcode "vbap4" args - where args = [to a1sig, to k2azim] ++ map to k0init - - --- | * opcode : vbap4move --- --- --- * syntax : --- --- > ar1, ar2, ar3, ar4 vbap4move asig, idur, ispread, ifldnum, ifld1 --- > [, ifld2] [...] --- --- --- * description : --- --- Distributes an audio signal among 4 channels with moving virtual --- sources. --- --- --- * url : - -vbap4move :: - Arate -> Irate -> Irate -> Irate -> [Irate] -> MultiOut -vbap4move a0sig i1dur i2spread i3fldnum i4fldN - = opcode "vbap4move" args - where args - = [to a0sig, to i1dur, to i2spread, to i3fldnum] ++ map to i4fldN - - --- | * opcode : vbap8 --- --- --- * syntax : --- --- > ar1,..., ar8 vbap8 asig, kazim [, kelev] [, kspread] --- --- --- * description : --- --- Distributes an audio signal among 8 channels. --- --- --- * url : - -vbap8 :: (K k0, K k1) => [k0] -> Arate -> k1 -> MultiOut -vbap8 k0init a1sig k2azim = opcode "vbap8" args - where args = [to a1sig, to k2azim] ++ map to k0init - - --- | * opcode : vbap8move --- --- --- * syntax : --- --- > ar1,..., ar8 vbap8move asig, idur, ispread, ifldnum, ifld1 --- > [, ifld2] [...] --- --- --- * description : --- --- Distributes an audio signal among 8 channels with moving virtual --- sources. --- --- --- * url : - -vbap8move :: - Arate -> Irate -> Irate -> Irate -> [Irate] -> MultiOut -vbap8move a0sig i1dur i2spread i3fldnum i4fldN - = opcode "vbap8move" args - where args - = [to a0sig, to i1dur, to i2spread, to i3fldnum] ++ map to i4fldN - - --- | * opcode : vbaplsinit --- --- --- * syntax : --- --- > vbaplsinit idim, ilsnum [, idir1] [, idir2] [...] [, idir32] --- --- --- * description : --- --- Configures VBAP output according to loudspeaker parameters. --- --- --- * url : - -vbaplsinit :: Irate -> Irate -> [Irate] -> SignalOut -vbaplsinit i0dim i1lsnum i2dirN = outOpcode "vbaplsinit" args - where args = [to i0dim, to i1lsnum] ++ map to i2dirN - - --- | * opcode : vbapz --- --- --- * syntax : --- --- > vbapz inumchnls, istartndx, asig, kazim [, kelev] [, kspread] --- --- --- * description : --- --- Writes a multi-channel audio signal to a ZAK array. --- --- --- * url : - -vbapz :: - (K k0, K k1) => [k0] -> Irate -> Irate -> Arate -> k1 -> SignalOut -vbapz k0init i1numchnls i2startndx a3sig k4azim - = outOpcode "vbapz" args - where args - = [to i1numchnls, to i2startndx, to a3sig, to k4azim] ++ - map to k0init - - --- | * opcode : vbapzmove --- --- --- * syntax : --- --- > vbapzmove inumchnls, istartndx, asig, idur, ispread, ifldnum, ifld1, --- > ifld2, [...] --- --- --- * description : --- --- Writes a multi-channel audio signal to a ZAK array with moving --- virtual sources. --- --- --- * url : - -vbapzmove :: - Irate -> - Irate -> Arate -> Irate -> Irate -> Irate -> [Irate] -> SignalOut -vbapzmove i0numchnls i1startndx a2sig i3dur i4spread i5fldnum - i6fldN = outOpcode "vbapzmove" args - where args - = [to i0numchnls, to i1startndx, to a2sig, to i3dur, to i4spread, - to i5fldnum] - ++ map to i6fldN - - --- | * opcode : hrtfer --- --- --- * syntax : --- --- > aleft, aright hrtfer asig, kaz, kelev, “HRTFcompact” --- --- --- * description : --- --- Output is binaural (headphone) 3D audio. --- --- --- * url : - -hrtfer :: (K k0, K k1) => Arate -> k0 -> k1 -> MultiOut -hrtfer a0sig k1az k2elev = opcode "hrtfer" args - where args = [to a0sig, to k1az, to k2elev] - - --- | * opcode : hrtfmove --- --- --- * syntax : --- --- > aleft, aright hrtfmove asrc, kAz, kElev, ifilel, ifiler [, imode, ifade, isr] --- --- --- * description : --- --- This opcode takes a source signal and spatialises it in the 3 --- dimensional space around a listener by convolving the source with --- stored head related transfer function (HRTF) based filters. --- --- --- * url : - -hrtfmove :: - (K k0, K k1) => - [Irate] -> Arate -> k0 -> k1 -> Irate -> Irate -> MultiOut -hrtfmove i0init a1src k2Az k3Elev i4filel i5filer - = opcode "hrtfmove" args - where args - = [to a1src, to k2Az, to k3Elev, to i4filel, to i5filer] ++ - map to i0init - - --- | * opcode : hrtfmove2 --- --- --- * syntax : --- --- > aleft, aright hrtfmove2 asrc, kAz, kElev, ifilel, ifiler [,ioverlap, iradius, isr] --- --- --- * description : --- --- This opcode takes a source signal and spatialises it in the 3 --- dimensional space around a listener using head related transfer --- function (HRTF) based filters. --- --- --- * url : - -hrtfmove2 :: - (K k0, K k1) => - [Irate] -> Arate -> k0 -> k1 -> Irate -> Irate -> MultiOut -hrtfmove2 i0init a1src k2Az k3Elev i4filel i5filer - = opcode "hrtfmove2" args - where args - = [to a1src, to k2Az, to k3Elev, to i4filel, to i5filer] ++ - map to i0init - - --- | * opcode : hrtfstat --- --- --- * syntax : --- --- > aleft, aright hrtfstat asrc, iAz, iElev, ifilel, ifiler [,iradius, isr] --- --- --- * description : --- --- This opcode takes a source signal and spatialises it in the 3 --- dimensional space around a listener using head related transfer --- function (HRTF) based filters. It produces a static output --- (azimuth and elevation parameters are i-rate), because a static --- source allows much more efficient processing than hrtfmove and --- hrtfmove2,. --- --- --- * url : - -hrtfstat :: - [Irate] -> Arate -> Irate -> Irate -> Irate -> Irate -> MultiOut -hrtfstat i0init a1src i2Az i3Elev i4filel i5filer - = opcode "hrtfstat" args - where args - = [to a1src, to i2Az, to i3Elev, to i4filel, to i5filer] ++ - map to i0init - - --- | * opcode : bformdec --- --- --- * syntax : --- --- > ao1, ao2 bformdec isetup, aw, ax, ay, az [, ar, as, at, au, av --- > [, abk, al, am, an, ao, ap, aq]] --- > ao1, ao2, ao3, ao4 bformdec isetup, aw, ax, ay, az [, ar, as, at, --- > au, av [, abk, al, am, an, ao, ap, aq]] --- > ao1, ao2, ao3, ao4, ao5 bformdec isetup, aw, ax, ay, az [, ar, as, --- > at, au, av [, abk, al, am, an, ao, ap, aq]] --- > ao1, ao2, ao3, ao4, ao5, ao6, ao7, ao8 bformdec isetup, aw, ax, ay, az --- > [, ar, as, at, au, av [, abk, al, am, an, ao, ap, aq]]] --- --- --- * description : --- --- Decodes an ambisonic B format signal into loudspeaker specific --- signals. Note that this opcode is deprecated as it is inaccurate, --- and is replaced by the much better opcode bformdec1 which --- replicates all the important features. --- --- --- * url : - -bformdec :: - [Arate] -> Irate -> Arate -> Arate -> Arate -> Arate -> MultiOut -bformdec a0init i1setup a2w a3x a4y a5z = opcode "bformdec" args - where args - = [to i1setup, to a2w, to a3x, to a4y, to a5z] ++ map to a0init - - --- | * opcode : bformenc --- --- --- * syntax : --- --- > aw, ax, ay, az bformenc asig, kalpha, kbeta, kord0, kord1 --- > aw, ax, ay, az, ar, as, at, au, av bformenc asig, kalpha, kbeta, --- > kord0, kord1, kord2 --- > aw, ax, ay, az, ar, as, at, au, av, ak, al, am, an, ao, ap, aq bformenc --- > asig, kalpha, kbeta, kord0, kord1, kord2, kord3 --- --- --- * description : --- --- Codes a signal into the ambisonic B format. Note that this --- opcode is deprecated as it is inaccurate, and is replaced by the --- much better opcode bformenc1 which replicates all the important --- features; also note that the gain arguments are not available in --- bformenc1. --- --- --- * url : - -bformenc :: - (K k0, K k1, K k2, K k3) => - Arate -> k0 -> k1 -> k2 -> k3 -> MultiOut -bformenc a0sig k1alpha k2beta k3ord0 k4ord1 - = opcode "bformenc" args - where args - = [to a0sig, to k1alpha, to k2beta, to k3ord0, to k4ord1] - - --- | * opcode : bformenc --- --- --- * syntax : --- --- > aw, ax, ay, az bformenc asig, kalpha, kbeta, kord0, kord1 --- > aw, ax, ay, az, ar, as, at, au, av bformenc asig, kalpha, kbeta, --- > kord0, kord1, kord2 --- > aw, ax, ay, az, ar, as, at, au, av, ak, al, am, an, ao, ap, aq bformenc --- > asig, kalpha, kbeta, kord0, kord1, kord2, kord3 --- --- --- * description : --- --- Codes a signal into the ambisonic B format. Note that this --- opcode is deprecated as it is inaccurate, and is replaced by the --- much better opcode bformenc1 which replicates all the important --- features; also note that the gain arguments are not available in --- bformenc1. --- --- --- * url : - -bformencK :: - (K k0, K k1, K k2, K k3, K k4) => - Arate -> k0 -> k1 -> k2 -> k3 -> k4 -> MultiOut -bformencK a0sig k1alpha k2beta k3ord0 k4ord1 k5ord2 - = opcode "bformenc" args - where args - = [to a0sig, to k1alpha, to k2beta, to k3ord0, to k4ord1, - to k5ord2] diff --git a/src/CsoundExpr/Opcodes/Sigmod/Reverbtn.hs b/src/CsoundExpr/Opcodes/Sigmod/Reverbtn.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Reverbtn.hs +++ /dev/null @@ -1,282 +0,0 @@ --- | 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 : - -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 : - -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 : - -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 : - -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 : - -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 : - -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 : - -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 : - -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 : - -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 : - -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 : - -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 diff --git a/src/CsoundExpr/Opcodes/Sigmod/Sample.hs b/src/CsoundExpr/Opcodes/Sigmod/Sample.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Sample.hs +++ /dev/null @@ -1,370 +0,0 @@ --- | Sample Level Operators -module CsoundExpr.Opcodes.Sigmod.Sample - (denorm, - diffA, - diffK, - downsamp, - fold, - integA, - integK, - interp, - ntrpolA, - ntrpolI, - ntrpolK, - sampholdA, - sampholdK, - upsamp, - vaget, - vaset) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : denorm --- --- --- * syntax : --- --- > denorm a1[, a2[, a3[,... ]]] --- --- --- * description : --- --- Mixes low level (~1e-20 for floats, and ~1e-56 for doubles) --- noise to a list of a-rate signals. Can be used before IIR filters --- and reverbs to avoid denormalized numbers which may otherwise --- result in significantly increased CPU usage. --- --- --- * url : - -denorm :: [Arate] -> SignalOut -denorm a0N = outOpcode "denorm" args - where args = map to a0N - - --- | * opcode : diff --- --- --- * syntax : --- --- > ares diff asig [, iskip] --- > kres diff ksig [, iskip] --- --- --- * description : --- --- Modify a signal by differentiation. --- --- --- * url : - -diffA :: [Irate] -> Arate -> Arate -diffA i0init a1sig = opcode "diff" args - where args = [to a1sig] ++ map to i0init - - --- | * opcode : diff --- --- --- * syntax : --- --- > ares diff asig [, iskip] --- > kres diff ksig [, iskip] --- --- --- * description : --- --- Modify a signal by differentiation. --- --- --- * url : - -diffK :: (K k0) => [Irate] -> k0 -> Krate -diffK i0init k1sig = opcode "diff" args - where args = [to k1sig] ++ map to i0init - - --- | * opcode : downsamp --- --- --- * syntax : --- --- > kres downsamp asig [, iwlen] --- --- --- * description : --- --- Modify a signal by down-sampling. --- --- --- * url : - -downsamp :: [Irate] -> Arate -> Krate -downsamp i0init a1sig = opcode "downsamp" args - where args = [to a1sig] ++ map to i0init - - --- | * opcode : fold --- --- --- * syntax : --- --- > ares fold asig, kincr --- --- --- * description : --- --- Adds artificial foldover to an audio signal. --- --- --- * url : - -fold :: (K k0) => Arate -> k0 -> Arate -fold a0sig k1incr = opcode "fold" args - where args = [to a0sig, to k1incr] - - --- | * opcode : integ --- --- --- * syntax : --- --- > ares integ asig [, iskip] --- > kres integ ksig [, iskip] --- --- --- * description : --- --- Modify a signal by integration. --- --- --- * url : - -integA :: [Irate] -> Arate -> Arate -integA i0init a1sig = opcode "integ" args - where args = [to a1sig] ++ map to i0init - - --- | * opcode : integ --- --- --- * syntax : --- --- > ares integ asig [, iskip] --- > kres integ ksig [, iskip] --- --- --- * description : --- --- Modify a signal by integration. --- --- --- * url : - -integK :: (K k0) => [Irate] -> k0 -> Krate -integK i0init k1sig = opcode "integ" args - where args = [to k1sig] ++ map to i0init - - --- | * opcode : interp --- --- --- * syntax : --- --- > ares interp ksig [, iskip] [, imode] --- --- --- * description : --- --- Converts a control signal to an audio signal using linear --- interpolation. --- --- --- * url : - -interp :: (K k0) => [Irate] -> k0 -> Arate -interp i0init k1sig = opcode "interp" args - where args = [to k1sig] ++ map to i0init - - --- | * opcode : ntrpol --- --- --- * syntax : --- --- > ares ntrpol asig1, asig2, kpoint [, imin] [, imax] --- > ires ntrpol isig1, isig2, ipoint [, imin] [, imax] --- > kres ntrpol ksig1, ksig2, kpoint [, imin] [, imax] --- --- --- * description : --- --- Calculates the weighted mean value (i.e. linear interpolation) --- of two input signals --- --- --- * url : - -ntrpolA :: (K k0) => [Irate] -> Arate -> Arate -> k0 -> Arate -ntrpolA i0init a1sig1 a2sig2 k3point = opcode "ntrpol" args - where args = [to a1sig1, to a2sig2, to k3point] ++ map to i0init - - --- | * opcode : ntrpol --- --- --- * syntax : --- --- > ares ntrpol asig1, asig2, kpoint [, imin] [, imax] --- > ires ntrpol isig1, isig2, ipoint [, imin] [, imax] --- > kres ntrpol ksig1, ksig2, kpoint [, imin] [, imax] --- --- --- * description : --- --- Calculates the weighted mean value (i.e. linear interpolation) --- of two input signals --- --- --- * url : - -ntrpolI :: [Irate] -> Irate -> Irate -> Irate -> Irate -ntrpolI i0init i1sig1 i2sig2 i3point = opcode "ntrpol" args - where args = [to i1sig1, to i2sig2, to i3point] ++ map to i0init - - --- | * opcode : ntrpol --- --- --- * syntax : --- --- > ares ntrpol asig1, asig2, kpoint [, imin] [, imax] --- > ires ntrpol isig1, isig2, ipoint [, imin] [, imax] --- > kres ntrpol ksig1, ksig2, kpoint [, imin] [, imax] --- --- --- * description : --- --- Calculates the weighted mean value (i.e. linear interpolation) --- of two input signals --- --- --- * url : - -ntrpolK :: (K k0, K k1, K k2) => [Irate] -> k0 -> k1 -> k2 -> Krate -ntrpolK i0init k1sig1 k2sig2 k3point = opcode "ntrpol" args - where args = [to k1sig1, to k2sig2, to k3point] ++ map to i0init - - --- | * opcode : samphold --- --- --- * syntax : --- --- > ares samphold asig, agate [, ival] [, ivstor] --- > kres samphold ksig, kgate [, ival] [, ivstor] --- --- --- * description : --- --- Performs a sample-and-hold operation on its input. --- --- --- * url : - -sampholdA :: [Irate] -> Arate -> Arate -> Arate -sampholdA i0init a1sig a2gate = opcode "samphold" args - where args = [to a1sig, to a2gate] ++ map to i0init - - --- | * opcode : samphold --- --- --- * syntax : --- --- > ares samphold asig, agate [, ival] [, ivstor] --- > kres samphold ksig, kgate [, ival] [, ivstor] --- --- --- * description : --- --- Performs a sample-and-hold operation on its input. --- --- --- * url : - -sampholdK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -sampholdK i0init k1sig k2gate = opcode "samphold" args - where args = [to k1sig, to k2gate] ++ map to i0init - - --- | * opcode : upsamp --- --- --- * syntax : --- --- > ares upsamp ksig --- --- --- * description : --- --- Modify a signal by up-sampling. --- --- --- * url : - -upsamp :: (K k0) => k0 -> Arate -upsamp k0sig = opcode "upsamp" args - where args = [to k0sig] - - --- | * opcode : vaget --- --- --- * syntax : --- --- > kval vaget kndx, avar --- --- --- * description : --- --- Access values of the current buffer of an a-rate variable by --- indexing. Useful for doing sample-by-sample manipulation at --- k-rate without using setksmps 1. --- --- --- * url : - -vaget :: (K k0) => k0 -> Arate -> Krate -vaget k0ndx a1var = opcode "vaget" args - where args = [to k0ndx, to a1var] - - --- | * opcode : vaset --- --- --- * syntax : --- --- > vaset kval, kndx, avar --- --- --- * description : --- --- Write values into the current buffer of an a-rate variable at --- the given index. Useful for doing sample-by-sample manipulation --- at k-rate without using setksmps 1. --- --- --- * url : - -vaset :: (K k0, K k1) => k0 -> k1 -> Arate -> SignalOut -vaset k0val k1ndx a2var = outOpcode "vaset" args - where args = [to k0val, to k1ndx, to a2var] diff --git a/src/CsoundExpr/Opcodes/Sigmod/SigProcAmpMod.hs b/src/CsoundExpr/Opcodes/Sigmod/SigProcAmpMod.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/SigProcAmpMod.hs +++ /dev/null @@ -1,138 +0,0 @@ --- | Amplitude Modifiers and Dynamic processing -module CsoundExpr.Opcodes.Sigmod.SigProcAmpMod - (balance, - compress, - clip, - dam, - gain) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : balance --- --- --- * syntax : --- --- > ares balance asig, acomp [, ihp] [, iskip] --- --- --- * description : --- --- The rms power of asig can be interrogated, set, or adjusted to --- match that of a comparator signal. --- --- --- * url : - -balance :: [Irate] -> Arate -> Arate -> Arate -balance i0init a1sig a2comp = opcode "balance" args - where args = [to a1sig, to a2comp] ++ map to i0init - - --- | * opcode : compress --- --- --- * syntax : --- --- > ar compress aasig, acsig, kthresh, kloknee, khiknee, kratio, katt, krel, ilook --- --- --- * description : --- --- This unit functions as an audio compressor, limiter, expander, --- or noise gate, using either soft-knee or hard-knee mapping, and --- with dynamically variable performance characteristics. It takes --- two audio input signals, aasig and acsig, the first of which is --- modified by a running analysis of the second. Both signals can be --- the same, or the first can be modified by a different controlling --- signal. --- --- --- * url : - -compress :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - Arate -> - Arate -> k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Irate -> Arate -compress a0asig a1csig k2thresh k3loknee k4hiknee k5ratio k6att - k7rel i8look = opcode "compress" args - where args - = [to a0asig, to a1csig, to k2thresh, to k3loknee, to k4hiknee, - to k5ratio, to k6att, to k7rel, to i8look] - - --- | * opcode : clip --- --- --- * syntax : --- --- > ares clip asig, imeth, ilimit [, iarg] --- --- --- * description : --- --- Clips an a-rate signal to a predefined limit, in a soft manner, --- using one of three methods. --- --- --- * url : - -clip :: [Irate] -> Arate -> Irate -> Irate -> Arate -clip i0init a1sig i2meth i3limit = opcode "clip" args - where args = [to a1sig, to i2meth, to i3limit] ++ map to i0init - - --- | * opcode : dam --- --- --- * syntax : --- --- > ares dam asig, kthreshold, icomp1, icomp2, irtime, iftime --- --- --- * description : --- --- This opcode dynamically modifies a gain value applied to the --- input sound ain by comparing its power level to a given threshold --- level. The signal will be compressed/expanded with different --- factors regarding that it is over or under the threshold. --- --- --- * url : - -dam :: - (K k0) => Arate -> k0 -> Irate -> Irate -> Irate -> Irate -> Arate -dam a0sig k1threshold i2comp1 i3comp2 i4rtime i5ftime - = opcode "dam" args - where args - = [to a0sig, to k1threshold, to i2comp1, to i3comp2, to i4rtime, - to i5ftime] - - --- | * opcode : gain --- --- --- * syntax : --- --- > ares gain asig, krms [, ihp] [, iskip] --- --- --- * description : --- --- Adjusts the amplitude audio signal according to a --- root-mean-square value. --- --- --- * url : - -gain :: (K k0) => [Irate] -> Arate -> k0 -> Arate -gain i0init a1sig k2rms = opcode "gain" args - where args = [to a1sig, to k2rms] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Sigmod/SigProcConmorph.hs b/src/CsoundExpr/Opcodes/Sigmod/SigProcConmorph.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/SigProcConmorph.hs +++ /dev/null @@ -1,157 +0,0 @@ --- | Convolution and Morphing -module CsoundExpr.Opcodes.Sigmod.SigProcConmorph - (convolve, - cross2, - dconv, - ftconv, - ftmorf, - pconvolve) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : convolve --- --- --- * syntax : --- --- > ar1 [, ar2] [, ar3] [, ar4] convolve ain, ifilcod [, ichannel] --- --- --- * description : --- --- Output is the convolution of signal ain and the impulse response --- contained in ifilcod. If more than one output signal is supplied, --- each will be convolved with the same impulse response. Note that --- it is considerably more efficient to use one instance of the --- operator when processing a mono input to create stereo, or quad, --- outputs. --- --- --- * url : - -convolve :: [Irate] -> Arate -> String -> MultiOut -convolve i0init a1in s2file = opcode "convolve" args - where args = [to a1in, to s2file] ++ map to i0init - - --- | * opcode : cross2 --- --- --- * syntax : --- --- > ares cross2 ain1, ain2, isize, ioverlap, iwin, kbias --- --- --- * description : --- --- This is an implementation of cross synthesis using FFT's. --- --- --- * url : - -cross2 :: - (K k0) => Arate -> Arate -> Irate -> Irate -> Irate -> k0 -> Arate -cross2 a0in1 a1in2 i2size i3overlap i4win k5bias - = opcode "cross2" args - where args - = [to a0in1, to a1in2, to i2size, to i3overlap, to i4win, - to k5bias] - - --- | * opcode : dconv --- --- --- * syntax : --- --- > ares dconv asig, isize, ifn --- --- --- * description : --- --- A direct convolution opcode. --- --- --- * url : - -dconv :: Arate -> Irate -> Irate -> Arate -dconv a0sig i1size i2fn = opcode "dconv" args - where args = [to a0sig, to i1size, to i2fn] - - --- | * opcode : ftconv --- --- --- * syntax : --- --- > a1[, a2[, a3[,... a8]]] ftconv ain, ift, iplen[, iskipsamples --- > [, iirlen[, iskipinit]]] --- --- --- * description : --- --- Low latency multichannel convolution, using a function table as --- impulse response source. The algorithm is to split the impulse --- response to partitions of length determined by the iplen --- parameter, and delay and mix partitions so that the original, --- full length impulse response is reconstructed without gaps. The --- output delay (latency) is iplen samples, and does not depend on --- the control rate, unlike in the case of other convolve opcodes. --- --- --- * url : - -ftconv :: [Irate] -> Arate -> Irate -> Irate -> MultiOut -ftconv i0init a1in i2ft i3plen = opcode "ftconv" args - where args = [to a1in, to i2ft, to i3plen] ++ map to i0init - - --- | * opcode : ftmorf --- --- --- * syntax : --- --- > ftmorf kftndx, iftfn, iresfn --- --- --- * description : --- --- Uses an index into a table of ftable numbers to morph between --- adjacent tables in the list.This morphed function is written into --- the table referenced by iresfn on every k-cycle. --- --- --- * url : - -ftmorf :: (K k0) => k0 -> Irate -> Irate -> SignalOut -ftmorf k0ftndx i1ftfn i2resfn = outOpcode "ftmorf" args - where args = [to k0ftndx, to i1ftfn, to i2resfn] - - --- | * opcode : pconvolve --- --- --- * syntax : --- --- > ar1 [, ar2] [, ar3] [, ar4] pconvolve ain, ifilcod [, ipartitionsize, ichannel] --- --- --- * description : --- --- Convolution based on a uniformly partitioned overlap-save --- algorithm. Compared to the convolve opcode, pconvolve has these --- benefits: --- --- --- * url : - -pconvolve :: [Irate] -> Arate -> String -> MultiOut -pconvolve i0init a1in s2file = opcode "pconvolve" args - where args = [to a1in, to s2file] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Sigmod/Siglimit.hs b/src/CsoundExpr/Opcodes/Sigmod/Siglimit.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Siglimit.hs +++ /dev/null @@ -1,221 +0,0 @@ --- | Signal Limiters -module CsoundExpr.Opcodes.Sigmod.Siglimit - (limitA, - limitI, - limitK, - mirrorA, - mirrorI, - mirrorK, - wrapA, - wrapI, - wrapK) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : limit --- --- --- * syntax : --- --- > ares limit asig, klow, khigh --- > ires limit isig, ilow, ihigh --- > kres limit ksig, klow, khigh --- --- --- * description : --- --- Sets the lower and upper limits of the value it processes. --- --- --- * url : - -limitA :: (K k0, K k1) => Arate -> k0 -> k1 -> Arate -limitA a0sig k1low k2high = opcode "limit" args - where args = [to a0sig, to k1low, to k2high] - - --- | * opcode : limit --- --- --- * syntax : --- --- > ares limit asig, klow, khigh --- > ires limit isig, ilow, ihigh --- > kres limit ksig, klow, khigh --- --- --- * description : --- --- Sets the lower and upper limits of the value it processes. --- --- --- * url : - -limitI :: Irate -> Irate -> Irate -> Irate -limitI i0sig i1low i2high = opcode "limit" args - where args = [to i0sig, to i1low, to i2high] - - --- | * opcode : limit --- --- --- * syntax : --- --- > ares limit asig, klow, khigh --- > ires limit isig, ilow, ihigh --- > kres limit ksig, klow, khigh --- --- --- * description : --- --- Sets the lower and upper limits of the value it processes. --- --- --- * url : - -limitK :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -limitK k0sig k1low k2high = opcode "limit" args - where args = [to k0sig, to k1low, to k2high] - - --- | * opcode : mirror --- --- --- * syntax : --- --- > ares mirror asig, klow, khigh --- > ires mirror isig, ilow, ihigh --- > kres mirror ksig, klow, khigh --- --- --- * description : --- --- Reflects the signal that exceeds the low and high thresholds. --- --- --- * url : - -mirrorA :: (K k0, K k1) => Arate -> k0 -> k1 -> Arate -mirrorA a0sig k1low k2high = opcode "mirror" args - where args = [to a0sig, to k1low, to k2high] - - --- | * opcode : mirror --- --- --- * syntax : --- --- > ares mirror asig, klow, khigh --- > ires mirror isig, ilow, ihigh --- > kres mirror ksig, klow, khigh --- --- --- * description : --- --- Reflects the signal that exceeds the low and high thresholds. --- --- --- * url : - -mirrorI :: Irate -> Irate -> Irate -> Irate -mirrorI i0sig i1low i2high = opcode "mirror" args - where args = [to i0sig, to i1low, to i2high] - - --- | * opcode : mirror --- --- --- * syntax : --- --- > ares mirror asig, klow, khigh --- > ires mirror isig, ilow, ihigh --- > kres mirror ksig, klow, khigh --- --- --- * description : --- --- Reflects the signal that exceeds the low and high thresholds. --- --- --- * url : - -mirrorK :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -mirrorK k0sig k1low k2high = opcode "mirror" args - where args = [to k0sig, to k1low, to k2high] - - --- | * opcode : wrap --- --- --- * syntax : --- --- > ares wrap asig, klow, khigh --- > ires wrap isig, ilow, ihigh --- > kres wrap ksig, klow, khigh --- --- --- * description : --- --- Wraps-around the signal that exceeds the low and high --- thresholds. --- --- --- * url : - -wrapA :: (K k0, K k1) => Arate -> k0 -> k1 -> Arate -wrapA a0sig k1low k2high = opcode "wrap" args - where args = [to a0sig, to k1low, to k2high] - - --- | * opcode : wrap --- --- --- * syntax : --- --- > ares wrap asig, klow, khigh --- > ires wrap isig, ilow, ihigh --- > kres wrap ksig, klow, khigh --- --- --- * description : --- --- Wraps-around the signal that exceeds the low and high --- thresholds. --- --- --- * url : - -wrapI :: Irate -> Irate -> Irate -> Irate -wrapI i0sig i1low i2high = opcode "wrap" args - where args = [to i0sig, to i1low, to i2high] - - --- | * opcode : wrap --- --- --- * syntax : --- --- > ares wrap asig, klow, khigh --- > ires wrap isig, ilow, ihigh --- > kres wrap ksig, klow, khigh --- --- --- * description : --- --- Wraps-around the signal that exceeds the low and high --- thresholds. --- --- --- * url : - -wrapK :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -wrapK k0sig k1low k2high = opcode "wrap" args - where args = [to k0sig, to k1low, to k2high] diff --git a/src/CsoundExpr/Opcodes/Sigmod/Speciale.hs b/src/CsoundExpr/Opcodes/Sigmod/Speciale.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Speciale.hs +++ /dev/null @@ -1,161 +0,0 @@ --- | Special Effects -module CsoundExpr.Opcodes.Sigmod.Speciale - (distort, - distort1, - flanger, - harmon, - phaser1, - phaser2) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : distort --- --- --- * syntax : --- --- > ar distort asig, kdist, ifn[, ihp, istor] --- --- --- * description : --- --- --- --- --- * url : - -distort :: (K k0) => [Irate] -> Arate -> k0 -> Irate -> Arate -distort i0init a1sig k2dist i3fn = opcode "distort" args - where args = [to a1sig, to k2dist, to i3fn] ++ map to i0init - - --- | * opcode : distort1 --- --- --- * syntax : --- --- > ares distort1 asig, kpregain, kpostgain, kshape1, kshape2[, imode] --- --- --- * description : --- --- Implementation of modified hyperbolic tangent distortion. --- distort1 can be used to generate wave shaping distortion based on --- a modification of the tanh function. --- --- --- * url : - -distort1 :: - (K k0, K k1, K k2, K k3) => - [Irate] -> Arate -> k0 -> k1 -> k2 -> k3 -> Arate -distort1 i0init a1sig k2pregain k3postgain k4shape1 k5shape2 - = opcode "distort1" args - where args - = [to a1sig, to k2pregain, to k3postgain, to k4shape1, to k5shape2] - ++ map to i0init - - --- | * opcode : flanger --- --- --- * syntax : --- --- > ares flanger asig, adel, kfeedback [, imaxd] --- --- --- * description : --- --- A user controlled flanger. --- --- --- * url : - -flanger :: (K k0) => [Irate] -> Arate -> Arate -> k0 -> Arate -flanger i0init a1sig a2del k3feedback = opcode "flanger" args - where args = [to a1sig, to a2del, to k3feedback] ++ map to i0init - - --- | * opcode : harmon --- --- --- * syntax : --- --- > ares harmon asig, kestfrq, kmaxvar, kgenfreq1, kgenfreq2, imode, --- > iminfrq, iprd --- --- --- * description : --- --- Analyze an audio input and generate harmonizing voices in --- synchrony. --- --- --- * url : - -harmon :: - (K k0, K k1, K k2, K k3) => - Arate -> k0 -> k1 -> k2 -> k3 -> Irate -> Irate -> Irate -> Arate -harmon a0sig k1estfrq k2maxvar k3genfreq1 k4genfreq2 i5mode - i6minfrq i7prd = opcode "harmon" args - where args - = [to a0sig, to k1estfrq, to k2maxvar, to k3genfreq1, - to k4genfreq2, to i5mode, to i6minfrq, to i7prd] - - --- | * opcode : phaser1 --- --- --- * syntax : --- --- > ares phaser1 asig, kfreq, kord, kfeedback [, iskip] --- --- --- * description : --- --- An implementation of iord number of first-order allpass filters --- in series. --- --- --- * url : - -phaser1 :: - (K k0, K k1, K k2) => [Irate] -> Arate -> k0 -> k1 -> k2 -> Arate -phaser1 i0init a1sig k2freq k3ord k4feedback - = opcode "phaser1" args - where args - = [to a1sig, to k2freq, to k3ord, to k4feedback] ++ map to i0init - - --- | * opcode : phaser2 --- --- --- * syntax : --- --- > ares phaser2 asig, kfreq, kq, kord, kmode, ksep, kfeedback --- --- --- * description : --- --- An implementation of iord number of second-order allpass filters --- in series. --- --- --- * url : - -phaser2 :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - Arate -> k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Arate -phaser2 a0sig k1freq k2q k3ord k4mode k5sep k6feedback - = opcode "phaser2" args - where args - = [to a0sig, to k1freq, to k2q, to k3ord, to k4mode, to k5sep, - to k6feedback] diff --git a/src/CsoundExpr/Opcodes/Sigmod/Speciali.hs b/src/CsoundExpr/Opcodes/Sigmod/Speciali.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Speciali.hs +++ /dev/null @@ -1,283 +0,0 @@ --- | Specialized Filters -module CsoundExpr.Opcodes.Sigmod.Speciali - (dcblock, - dcblock2, - pareq, - rbjeq, - eqfil, - nlfilt, - filter2A, - filter2K, - fofilter, - hilbert, - zfilter2) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : dcblock --- --- --- * syntax : --- --- > ares dcblock ain [, igain] --- --- --- * description : --- --- Implements the DC blocking filter --- --- --- * url : - -dcblock :: [Irate] -> Arate -> Arate -dcblock i0init a1in = opcode "dcblock" args - where args = [to a1in] ++ map to i0init - - --- | * opcode : dcblock2 --- --- --- * syntax : --- --- > ares dcblock2 ain [, iorder] [, iskip] --- --- --- * description : --- --- Implements a DC blocking filter with improved DC attenuation. --- --- --- * url : - -dcblock2 :: [Irate] -> Arate -> Arate -dcblock2 i0init a1in = opcode "dcblock2" args - where args = [to a1in] ++ map to i0init - - --- | * opcode : pareq --- --- --- * syntax : --- --- > ares pareq asig, kc, kv, kq [, imode] [, iskip] --- --- --- * description : --- --- Implementation of Zoelzer's parametric equalizer filters, with --- some modifications by the author. --- --- --- * url : - -pareq :: - (K k0, K k1, K k2) => [Irate] -> Arate -> k0 -> k1 -> k2 -> Arate -pareq i0init a1sig k2c k3v k4q = opcode "pareq" args - where args = [to a1sig, to k2c, to k3v, to k4q] ++ map to i0init - - --- | * opcode : rbjeq --- --- --- * syntax : --- --- > ar rbjeq asig, kfco, klvl, kQ, kS[, imode] --- --- --- * description : --- --- Parametric equalizer and filter opcode with 7 filter types, --- based on algorithm by Robert Bristow-Johnson. --- --- --- * url : - -rbjeq :: - (K k0, K k1, K k2, K k3) => - [Irate] -> Arate -> k0 -> k1 -> k2 -> k3 -> Arate -rbjeq i0init a1sig k2fco k3lvl k4Q k5S = opcode "rbjeq" args - where args - = [to a1sig, to k2fco, to k3lvl, to k4Q, to k5S] ++ map to i0init - - --- | * opcode : eqfil --- --- --- * syntax : --- --- > asig eqfil ain, kcf, kbw, kgain[, istor] --- --- --- * description : --- --- The opcode eqfil is a 2nd order tunable equalisation filter --- based on Regalia and Mitra design ("Tunable Digital Frequency --- Response Equalization Filters", IEEE Trans. on Ac., Sp. and Sig --- Proc., 35 (1), 1987). It provides a peak/notch filter for --- building parametric/graphic equalisers. --- --- --- * url : - -eqfil :: - (K k0, K k1, K k2) => [Irate] -> Arate -> k0 -> k1 -> k2 -> Arate -eqfil i0init a1in k2cf k3bw k4gain = opcode "eqfil" args - where args - = [to a1in, to k2cf, to k3bw, to k4gain] ++ map to i0init - - --- | * opcode : nlfilt --- --- --- * syntax : --- --- > ares nlfilt ain, ka, kb, kd, kC, kL --- --- --- * description : --- --- Implements the filter: --- --- --- * url : - -nlfilt :: - (K k0, K k1, K k2, K k3, K k4) => - Arate -> k0 -> k1 -> k2 -> k3 -> k4 -> Arate -nlfilt a0in k1a k2b k3d k4C k5L = opcode "nlfilt" args - where args = [to a0in, to k1a, to k2b, to k3d, to k4C, to k5L] - - --- | * opcode : filter2 --- --- --- * syntax : --- --- > ares filter2 asig, iM, iN, ib0, ib1,..., ibM, ia1, ia2,..., iaN --- > kres filter2 ksig, iM, iN, ib0, ib1,..., ibM, ia1, ia2,..., iaN --- --- --- * description : --- --- General purpose custom filter with time-varying pole control. --- The filter coefficients implement the following difference --- equation: --- --- --- * url : - -filter2A :: Arate -> Irate -> Irate -> [Irate] -> [Irate] -> Arate -filter2A a0sig i1m i2n i3bs i4as = opcode "filter2" args - where args - = [to a0sig, to i1m, to i2n] ++ map to i3bs ++ map to i4as - - --- | * opcode : filter2 --- --- --- * syntax : --- --- > ares filter2 asig, iM, iN, ib0, ib1,..., ibM, ia1, ia2,..., iaN --- > kres filter2 ksig, iM, iN, ib0, ib1,..., ibM, ia1, ia2,..., iaN --- --- --- * description : --- --- General purpose custom filter with time-varying pole control. --- The filter coefficients implement the following difference --- equation: --- --- --- * url : - -filter2K :: - (K k0) => k0 -> Irate -> Irate -> [Irate] -> [Irate] -> Krate -filter2K k0sig i1m i2n i3bs i4as = opcode "filter2" args - where args - = [to k0sig, to i1m, to i2n] ++ map to i3bs ++ map to i4as - - --- | * opcode : fofilter --- --- --- * syntax : --- --- > asig fofilter ain, kcf, kris, kdec[, istor] --- --- --- * description : --- --- Fofilter generates a stream of overlapping sinewave grains, when --- fed with a pulse train. Each grain is the impulse response of a --- combination of two BP filters. The grains are defined by their --- attack time (determining the skirtwidth of the formant region at --- -60dB) and decay time (-6dB bandwidth). Overlapping will occur --- when 1/freq < decay, but, unlike FOF, there is no upper limit on --- the number of overlaps. The original idea for this opcode came --- from J McCartney's formlet class in SuperCollider, but this is --- possibly implemented differently(?). --- --- --- * url : - -fofilter :: - (K k0, K k1, K k2) => [Irate] -> Arate -> k0 -> k1 -> k2 -> Arate -fofilter i0init a1in k2cf k3ris k4dec = opcode "fofilter" args - where args - = [to a1in, to k2cf, to k3ris, to k4dec] ++ map to i0init - - --- | * opcode : hilbert --- --- --- * syntax : --- --- > ar1, ar2 hilbert asig --- --- --- * description : --- --- An IIR implementation of a Hilbert transformer. --- --- --- * url : - -hilbert :: Arate -> MultiOut -hilbert a0sig = opcode "hilbert" args - where args = [to a0sig] - - --- | * opcode : zfilter2 --- --- --- * syntax : --- --- > ares zfilter2 asig, kdamp, kfreq, iM, iN, ib0, ib1,..., ibM, --- > ia1,ia2,..., iaN --- --- --- * description : --- --- General purpose custom filter with time-varying pole control. --- The filter coefficients implement the following difference --- equation: --- --- --- * url : - -zfilter2 :: - (K k0, K k1) => - Arate -> k0 -> k1 -> Irate -> Irate -> [Irate] -> [Irate] -> Arate -zfilter2 a0sig k1damp k2freq i3m i4n i5bs i6as - = opcode "filter2" args - where args - = [to a0sig, to k1damp, to k2freq, to i3m, to i4n] ++ map to i5bs - ++ map to i6as diff --git a/src/CsoundExpr/Opcodes/Sigmod/Standard.hs b/src/CsoundExpr/Opcodes/Sigmod/Standard.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Standard.hs +++ /dev/null @@ -1,976 +0,0 @@ --- | Standard Filters -module CsoundExpr.Opcodes.Sigmod.Standard - (areson, - lowpass2, - lowres, - lowresx, - lpf18, - moogvcf, - moogladder, - reson, - resonr, - resonx, - resony, - resonz, - rezzy, - statevar, - svfilter, - tbvcf, - vlowres, - bqrez, - atone, - atonex, - tone, - tonex, - biquad, - biquada, - butterbp, - butterbr, - butterhp, - butterlp, - butbp, - butbr, - buthp, - butlp, - clfilt, - aresonk, - atonek, - lineto, - port, - portk, - resonk, - resonxk, - tlineto, - tonek) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : areson --- --- --- * syntax : --- --- > ares areson asig, kcf, kbw [, iscl] [, iskip] --- --- --- * description : --- --- A notch filter whose transfer functions are the complements of --- the reson opcode. --- --- --- * url : - -areson :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -areson i0init a1sig k2cf k3bw = opcode "areson" args - where args = [to a1sig, to k2cf, to k3bw] ++ map to i0init - - --- | * opcode : lowpass2 --- --- --- * syntax : --- --- > ares lowpass2 asig, kcf, kq [, iskip] --- --- --- * description : --- --- Implementation of a resonant second-order lowpass filter. --- --- --- * url : - -lowpass2 :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -lowpass2 i0init a1sig k2cf k3q = opcode "lowpass2" args - where args = [to a1sig, to k2cf, to k3q] ++ map to i0init - - --- | * opcode : lowres --- --- --- * syntax : --- --- > ares lowres asig, kcutoff, kresonance [, iskip] --- --- --- * description : --- --- lowres is a resonant lowpass filter. --- --- --- * url : - -lowres :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -lowres i0init a1sig k2cutoff k3resonance = opcode "lowres" args - where args - = [to a1sig, to k2cutoff, to k3resonance] ++ map to i0init - - --- | * opcode : lowresx --- --- --- * syntax : --- --- > ares lowresx asig, kcutoff, kresonance [, inumlayer] [, iskip] --- --- --- * description : --- --- lowresx is equivalent to more layers of lowres with the same --- arguments serially connected. --- --- --- * url : - -lowresx :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -lowresx i0init a1sig k2cutoff k3resonance = opcode "lowresx" args - where args - = [to a1sig, to k2cutoff, to k3resonance] ++ map to i0init - - --- | * opcode : lpf18 --- --- --- * syntax : --- --- > ares lpf18 asig, kfco, kres, kdist --- --- --- * description : --- --- Implementation of a 3 pole sweepable resonant lowpass filter. --- --- --- * url : - -lpf18 :: (K k0, K k1, K k2) => Arate -> k0 -> k1 -> k2 -> Arate -lpf18 a0sig k1fco k2res k3dist = opcode "lpf18" args - where args = [to a0sig, to k1fco, to k2res, to k3dist] - - --- | * opcode : moogvcf --- --- --- * syntax : --- --- > ares moogvcf asig, xfco, xres [,iscale, iskip] --- --- --- * description : --- --- A digital emulation of the Moog diode ladder filter --- configuration. --- --- --- * url : - -moogvcf :: (X x0, X x1) => [Irate] -> Arate -> x0 -> x1 -> Arate -moogvcf i0init a1sig x2fco x3res = opcode "moogvcf" args - where args = [to a1sig, to x2fco, to x3res] ++ map to i0init - - --- | * opcode : moogladder --- --- --- * syntax : --- --- > asig moogladder ain, kcf, kres[, istor] --- --- --- * description : --- --- Moogladder is an new digital implementation of the Moog ladder --- filter based on the work of Antti Huovilainen, described in the --- paper "Non-Linear Digital Implementation of the Moog Ladder --- Filter" (Proceedings of DaFX04, Univ of Napoli). This --- implementation is probably a more accurate digital representation --- of the original analogue filter. --- --- --- * url : - -moogladder :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -moogladder i0init a1in k2cf k3res = opcode "moogladder" args - where args = [to a1in, to k2cf, to k3res] ++ map to i0init - - --- | * opcode : reson --- --- --- * syntax : --- --- > ares reson asig, kcf, kbw [, iscl] [, iskip] --- --- --- * description : --- --- A second-order resonant filter. --- --- --- * url : - -reson :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -reson i0init a1sig k2cf k3bw = opcode "reson" args - where args = [to a1sig, to k2cf, to k3bw] ++ map to i0init - - --- | * opcode : resonr --- --- --- * syntax : --- --- > ares resonr asig, kcf, kbw [, iscl] [, iskip] --- --- --- * description : --- --- Implementations of a second-order, two-pole two-zero bandpass --- filter with variable frequency response. --- --- --- * url : - -resonr :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -resonr i0init a1sig k2cf k3bw = opcode "resonr" args - where args = [to a1sig, to k2cf, to k3bw] ++ map to i0init - - --- | * opcode : resonx --- --- --- * syntax : --- --- > ares resonx asig, kcf, kbw [, inumlayer] [, iscl] [, iskip] --- --- --- * description : --- --- resonx is equivalent to a filters consisting of more layers of --- reson with the same arguments, serially connected. Using a stack --- of a larger number of filters allows a sharper cutoff. They are --- faster than using a larger number instances in a Csound orchestra --- of the old opcodes, because only one initialization and k- cycle --- are needed at time and the audio loop falls entirely inside the --- cache memory of processor. --- --- --- * url : - -resonx :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -resonx i0init a1sig k2cf k3bw = opcode "resonx" args - where args = [to a1sig, to k2cf, to k3bw] ++ map to i0init - - --- | * opcode : resony --- --- --- * syntax : --- --- > ares resony asig, kbf, kbw, inum, ksep [, isepmode] [, iscl] [, iskip] --- --- --- * description : --- --- A bank of second-order bandpass filters, connected in parallel. --- --- --- * url : - -resony :: - (K k0, K k1, K k2) => - [Irate] -> Arate -> k0 -> k1 -> Irate -> k2 -> Arate -resony i0init a1sig k2bf k3bw i4num k5sep = opcode "resony" args - where args - = [to a1sig, to k2bf, to k3bw, to i4num, to k5sep] ++ map to i0init - - --- | * opcode : resonz --- --- --- * syntax : --- --- > ares resonz asig, kcf, kbw [, iscl] [, iskip] --- --- --- * description : --- --- Implementations of a second-order, two-pole two-zero bandpass --- filter with variable frequency response. --- --- --- * url : - -resonz :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -resonz i0init a1sig k2cf k3bw = opcode "resonz" args - where args = [to a1sig, to k2cf, to k3bw] ++ map to i0init - - --- | * opcode : rezzy --- --- --- * syntax : --- --- > ares rezzy asig, xfco, xres [, imode, iskip] --- --- --- * description : --- --- A resonant low-pass filter. --- --- --- * url : - -rezzy :: (X x0, X x1) => [Irate] -> Arate -> x0 -> x1 -> Arate -rezzy i0init a1sig x2fco x3res = opcode "rezzy" args - where args = [to a1sig, to x2fco, to x3res] ++ map to i0init - - --- | * opcode : statevar --- --- --- * syntax : --- --- > ahp,alp,abp,abr statevar ain, kcf, kq [, iosamps, istor] --- --- --- * description : --- --- Statevar is a new digital implementation of the analogue --- state-variable filter. This filter has four simultaneous outputs: --- high-pass, low-pass, band-pass and band-reject. This filter uses --- oversampling for sharper resonance (default: 3 times --- oversampling). It includes a resonance limiter that prevents the --- filter from getting unstable. --- --- --- * url : - -statevar :: - (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> MultiOut -statevar i0init a1in k2cf k3q = opcode "statevar" args - where args = [to a1in, to k2cf, to k3q] ++ map to i0init - - --- | * opcode : svfilter --- --- --- * syntax : --- --- > alow, ahigh, aband svfilter asig, kcf, kq [, iscl] --- --- --- * description : --- --- Implementation of a resonant second order filter, with --- simultaneous lowpass, highpass and bandpass outputs. --- --- --- * url : - -svfilter :: - (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> MultiOut -svfilter i0init a1sig k2cf k3q = opcode "svfilter" args - where args = [to a1sig, to k2cf, to k3q] ++ map to i0init - - --- | * opcode : tbvcf --- --- --- * syntax : --- --- > ares tbvcf asig, xfco, xres, kdist, kasym [, iskip] --- --- --- * description : --- --- This opcode attempts to model some of the filter characteristics --- of a Roland TB303 voltage-controlled filter. Euler's method is --- used to approximate the system, rather than traditional filter --- methods. Cutoff frequency, Q, and distortion are all coupled. --- Empirical methods were used to try to unentwine, but frequency is --- only approximate as a result. Future fixes for some problems with --- this opcode may break existing orchestras relying on this version --- of tbvcf. --- --- --- * url : - -tbvcf :: - (X x0, X x1, K k0, K k1) => - [Irate] -> Arate -> x0 -> x1 -> k0 -> k1 -> Arate -tbvcf i0init a1sig x2fco x3res k4dist k5asym = opcode "tbvcf" args - where args - = [to a1sig, to x2fco, to x3res, to k4dist, to k5asym] ++ - map to i0init - - --- | * opcode : vlowres --- --- --- * syntax : --- --- > ares vlowres asig, kfco, kres, iord, ksep --- --- --- * description : --- --- A bank of filters in which the cutoff frequency can be separated --- under user control --- --- --- * url : - -vlowres :: - (K k0, K k1, K k2) => Arate -> k0 -> k1 -> Irate -> k2 -> Arate -vlowres a0sig k1fco k2res i3ord k4sep = opcode "vlowres" args - where args = [to a0sig, to k1fco, to k2res, to i3ord, to k4sep] - - --- | * opcode : bqrez --- --- --- * syntax : --- --- > ares bqrez asig, xfco, xres [, imode] [, iskip] --- --- --- * description : --- --- A second-order multi-mode filter. --- --- --- * url : - -bqrez :: (X x0, X x1) => [Irate] -> Arate -> x0 -> x1 -> Arate -bqrez i0init a1sig x2fco x3res = opcode "bqrez" args - where args = [to a1sig, to x2fco, to x3res] ++ map to i0init - - --- | * opcode : atone --- --- --- * syntax : --- --- > ares atone asig, khp [, iskip] --- --- --- * description : --- --- A hi-pass filter whose transfer functions are the complements of --- the tone opcode. --- --- --- * url : - -atone :: (K k0) => [Irate] -> Arate -> k0 -> Arate -atone i0init a1sig k2hp = opcode "atone" args - where args = [to a1sig, to k2hp] ++ map to i0init - - --- | * opcode : atonex --- --- --- * syntax : --- --- > ares atonex asig, khp [, inumlayer] [, iskip] --- --- --- * description : --- --- atonex is equivalent to a filter consisting of more layers of --- atone with the same arguments, serially connected. Using a stack --- of a larger number of filters allows a sharper cutoff. They are --- faster than using a larger number instances in a Csound orchestra --- of the old opcodes, because only one initialization and k- cycle --- are needed at time and the audio loop falls entirely inside the --- cache memory of processor. --- --- --- * url : - -atonex :: (K k0) => [Irate] -> Arate -> k0 -> Arate -atonex i0init a1sig k2hp = opcode "atonex" args - where args = [to a1sig, to k2hp] ++ map to i0init - - --- | * opcode : tone --- --- --- * syntax : --- --- > ares tone asig, khp [, iskip] --- --- --- * description : --- --- A first-order recursive low-pass filter with variable frequency --- response. --- --- --- * url : - -tone :: (K k0) => [Irate] -> Arate -> k0 -> Arate -tone i0init a1sig k2hp = opcode "tone" args - where args = [to a1sig, to k2hp] ++ map to i0init - - --- | * opcode : tonex --- --- --- * syntax : --- --- > ares tonex asig, khp [, inumlayer] [, iskip] --- --- --- * description : --- --- tonex is equivalent to a filter consisting of more layers of --- tone with the same arguments, serially connected. Using a stack --- of a larger number of filters allows a sharper cutoff. They are --- faster than using a larger number instances in a Csound orchestra --- of the old opcodes, because only one initialization and k- cycle --- are needed at time and the audio loop falls entirely inside the --- cache memory of processor. --- --- --- * url : - -tonex :: (K k0) => [Irate] -> Arate -> k0 -> Arate -tonex i0init a1sig k2hp = opcode "tonex" args - where args = [to a1sig, to k2hp] ++ map to i0init - - --- | * opcode : biquad --- --- --- * syntax : --- --- > ares biquad asig, kb0, kb1, kb2, ka0, ka1, ka2 [, iskip] --- --- --- * description : --- --- A sweepable general purpose biquadratic digital filter. --- --- --- * url : - -biquad :: - (K k0, K k1, K k2, K k3, K k4, K k5) => - [Irate] -> Arate -> k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> Arate -biquad i0init a1sig k2b0 k3b1 k4b2 k5a0 k6a1 k7a2 - = opcode "biquad" args - where args - = [to a1sig, to k2b0, to k3b1, to k4b2, to k5a0, to k6a1, to k7a2] - ++ map to i0init - - --- | * opcode : biquada --- --- --- * syntax : --- --- > ares biquada asig, ab0, ab1, ab2, aa0, aa1, aa2 [, iskip] --- --- --- * description : --- --- A sweepable general purpose biquadratic digital filter. --- --- --- * url : - -biquada :: - [Irate] -> - Arate -> - Arate -> Arate -> Arate -> Arate -> Arate -> Arate -> Arate -biquada i0init a1sig a2b0 a3b1 a4b2 a5a0 a6a1 a7a2 - = opcode "biquada" args - where args - = [to a1sig, to a2b0, to a3b1, to a4b2, to a5a0, to a6a1, to a7a2] - ++ map to i0init - - --- | * opcode : butterbp --- --- --- * syntax : --- --- > ares butterbp asig, kfreq, kband [, iskip] --- --- --- * description : --- --- Implementation of a second-order band-pass Butterworth filter. --- This opcode can also be written as butbp. --- --- --- * url : - -butterbp :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -butterbp i0init a1sig k2freq k3band = opcode "butterbp" args - where args = [to a1sig, to k2freq, to k3band] ++ map to i0init - - --- | * opcode : butterbr --- --- --- * syntax : --- --- > ares butterbr asig, kfreq, kband [, iskip] --- --- --- * description : --- --- Implementation of a second-order band-reject Butterworth filter. --- This opcode can also be written as butbr. --- --- --- * url : - -butterbr :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -butterbr i0init a1sig k2freq k3band = opcode "butterbr" args - where args = [to a1sig, to k2freq, to k3band] ++ map to i0init - - --- | * opcode : butterhp --- --- --- * syntax : --- --- > ares butterhp asig, kfreq [, iskip] --- --- --- * description : --- --- Implementation of second-order high-pass Butterworth filter. --- This opcode can also be written as buthp. --- --- --- * url : - -butterhp :: (K k0) => [Irate] -> Arate -> k0 -> Arate -butterhp i0init a1sig k2freq = opcode "butterhp" args - where args = [to a1sig, to k2freq] ++ map to i0init - - --- | * opcode : butterlp --- --- --- * syntax : --- --- > ares butterlp asig, kfreq [, iskip] --- --- --- * description : --- --- Implementation of a second-order low-pass Butterworth filter. --- This opcode can also be written as butlp. --- --- --- * url : - -butterlp :: (K k0) => [Irate] -> Arate -> k0 -> Arate -butterlp i0init a1sig k2freq = opcode "butterlp" args - where args = [to a1sig, to k2freq] ++ map to i0init - - --- | * opcode : butbp --- --- --- * syntax : --- --- > ares butbp asig, kfreq, kband [, iskip] --- --- --- * description : --- --- Same as the butterbp opcode. --- --- --- * url : - -butbp :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -butbp i0init a1sig k2freq k3band = opcode "butbp" args - where args = [to a1sig, to k2freq, to k3band] ++ map to i0init - - --- | * opcode : butbr --- --- --- * syntax : --- --- > ares butbr asig, kfreq, kband [, iskip] --- --- --- * description : --- --- Same as the butterbr opcode. --- --- --- * url : - -butbr :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -butbr i0init a1sig k2freq k3band = opcode "butbr" args - where args = [to a1sig, to k2freq, to k3band] ++ map to i0init - - --- | * opcode : buthp --- --- --- * syntax : --- --- > ares buthp asig, kfreq [, iskip] --- --- --- * description : --- --- Same as the butterhp opcode. --- --- --- * url : - -buthp :: (K k0) => [Irate] -> Arate -> k0 -> Arate -buthp i0init a1sig k2freq = opcode "buthp" args - where args = [to a1sig, to k2freq] ++ map to i0init - - --- | * opcode : butlp --- --- --- * syntax : --- --- > ares butlp asig, kfreq [, iskip] --- --- --- * description : --- --- Same as the butterlp opcode. --- --- --- * url : - -butlp :: (K k0) => [Irate] -> Arate -> k0 -> Arate -butlp i0init a1sig k2freq = opcode "butlp" args - where args = [to a1sig, to k2freq] ++ map to i0init - - --- | * opcode : clfilt --- --- --- * syntax : --- --- > ares clfilt asig, kfreq, itype, inpol [, ikind] [, ipbr] [, isba] [, iskip] --- --- --- * description : --- --- Implements the classical standard analog filter types: low-pass --- and high-pass. They are implemented with the four classical kinds --- of filters: Butterworth, Chebyshev Type I, Chebyshev Type II, and --- Elliptical. The number of poles may be any even number from 2 to --- 80. --- --- --- * url : - -clfilt :: - (K k0) => [Irate] -> Arate -> k0 -> Irate -> Irate -> Arate -clfilt i0init a1sig k2freq i3type i4npol = opcode "clfilt" args - where args - = [to a1sig, to k2freq, to i3type, to i4npol] ++ map to i0init - - --- | * opcode : aresonk --- --- --- * syntax : --- --- > kres aresonk ksig, kcf, kbw [, iscl] [, iskip] --- --- --- * description : --- --- A notch filter whose transfer functions are the complements of --- the reson opcode. --- --- --- * url : - -aresonk :: (K k0, K k1, K k2) => [Irate] -> k0 -> k1 -> k2 -> Krate -aresonk i0init k1sig k2cf k3bw = opcode "aresonk" args - where args = [to k1sig, to k2cf, to k3bw] ++ map to i0init - - --- | * opcode : atonek --- --- --- * syntax : --- --- > kres atonek ksig, khp [, iskip] --- --- --- * description : --- --- A hi-pass filter whose transfer functions are the complements of --- the tonek opcode. --- --- --- * url : - -atonek :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -atonek i0init k1sig k2hp = opcode "atonek" args - where args = [to k1sig, to k2hp] ++ map to i0init - - --- | * opcode : lineto --- --- --- * syntax : --- --- > kres lineto ksig, ktime --- --- --- * description : --- --- Generate glissandos starting from a control signal. --- --- --- * url : - -lineto :: (K k0, K k1) => k0 -> k1 -> Krate -lineto k0sig k1time = opcode "lineto" args - where args = [to k0sig, to k1time] - - --- | * opcode : port --- --- --- * syntax : --- --- > kres port ksig, ihtim [, isig] --- --- --- * description : --- --- Applies portamento to a step-valued control signal. --- --- --- * url : - -port :: (K k0) => [Irate] -> k0 -> Irate -> Krate -port i0init k1sig i2htim = opcode "port" args - where args = [to k1sig, to i2htim] ++ map to i0init - - --- | * opcode : portk --- --- --- * syntax : --- --- > kres portk ksig, khtim [, isig] --- --- --- * description : --- --- Applies portamento to a step-valued control signal. --- --- --- * url : - -portk :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -portk i0init k1sig k2htim = opcode "portk" args - where args = [to k1sig, to k2htim] ++ map to i0init - - --- | * opcode : resonk --- --- --- * syntax : --- --- > kres resonk ksig, kcf, kbw [, iscl] [, iskip] --- --- --- * description : --- --- A second-order resonant filter. --- --- --- * url : - -resonk :: (K k0, K k1, K k2) => [Irate] -> k0 -> k1 -> k2 -> Krate -resonk i0init k1sig k2cf k3bw = opcode "resonk" args - where args = [to k1sig, to k2cf, to k3bw] ++ map to i0init - - --- | * opcode : resonxk --- --- --- * syntax : --- --- > kres resonxk ksig, kcf, kbw[, inumlayer, iscl, istor] --- --- --- * description : --- --- resonxk is equivalent to a group of resonk filters, with the --- same arguments, serially connected. Using a stack of a larger --- number of filters allows a sharper cutoff. --- --- --- * url : - -resonxk :: (K k0, K k1, K k2) => [Irate] -> k0 -> k1 -> k2 -> Krate -resonxk i0init k1sig k2cf k3bw = opcode "resonxk" args - where args = [to k1sig, to k2cf, to k3bw] ++ map to i0init - - --- | * opcode : tlineto --- --- --- * syntax : --- --- > kres tlineto ksig, ktime, ktrig --- --- --- * description : --- --- Generate glissandos starting from a control signal with a --- trigger. --- --- --- * url : - -tlineto :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Krate -tlineto k0sig k1time k2trig = opcode "tlineto" args - where args = [to k0sig, to k1time, to k2trig] - - --- | * opcode : tonek --- --- --- * syntax : --- --- > kres tonek ksig, khp [, iskip] --- --- --- * description : --- --- A first-order recursive low-pass filter with variable frequency --- response. --- --- --- * url : - -tonek :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -tonek i0init k1sig k2hp = opcode "tonek" args - where args = [to k1sig, to k2hp] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Sigmod/Wavguide.hs b/src/CsoundExpr/Opcodes/Sigmod/Wavguide.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Wavguide.hs +++ /dev/null @@ -1,33 +0,0 @@ --- | Waveguides -module CsoundExpr.Opcodes.Sigmod.Wavguide - (streson) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : streson --- --- --- * syntax : --- --- > ares streson asig, kfr, ifdbgain --- --- --- * description : --- --- An audio signal is modified by a string resonator with variable --- fundamental frequency. --- --- --- * url : - -streson :: (K k0) => Arate -> k0 -> Irate -> Arate -streson a0sig k1fr i2fdbgain = opcode "streson" args - where args = [to a0sig, to k1fr, to i2fdbgain] diff --git a/src/CsoundExpr/Opcodes/Sigmod/Wavshape.hs b/src/CsoundExpr/Opcodes/Sigmod/Wavshape.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Sigmod/Wavshape.hs +++ /dev/null @@ -1,166 +0,0 @@ --- | Waveshaping and Phase Distortion -module CsoundExpr.Opcodes.Sigmod.Wavshape - (chebyshevpoly, - polynomial, - powershape, - pdclip, - pdhalf, - pdhalfy) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : chebyshevpoly --- --- --- * syntax : --- --- > aout chebyshevpoly ain, k0 [, k1 [, k2 [...]]] --- --- --- * description : --- --- The chebyshevpoly opcode calculates the value of a polynomial --- expression with a single a-rate input variable that is made up of --- a linear combination of the first N Chebyshev polynomials of the --- first kind. Each Chebyshev polynomial, Tn(x), is weighted by a --- k-rate coefficient, kn, so that the opcode is calculating a sum --- of any number of terms in the form kn*Tn(x). Thus, the --- chebyshevpoly opcode allows for the waveshaping of an audio --- signal with a dynamic transfer function that gives precise --- control over the harmonic content of the output. --- --- --- * url : - -chebyshevpoly :: (K k0) => Arate -> [k0] -> Arate -chebyshevpoly a0in k1vals = opcode "chebyshevpoly" args - where args = [to a0in] ++ map to k1vals - - --- | * opcode : polynomial --- --- --- * syntax : --- --- > aout polynomial ain, k0 [, k1 [, k2 [...]]] --- --- --- * description : --- --- The polynomial opcode calculates a polynomial with a single --- a-rate input variable. The polynomial is a sum of any number of --- terms in the form kn*x^n where kn is the nth coefficient of the --- expression. These coefficients are k-rate values. --- --- --- * url : - -polynomial :: (K k0) => Arate -> [k0] -> Arate -polynomial a0in k1vals = opcode "polynomial" args - where args = [to a0in] ++ map to k1vals - - --- | * opcode : powershape --- --- --- * syntax : --- --- > aout powershape ain, kShapeAmount [, ifullscale] --- --- --- * description : --- --- The powershape opcode raises an input signal to a power with --- pre- and post-scaling of the signal so that the output will be in --- a predictable range. It also processes negative inputs in a --- symmetrical way to positive inputs, calculating a dynamic --- transfer function that is useful for waveshaping. --- --- --- * url : - -powershape :: (K k0) => [Irate] -> Arate -> k0 -> Arate -powershape i0init a1in k2ShapeAmount = opcode "powershape" args - where args = [to a1in, to k2ShapeAmount] ++ map to i0init - - --- | * opcode : pdclip --- --- --- * syntax : --- --- > aout pdclip ain, kWidth, kCenter [, ibipolar [, ifullscale]] --- --- --- * description : --- --- The pdclip opcode allows a percentage of the input range of a --- signal to be clipped to fullscale. It is similar to simply --- multiplying the signal and limiting the range of the result, but --- pdclip allows you to think about how much of the signal range is --- being distorted instead of the scalar factor and has a offset --- parameter for assymetric clipping of the signal range. pdclip is --- also useful for remapping phasors for phase distortion synthesis. --- --- --- * url : - -pdclip :: (K k0, K k1) => [Irate] -> Arate -> k0 -> k1 -> Arate -pdclip i0init a1in k2Width k3Center = opcode "pdclip" args - where args = [to a1in, to k2Width, to k3Center] ++ map to i0init - - --- | * opcode : pdhalf --- --- --- * syntax : --- --- > aout pdhalf ain, kShapeAmount [, ibipolar [, ifullscale]] --- --- --- * description : --- --- The pdhalf opcode is designed to emulate the "classic" phase --- distortion synthesis method of the Casio CZ-series of --- synthesizers from the mid-1980's. This technique reads the first --- and second halves of a function table at different rates in order --- to warp the waveform. For example, pdhalf can smoothly transform --- a sine wave into something approximating the shape of a saw wave. --- --- --- * url : - -pdhalf :: (K k0) => [Irate] -> Arate -> k0 -> Arate -pdhalf i0init a1in k2ShapeAmount = opcode "pdhalf" args - where args = [to a1in, to k2ShapeAmount] ++ map to i0init - - --- | * opcode : pdhalfy --- --- --- * syntax : --- --- > aout pdhalfy ain, kShapeAmount [, ibipolar [, ifullscale]] --- --- --- * description : --- --- The pdhalfy opcode is a variation on the phase distortion --- synthesis method of the pdhalf opcode. It is useful for --- distorting a phasor in order to read two unequal portions of a --- table in the same number of samples. --- --- --- * url : - -pdhalfy :: (K k0) => [Irate] -> Arate -> k0 -> Arate -pdhalfy i0init a1in k2ShapeAmount = opcode "pdhalfy" args - where args = [to a1in, to k2ShapeAmount] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/SignalFlowGraphOpcodes.hs b/src/CsoundExpr/Opcodes/SignalFlowGraphOpcodes.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/SignalFlowGraphOpcodes.hs +++ /dev/null @@ -1,8 +0,0 @@ --- | Signal Flow Graph Opcodes -module CsoundExpr.Opcodes.SignalFlowGraphOpcodes - (module CsoundExpr.Opcodes.SignalFlowGraphOpcodes.SignalFlowGraphOpcodes) -where - - - -import CsoundExpr.Opcodes.SignalFlowGraphOpcodes.SignalFlowGraphOpcodes diff --git a/src/CsoundExpr/Opcodes/SignalFlowGraphOpcodes/SignalFlowGraphOpcodes.hs b/src/CsoundExpr/Opcodes/SignalFlowGraphOpcodes/SignalFlowGraphOpcodes.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/SignalFlowGraphOpcodes/SignalFlowGraphOpcodes.hs +++ /dev/null @@ -1,119 +0,0 @@ --- | Signal Flow Graph Opcodes -module CsoundExpr.Opcodes.SignalFlowGraphOpcodes.SignalFlowGraphOpcodes - (outleta, - outletk, - inleta, - inletk, - ftgenonce) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : outleta --- --- --- * syntax : --- --- > outleta Sname, asignal --- --- --- * description : --- --- Sends an arate signal out from an instrument to a named port. --- --- --- * url : - -outleta :: String -> Arate -> SignalOut -outleta s0name a1signal = outOpcode "outleta" args - where args = [to s0name, to a1signal] - - --- | * opcode : outletk --- --- --- * syntax : --- --- > outletk Sname, ksignal --- --- --- * description : --- --- Sends a krate signal out from an instrument to a named port. --- --- --- * url : - -outletk :: (K k0) => String -> k0 -> SignalOut -outletk s0name k1signal = outOpcode "outletk" args - where args = [to s0name, to k1signal] - - --- | * opcode : inleta --- --- --- * syntax : --- --- > asignal inleta Sname --- --- --- * description : --- --- Receives an arate signal into an instrument through a named --- port. --- --- --- * url : - -inleta :: String -> Arate -inleta s0name = opcode "inleta" args - where args = [to s0name] - - --- | * opcode : inletk --- --- --- * syntax : --- --- > ksignal inletk Sname --- --- --- * description : --- --- Receives a krate signal into an instrument from a named port. --- --- --- * url : - -inletk :: String -> Krate -inletk s0name = opcode "inletk" args - where args = [to s0name] - - --- | * opcode : ftgenonce --- --- --- * syntax : --- --- > ifno ftgenonce ip1dummy, ip2dummy, isize, igen, iarga, iargb,... --- --- --- * description : --- --- Generate a function table from within an instrument definition, --- without duplication of data. --- --- --- * url : - -ftgenonce :: Irate -> Irate -> Irate -> Irate -> [Irate] -> Irate -ftgenonce i0p1 i1p2 i2size i3gen i4vals = opcode "ftgenonce" args - where args - = [to i0p1, to i1p2, to i2size, to i3gen] ++ map to i4vals diff --git a/src/CsoundExpr/Opcodes/Spectral.hs b/src/CsoundExpr/Opcodes/Spectral.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Spectral.hs +++ /dev/null @@ -1,18 +0,0 @@ --- | Spectral Processing -module CsoundExpr.Opcodes.Spectral - (module CsoundExpr.Opcodes.Spectral.SiggenStft, - module CsoundExpr.Opcodes.Spectral.Lpcresyn, - module CsoundExpr.Opcodes.Spectral.Nonstand, - module CsoundExpr.Opcodes.Spectral.RealTime, - module CsoundExpr.Opcodes.Spectral.ATS, - module CsoundExpr.Opcodes.Spectral.Loris) -where - - - -import CsoundExpr.Opcodes.Spectral.SiggenStft -import CsoundExpr.Opcodes.Spectral.Lpcresyn -import CsoundExpr.Opcodes.Spectral.Nonstand -import CsoundExpr.Opcodes.Spectral.RealTime -import CsoundExpr.Opcodes.Spectral.ATS -import CsoundExpr.Opcodes.Spectral.Loris diff --git a/src/CsoundExpr/Opcodes/Spectral/ATS.hs b/src/CsoundExpr/Opcodes/Spectral/ATS.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Spectral/ATS.hs +++ /dev/null @@ -1,261 +0,0 @@ --- | ATS Spectral Processing -module CsoundExpr.Opcodes.Spectral.ATS - (atsInfo, - atsRead, - atsReadnz, - atsBufread, - atsInterpread, - atsPartialtap, - atsAdd, - atsAddnz, - atsCross, - atsSinnoi) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : ATSinfo --- --- --- * syntax : --- --- > idata ATSinfo iatsfile, ilocation --- --- --- * description : --- --- atsinfo reads data out of the header of an ATS file. --- --- --- * url : - -atsInfo :: Irate -> Irate -> Irate -atsInfo i0atsfile i1location = opcode "ATSinfo" args - where args = [to i0atsfile, to i1location] - - --- | * opcode : ATSread --- --- --- * syntax : --- --- > kfreq, kamp ATSread ktimepnt, iatsfile, ipartial --- --- --- * description : --- --- ATSread returns the amplitude (kamp) and frequency (kfreq) --- information of a user specified partial contained in the ATS --- analysis file at the time indicated by the time pointer ktimepnt. --- --- --- * url : - -atsRead :: (K k0) => k0 -> Irate -> Irate -> MultiOut -atsRead k0timepnt i1atsfile i2partial = opcode "ATSread" args - where args = [to k0timepnt, to i1atsfile, to i2partial] - - --- | * opcode : ATSreadnz --- --- --- * syntax : --- --- > kenergy ATSreadnz ktimepnt, iatsfile, iband --- --- --- * description : --- --- ATSreadnz returns the energy (kenergy) of a user specified noise --- band (1-25 bands) at the time indicated by the time pointer --- ktimepnt. --- --- --- * url : - -atsReadnz :: (K k0) => k0 -> Irate -> Irate -> Krate -atsReadnz k0timepnt i1atsfile i2band = opcode "ATSreadnz" args - where args = [to k0timepnt, to i1atsfile, to i2band] - - --- | * opcode : ATSbufread --- --- --- * syntax : --- --- > ATSbufread ktimepnt, kfmod, iatsfile, ipartials[, ipartialoffset, --- > ipartialincr] --- --- --- * description : --- --- ATSbufread reads data from and ATS data file and stores it in an --- internal data table of frequency, amplitude pairs. --- --- --- * url : - -atsBufread :: - (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Irate -> SignalOut -atsBufread i0init k1timepnt k2fmod i3atsfile i4partials - = outOpcode "ATSbufread" args - where args - = [to k1timepnt, to k2fmod, to i3atsfile, to i4partials] ++ - map to i0init - - --- | * opcode : ATSinterpread --- --- --- * syntax : --- --- > kamp ATSinterpread kfreq --- --- --- * description : --- --- ATSinterpread allows a user to determine the frequency envelope --- of any ATSbufread. --- --- --- * url : - -atsInterpread :: (K k0) => k0 -> Krate -atsInterpread k0freq = opcode "ATSinterpread" args - where args = [to k0freq] - - --- | * opcode : ATSpartialtap --- --- --- * syntax : --- --- > kfrq, kamp ATSpartialtap ipartialnum --- --- --- * description : --- --- ATSpartialtap takes a partial number and returns a frequency, --- amplitude pair. The frequency and amplitude data comes from an --- ATSbufread opcode. --- --- --- * url : - -atsPartialtap :: Irate -> MultiOut -atsPartialtap i0partialnum = opcode "ATSpartialtap" args - where args = [to i0partialnum] - - --- | * opcode : ATSadd --- --- --- * syntax : --- --- > ar ATSadd ktimepnt, kfmod, iatsfile, ifn, ipartials[, ipartialoffset, --- > ipartialincr, igatefn] --- --- --- * description : --- --- ATSadd reads from an ATS analysis file and uses the data to --- perform additive synthesis using an internal array of --- interpolating oscillators. --- --- --- * url : - -atsAdd :: - (K k0, K k1) => - [Irate] -> k0 -> k1 -> Irate -> Irate -> Irate -> Arate -atsAdd i0init k1timepnt k2fmod i3atsfile i4fn i5partials - = opcode "ATSadd" args - where args - = [to k1timepnt, to k2fmod, to i3atsfile, to i4fn, to i5partials] - ++ map to i0init - - --- | * opcode : ATSaddnz --- --- --- * syntax : --- --- > ar ATSaddnz ktimepnt, iatsfile, ibands[, ibandoffset, ibandincr] --- --- --- * description : --- --- ATSaddnz reads from an ATS analysis file and uses the data to --- perform additive synthesis using a modified randi function. --- --- --- * url : - -atsAddnz :: (K k0) => [Irate] -> k0 -> Irate -> Irate -> Arate -atsAddnz i0init k1timepnt i2atsfile i3bands - = opcode "ATSaddnz" args - where args - = [to k1timepnt, to i2atsfile, to i3bands] ++ map to i0init - - --- | * opcode : ATScross --- --- --- * syntax : --- --- > ar ATScross ktimepnt, kfmod, iatsfile, ifn, kmylev, kbuflev, ipartials --- > [, ipartialoffset, ipartialincr] --- --- --- * description : --- --- ATScross uses data from an ATS analysis file and data from an --- ATSbufread to perform cross synthesis. --- --- --- * url : - -atsCross :: - (K k0, K k1, K k2, K k3) => - [Irate] -> k0 -> k1 -> Irate -> Irate -> k2 -> k3 -> Irate -> Arate -atsCross i0init k1timepnt k2fmod i3atsfile i4fn k5mylev k6buflev - i7partials = opcode "ATScross" args - where args - = [to k1timepnt, to k2fmod, to i3atsfile, to i4fn, to k5mylev, - to k6buflev, to i7partials] - ++ map to i0init - - --- | * opcode : ATSsinnoi --- --- --- * syntax : --- --- > ar ATSsinnoi ktimepnt, ksinlev, knzlev, kfmod, iatsfile, ipartials --- > [, ipartialoffset, ipartialincr] --- --- --- * description : --- --- ATSsinnoi reads data from an ATS data file and uses the --- information to synthesize sines and noise together. --- --- --- * url : - -atsSinnoi :: - (K k0, K k1, K k2, K k3) => - [Irate] -> k0 -> k1 -> k2 -> k3 -> Irate -> Irate -> Arate -atsSinnoi i0init k1timepnt k2sinlev k3nzlev k4fmod i5atsfile - i6partials = opcode "ATSsinnoi" args - where args - = [to k1timepnt, to k2sinlev, to k3nzlev, to k4fmod, to i5atsfile, - to i6partials] - ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Spectral/Loris.hs b/src/CsoundExpr/Opcodes/Spectral/Loris.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Spectral/Loris.hs +++ /dev/null @@ -1,97 +0,0 @@ --- | Loris Opcodes -module CsoundExpr.Opcodes.Spectral.Loris - (lorisread, - lorismorph, - lorisplay) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : lorisread --- --- --- * syntax : --- --- > lorisread ktimpnt, ifilcod, istoreidx, kfreqenv, kampenv, kbwenv[, ifadetime] --- --- --- * description : --- --- lorisread imports a set of bandwidth-enhanced partials from a --- SDIF-format data file, applying control-rate frequency, --- amplitude, and bandwidth scaling envelopes, and stores the --- modified partials in memory. --- --- --- * url : - -lorisread :: - (K k0, K k1, K k2, K k3) => - [Irate] -> k0 -> String -> Irate -> k1 -> k2 -> k3 -> SignalOut -lorisread i0init k1timpnt s2file i3storeidx k4freqenv k5ampenv - k6bwenv = outOpcode "lorisread" args - where args - = [to k1timpnt, to s2file, to i3storeidx, to k4freqenv, - to k5ampenv, to k6bwenv] - ++ map to i0init - - --- | * opcode : lorismorph --- --- --- * syntax : --- --- > lorismorph isrcidx, itgtidx, istoreidx, kfreqmorphenv, kampmorphenv, kbwmorphenv --- --- --- * description : --- --- lorismorph morphs two stored sets of bandwidth-enhanced partials --- and stores a new set of partials representing the morphed sound. --- The morph is performed by linearly interpolating the parameter --- envelopes (frequency, amplitude, and bandwidth, or noisiness) of --- the bandwidth-enhanced partials according to control-rate --- frequency, amplitude, and bandwidth morphing functions. --- --- --- * url : - -lorismorph :: - (K k0, K k1, K k2) => - Irate -> Irate -> Irate -> k0 -> k1 -> k2 -> SignalOut -lorismorph i0srcidx i1tgtidx i2storeidx k3freqmorphenv - k4ampmorphenv k5bwmorphenv = outOpcode "lorismorph" args - where args - = [to i0srcidx, to i1tgtidx, to i2storeidx, to k3freqmorphenv, - to k4ampmorphenv, to k5bwmorphenv] - - --- | * opcode : lorisplay --- --- --- * syntax : --- --- > ar lorisplay ireadidx, kfreqenv, kampenv, kbwenv --- --- --- * description : --- --- lorisplay renders a stored set of bandwidth-enhanced partials --- using the method of Bandwidth-Enhanced Additive Synthesis --- implemented in the Loris software, applying control-rate --- frequency, amplitude, and bandwidth scaling envelopes. --- --- --- * url : - -lorisplay :: (K k0, K k1, K k2) => Irate -> k0 -> k1 -> k2 -> Arate -lorisplay i0readidx k1freqenv k2ampenv k3bwenv - = opcode "lorisplay" args - where args = [to i0readidx, to k1freqenv, to k2ampenv, to k3bwenv] diff --git a/src/CsoundExpr/Opcodes/Spectral/Lpcresyn.hs b/src/CsoundExpr/Opcodes/Spectral/Lpcresyn.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Spectral/Lpcresyn.hs +++ /dev/null @@ -1,119 +0,0 @@ --- | Linear Predictive Coding (LPC) Resynthesis -module CsoundExpr.Opcodes.Spectral.Lpcresyn - (lpfreson, - lpinterp, - lpread, - lpreson, - lpslot) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : lpfreson --- --- --- * syntax : --- --- > ares lpfreson asig, kfrqratio --- --- --- * description : --- --- Resynthesises a signal from the data passed internally by a --- previous lpread, applying formant shifting. --- --- --- * url : - -lpfreson :: (K k0) => Arate -> k0 -> Arate -lpfreson a0sig k1frqratio = opcode "lpfreson" args - where args = [to a0sig, to k1frqratio] - - --- | * opcode : lpinterp --- --- --- * syntax : --- --- > lpinterp islot1, islot2, kmix --- --- --- * description : --- --- Computes a new set of poles from the interpolation between two --- analysis. --- --- --- * url : - -lpinterp :: (K k0) => Irate -> Irate -> k0 -> SignalOut -lpinterp i0slot1 i1slot2 k2mix = outOpcode "lpinterp" args - where args = [to i0slot1, to i1slot2, to k2mix] - - --- | * opcode : lpread --- --- --- * syntax : --- --- > krmsr, krmso, kerr, kcps lpread ktimpnt, ifilcod [, inpoles] [, ifrmrate] --- --- --- * description : --- --- Reads a control file of time-ordered information frames. --- --- --- * url : - -lpread :: (K k0) => [Irate] -> k0 -> String -> MultiOut -lpread i0init k1timpnt s2file = opcode "lpread" args - where args = [to k1timpnt, to s2file] ++ map to i0init - - --- | * opcode : lpreson --- --- --- * syntax : --- --- > ares lpreson asig --- --- --- * description : --- --- Resynthesises a signal from the data passed internally by a --- previous lpread. --- --- --- * url : - -lpreson :: Arate -> Arate -lpreson a0sig = opcode "lpreson" args - where args = [to a0sig] - - --- | * opcode : lpslot --- --- --- * syntax : --- --- > lpslot islot --- --- --- * description : --- --- Selects the slot to be use by further lp opcodes. --- --- --- * url : - -lpslot :: Irate -> SignalOut -lpslot i0slot = outOpcode "lpslot" args - where args = [to i0slot] diff --git a/src/CsoundExpr/Opcodes/Spectral/Nonstand.hs b/src/CsoundExpr/Opcodes/Spectral/Nonstand.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Spectral/Nonstand.hs +++ /dev/null @@ -1,13 +0,0 @@ --- | Non-standard Spectral Processing -module CsoundExpr.Opcodes.Spectral.Nonstand - () -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - diff --git a/src/CsoundExpr/Opcodes/Spectral/RealTime.hs b/src/CsoundExpr/Opcodes/Spectral/RealTime.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Spectral/RealTime.hs +++ /dev/null @@ -1,13 +0,0 @@ --- | Tools for Real-time Spectral Processing (pvs opcodes) -module CsoundExpr.Opcodes.Spectral.RealTime - () -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - diff --git a/src/CsoundExpr/Opcodes/Spectral/SiggenStft.hs b/src/CsoundExpr/Opcodes/Spectral/SiggenStft.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Spectral/SiggenStft.hs +++ /dev/null @@ -1,268 +0,0 @@ --- | Short-time Fourier Transform (STFT) Resynthesis -module CsoundExpr.Opcodes.Spectral.SiggenStft - (tableseg, - pvadd, - pvbufread, - pvcross, - pvinterp, - pvoc, - pvread, - tablexseg, - vpvoc) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : tableseg --- --- --- * syntax : --- --- > tableseg ifn1, idur1, ifn2 [, idur2] [, ifn3] [...] --- --- --- * description : --- --- tableseg is like linseg but interpolate between values in a --- stored function tables. The result is a new function table passed --- internally to any following vpvoc which occurs before a --- subsequent tableseg (much like lpread/lpreson pairs work). The --- uses of these are described below under vpvoc. --- --- --- * url : - -tableseg :: [Irate] -> SignalOut -tableseg i0ifns = outOpcode "tableseg" args - where args = map to i0ifns - - --- | * opcode : pvadd --- --- --- * syntax : --- --- > ares pvadd ktimpnt, kfmod, ifilcod, ifn, ibins [, ibinoffset] --- > [, ibinincr] [, iextractmode] [, ifreqlim] [, igatefn] --- --- --- * description : --- --- pvadd reads from a pvoc file and uses the data to perform --- additive synthesis using an internal array of interpolating --- oscillators. The user supplies the wave table (usually one period --- of a sine wave), and can choose which analysis bins will be used --- in the re-synthesis. --- --- --- * url : - -pvadd :: - (K k0, K k1) => - [Irate] -> k0 -> k1 -> String -> Irate -> Irate -> Arate -pvadd i0init k1timpnt k2fmod s3file i4fn i5bins - = opcode "pvadd" args - where args - = [to k1timpnt, to k2fmod, to s3file, to i4fn, to i5bins] ++ - map to i0init - - --- | * opcode : pvbufread --- --- --- * syntax : --- --- > pvbufread ktimpnt, ifile --- --- --- * description : --- --- pvbufread reads from a pvoc file and makes the retrieved data --- available to any following pvinterp and pvcross units that appear --- in an instrument before a subsequent pvbufread (just as lpread --- and lpreson work together). The data is passed internally and the --- unit has no output of its own. --- --- --- * url : - -pvbufread :: (K k0) => k0 -> Irate -> SignalOut -pvbufread k0timpnt i1file = outOpcode "pvbufread" args - where args = [to k0timpnt, to i1file] - - --- | * opcode : pvcross --- --- --- * syntax : --- --- > ares pvcross ktimpnt, kfmod, ifile, kampscale1, kampscale2 [, ispecwp] --- --- --- * description : --- --- pvcross applies the amplitudes from one phase vocoder analysis --- file to the data from a second file and then performs the --- resynthesis. The data is passed, as described above, from a --- previously called pvbufread unit. The two k-rate amplitude --- arguments are used to scale the amplitudes of each files --- separately before they are added together and used in the --- resynthesis (see below for further explanation). The frequencies --- of the first file are not used at all in this process. This unit --- simply allows for cross-synthesis through the application of the --- amplitudes of the spectra of one signal to the frequencies of a --- second signal. Unlike pvinterp, pvcross does allow for the use of --- the ispecwp as in pvoc and vpvoc. --- --- --- * url : - -pvcross :: - (K k0, K k1, K k2, K k3) => - [Irate] -> k0 -> k1 -> Irate -> k2 -> k3 -> Arate -pvcross i0init k1timpnt k2fmod i3file k4ampscale1 k5ampscale2 - = opcode "pvcross" args - where args - = [to k1timpnt, to k2fmod, to i3file, to k4ampscale1, - to k5ampscale2] - ++ map to i0init - - --- | * opcode : pvinterp --- --- --- * syntax : --- --- > ares pvinterp ktimpnt, kfmod, ifile, kfreqscale1, kfreqscale2, --- > kampscale1, kampscale2, kfreqinterp, kampinterp --- --- --- * description : --- --- pvinterp interpolates between the amplitudes and frequencies, on --- a bin by bin basis, of two phase vocoder analysis files (one from --- a previously called pvbufread unit and the other from within its --- own argument list), allowing for user defined transitions between --- analyzed sounds. It also allows for general scaling of the --- amplitudes and frequencies of each file separately before the --- interpolated values are calculated and sent to the resynthesis --- routines. The kfmod argument in pvinterp performs its frequency --- scaling on the frequency values after their derivation from the --- separate scaling and subsequent interpolation is performed so --- that this acts as an overall scaling value of the new frequency --- components. --- --- --- * url : - -pvinterp :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6, K k7) => - k0 -> k1 -> Irate -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> Arate -pvinterp k0timpnt k1fmod i2file k3freqscale1 k4freqscale2 - k5ampscale1 k6ampscale2 k7freqinterp k8ampinterp - = opcode "pvinterp" args - where args - = [to k0timpnt, to k1fmod, to i2file, to k3freqscale1, - to k4freqscale2, to k5ampscale1, to k6ampscale2, to k7freqinterp, - to k8ampinterp] - - --- | * opcode : pvoc --- --- --- * syntax : --- --- > ares pvoc ktimpnt, kfmod, ifilcod [, ispecwp] [, iextractmode] --- > [, ifreqlim] [, igatefn] --- --- --- * description : --- --- Implements signal reconstruction using an fft-based phase --- vocoder. --- --- --- * url : - -pvoc :: (K k0, K k1) => [Irate] -> k0 -> k1 -> String -> Arate -pvoc i0init k1timpnt k2fmod s3file = opcode "pvoc" args - where args = [to k1timpnt, to k2fmod, to s3file] ++ map to i0init - - --- | * opcode : pvread --- --- --- * syntax : --- --- > kfreq, kamp pvread ktimpnt, ifile, ibin --- --- --- * description : --- --- pvread reads from a pvoc file and returns the frequency and --- amplitude from a single analysis channel or bin. The returned --- values can be used anywhere else in the Csound instrument. For --- example, one can use them as arguments to an oscillator to --- synthesize a single component from an analyzed signal or a bank --- of pvreads can be used to resynthesize the analyzed sound using --- additive synthesis by passing the frequency and magnitude values --- to a bank of oscillators. --- --- --- * url : - -pvread :: (K k0) => k0 -> Irate -> Irate -> MultiOut -pvread k0timpnt i1file i2bin = opcode "pvread" args - where args = [to k0timpnt, to i1file, to i2bin] - - --- | * opcode : tablexseg --- --- --- * syntax : --- --- > tablexseg ifn1, idur1, ifn2 [, idur2] [, ifn3] [...] --- --- --- * description : --- --- tablexseg is like expseg but interpolate between values in a --- stored function tables. The result is a new function table passed --- internally to any following vpvoc which occurs before a --- subsequent tablexseg (much like lpread/lpreson pairs work). The --- uses of these are described below under vpvoc. --- --- --- * url : - -tablexseg :: [Irate] -> SignalOut -tablexseg i0ifns = outOpcode "tablexseg" args - where args = map to i0ifns - - --- | * opcode : vpvoc --- --- --- * syntax : --- --- > ares vpvoc ktimpnt, kfmod, ifile [, ispecwp] [, ifn] --- --- --- * description : --- --- Implements signal reconstruction using an fft-based phase --- vocoder and an extra envelope. --- --- --- * url : - -vpvoc :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> Arate -vpvoc i0init k1timpnt k2fmod i3file = opcode "vpvoc" args - where args = [to k1timpnt, to k2fmod, to i3file] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Table.hs b/src/CsoundExpr/Opcodes/Table.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Table.hs +++ /dev/null @@ -1,12 +0,0 @@ --- | Function Table Control -module CsoundExpr.Opcodes.Table - (module CsoundExpr.Opcodes.Table.Queries, - module CsoundExpr.Opcodes.Table.Readwrit, - module CsoundExpr.Opcodes.Table.Select) -where - - - -import CsoundExpr.Opcodes.Table.Queries -import CsoundExpr.Opcodes.Table.Readwrit -import CsoundExpr.Opcodes.Table.Select diff --git a/src/CsoundExpr/Opcodes/Table/Queries.hs b/src/CsoundExpr/Opcodes/Table/Queries.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Table/Queries.hs +++ /dev/null @@ -1,162 +0,0 @@ --- | Table Queries -module CsoundExpr.Opcodes.Table.Queries - (ftchnls, - ftlen, - ftlptim, - ftsr, - nsamp, - tablengI, - tablengK) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : ftchnls --- --- --- * syntax : --- --- > ftchnls(x) (init-rate args only) --- --- --- * description : --- --- Returns the number of channels in a stored function table. --- --- --- * url : - -ftchnls :: Irate -> Irate -ftchnls i0sig = prefixOperation "ftchnls" args - where args = [to i0sig] - - --- | * opcode : ftlen --- --- --- * syntax : --- --- > ftlen(x) (init-rate args only) --- --- --- * description : --- --- Returns the size of a stored function table. --- --- --- * url : - -ftlen :: Irate -> Irate -ftlen i0sig = prefixOperation "ftlen" args - where args = [to i0sig] - - --- | * opcode : ftlptim --- --- --- * syntax : --- --- > ftlptim(x) (init-rate args only) --- --- --- * description : --- --- Returns the loop segment start-time of a stored function table --- number. --- --- --- * url : - -ftlptim :: Irate -> Irate -ftlptim i0sig = prefixOperation "ftlptim" args - where args = [to i0sig] - - --- | * opcode : ftsr --- --- --- * syntax : --- --- > ftsr(x) (init-rate args only) --- --- --- * description : --- --- Returns the sampling-rate of a stored function table. --- --- --- * url : - -ftsr :: Irate -> Irate -ftsr i0sig = prefixOperation "ftsr" args - where args = [to i0sig] - - --- | * opcode : nsamp --- --- --- * syntax : --- --- > nsamp(x) (init-rate args only) --- --- --- * description : --- --- Returns the number of samples loaded into a stored function --- table number. --- --- --- * url : - -nsamp :: Irate -> Irate -nsamp i0sig = prefixOperation "nsamp" args - where args = [to i0sig] - - --- | * opcode : tableng --- --- --- * syntax : --- --- > ires tableng ifn --- > kres tableng kfn --- --- --- * description : --- --- Interrogates a function table for length. --- --- --- * url : - -tablengI :: Irate -> Irate -tablengI i0fn = opcode "tableng" args - where args = [to i0fn] - - --- | * opcode : tableng --- --- --- * syntax : --- --- > ires tableng ifn --- > kres tableng kfn --- --- --- * description : --- --- Interrogates a function table for length. --- --- --- * url : - -tablengK :: (K k0) => k0 -> Krate -tablengK k0fn = opcode "tableng" args - where args = [to k0fn] diff --git a/src/CsoundExpr/Opcodes/Table/Readwrit.hs b/src/CsoundExpr/Opcodes/Table/Readwrit.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Table/Readwrit.hs +++ /dev/null @@ -1,600 +0,0 @@ --- | Read/Write Operations -module CsoundExpr.Opcodes.Table.Readwrit - (ftloadk, - ftload, - ftsavek, - ftsave, - tablecopy, - tablegpw, - tableicopy, - tableigpw, - tableimix, - tableiw, - tablemix, - tablera, - tablewA, - tablewI, - tablewK, - tablewa, - tablewktA, - tablewktK, - tabmorph, - tabmorpha, - tabmorphak, - tabmorphi, - tabrec, - tabplay) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : ftloadk --- --- --- * syntax : --- --- > ftloadk "filename", ktrig, iflag, ifn1 [, ifn2] [...] --- --- --- * description : --- --- Load a set of previously-allocated tables from a file. --- --- --- * url : - -ftloadk :: (K k0) => String -> k0 -> Irate -> [Irate] -> SignalOut -ftloadk s0filename k1trig i2flag i3fns = outOpcode "ftloadk" args - where args = [to s0filename, to k1trig, to i2flag] ++ map to i3fns - - --- | * opcode : ftload --- --- --- * syntax : --- --- > ftload "filename", iflag, ifn1 [, ifn2] [...] --- --- --- * description : --- --- Load a set of previously-allocated tables from a file. --- --- --- * url : - -ftload :: String -> Irate -> [Irate] -> SignalOut -ftload s0filename i1flag i2fns = outOpcode "ftload" args - where args = [to s0filename, to i1flag] ++ map to i2fns - - --- | * opcode : ftsavek --- --- --- * syntax : --- --- > ftsavek "filename", ktrig, iflag, ifn1 [, ifn2] [...] --- --- --- * description : --- --- Save a set of previously-allocated tables to a file. --- --- --- * url : - -ftsavek :: (K k0) => String -> k0 -> Irate -> [Irate] -> SignalOut -ftsavek s0filename k1trig i2flag i3fns = outOpcode "ftsavek" args - where args = [to s0filename, to k1trig, to i2flag] ++ map to i3fns - - --- | * opcode : ftsave --- --- --- * syntax : --- --- > ftsave "filename", iflag, ifn1 [, ifn2] [...] --- --- --- * description : --- --- Save a set of previously-allocated tables to a file. --- --- --- * url : - -ftsave :: String -> Irate -> [Irate] -> SignalOut -ftsave s0filename i1flag i2fns = outOpcode "ftsave" args - where args = [to s0filename, to i1flag] ++ map to i2fns - - --- | * opcode : tablecopy --- --- --- * syntax : --- --- > tablecopy kdft, ksft --- --- --- * description : --- --- Simple, fast table copy opcode. --- --- --- * url : - -tablecopy :: (K k0, K k1) => k0 -> k1 -> SignalOut -tablecopy k0dft k1sft = outOpcode "tablecopy" args - where args = [to k0dft, to k1sft] - - --- | * opcode : tablegpw --- --- --- * syntax : --- --- > tablegpw kfn --- --- --- * description : --- --- Writes a table's guard point. --- --- --- * url : - -tablegpw :: (K k0) => k0 -> SignalOut -tablegpw k0fn = outOpcode "tablegpw" args - where args = [to k0fn] - - --- | * opcode : tableicopy --- --- --- * syntax : --- --- > tableicopy idft, isft --- --- --- * description : --- --- Simple, fast table copy opcode. --- --- --- * url : - -tableicopy :: Irate -> Irate -> SignalOut -tableicopy i0dft i1sft = outOpcode "tableicopy" args - where args = [to i0dft, to i1sft] - - --- | * opcode : tableigpw --- --- --- * syntax : --- --- > tableigpw ifn --- --- --- * description : --- --- Writes a table's guard point. --- --- --- * url : - -tableigpw :: Irate -> SignalOut -tableigpw i0fn = outOpcode "tableigpw" args - where args = [to i0fn] - - --- | * opcode : tableimix --- --- --- * syntax : --- --- > tableimix idft, idoff, ilen, is1ft, is1off, is1g, is2ft, is2off, is2g --- --- --- * description : --- --- Mixes two tables. --- --- --- * url : - -tableimix :: - Irate -> - Irate -> - Irate -> - Irate -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -tableimix i0dft i1doff i2len i3s1ft i4s1off i5s1g i6s2ft i7s2off - i8s2g = outOpcode "tableimix" args - where args - = [to i0dft, to i1doff, to i2len, to i3s1ft, to i4s1off, to i5s1g, - to i6s2ft, to i7s2off, to i8s2g] - - --- | * opcode : tableiw --- --- --- * syntax : --- --- > tableiw isig, indx, ifn [, ixmode] [, ixoff] [, iwgmode] --- --- --- * description : --- --- This opcode operates on existing function tables, changing their --- contents. tableiw is used when all inputs are init time variables --- or constants and you only want to run it at the initialization of --- the instrument. The valid combinations of variable types are --- shown by the first letter of the variable names. --- --- --- * url : - -tableiw :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -tableiw i0init i1sig i2ndx i3fn = outOpcode "tableiw" args - where args = [to i1sig, to i2ndx, to i3fn] ++ map to i0init - - --- | * opcode : tablemix --- --- --- * syntax : --- --- > tablemix kdft, kdoff, klen, ks1ft, ks1off, ks1g, ks2ft, ks2off, ks2g --- --- --- * description : --- --- Mixes two tables. --- --- --- * url : - -tablemix :: - (K k0, K k1, K k2, K k3, K k4, K k5, K k6, K k7, K k8) => - k0 -> k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k8 -> SignalOut -tablemix k0dft k1doff k2len k3s1ft k4s1off k5s1g k6s2ft k7s2off - k8s2g = outOpcode "tablemix" args - where args - = [to k0dft, to k1doff, to k2len, to k3s1ft, to k4s1off, to k5s1g, - to k6s2ft, to k7s2off, to k8s2g] - - --- | * opcode : tablera --- --- --- * syntax : --- --- > ares tablera kfn, kstart, koff --- --- --- * description : --- --- These opcode reads tables in sequential locations to an a-rate --- variable. Some thought is required before using it. It has at --- least two major, and quite different, applications which are --- discussed below. --- --- --- * url : - -tablera :: (K k0, K k1, K k2) => k0 -> k1 -> k2 -> Arate -tablera k0fn k1start k2off = opcode "tablera" args - where args = [to k0fn, to k1start, to k2off] - - --- | * opcode : tablew --- --- --- * syntax : --- --- > tablew asig, andx, ifn [, ixmode] [, ixoff] [, iwgmode] --- > tablew isig, indx, ifn [, ixmode] [, ixoff] [, iwgmode] --- > tablew ksig, kndx, ifn [, ixmode] [, ixoff] [, iwgmode] --- --- --- * description : --- --- This opcode operates on existing function tables, changing their --- contents. tablew is for writing at k- or at a-rates, with the --- table number being specified at init time. The valid combinations --- of variable types are shown by the first letter of the variable --- names. --- --- --- * url : - -tablewA :: [Irate] -> Arate -> Arate -> Irate -> SignalOut -tablewA i0init a1sig a2ndx i3fn = outOpcode "tablew" args - where args = [to a1sig, to a2ndx, to i3fn] ++ map to i0init - - --- | * opcode : tablew --- --- --- * syntax : --- --- > tablew asig, andx, ifn [, ixmode] [, ixoff] [, iwgmode] --- > tablew isig, indx, ifn [, ixmode] [, ixoff] [, iwgmode] --- > tablew ksig, kndx, ifn [, ixmode] [, ixoff] [, iwgmode] --- --- --- * description : --- --- This opcode operates on existing function tables, changing their --- contents. tablew is for writing at k- or at a-rates, with the --- table number being specified at init time. The valid combinations --- of variable types are shown by the first letter of the variable --- names. --- --- --- * url : - -tablewI :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -tablewI i0init i1sig i2ndx i3fn = outOpcode "tablew" args - where args = [to i1sig, to i2ndx, to i3fn] ++ map to i0init - - --- | * opcode : tablew --- --- --- * syntax : --- --- > tablew asig, andx, ifn [, ixmode] [, ixoff] [, iwgmode] --- > tablew isig, indx, ifn [, ixmode] [, ixoff] [, iwgmode] --- > tablew ksig, kndx, ifn [, ixmode] [, ixoff] [, iwgmode] --- --- --- * description : --- --- This opcode operates on existing function tables, changing their --- contents. tablew is for writing at k- or at a-rates, with the --- table number being specified at init time. The valid combinations --- of variable types are shown by the first letter of the variable --- names. --- --- --- * url : - -tablewK :: - (K k0, K k1) => [Irate] -> k0 -> k1 -> Irate -> SignalOut -tablewK i0init k1sig k2ndx i3fn = outOpcode "tablew" args - where args = [to k1sig, to k2ndx, to i3fn] ++ map to i0init - - --- | * opcode : tablewa --- --- --- * syntax : --- --- > kstart tablewa kfn, asig, koff --- --- --- * description : --- --- This opcode writes to a table in sequential locations to and --- from an a-rate variable. Some thought is required before using --- it. It has at least two major, and quite different, applications --- which are discussed below. --- --- --- * url : - -tablewa :: (K k0, K k1) => k0 -> Arate -> k1 -> Krate -tablewa k0fn a1sig k2off = opcode "tablewa" args - where args = [to k0fn, to a1sig, to k2off] - - --- | * opcode : tablewkt --- --- --- * syntax : --- --- > tablewkt asig, andx, kfn [, ixmode] [, ixoff] [, iwgmode] --- > tablewkt ksig, kndx, kfn [, ixmode] [, ixoff] [, iwgmode] --- --- --- * description : --- --- This opcode operates on existing function tables, changing their --- contents. tablewkt uses a k-rate variable for selecting the table --- number. The valid combinations of variable types are shown by the --- first letter of the variable names. --- --- --- * url : - -tablewktA :: (K k0) => [Irate] -> Arate -> Arate -> k0 -> SignalOut -tablewktA i0init a1sig a2ndx k3fn = outOpcode "tablewkt" args - where args = [to a1sig, to a2ndx, to k3fn] ++ map to i0init - - --- | * opcode : tablewkt --- --- --- * syntax : --- --- > tablewkt asig, andx, kfn [, ixmode] [, ixoff] [, iwgmode] --- > tablewkt ksig, kndx, kfn [, ixmode] [, ixoff] [, iwgmode] --- --- --- * description : --- --- This opcode operates on existing function tables, changing their --- contents. tablewkt uses a k-rate variable for selecting the table --- number. The valid combinations of variable types are shown by the --- first letter of the variable names. --- --- --- * url : - -tablewktK :: - (K k0, K k1, K k2) => [Irate] -> k0 -> k1 -> k2 -> SignalOut -tablewktK i0init k1sig k2ndx k3fn = outOpcode "tablewkt" args - where args = [to k1sig, to k2ndx, to k3fn] ++ map to i0init - - --- | * opcode : tabmorph --- --- --- * syntax : --- --- > kout tabmorph kindex, kweightpoint, ktabnum1, ktabnum2, --- > ifn1, ifn2 [, ifn3, ifn4,... ifnN] --- --- --- * description : --- --- tabmorph allows morphing between a set of tables of the same --- size, by means of a weighted average between two currently --- selected tables. --- --- --- * url : - -tabmorph :: - (K k0, K k1, K k2, K k3) => - k0 -> k1 -> k2 -> k3 -> [Irate] -> Krate -tabmorph k0index k1weightpoint k2tabnum1 k3tabnum2 i4fn - = opcode "tabmorph" args - where args - = [to k0index, to k1weightpoint, to k2tabnum1, to k3tabnum2] ++ - map to i4fn - - --- | * opcode : tabmorpha --- --- --- * syntax : --- --- > aout tabmorpha aindex, aweightpoint, atabnum1, atabnum2, --- > ifn1, ifn2 [, ifn3, ifn4,... ifnN] --- --- --- * description : --- --- tabmorpha allows morphing between a set of tables of the same --- size, by means of a weighted average between two currently --- selected tables. --- --- --- * url : - -tabmorpha :: Arate -> Arate -> Arate -> Arate -> [Irate] -> Arate -tabmorpha a0index a1weightpoint a2tabnum1 a3tabnum2 i4fn - = opcode "tabmorpha" args - where args - = [to a0index, to a1weightpoint, to a2tabnum1, to a3tabnum2] ++ - map to i4fn - - --- | * opcode : tabmorphak --- --- --- * syntax : --- --- > aout tabmorphak aindex, kweightpoint, ktabnum1, ktabnum2, --- > ifn1, ifn2 [, ifn3, ifn4,... ifnN] --- --- --- * description : --- --- tabmorphak allows morphing between a set of tables of the same --- size, by means of a weighted average between two currently --- selected tables. --- --- --- * url : - -tabmorphak :: - (K k0, K k1, K k2) => Arate -> k0 -> k1 -> k2 -> [Irate] -> Arate -tabmorphak a0index k1weightpoint k2tabnum1 k3tabnum2 i4fn - = opcode "tabmorphak" args - where args - = [to a0index, to k1weightpoint, to k2tabnum1, to k3tabnum2] ++ - map to i4fn - - --- | * opcode : tabmorphi --- --- --- * syntax : --- --- > kout tabmorphi kindex, kweightpoint, ktabnum1, ktabnum2, --- > ifn1, ifn2 [, ifn3, ifn4,... ifnN] --- --- --- * description : --- --- tabmorphi allows morphing between a set of tables of the same --- size, by means of a weighted average between two currently --- selected tables. --- --- --- * url : - -tabmorphi :: - (K k0, K k1, K k2, K k3) => - k0 -> k1 -> k2 -> k3 -> [Irate] -> Krate -tabmorphi k0index k1weightpoint k2tabnum1 k3tabnum2 i4fn - = opcode "tabmorphi" args - where args - = [to k0index, to k1weightpoint, to k2tabnum1, to k3tabnum2] ++ - map to i4fn - - --- | * opcode : tabrec --- --- --- * syntax : --- --- > tabrec ktrig_start, ktrig_stop, knumtics, kfn, kin1 [,kin2,...,kinN] --- --- --- * description : --- --- Records control-rate signals on trigger-temporization basis. --- --- --- * url : - -tabrec :: - (K k0, K k1, K k2, K k3, K k4) => - k0 -> k1 -> k2 -> k3 -> [k4] -> SignalOut -tabrec k0trig_start k1trig_stop k2numtics k3fn k4inN - = outOpcode "tabrec" args - where args - = [to k0trig_start, to k1trig_stop, to k2numtics, to k3fn] ++ - map to k4inN - - --- | * opcode : tabplay --- --- --- * syntax : --- --- > tabplay ktrig, knumtics, kfn, kout1 [,kout2,..., koutN] --- --- --- * description : --- --- Plays-back control-rate signals on trigger-temporization basis. --- --- --- * url : - -tabplay :: - (K k0, K k1, K k2, K k3) => k0 -> k1 -> k2 -> [k3] -> SignalOut -tabplay k0trig k1numtics k2fn k3outN = outOpcode "tabplay" args - where args = [to k0trig, to k1numtics, to k2fn] ++ map to k3outN diff --git a/src/CsoundExpr/Opcodes/Table/Select.hs b/src/CsoundExpr/Opcodes/Table/Select.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Table/Select.hs +++ /dev/null @@ -1,122 +0,0 @@ --- | Table Reading with Dynamic Selection -module CsoundExpr.Opcodes.Table.Select - (tableiktA, - tableiktK, - tablektA, - tablektK, - tablexkt) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : tableikt --- --- --- * syntax : --- --- > ares tableikt xndx, kfn [, ixmode] [, ixoff] [, iwrap] --- > kres tableikt kndx, kfn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- k-rate control over table numbers. --- --- --- * url : - -tableiktA :: (X x0, K k0) => [Irate] -> x0 -> k0 -> Arate -tableiktA i0init x1ndx k2fn = opcode "tableikt" args - where args = [to x1ndx, to k2fn] ++ map to i0init - - --- | * opcode : tableikt --- --- --- * syntax : --- --- > ares tableikt xndx, kfn [, ixmode] [, ixoff] [, iwrap] --- > kres tableikt kndx, kfn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- k-rate control over table numbers. --- --- --- * url : - -tableiktK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -tableiktK i0init k1ndx k2fn = opcode "tableikt" args - where args = [to k1ndx, to k2fn] ++ map to i0init - - --- | * opcode : tablekt --- --- --- * syntax : --- --- > ares tablekt xndx, kfn [, ixmode] [, ixoff] [, iwrap] --- > kres tablekt kndx, kfn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- k-rate control over table numbers. --- --- --- * url : - -tablektA :: (X x0, K k0) => [Irate] -> x0 -> k0 -> Arate -tablektA i0init x1ndx k2fn = opcode "tablekt" args - where args = [to x1ndx, to k2fn] ++ map to i0init - - --- | * opcode : tablekt --- --- --- * syntax : --- --- > ares tablekt xndx, kfn [, ixmode] [, ixoff] [, iwrap] --- > kres tablekt kndx, kfn [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- k-rate control over table numbers. --- --- --- * url : - -tablektK :: (K k0, K k1) => [Irate] -> k0 -> k1 -> Krate -tablektK i0init k1ndx k2fn = opcode "tablekt" args - where args = [to k1ndx, to k2fn] ++ map to i0init - - --- | * opcode : tablexkt --- --- --- * syntax : --- --- > ares tablexkt xndx, kfn, kwarp, iwsize [, ixmode] [, ixoff] [, iwrap] --- --- --- * description : --- --- Reads function tables with linear, cubic, or sinc interpolation. --- --- --- * url : - -tablexkt :: - (X x0, K k0, K k1) => [Irate] -> x0 -> k0 -> k1 -> Irate -> Arate -tablexkt i0init x1ndx k2fn k3warp i4wsize = opcode "tablexkt" args - where args - = [to x1ndx, to k2fn, to k3warp, to i4wsize] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Vectorial.hs b/src/CsoundExpr/Opcodes/Vectorial.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Vectorial.hs +++ /dev/null @@ -1,20 +0,0 @@ --- | Vectorial Opcodes -module CsoundExpr.Opcodes.Vectorial - (module CsoundExpr.Opcodes.Vectorial.Vectorialtables, - module CsoundExpr.Opcodes.Vectorial.Vectorialscalar, - module CsoundExpr.Opcodes.Vectorial.Vectorialvectorial, - module CsoundExpr.Opcodes.Vectorial.EnvelopeGenerators, - module CsoundExpr.Opcodes.Vectorial.Vectorialimiting, - module CsoundExpr.Opcodes.Vectorial.Vectorialdelay, - module CsoundExpr.Opcodes.Vectorial.Vectorialrandom) -where - - - -import CsoundExpr.Opcodes.Vectorial.Vectorialtables -import CsoundExpr.Opcodes.Vectorial.Vectorialscalar -import CsoundExpr.Opcodes.Vectorial.Vectorialvectorial -import CsoundExpr.Opcodes.Vectorial.EnvelopeGenerators -import CsoundExpr.Opcodes.Vectorial.Vectorialimiting -import CsoundExpr.Opcodes.Vectorial.Vectorialdelay -import CsoundExpr.Opcodes.Vectorial.Vectorialrandom diff --git a/src/CsoundExpr/Opcodes/Vectorial/EnvelopeGenerators.hs b/src/CsoundExpr/Opcodes/Vectorial/EnvelopeGenerators.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Vectorial/EnvelopeGenerators.hs +++ /dev/null @@ -1,82 +0,0 @@ --- | Vectorial Envelope Generators -module CsoundExpr.Opcodes.Vectorial.EnvelopeGenerators - (vlinseg, - vexpseg, - vcella) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vlinseg --- --- --- * syntax : --- --- > vlinseg ifnout, ielements, ifn1, idur1, ifn2 [, idur2, ifn3 [...]] --- --- --- * description : --- --- Generate linear vectorial segments --- --- --- * url : - -vlinseg :: Irate -> Irate -> [Irate] -> SignalOut -vlinseg i0fnout i1elements i2vals = outOpcode "vlinseg" args - where args = [to i0fnout, to i1elements] ++ map to i2vals - - --- | * opcode : vexpseg --- --- --- * syntax : --- --- > vexpseg ifnout, ielements, ifn1, idur1, ifn2 [, idur2, ifn3 [...]] --- --- --- * description : --- --- Generate exponential vectorial segments --- --- --- * url : - -vexpseg :: Irate -> Irate -> [Irate] -> SignalOut -vexpseg i0fnout i1elements i2vals = outOpcode "vexpseg" args - where args = [to i0fnout, to i1elements] ++ map to i2vals - - --- | * opcode : vcella --- --- --- * syntax : --- --- > vcella ktrig, kreinit, ioutFunc, initStateFunc, --- > iRuleFunc, ielements, irulelen [, iradius] --- --- --- * description : --- --- Unidimensional Cellular Automata applied to Csound vectors --- --- --- * url : - -vcella :: - (K k0, K k1) => - [Irate] -> - k0 -> k1 -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -vcella i0init k1trig k2reinit i3outFunc i4nitStateFunc i5RuleFunc - i6elements i7rulelen = outOpcode "vcella" args - where args - = [to k1trig, to k2reinit, to i3outFunc, to i4nitStateFunc, - to i5RuleFunc, to i6elements, to i7rulelen] - ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Vectorial/Vectorialdelay.hs b/src/CsoundExpr/Opcodes/Vectorial/Vectorialdelay.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Vectorial/Vectorialdelay.hs +++ /dev/null @@ -1,78 +0,0 @@ --- | Vectorial Control-rate Delay Paths -module CsoundExpr.Opcodes.Vectorial.Vectorialdelay - (vdelayk, - vport, - vecdelay) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vdelayk --- --- --- * syntax : --- --- > kout vdelayk iksig, kdel, imaxdel [, iskip, imode] --- --- --- * description : --- --- Variable delay applied to a k-rate signal --- --- --- * url : - -vdelayk :: (K k0) => [Irate] -> Irate -> k0 -> Irate -> Krate -vdelayk i0init i1ksig k2del i3maxdel = opcode "vdelayk" args - where args = [to i1ksig, to k2del, to i3maxdel] ++ map to i0init - - --- | * opcode : vport --- --- --- * syntax : --- --- > vport ifn, khtime, ielements [, ifnInit] --- --- --- * description : --- --- Generate a sort of 'vectorial' portamento --- --- --- * url : - -vport :: (K k0) => [Irate] -> Irate -> k0 -> Irate -> SignalOut -vport i0init i1fn k2htime i3elements = outOpcode "vport" args - where args = [to i1fn, to k2htime, to i3elements] ++ map to i0init - - --- | * opcode : vecdelay --- --- --- * syntax : --- --- > vecdelay ifn, ifnIn, ifnDel, ielements, imaxdel [, iskip] --- --- --- * description : --- --- Generate a sort of 'vectorial' delay --- --- --- * url : - -vecdelay :: - [Irate] -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut -vecdelay i0init i1fn i2fnIn i3fnDel i4elements i5maxdel - = outOpcode "vecdelay" args - where args - = [to i1fn, to i2fnIn, to i3fnDel, to i4elements, to i5maxdel] ++ - map to i0init diff --git a/src/CsoundExpr/Opcodes/Vectorial/Vectorialimiting.hs b/src/CsoundExpr/Opcodes/Vectorial/Vectorialimiting.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Vectorial/Vectorialimiting.hs +++ /dev/null @@ -1,74 +0,0 @@ --- | Limiting and wrapping of vectorial control signals -module CsoundExpr.Opcodes.Vectorial.Vectorialimiting - (vlimit, - vwrap, - vmirror) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vlimit --- --- --- * syntax : --- --- > vlimit ifn, kmin, kmax, ielements --- --- --- * description : --- --- Limits elements of vectorial control signals. --- --- --- * url : - -vlimit :: (K k0, K k1) => Irate -> k0 -> k1 -> Irate -> SignalOut -vlimit i0fn k1min k2max i3elements = outOpcode "vlimit" args - where args = [to i0fn, to k1min, to k2max, to i3elements] - - --- | * opcode : vwrap --- --- --- * syntax : --- --- > vwrap ifn, kmin, kmax, ielements --- --- --- * description : --- --- Wraps elements of vectorial control signals. --- --- --- * url : - -vwrap :: (K k0, K k1) => Irate -> k0 -> k1 -> Irate -> SignalOut -vwrap i0fn k1min k2max i3elements = outOpcode "vwrap" args - where args = [to i0fn, to k1min, to k2max, to i3elements] - - --- | * opcode : vmirror --- --- --- * syntax : --- --- > vmirror ifn, kmin, kmax, ielements --- --- --- * description : --- --- 'Reflects' elements of vectorial control signals on thresholds. --- --- --- * url : - -vmirror :: (K k0, K k1) => Irate -> k0 -> k1 -> Irate -> SignalOut -vmirror i0fn k1min k2max i3elements = outOpcode "vmirror" args - where args = [to i0fn, to k1min, to k2max, to i3elements] diff --git a/src/CsoundExpr/Opcodes/Vectorial/Vectorialrandom.hs b/src/CsoundExpr/Opcodes/Vectorial/Vectorialrandom.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Vectorial/Vectorialrandom.hs +++ /dev/null @@ -1,61 +0,0 @@ --- | Vectorial Random Signal Generators -module CsoundExpr.Opcodes.Vectorial.Vectorialrandom - (vrandh, - vrandi) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vrandh --- --- --- * syntax : --- --- > vrandh ifn, krange, kcps, ielements [, idstoffset] [, iseed] [, isize] [, ioffset] --- --- --- * description : --- --- Generates a vector of random numbers stored into a table, --- holding the values for a period of time. Generates a sort of --- 'vectorial band-limited noise'. --- --- --- * url : - -vrandh :: - (K k0, K k1) => [Irate] -> Irate -> k0 -> k1 -> Irate -> SignalOut -vrandh i0init i1fn k2range k3cps i4elements - = outOpcode "vrandh" args - where args - = [to i1fn, to k2range, to k3cps, to i4elements] ++ map to i0init - - --- | * opcode : vrandi --- --- --- * syntax : --- --- > vrandi ifn, krange, kcps, ielements [, idstoffset] [, iseed] [, isize] [, ioffset] --- --- --- * description : --- --- Generate a sort of 'vectorial band-limited noise' --- --- --- * url : - -vrandi :: - (K k0, K k1) => [Irate] -> Irate -> k0 -> k1 -> Irate -> SignalOut -vrandi i0init i1fn k2range k3cps i4elements - = outOpcode "vrandi" args - where args - = [to i1fn, to k2range, to k3cps, to i4elements] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Vectorial/Vectorialscalar.hs b/src/CsoundExpr/Opcodes/Vectorial/Vectorialscalar.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Vectorial/Vectorialscalar.hs +++ /dev/null @@ -1,183 +0,0 @@ --- | Operations Between a Vectorial and a Scalar Signal -module CsoundExpr.Opcodes.Vectorial.Vectorialscalar - (vadd, - vmult, - vpow, - vexp, - vadd_i, - vmult_i, - vpow_i, - vexp_i) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vadd --- --- --- * syntax : --- --- > vadd ifn, kval, kelements [, kdstoffset] [, kverbose] --- --- --- * description : --- --- Adds a scalar value to a vector in a table. --- --- --- * url : - -vadd :: - (K k0, K k1, K k2) => [k0] -> Irate -> k1 -> k2 -> SignalOut -vadd k0init i1fn k2val k3elements = outOpcode "vadd" args - where args = [to i1fn, to k2val, to k3elements] ++ map to k0init - - --- | * opcode : vmult --- --- --- * syntax : --- --- > vmult ifn, kval, kelements [, kdstoffset] [, kverbose] --- --- --- * description : --- --- Multiplies a vector in a table by a scalar value. --- --- --- * url : - -vmult :: - (K k0, K k1, K k2) => [k0] -> Irate -> k1 -> k2 -> SignalOut -vmult k0init i1fn k2val k3elements = outOpcode "vmult" args - where args = [to i1fn, to k2val, to k3elements] ++ map to k0init - - --- | * opcode : vpow --- --- --- * syntax : --- --- > vpow ifn, kval, kelements [, kdstoffset] [, kverbose] --- --- --- * description : --- --- Raises each element of a vector to a scalar power --- --- --- * url : - -vpow :: - (K k0, K k1, K k2) => [k0] -> Irate -> k1 -> k2 -> SignalOut -vpow k0init i1fn k2val k3elements = outOpcode "vpow" args - where args = [to i1fn, to k2val, to k3elements] ++ map to k0init - - --- | * opcode : vexp --- --- --- * syntax : --- --- > vexp ifn, kval, kelements [, kdstoffset] [, kverbose] --- --- --- * description : --- --- Performs power-of operations between a vector and a scalar --- --- --- * url : - -vexp :: - (K k0, K k1, K k2) => [k0] -> Irate -> k1 -> k2 -> SignalOut -vexp k0init i1fn k2val k3elements = outOpcode "vexp" args - where args = [to i1fn, to k2val, to k3elements] ++ map to k0init - - --- | * opcode : vadd_i --- --- --- * syntax : --- --- > vadd_i ifn, ival, ielements [, idstoffset] --- --- --- * description : --- --- Adds a scalar value to a vector in a table. --- --- --- * url : - -vadd_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vadd_i i0init i1fn i2val i3elements = outOpcode "vadd_i" args - where args = [to i1fn, to i2val, to i3elements] ++ map to i0init - - --- | * opcode : vmult_i --- --- --- * syntax : --- --- > vmult_i ifn, ival, ielements [, idstoffset] --- --- --- * description : --- --- Multiplies a vector in a table by a scalar value. --- --- --- * url : - -vmult_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vmult_i i0init i1fn i2val i3elements = outOpcode "vmult_i" args - where args = [to i1fn, to i2val, to i3elements] ++ map to i0init - - --- | * opcode : vpow_i --- --- --- * syntax : --- --- > vpow_i ifn, ival, ielements [, idstoffset] --- --- --- * description : --- --- Raises each element of a vector to a scalar power --- --- --- * url : - -vpow_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vpow_i i0init i1fn i2val i3elements = outOpcode "vpow_i" args - where args = [to i1fn, to i2val, to i3elements] ++ map to i0init - - --- | * opcode : vexp_i --- --- --- * syntax : --- --- > vexp_i ifn, ival, ielements[, idstoffset] --- --- --- * description : --- --- Performs power-of operations between a vector and a scalar --- --- --- * url : - -vexp_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vexp_i i0init i1fn i2val i3elements = outOpcode "vexp_i" args - where args = [to i1fn, to i2val, to i3elements] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Vectorial/Vectorialtables.hs b/src/CsoundExpr/Opcodes/Vectorial/Vectorialtables.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Vectorial/Vectorialtables.hs +++ /dev/null @@ -1,294 +0,0 @@ --- | Tables of vectors operators -module CsoundExpr.Opcodes.Vectorial.Vectorialtables - (vtablei, - vtable1k, - vtablek, - vtablea, - vtablewi, - vtablewk, - vtablewa, - vtabi, - vtabk, - vtaba, - vtabwi, - vtabwk, - vtabwa) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vtablei --- --- --- * syntax : --- --- > vtablei indx, ifn, interp, ixmode, iout1 [, iout2, iout3,...., ioutN ] --- --- --- * description : --- --- This opcode reads vectors from tables. --- --- --- * url : - -vtablei :: Irate -> Irate -> Irate -> Irate -> [Irate] -> SignalOut -vtablei i0ndx i1fn i2interp i3xmode i4outN - = outOpcode "vtablei" args - where args - = [to i0ndx, to i1fn, to i2interp, to i3xmode] ++ map to i4outN - - --- | * opcode : vtable1k --- --- --- * syntax : --- --- > vtable1k kfn,kout1 [, kout2, kout3,...., koutN ] --- --- --- * description : --- --- This opcode reads vectors from tables at k-rate. --- --- --- * url : - -vtable1k :: (K k0, K k1) => k0 -> [k1] -> SignalOut -vtable1k k0fn k1outN = outOpcode "vtable1k" args - where args = [to k0fn] ++ map to k1outN - - --- | * opcode : vtablek --- --- --- * syntax : --- --- > vtablek kndx, kfn, kinterp, ixmode, kout1 [, kout2, kout3,...., koutN ] --- --- --- * description : --- --- This opcode reads vectors from tables at k-rate. --- --- --- * url : - -vtablek :: - (K k0, K k1, K k2) => - k0 -> k1 -> k2 -> Irate -> [Irate] -> SignalOut -vtablek k0ndx k1fn k2interp i3xmode i4outN - = outOpcode "vtablek" args - where args - = [to k0ndx, to k1fn, to k2interp, to i3xmode] ++ map to i4outN - - --- | * opcode : vtablea --- --- --- * syntax : --- --- > vtablea andx, kfn, kinterp, ixmode, aout1 [, aout2, aout3,...., aoutN ] --- --- --- * description : --- --- This opcode reads vectors from tables at a-rate. --- --- --- * url : - -vtablea :: - (K k0, K k1) => Arate -> k0 -> k1 -> Irate -> [Arate] -> SignalOut -vtablea a0ndx k1fn k2interp i3xmode a4outN - = outOpcode "vtablea" args - where args - = [to a0ndx, to k1fn, to k2interp, to i3xmode] ++ map to a4outN - - --- | * opcode : vtablewi --- --- --- * syntax : --- --- > vtablewi indx, ifn, ixmode, inarg1 [, inarg2, inarg3,...., inargN ] --- --- --- * description : --- --- This opcode writes vectors to tables at init time. --- --- --- * url : - -vtablewi :: Irate -> Irate -> Irate -> [Irate] -> SignalOut -vtablewi i0ndx i1fn i2xmode i3arg = outOpcode "vtablewi" args - where args = [to i0ndx, to i1fn, to i2xmode] ++ map to i3arg - - --- | * opcode : vtablewk --- --- --- * syntax : --- --- > vtablewk kndx, kfn, ixmode, kinarg1 [, kinarg2, kinarg3,...., kinargN ] --- --- --- * description : --- --- This opcode writes vectors to tables at k-rate. --- --- --- * url : - -vtablewk :: - (K k0, K k1, K k2) => k0 -> k1 -> Irate -> [k2] -> SignalOut -vtablewk k0ndx k1fn i2xmode k3arg = outOpcode "vtablewk" args - where args = [to k0ndx, to k1fn, to i2xmode] ++ map to k3arg - - --- | * opcode : vtablewa --- --- --- * syntax : --- --- > vtablewa andx, kfn, ixmode, ainarg1 [, ainarg2, ainarg3,...., ainargN ] --- --- --- * description : --- --- This opcode writes vectors to tables at a-rate. --- --- --- * url : - -vtablewa :: Arate -> Arate -> Irate -> [Arate] -> SignalOut -vtablewa a0ndx a1fn i2xmode a3arg = outOpcode "vtablewa" args - where args = [to a0ndx, to a1fn, to i2xmode] ++ map to a3arg - - --- | * opcode : vtabi --- --- --- * syntax : --- --- > vtabi indx, ifn, iout1 [, iout2, iout3,...., ioutN ] --- --- --- * description : --- --- This opcode reads vectors from tables. --- --- --- * url : - -vtabi :: Irate -> Irate -> [Irate] -> SignalOut -vtabi i0ndx i1fn i2outN = outOpcode "vtabi" args - where args = [to i0ndx, to i1fn] ++ map to i2outN - - --- | * opcode : vtabk --- --- --- * syntax : --- --- > vtabk kndx, ifn, kout1 [, kout2, kout3,...., koutN ] --- --- --- * description : --- --- This opcode reads vectors from tables at k-rate. --- --- --- * url : - -vtabk :: (K k0, K k1) => k0 -> Irate -> [k1] -> SignalOut -vtabk k0ndx i1fn k2outN = outOpcode "vtabk" args - where args = [to k0ndx, to i1fn] ++ map to k2outN - - --- | * opcode : vtaba --- --- --- * syntax : --- --- > vtaba andx, ifn, aout1 [, aout2, aout3,...., aoutN ] --- --- --- * description : --- --- This opcode reads vectors from tables at a-rate. --- --- --- * url : - -vtaba :: Arate -> Irate -> [Arate] -> SignalOut -vtaba a0ndx i1fn a2outN = outOpcode "vtaba" args - where args = [to a0ndx, to i1fn] ++ map to a2outN - - --- | * opcode : vtabwi --- --- --- * syntax : --- --- > vtabwi indx, ifn, inarg1 [, inarg2, inarg3,...., inargN ] --- --- --- * description : --- --- This opcode writes vectors to tables at init time. --- --- --- * url : - -vtabwi :: Irate -> Irate -> [Irate] -> SignalOut -vtabwi i0ndx i1fn i2outN = outOpcode "vtabwi" args - where args = [to i0ndx, to i1fn] ++ map to i2outN - - --- | * opcode : vtabwk --- --- --- * syntax : --- --- > vtabwk kndx, ifn, kinarg1 [, kinarg2, kinarg3,...., kinargN ] --- --- --- * description : --- --- This opcode writes vectors to tables at a-rate. --- --- --- * url : - -vtabwk :: (K k0, K k1) => k0 -> Irate -> [k1] -> SignalOut -vtabwk k0ndx i1fn k2outN = outOpcode "vtabwk" args - where args = [to k0ndx, to i1fn] ++ map to k2outN - - --- | * opcode : vtabwa --- --- --- * syntax : --- --- > vtabwa andx, ifn, ainarg1 [, ainarg2, ainarg3,...., ainargN ] --- --- --- * description : --- --- This opcode writes vectors to tables at a-rate. --- --- --- * url : - -vtabwa :: Arate -> Irate -> [Arate] -> SignalOut -vtabwa a0ndx i1fn a2outN = outOpcode "vtabwa" args - where args = [to a0ndx, to i1fn] ++ map to a2outN diff --git a/src/CsoundExpr/Opcodes/Vectorial/Vectorialvectorial.hs b/src/CsoundExpr/Opcodes/Vectorial/Vectorialvectorial.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Vectorial/Vectorialvectorial.hs +++ /dev/null @@ -1,335 +0,0 @@ --- | Operations Between two Vectorial Signals -module CsoundExpr.Opcodes.Vectorial.Vectorialvectorial - (vaddv, - vsubv, - vmultv, - vdivv, - vpowv, - vexpv, - vcopy, - vmap, - vaddv_i, - vsubv_i, - vmultv_i, - vdivv_i, - vpowv_i, - vexpv_i, - vcopy_i) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : vaddv --- --- --- * syntax : --- --- > vaddv ifn1, ifn2, kelements [, kdstoffset] [, ksrcoffset] [,kverbose] --- --- --- * description : --- --- Performs addition between two vectorial control signals --- --- --- * url : - -vaddv :: (K k0, K k1) => [k0] -> Irate -> Irate -> k1 -> SignalOut -vaddv k0init i1fn1 i2fn2 k3elements = outOpcode "vaddv" args - where args = [to i1fn1, to i2fn2, to k3elements] ++ map to k0init - - --- | * opcode : vsubv --- --- --- * syntax : --- --- > vsubv ifn1, ifn2, kelements [, kdstoffset] [, ksrcoffset] [,kverbose] --- --- --- * description : --- --- Performs subtraction between two vectorial control signals --- --- --- * url : - -vsubv :: (K k0, K k1) => [k0] -> Irate -> Irate -> k1 -> SignalOut -vsubv k0init i1fn1 i2fn2 k3elements = outOpcode "vsubv" args - where args = [to i1fn1, to i2fn2, to k3elements] ++ map to k0init - - --- | * opcode : vmultv --- --- --- * syntax : --- --- > vmultv ifn1, ifn2, kelements [, kdstoffset] [, ksrcoffset] [,kverbose] --- --- --- * description : --- --- Performs mutiplication between two vectorial control signals --- --- --- * url : - -vmultv :: (K k0, K k1) => [k0] -> Irate -> Irate -> k1 -> SignalOut -vmultv k0init i1fn1 i2fn2 k3elements = outOpcode "vmultv" args - where args = [to i1fn1, to i2fn2, to k3elements] ++ map to k0init - - --- | * opcode : vdivv --- --- --- * syntax : --- --- > vdivv ifn1, ifn2, kelements [, kdstoffset] [, ksrcoffset] [,kverbose] --- --- --- * description : --- --- Performs division between two vectorial control signals --- --- --- * url : - -vdivv :: (K k0, K k1) => [k0] -> Irate -> Irate -> k1 -> SignalOut -vdivv k0init i1fn1 i2fn2 k3elements = outOpcode "vdivv" args - where args = [to i1fn1, to i2fn2, to k3elements] ++ map to k0init - - --- | * opcode : vpowv --- --- --- * syntax : --- --- > vpowv ifn1, ifn2, kelements [, kdstoffset] [, ksrcoffset] [,kverbose] --- --- --- * description : --- --- Performs power-of operations between two vectorial control --- signals --- --- --- * url : - -vpowv :: (K k0, K k1) => [k0] -> Irate -> Irate -> k1 -> SignalOut -vpowv k0init i1fn1 i2fn2 k3elements = outOpcode "vpowv" args - where args = [to i1fn1, to i2fn2, to k3elements] ++ map to k0init - - --- | * opcode : vexpv --- --- --- * syntax : --- --- > vexpv ifn1, ifn2, kelements [, kdstoffset] [, ksrcoffset] [,kverbose] --- --- --- * description : --- --- Performs exponential operations between two vectorial control --- signals --- --- --- * url : - -vexpv :: (K k0, K k1) => [k0] -> Irate -> Irate -> k1 -> SignalOut -vexpv k0init i1fn1 i2fn2 k3elements = outOpcode "vexpv" args - where args = [to i1fn1, to i2fn2, to k3elements] ++ map to k0init - - --- | * opcode : vcopy --- --- --- * syntax : --- --- > vcopy ifn, ifn2, kelements [, kdstoffset] [, ksrcoffset] [, kverbose] --- --- --- * description : --- --- Copies between two vectorial control signals --- --- --- * url : - -vcopy :: (K k0, K k1) => [k0] -> Irate -> Irate -> k1 -> SignalOut -vcopy k0init i1fn i2fn2 k3elements = outOpcode "vcopy" args - where args = [to i1fn, to i2fn2, to k3elements] ++ map to k0init - - --- | * opcode : vmap --- --- --- * syntax : --- --- > vmap ifn1, ifn2, ielements [,idstoffset, isrcoffset] --- --- --- * description : --- --- Maps elements from a vector onto another according to the --- indeces of a this vector --- --- --- * url : - -vmap :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vmap i0init i1fn1 i2fn2 i3elements = outOpcode "vmap" args - where args = [to i1fn1, to i2fn2, to i3elements] ++ map to i0init - - --- | * opcode : vaddv_i --- --- --- * syntax : --- --- > vaddv_i ifn1, ifn2, ielements [, idstoffset] [, isrcoffset] --- --- --- * description : --- --- Performs addition between two vectorial control signals at init --- time. --- --- --- * url : - -vaddv_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vaddv_i i0init i1fn1 i2fn2 i3elements = outOpcode "vaddv_i" args - where args = [to i1fn1, to i2fn2, to i3elements] ++ map to i0init - - --- | * opcode : vsubv_i --- --- --- * syntax : --- --- > vsubv_i ifn1, ifn2, ielements [, idstoffset] [, isrcoffset] --- --- --- * description : --- --- Performs subtraction between two vectorial control signals at --- init time. --- --- --- * url : - -vsubv_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vsubv_i i0init i1fn1 i2fn2 i3elements = outOpcode "vsubv_i" args - where args = [to i1fn1, to i2fn2, to i3elements] ++ map to i0init - - --- | * opcode : vmultv_i --- --- --- * syntax : --- --- > vmultv_i ifn1, ifn2, ielements [, idstoffset] [, isrcoffset] --- --- --- * description : --- --- Performs mutiplication between two vectorial control signals at --- init time. --- --- --- * url : - -vmultv_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vmultv_i i0init i1fn1 i2fn2 i3elements = outOpcode "vmultv_i" args - where args = [to i1fn1, to i2fn2, to i3elements] ++ map to i0init - - --- | * opcode : vdivv_i --- --- --- * syntax : --- --- > vdivv_i ifn1, ifn2, ielements [, idstoffset] [, isrcoffset] --- --- --- * description : --- --- Performs division between two vectorial control signals at init --- time. --- --- --- * url : - -vdivv_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vdivv_i i0init i1fn1 i2fn2 i3elements = outOpcode "vdivv_i" args - where args = [to i1fn1, to i2fn2, to i3elements] ++ map to i0init - - --- | * opcode : vpowv_i --- --- --- * syntax : --- --- > vpowv_i ifn1, ifn2, ielements [, idstoffset] [, isrcoffset] --- --- --- * description : --- --- Performs power-of operations between two vectorial control --- signals at init time. --- --- --- * url : - -vpowv_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vpowv_i i0init i1fn1 i2fn2 i3elements = outOpcode "vpowv_i" args - where args = [to i1fn1, to i2fn2, to i3elements] ++ map to i0init - - --- | * opcode : vexpv_i --- --- --- * syntax : --- --- > vexpv_i ifn1, ifn2, ielements [, idstoffset] [, isrcoffset] --- --- --- * description : --- --- Performs exponential operations between two vectorial control --- signals at init time. --- --- --- * url : - -vexpv_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vexpv_i i0init i1fn1 i2fn2 i3elements = outOpcode "vexpv_i" args - where args = [to i1fn1, to i2fn2, to i3elements] ++ map to i0init - - --- | * opcode : vcopy_i --- --- --- * syntax : --- --- > vcopy_i ifn, ifn2, ielements [,idstoffset, isrcoffset] --- --- --- * description : --- --- Copies a vector from one table to another. --- --- --- * url : - -vcopy_i :: [Irate] -> Irate -> Irate -> Irate -> SignalOut -vcopy_i i0init i1fn i2fn2 i3elements = outOpcode "vcopy_i" args - where args = [to i1fn, to i2fn2, to i3elements] ++ map to i0init diff --git a/src/CsoundExpr/Opcodes/Zak.hs b/src/CsoundExpr/Opcodes/Zak.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Zak.hs +++ /dev/null @@ -1,8 +0,0 @@ --- | Zak Patch System -module CsoundExpr.Opcodes.Zak - (module CsoundExpr.Opcodes.Zak.Top) -where - - - -import CsoundExpr.Opcodes.Zak.Top diff --git a/src/CsoundExpr/Opcodes/Zak/Top.hs b/src/CsoundExpr/Opcodes/Zak/Top.hs deleted file mode 100644 --- a/src/CsoundExpr/Opcodes/Zak/Top.hs +++ /dev/null @@ -1,326 +0,0 @@ --- | Zak Patch System -module CsoundExpr.Opcodes.Zak.Top - (zacl, - zakinit, - zamod, - zar, - zarg, - zaw, - zawm, - zkcl, - zkmod, - zkr, - zkw, - zkwm, - zir, - ziw, - ziwm) -where - - - -import CsoundExpr.Base.Types -import CsoundExpr.Base.MultiOut -import CsoundExpr.Base.SideEffect -import CsoundExpr.Base.UserDefined - - - --- | * opcode : zacl --- --- --- * syntax : --- --- > zacl kfirst, klast --- --- --- * description : --- --- Clears one or more variables in the za space. --- --- --- * url : - -zacl :: (K k0, K k1) => k0 -> k1 -> SignalOut -zacl k0first k1last = outOpcode "zacl" args - where args = [to k0first, to k1last] - - --- | * opcode : zakinit --- --- --- * syntax : --- --- > zakinit isizea, isizek --- --- --- * description : --- --- Establishes zak space. Must be called only once. --- --- --- * url : - -zakinit :: Irate -> Irate -> SignalOut -zakinit i0sizea i1sizek = outOpcode "zakinit" args - where args = [to i0sizea, to i1sizek] - - --- | * opcode : zamod --- --- --- * syntax : --- --- > ares zamod asig, kzamod --- --- --- * description : --- --- Modulates one a-rate signal by a second one. --- --- --- * url : - -zamod :: (K k0) => Arate -> k0 -> Arate -zamod a0sig k1zamod = opcode "zamod" args - where args = [to a0sig, to k1zamod] - - --- | * opcode : zar --- --- --- * syntax : --- --- > ares zar kndx --- --- --- * description : --- --- Reads from a location in za space at a-rate. --- --- --- * url : - -zar :: (K k0) => k0 -> Arate -zar k0ndx = opcode "zar" args - where args = [to k0ndx] - - --- | * opcode : zarg --- --- --- * syntax : --- --- > ares zarg kndx, kgain --- --- --- * description : --- --- Reads from a location in za space at a-rate, adds some gain. --- --- --- * url : - -zarg :: (K k0, K k1) => k0 -> k1 -> Arate -zarg k0ndx k1gain = opcode "zarg" args - where args = [to k0ndx, to k1gain] - - --- | * opcode : zaw --- --- --- * syntax : --- --- > zaw asig, kndx --- --- --- * description : --- --- Writes to a za variable at a-rate without mixing. --- --- --- * url : - -zaw :: (K k0) => Arate -> k0 -> SignalOut -zaw a0sig k1ndx = outOpcode "zaw" args - where args = [to a0sig, to k1ndx] - - --- | * opcode : zawm --- --- --- * syntax : --- --- > zawm asig, kndx [, imix] --- --- --- * description : --- --- Writes to a za variable at a-rate with mixing. --- --- --- * url : - -zawm :: (K k0) => [Irate] -> Arate -> k0 -> SignalOut -zawm i0init a1sig k2ndx = outOpcode "zawm" args - where args = [to a1sig, to k2ndx] ++ map to i0init - - --- | * opcode : zkcl --- --- --- * syntax : --- --- > zkcl kfirst, klast --- --- --- * description : --- --- Clears one or more variables in the zk space. --- --- --- * url : - -zkcl :: (K k0, K k1) => k0 -> k1 -> SignalOut -zkcl k0first k1last = outOpcode "zkcl" args - where args = [to k0first, to k1last] - - --- | * opcode : zkmod --- --- --- * syntax : --- --- > kres zkmod ksig, kzkmod --- --- --- * description : --- --- Facilitates the modulation of one signal by another. --- --- --- * url : - -zkmod :: (K k0, K k1) => k0 -> k1 -> Krate -zkmod k0sig k1zkmod = opcode "zkmod" args - where args = [to k0sig, to k1zkmod] - - --- | * opcode : zkr --- --- --- * syntax : --- --- > kres zkr kndx --- --- --- * description : --- --- Reads from a location in zk space at k-rate. --- --- --- * url : - -zkr :: (K k0) => k0 -> Krate -zkr k0ndx = opcode "zkr" args - where args = [to k0ndx] - - --- | * opcode : zkw --- --- --- * syntax : --- --- > zkw ksig, kndx --- --- --- * description : --- --- Writes to a zk variable at k-rate without mixing. --- --- --- * url : - -zkw :: (K k0, K k1) => k0 -> k1 -> SignalOut -zkw k0sig k1ndx = outOpcode "zkw" args - where args = [to k0sig, to k1ndx] - - --- | * opcode : zkwm --- --- --- * syntax : --- --- > zkwm ksig, kndx [, imix] --- --- --- * description : --- --- Writes to a zk variable at k-rate with mixing. --- --- --- * url : - -zkwm :: (K k0, K k1) => [Irate] -> k0 -> k1 -> SignalOut -zkwm i0init k1sig k2ndx = outOpcode "zkwm" args - where args = [to k1sig, to k2ndx] ++ map to i0init - - --- | * opcode : zir --- --- --- * syntax : --- --- > ir zir indx --- --- --- * description : --- --- Reads from a location in zk space at i-rate. --- --- --- * url : - -zir :: Irate -> Irate -zir i0ndx = opcode "zir" args - where args = [to i0ndx] - - --- | * opcode : ziw --- --- --- * syntax : --- --- > ziw isig, indx --- --- --- * description : --- --- Writes to a zk variable at i-rate without mixing. --- --- --- * url : - -ziw :: Irate -> Irate -> SignalOut -ziw i0sig i1ndx = outOpcode "ziw" args - where args = [to i0sig, to i1ndx] - - --- | * opcode : ziwm --- --- --- * syntax : --- --- > ziwm isig, indx [, imix] --- --- --- * description : --- --- Writes to a zk variable to an i-rate variable with mixing. --- --- --- * url : - -ziwm :: [Irate] -> Irate -> Irate -> SignalOut -ziwm i0init i1sig i2ndx = outOpcode "ziwm" args - where args = [to i1sig, to i2ndx] ++ map to i0init diff --git a/src/CsoundExpr/Translator/AssignmentElimination.hs b/src/CsoundExpr/Translator/AssignmentElimination.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/AssignmentElimination.hs +++ /dev/null @@ -1,159 +0,0 @@ -module CsoundExpr.Translator.AssignmentElimination - (eliminateAssignment, - SubstExpr(..), RateInfo(..), Opcode, - numArgName, strArgName) -where - -import Control.Monad.State -import qualified Data.Map as M -import Data.Either - -import qualified CsoundExpr.Translator.Cs.CsTree as La -import qualified CsoundExpr.Translator.Cs.CsoundFile as Cs - -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.Types - -type SubstTable = M.Map Int (RateInfo, Opcode) - -type Opcode = (String, [Cs.ArgIn]) - -data RateInfo = ZeroOut - | SingleOut Cs.Rate - | MultiOut (Purity La.Label) Int [Cs.Rate] - deriving (Show, Eq, Ord) - -data SubstExpr = SubstExpr - { lineNum :: Int - , argOut :: Maybe Cs.ArgOut - , rateInfo :: RateInfo - , body :: Opcode - } deriving (Show) - - -ppSubstExpr x = "(" ++ (show $ lineNum x) ++ "," ++ (show $ argOut x) ++ "," ++ (show $ body x) - -rates = exprType . exprTag . layerOp -op = exprOp . exprTag . layerOp - - - -eliminateAssignment :: [ExprLayer Int LaExpr Int] -> [SubstExpr] -eliminateAssignment xs = filter (flip elem ids . lineNum) ys - where (ys, (ids, _)) = runState (mapM stateFun xs) ([], M.empty) - stateFun x = state $ \(ids, m) -> substFun x ids m - -substFun :: ExprLayer Int LaExpr Int - -> [Int] -> SubstTable - -> (SubstExpr, ([Int], SubstTable)) -substFun x is m - | isArgOut x = (SubstExpr id (aoArgOut x) (aoRateInfo m x) (aoBody m x), - (id : is, m)) - | La.isVal $ op x = (SubstExpr id (valArgOut x) (valRateInfo x) (valBody x), - (is, M.insert id (valSubstTableValue x) m)) - | La.isParam $ op x = (SubstExpr id (paramArgOut x) (paramRateInfo x) (paramBody x), - (is, M.insert id (paramSubstTableValue x) m)) - | La.isArg $ op x = (SubstExpr id (aiArgOut x) (aiRateInfo x) (aiBody x), - (is, M.insert id (aiSubstTableValue x) m)) - | La.isOpr $ op x = (SubstExpr id (oprArgOut x) (oprRateInfo x) (oprBody m x), - (is ++ oprIds m x, M.insert id (oprSubstTableValue m x) m)) - | La.isOpc $ op x = (SubstExpr id (opcArgOut x) (opcRateInfo x) (opcBody m x), - (is ++ opcIds m x, M.insert id (opcSubstTableValue m x) m)) - where id = layerOut x - - --- val - -valArgOut x = Just $ numArgName Cs.I (layerOut x) -valRateInfo x = SingleOut Cs.I -valBody x = ("=", [Cs.ArgInValue $ toValue $ La.value $ op x]) - -valSubstTableValue x = (valRateInfo x, valBody x) - --- param - -paramArgOut x = Just $ numArgName Cs.I (layerOut x) -paramRateInfo x = SingleOut Cs.I -paramBody x = ("=", [Cs.ArgInParam $ Cs.Param $ La.paramId $ op x]) - -paramSubstTableValue x = (paramRateInfo x, paramBody x) - --- argOut - -aoArgOut x = Just $ strArgName (toCsRate $ La.argRate $ op x) (La.argName $ op x) -aoRateInfo m x = fst $ m M.! aoArgInId x -aoBody m x = snd $ m M.! aoArgInId x - -aoArgInId = head . layerIn - --- argIn - -aiArgOut x = Just $ numArgName (toCsRate $ head $ rates x) (layerOut x) -aiRateInfo x = SingleOut $ toCsRate $ head $ rates x -aiBody x = ("=", [Cs.ArgInName $ strArgName (toCsRate $ La.argRate $ op x) (La.argName $ op x)]) - -aiSubstTableValue x = (aiRateInfo x, aiBody x) - --- opr - -oprArgOut x = Just $ numArgName (toCsRate $ head $ rates x) (layerOut x) -oprRateInfo x = SingleOut $ toCsRate $ head $ rates x -oprBody m x = ("=", [Cs.ArgInOpr (La.oprName $ op x) args]) - where args = map (substArg m) $ layerIn x - -oprSubstTableValue m x = (oprRateInfo x, oprBody m x) - -oprIds m x = filter (not . isSubstId m) $ layerIn x - --- opc - -opcArgOut x = case (rates x) of - [] -> Nothing - (r:[]) -> Just $ numArgName (toCsRate $ r) (layerOut x) - rs -> let i = exprOutPort $ layerOp x - in Just $ numArgName (toCsRate $ rs !! i) (layerOut x) -opcRateInfo x = case (rates x) of - [] -> ZeroOut - (r:[]) -> SingleOut (toCsRate r) - rs -> MultiOut (exprPurity $ layerOp x) - (exprOutPort $ layerOp x) - (map toCsRate rs) -opcBody m x = (La.opcName $ op x, map (substArg m) $ layerIn x) - -opcSubstTableValue m x = (opcRateInfo x, opcBody m x) - -opcIds m x = case (rates x) of - [] -> outId : inIds - _ -> inIds - where inIds = filter (not . isSubstId m) $ layerIn x - outId = layerOut x - --- subst args - -substArg :: SubstTable -> Int -> Cs.ArgIn -substArg m id = - case m M.! id of - (SingleOut r, (opc, as)) -> if opc == "=" - then head as - else Cs.ArgInName $ numArgName r id - (MultiOut _ i rs, _) -> Cs.ArgInName $ numArgName (rs !! i) id - - -isSubstId :: SubstTable -> Int -> Bool -isSubstId m id = - case m M.! id of - (SingleOut r, (opc, as)) -> opc == "=" - _ -> False - --- - -numArgName :: Cs.Rate -> Int -> Cs.ArgName -numArgName rate id = Cs.ArgName rate (show id) - - -strArgName :: Cs.Rate -> String -> Cs.ArgName -strArgName rate name = case rate of - Cs.SetupRate -> Cs.ArgName rate name - _ -> Cs.ArgName rate ("x" ++ name) - - diff --git a/src/CsoundExpr/Translator/Cs/CsBoolean.hs b/src/CsoundExpr/Translator/Cs/CsBoolean.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Cs/CsBoolean.hs +++ /dev/null @@ -1,144 +0,0 @@ -{-# LANGUAGE - FlexibleInstances, - TypeFamilies, - TypeSynonymInstances #-} - -module CsoundExpr.Translator.Cs.CsBoolean (CsBool) -where - -import Data.Boolean -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.ExprTree.ExprTree - ----------------------------------------------- --- low level operations - -mkAnd, mkOr :: CsTree -> CsTree -> CsTree - -mkAnd a b = pure (oprInfix "&&") [a, b] -mkOr a b = pure (oprInfix "||") [a, b] - -mkComp :: CompOp -> CsTree -> CsTree -> CsTree -mkComp op a b = pure (oprInfix $ show op) [a, b] - -mkIf :: CsTree -> CsTree -> CsTree -> CsTree -mkIf cond th el = pure ifOpr [cond, th, el] - -oprInfix :: Name -> CsExpr -oprInfix name = opr ["(", name, ")"] - -ifOpr :: CsExpr -ifOpr = opr ["(", "?", ":",")"] - -------------------------------------------------- --- Booleans - -data CsBool = CsBPrim CsComp - | CsTrue - | CsFalse - | CsNot CsBool - | CsAnd CsBool CsBool - | CsOr CsBool CsBool - -data CsComp = CsComp CompOp CsTree CsTree - -data CompOp = CsEq | CsNeq | CsLt | CsGt | CsElt | CsEgt - -instance Show CompOp where - show x = case x of - CsEq -> "==" - CsNeq -> "!=" - CsLt -> "<" - CsGt -> ">" - CsElt -> "<=" - CsEgt -> ">=" - -notCompOp :: CompOp -> CompOp -notCompOp x = case x of - CsEq -> CsNeq - CsNeq -> CsEq - CsLt -> CsEgt - CsGt -> CsElt - CsElt -> CsGt - CsEgt -> CsLt - -instance Boolean CsBool where - true = CsTrue - false = CsFalse - notB = CsNot - - a &&* b = case (a, b) of - (CsTrue, _) -> b - (CsFalse, _) -> CsFalse - (_, CsTrue ) -> a - (_, CsFalse) -> CsFalse - _ -> CsAnd a b - - a ||* b = case (a, b) of - (CsTrue, _) -> CsTrue - (CsFalse, _) -> b - (_, CsTrue ) -> CsTrue - (_, CsFalse) -> a - _ -> CsOr a b - - ------------------------------------------------------- --- nots elimination - -data Ctx = N | P - -elimNots :: Ctx -> CsBool -> CsBool -elimNots P x = - case x of - CsNot a -> elimNots N a - CsAnd a b -> CsAnd (elimNots P a) (elimNots P b) - CsOr a b -> CsOr (elimNots P a) (elimNots P b) - _ -> x - -elimNots N x = - case x of - CsBPrim (CsComp op a b) -> CsBPrim (CsComp (notCompOp op) a b) - CsTrue -> CsFalse - CsFalse -> CsTrue - CsNot a -> elimNots P a - CsAnd a b -> CsOr (elimNots N a) (elimNots N b) - CsOr a b -> CsAnd (elimNots N a) (elimNots N b) - ---------------------------------------------------- - -type instance BooleanOf CsTree = CsBool - -instance IfB CsTree where - ifB cond a b = let cond' = elimNots P cond - in case cond' of - CsTrue -> a - CsFalse -> b - CsNot c -> ifB c b a - _ -> mkIf (getCondCsTree cond') a b - - -getCondCsTree :: CsBool -> CsTree -getCondCsTree x = - case x of - CsBPrim a -> getCompCsTree a - CsAnd a b -> mkAnd (getCondCsTree a) (getCondCsTree b) - CsOr a b -> mkOr (getCondCsTree a) (getCondCsTree b) - -getCompCsTree :: CsComp -> CsTree -getCompCsTree (CsComp op a b) = mkComp op a b - - -bOp :: CompOp -> CsTree -> CsTree -> CsBool -bOp op a b = CsBPrim $ CsComp op a b - - -instance EqB CsTree where - (==*) = bOp CsEq - (/=*) = bOp CsNeq - - -instance OrdB CsTree where - (<*) = bOp CsLt - (>*) = bOp CsGt - (<=*) = bOp CsElt - (>=*) = bOp CsEgt diff --git a/src/CsoundExpr/Translator/Cs/CsTree.hs b/src/CsoundExpr/Translator/Cs/CsTree.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Cs/CsTree.hs +++ /dev/null @@ -1,295 +0,0 @@ -{-# LANGUAGE - MultiParamTypeClasses, - TypeSynonymInstances, - FlexibleInstances, - FlexibleContexts #-} - -module CsoundExpr.Translator.Cs.CsTree ( - -- types - CsTree, - Rate(..), CsExpr(..), - Value(..), Ftable(..), GEN(..), Name, Label, - -- constructors - opc, opr, - int, double, string, ftable, param, - argIn, argOut, - -- predicates - isArg, isFtable, - isVal, isOpc, isOpr, isParam, isString, - equalStructure, equalStructureByParams, - -- selectors - toFtable, ftableGENArgs, ftableSize, ftableGENId, getFtable, - getCsExpr, getCsArgs, decompCsTree, - mapFtable, toDouble, opcName, oprName, paramId, value, - argName, argRate - ) -where - -import Data.Function - -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.ExprTree.Tree -import CsoundExpr.Translator.Cs.IM -import CsoundExpr.Translator.Cs.Utils -import CsoundExpr.Translator.ExprTree.Tree - ------------------------------------------------ --- types - -type CsTree = ExprTree Label Rate CsExpr - - -data Rate = A | K | I | S | GA | GK | GI | GS | SetupRate - deriving (Show, Eq, Ord) - -data CsExpr = Val Value - | Param Id - | Arg Rate Name - | Opc Name - | Opr [Name] - deriving (Show, Eq, Ord) - - -data Value = ValueInt Int - | ValueDouble Double - | ValueString String - | ValueFtable Ftable - deriving (Show, Eq, Ord) - -data Ftable = EmptyFtable - | Ftable Size GEN - deriving (Show, Eq, Ord) - -data GEN = GEN Id [CsTree] - deriving (Show, Eq, Ord) - -type Name = String -type Label = Int - ------------------------------------------- --- instances - -instance IM CsTree CsTree where - from = id - to = id - ------------------ --- Lists - -val :: CsExpr -> CsTree -val x = pure x [] - -param :: IM CsTree a => Id -> a -param = from . val . Param - -int :: IM CsTree a => Int -> a -int = from . val . Val . ValueInt - -double :: IM CsTree a => Double -> a -double = from . val . Val . ValueDouble - -ftable :: IM CsTree a => Ftable -> a -ftable = from . val . Val . ValueFtable - -string :: IM CsTree a => String -> a -string = from . mapType (const [S]) . val . Val . ValueString - - -argIn :: IM CsTree a => Rate -> Name -> a -argIn rate = from . val . Arg rate - -argOut :: IM CsTree a => Rate -> Name -> a -> CsTree -argOut rate name = mapType (const [rate]) . pure' (Arg rate name) . return . to - where pure' :: CsExpr -> [CsTree] -> CsTree - pure' = pure - - ------------------------------- - -opc :: Name -> CsExpr -opc = Opc - -opr :: [Name] -> CsExpr -opr = Opr - ------------------------------------------- --- CsTree Selectors - -mapFtable :: (Ftable -> Ftable) -> CsTree -> CsTree -mapFtable f = mapTag (mapSnd $ phi f) - where phi f x = case x of - (Val (ValueFtable x)) -> Val (ValueFtable $ f x) - _ -> error "value is not ftable" - -getFtable :: CsTree -> Ftable -getFtable = select . getCsExpr - where select x = case x of - (Val (ValueFtable x)) -> x - _ -> error "value is not ftable" - -getCsExpr :: CsTree -> CsExpr -getCsExpr = exprOp . exprTreeTag - -getCsArgs :: CsTree -> [CsTree] -getCsArgs = treeChilds - -decompCsTree :: CsTree -> (CsExpr, [CsTree]) -decompCsTree x = (getCsExpr x, getCsArgs x) - ------------------------------------------------------------ --- CsExpr selectors - -paramId :: CsExpr -> Id -paramId x = case x of - (Param x) -> x - _ -> error "expr is no Param" - - -value :: CsExpr -> Value -value x = case x of - (Val x) -> x - _ -> error "expr is no Val" - - -opcName :: CsExpr -> Name -opcName x = case x of - (Opc x) -> x - _ -> error "expr is no Opc" - -oprName :: CsExpr -> [Name] -oprName x = case x of - (Opr x) -> x - _ -> error "expr is no Opr" - - -argName :: CsExpr -> Name -argName x = case x of - (Arg _ x) -> x - _ -> error "expr is not Arg" - - -argRate :: CsExpr -> Rate -argRate x = case x of - (Arg x _) -> x - _ -> error "expr is not Arg" - - - -------------------------------------------------- --- - -ftableSize :: Ftable -> Size -ftableSize x = case x of - EmptyFtable -> 0 - (Ftable x _) -> x - -ftableGENId :: Ftable -> Id -ftableGENId x = case x of - EmptyFtable -> 0 - (Ftable _ (GEN x _ )) -> x - -ftableGENArgs :: Ftable -> [CsTree] -ftableGENArgs x = case x of - EmptyFtable -> [] - (Ftable _ (GEN _ ts)) -> ts - --------------------------------------------------- - - --------------------------------------------------- --- predicates - - -isParam :: CsExpr -> Bool -isParam x = case x of - (Param _) -> True - _ -> False - -isVal :: CsExpr -> Bool -isVal x = case x of - (Val _) -> True - _ -> False - - -isOpc :: CsExpr -> Bool -isOpc x = case x of - (Opc _) -> True - _ -> False - -isOpr :: CsExpr -> Bool -isOpr x = case x of - (Opr _) -> True - _ -> False - -isArg :: CsExpr -> Bool -isArg x = case x of - (Arg _ _) -> True - _ -> False - -------------- --- value predicates - -isFtable :: Value -> Bool -isFtable x = case x of - (ValueFtable _) -> True - _ -> False - - -toFtable :: Value -> Ftable -toFtable x = case x of - (ValueFtable q) -> q - _ -> error "value is not ftable" - - -isDouble :: Value -> Bool -isDouble x = case x of - ValueDouble q -> True - _ -> False - -toDouble :: Value -> Maybe Double -toDouble x = case x of - ValueDouble q -> Just q - _ -> Nothing - -isString :: Value -> Bool -isString x = case x of - (ValueString _) -> True - _ -> False - - - ----------------------- --- tree predicates - - -equalStructure :: CsTree -> CsTree -> Bool -equalStructure = equalTreeStructureBy pred - where pred a b - | isVal' a && isVal' b = eqVal a b - | otherwise = a == b - isVal' = isVal . exprOp . exprTag - value' = value . exprOp . exprTag - eqVal = equalValueStructure `on` value' - -equalStructureByParams :: CsTree -> CsTree -> Bool -equalStructureByParams = equalTreeStructureBy pred - where pred a b - | isVal' a && isVal' b = eqVal a b - | isParam' a && isVal' b && paramId' a > 3 = True - | isVal' a && isParam' b && paramId' b > 3 = True - | otherwise = a == b - isVal' = isVal . exprOp . exprTag - value' = value . exprOp . exprTag - isParam' = isParam . exprOp . exprTag - paramId' = paramId . exprOp . exprTag - eqVal = equalValueStructure `on` value' - - -equalValueStructure :: Value -> Value -> Bool -equalValueStructure a b = - case (a, b) of - ((ValueInt _) , (ValueInt _)) -> True - ((ValueString _), (ValueString _)) -> True - ((ValueDouble _), (ValueDouble _)) -> True - ((ValueFtable _), (ValueFtable _)) -> True - _ -> False diff --git a/src/CsoundExpr/Translator/Cs/CsoundFile.hs b/src/CsoundExpr/Translator/Cs/CsoundFile.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Cs/CsoundFile.hs +++ /dev/null @@ -1,320 +0,0 @@ -module CsoundExpr.Translator.Cs.CsoundFile ( - CsoundFile(..), - Flags, Orchestra(..), Scores(..), - Value(..), Rate(..), ArgName(..), Param(..), - Header(..), Instr(..), OpcodeExpr(..), ArgOut, ArgIn(..), - Ftable(..), FtableInits(..), GEN(..), TotalDuration(..), Note(..), NoteInits(..), - defTempo -) -where - -import Data.Char -import Data.List -import qualified Data.Map as Map -import Text.PrettyPrint - ------------------------------------------------------------ ------------------------------------------------------------ --- types - --- | csound code -data CsoundFile = CsoundFile Flags Orchestra Scores - --- | csound flags -type Flags = String -data Orchestra = Orchestra Header [Instr] -data Scores = Scores [Ftable] Tempo TotalDuration [Note] - --- basic types -type Id = Int - -data Value = ValueInt Int - | ValueDouble Double - | ValueString String - deriving (Eq, Ord) - -data Rate = SetupRate | A | K | I | S | GA | GK | GI | GS - deriving (Eq, Ord) - -type Name = String -data ArgName = ArgName Rate Name - deriving (Eq, Ord) -data Param = Param Id - deriving (Eq, Ord) - --- Orchestra subtypes -newtype Header = Instr0 [OpcodeExpr] - -data Instr = Instr Id [OpcodeExpr] - -data OpcodeExpr = OpcodeExpr [ArgOut] Name [ArgIn] - deriving (Show) -type ArgOut = ArgName -data ArgIn = ArgInName ArgName - | ArgInParam Param - | ArgInValue Value - | ArgInOpr [Name] [ArgIn] - deriving (Eq, Ord) - --- Scores subtypes -data Ftable = Ftable Id FtableInits GEN - -data FtableInits = FtableInits LoadTime NumOfPoints - -type LoadTime = Double -type NumOfPoints = Int - -data GEN = GEN Id [Value] - -newtype Tempo = Tempo [Double] - -newtype TotalDuration = TotalDuration Double - -data Note = Note Id NoteInits [Value] - -data NoteInits = NoteInits StartTime Duration -type StartTime = Double -type Duration = Double - ------------------------------------------------------------ ------------------------------------------------------------ --- defaults - -defTempo = Tempo [] - ------------------------------------------------------------ ------------------------------------------------------------ --- pretty printing around - - -nlines n = foldl1 ($$) $ take n $ repeat $ text "" -commentSection s = - (text "; -------------------------------") $$ - (text $ "; " ++ s) - - ------------------------------------------------------------ ------------------------------------------------------------ --- rates - -instance Show Rate where - show x = case x of - SetupRate -> "" - A -> "a" - K -> "k" - I -> "i" - S -> "S" - GA -> "ga" - GK -> "gk" - GI -> "gi" - GS -> "gS" - ------------------------------------------------------------ ------------------------------------------------------------ --- .CSD file - -instance Show CsoundFile where - show (CsoundFile flags orc sco) = show $ - flagsHeader $$ - (text flags) $$ - orchestraHeader $$ - (text $ show orc) $$ - scoresHeader $$ - (text $ show sco) $$ - finHeader - where nlineOffset = 2 - ------------------------------------------------------------ ------------------------------------------------------------ --- headers for .CSD file - --- --- -flagsHeader = - text "" $$ - text "" - --- --- -orchestraHeader = - text "" $$ - text "" - --- --- -scoresHeader = - text "" $$ - text "" - --- --- -finHeader = - text "" $$ - text "" - ------------------------------------------------------------ ------------------------------------------------------------ --- .ORC file - -instance Show Orchestra where - show (Orchestra header instrs) = show $ - (commentSection "Header") $$ - (text $ show header) $$ - nlines (2*nlineOffset) $$ - (commentSection "Instruments") $$ - (vcat $ - map ((nlines nlineOffset <>) . text . show) instrs) $$ - nlines (2*nlineOffset) - where nlineOffset = 1 - - ------------------------------------------------------------ ------------------------------------------------------------ --- .SCO file - -instance Show Scores where - show (Scores ftables tempo totalDuration notes) = show $ - (commentSection "Ftables") $$ - (text $ show totalDuration) $$ - (vcat $ map (text . show) ftables) $$ - (nlines (2*nlineOffset)) $$ - (commentSection "Tempo") $$ - (text $ show tempo) $$ - (nlines (2*nlineOffset)) $$ - (commentSection "Notes") $$ - (vcat $ map (text . show) notes) $$ - (nlines nlineOffset) $$ - (text "e") $$ - (nlines (2*nlineOffset)) - where nlineOffset = 1 - - ----------------------------------------------------- ----------------------------------------------------- --- flags section - ----------------------------------------------------- ----------------------------------------------------- --- orchestra section (header, intruments) - ----------------------------------------------------- --- header section - -instance Show Header where - show (Instr0 []) = "" - show (Instr0 opcodes) = show $ empty $$ align lines $$ empty - where lines = map opcodeExprToLine opcodes - ----------------------------------------------------- --- instrument section - -instance Show Instr where - show (Instr id opcodes) = show $ space $$ align lines $$ space - where lines = firstLine ++ body ++ lastLine - firstLine = [("", "instr", show id)] - lastLine = [("", "endin", "")] - body = map opcodeExprToLine opcodes - -align :: [(String, String, String)] -> Doc -align lines = foldl1 ($$) $ map (f indent1 indent2) lines - where offset = 3 - indent1 = offset + maximum [length x | (x, _, _) <- lines] - indent2 = offset + maximum [length x | (_, x, _) <- lines] - f n1 n2 (x1, x2, x3) = - text x1 $$ - nest (n1) (text x2) $$ - nest (n1+n2) (text x3) - -opcodeExprToLine :: OpcodeExpr -> (String, String, String) -opcodeExprToLine (OpcodeExpr argsOut opcode argsIn) = - (argsToLine argsOut, opcode, argsToLine argsIn) - where - argsToLine :: Show a => [a] -> String - argsToLine = show . hcat . - punctuate (comma <> space) . map (text . show) - -instance Show ArgName where - show (ArgName rate name) = show rate ++ name - -instance Show Param where - show (Param id) = "p" ++ show id - -instance Show Value where - show (ValueString s) = show s - show (ValueInt x) = show x - show (ValueDouble x) = show x - - -instance Show ArgIn where - show (ArgInName x) = show x - show (ArgInParam x) = show x - show (ArgInValue x) = show x --- operators - show (ArgInOpr op xs) = printOperator op xs - -printOperator :: [Name] -> [ArgIn] -> String -printOperator op args = show $ hcat $ mergeLists opDoc argsDoc - where argsDoc = map (text . show) args - opDoc = map text op - -mergeLists :: [a] -> [a] -> [a] -mergeLists x x' = case (x, x') of - ([], _) -> x' - (_ , []) -> x - (a:as, b:bs) -> a : b : mergeLists as bs - - ----------------------------------------------------- ----------------------------------------------------- --- scores section - ----------------------------------------------------- --- ftable section - -instance Show Ftable where - show (Ftable id inits gen) = show $ - (text "f") <+> - int id <+> - (text $ show inits) <+> - (text $ show gen) - - -instance Show FtableInits where - show (FtableInits loadTime numOfPoints) = show $ - (text $ show loadTime) <+> - (text $ show numOfPoints) - -instance Show GEN where - show (GEN id vals) = show $ int id <+> - (foldl1 (<+>) $ map (text . show) vals) - ----------------------------------------------------- --- tempo - -instance Show Tempo where - show (Tempo []) = "" - show (Tempo vals) = show $ - text "t" <+> - (foldl1 (<+>) $ map double vals) - - ----------------------------------------------------- --- total duration - -instance Show TotalDuration where - show (TotalDuration t) = show $ text "f 0" <+> double t - ----------------------------------------------------- --- notes - -instance Show Note where - show (Note id noteInits vals) = show $ inits <+> aux - where - inits = text "i" <+> int id <+> (text $ show noteInits) - aux = if (length vals == 0) - then text "" - else foldl1 (<+>) $ map (text . show) vals - -instance Show NoteInits where - show (NoteInits start duration) = show $ - double start <+> double duration diff --git a/src/CsoundExpr/Translator/Cs/IM.hs b/src/CsoundExpr/Translator/Cs/IM.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Cs/IM.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# LANGUAGE MultiParamTypeClasses #-} - -module CsoundExpr.Translator.Cs.IM (IM(..)) -where - -class IM a b where - from :: a -> b - to :: b -> a diff --git a/src/CsoundExpr/Translator/Cs/Utils.hs b/src/CsoundExpr/Translator/Cs/Utils.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Cs/Utils.hs +++ /dev/null @@ -1,37 +0,0 @@ -module CsoundExpr.Translator.Cs.Utils - (mapFst, mapSnd, thd, - liftPredicateToList, - unionSorted, unionSortedBy) -where - -mapFst :: (a -> a') -> (a, b) -> (a', b) -mapFst f (a, b) = (f a, b) - -mapSnd :: (b -> b') -> (a, b) -> (a, b') -mapSnd f (a, b) = (a, f b) - -thd (_, _, a) = a - -liftPredicateToList :: (a -> b -> Bool) -> ([a] -> [b] -> Bool) -liftPredicateToList f xs ys - | length xs == length ys = all (uncurry f) $ zip xs ys - | otherwise = False - - -unionSorted :: Ord a => [a] -> [a] -> [a] -unionSorted x1 x2 = case (x1, x2) of - ([] , ys) -> ys - (xs , []) -> xs - ((x:xs) ,(y:ys)) -> if x < y - then x : unionSorted xs x2 - else y : unionSorted x1 ys - - -unionSortedBy :: (a -> a -> Ordering) -> [a] -> [a] -> [a] -unionSortedBy cmp x1 x2 = - case (x1, x2) of - ([] , ys) -> ys - (xs , []) -> xs - ((x:xs) ,(y:ys)) -> if cmp x y == LT - then x : unionSortedBy cmp xs x2 - else y : unionSortedBy cmp x1 ys diff --git a/src/CsoundExpr/Translator/Csd.hs b/src/CsoundExpr/Translator/Csd.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Csd.hs +++ /dev/null @@ -1,97 +0,0 @@ -module CsoundExpr.Translator.Csd - (toCsd, ppCsTrees, toNotes) -where - -import Text.PrettyPrint -import Temporal.Music(Score, dur) - - -import qualified CsoundExpr.Translator.Cs.CsTree as La -import qualified CsoundExpr.Translator.Cs.CsoundFile as Cs - -import CsoundExpr.Translator.Types - -import CsoundExpr.Translator.Header -import CsoundExpr.Translator.Instr -import CsoundExpr.Translator.Ftable -import CsoundExpr.Translator.Score -import CsoundExpr.Translator.InstrOrder - -import qualified Data.Map as Map - -import Debug.Trace -debug x = trace (show $ map snd $ Map.toList x) x - ---------------------------------------------------------------- ---------------------------------------------------------------- --- translate to csd file - - -toCsd :: Cs.Flags -> [SignalInit] -> Score SignalOut -> Cs.CsoundFile -toCsd flags inits scores = Cs.CsoundFile flags orc sco - where orc = Cs.Orchestra header instrs - sco = Cs.Scores fTabs Cs.defTempo tDur notes - header = toHeader iTab inits (setFtablesInInstr ftInfo instr0) - instrs = map toInstr q1 - notes = ( >>= toNotes) q2 - (q1, q2) = setInstrIds ids ps - ps = substFtables ftInfo qs - ids = instrIds iTab $ map fst qs - iTab = instrOrderInfo order $ map fst qs - fTabs = toCsFtables ftInfo - ftInfo = getFtableInfo qs instr0 - qs = foldScores scores' ++ (zip midi $ repeat []) - tDur = Cs.TotalDuration $ dur scores - scores' = fmap fromSignalOut scores - (instr0, midi, order) = parseInits inits - ---------------------------------------------------------------- ---------------------------------------------------------------- --- ftables - -getFtableInfo :: [(Instr, [Note])] -> Instr -> FtableInfo -getFtableInfo as instr0 = - ftableInfo $ (getFtablesFromInstr =<< instrs1) ++ - ((getFtablesFromNote =<<) =<< notes1) ++ - (getFtablesFromInstr instr0) - where (instrs1, notes1) = unzip as - - -substFtables :: FtableInfo -> [(Instr, [Note])] -> [(Instr, [Note])] -substFtables ftInfo x = zip instrs' notes' - where instrs' = map (setFtablesInInstr ftInfo) instrs - notes' = map (map (setFtablesInNote ftInfo)) notes - (instrs, notes) = unzip x - - -substFtablesInInstr :: Instr -> (Instr, [Cs.Ftable]) -substFtablesInInstr x = (x', toCsFtables ftInfo) - where x' = setFtablesInInstr ftInfo x - ftInfo = ftableInfo $ getFtablesFromInstr x - - ---------------------------------------------------------------- ---------------------------------------------------------------- --- translate notes - -toNotes :: (Id, [Note]) -> [Cs.Note] -toNotes (id, xs) = map (toNote id) xs - where toNote id (t, d, vs) = Cs.Note id (Cs.NoteInits t d) $ map (toValue . snd) vs - - ---------------------------------------------------------------- ---------------------------------------------------------------- --- prettyPrint trees - - -ppCsTrees :: [La.CsTree] -> Doc -ppCsTrees x = vcat [opcTitle, opcs, space, ftableTitle, ftables, space, space] - where opcs = text $ show $ Cs.Instr0 $ toOpcodeExpr ts - ftables = vcat $ map (text . show) fts - (ts, fts) = substFtablesInInstr x - - -opcTitle = text "; opcodes" -ftableTitle = text "; ftables" - - diff --git a/src/CsoundExpr/Translator/ExprTree/ExprTree.hs b/src/CsoundExpr/Translator/ExprTree/ExprTree.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/ExprTree/ExprTree.hs +++ /dev/null @@ -1,87 +0,0 @@ -module CsoundExpr.Translator.ExprTree.ExprTree - ( - -- types - ExprTree, Expr, OutPort, Purity(..), Id, Size, Tag, - -- constructors - pure, unpure, outPort, singlePort, - -- modifiers - labelUnpure, mapRootLabel, mapTag, mapOp, mapType, mapPurity, mapPort, - -- selectors - exprTreeTag, exprTag, exprPurity, exprOutPort, exprOp, exprType - ) -where - -import CsoundExpr.Translator.Cs.Utils -import CsoundExpr.Translator.ExprTree.Tree - - -type ExprTree a b c = Tree (Expr a b c) - -data Expr a b c = Expr OutPort (Purity a) (Tag b c) - deriving (Show, Eq, Ord) - -type OutPort = Id - -data Purity a = Pure | Unpure (Maybe a) - deriving (Show, Eq, Ord) - -type Tag a b = (Types a, Op b) -type Types a = [a] -type Op a = a - -type Id = Int -type Size = Int - - -pure :: Op c -> [ExprTree a b c] -> ExprTree a b c -pure f xs = Node (Expr singlePort Pure ([], f)) xs - -unpure :: Op c -> [ExprTree a b c] -> ExprTree a b c -unpure f xs = Node (Expr singlePort (Unpure Nothing) ([], f)) xs - - -outPort :: Int -> ExprTree a b c -> ExprTree a b c -outPort id = mapPort (const id) - -singlePort = 0 - -labelUnpure :: a -> ExprTree a b c -> ExprTree a b c -labelUnpure lab = mapPurity (const $ Unpure $ Just lab) - - -mapRootLabel :: (a -> a) -> Tree a -> Tree a -mapRootLabel f (Node v xs) = Node (f v) xs - - -mapTag :: (Tag b c -> Tag b c) -> ExprTree a b c -> ExprTree a b c -mapTag f = mapRootLabel $ \(Expr o p x) -> (Expr o p (f x)) - - -mapType :: (Types b -> Types b) -> ExprTree a b c -> ExprTree a b c -mapType f = mapTag $ mapFst f - -mapOp :: (Op c -> Op c) -> ExprTree a b c -> ExprTree a b c -mapOp f = mapTag $ mapSnd f - -mapPurity :: (Purity a -> Purity a) -> ExprTree a b c -> ExprTree a b c -mapPurity f = mapRootLabel $ \(Expr o p x) -> (Expr o (f p) x) - - -mapPort :: (OutPort -> OutPort) -> ExprTree a b c -> ExprTree a b c -mapPort f = mapRootLabel $ \(Expr o p x) -> (Expr (f o) p x) - -------------------------------------------------------- --- selectors - -exprTreeTag :: ExprTree a b c -> Tag b c -exprTreeTag (Node (Expr _ _ t) _) = t - -exprTag (Expr _ _ t) = t -exprPurity (Expr _ p _) = p -exprOutPort (Expr x _ _) = x - - -exprType = fst -exprOp = snd - - diff --git a/src/CsoundExpr/Translator/ExprTree/Tree.hs b/src/CsoundExpr/Translator/ExprTree/Tree.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/ExprTree/Tree.hs +++ /dev/null @@ -1,74 +0,0 @@ -module CsoundExpr.Translator.ExprTree.Tree - (Tree(..), - treeVal, treeChilds, subTree, - substTreeByFunc, substTreeById, - foldTree, toIdList, - equalTreeStructureBy) -where - -import Text.PrettyPrint - -data Tree a = Node a [Tree a] - deriving (Eq, Ord) - -ppTree :: Show a => Tree a -> Doc -ppTree (Node a xs) = text "Node" <+> (text $ show a) $+$ - nest 4 (vcat $ map ppTree xs) - -instance Show a => Show (Tree a) where - show t = show $ ppTree t - - -treeVal :: Tree a -> a -treeVal (Node x _) = x - -treeChilds :: Tree a -> [Tree a] -treeChilds (Node _ xs) = xs - - -substTreeByFunc :: (Tree a -> Maybe (Tree a)) -> Tree a -> Tree a -substTreeByFunc f t@(Node a ts) = - case f t of - (Just x) -> substTreeByFunc f x - Nothing -> (Node a $ map (substTreeByFunc f) ts) - - - -foldTree :: (a -> b -> a) -> a -> Tree b -> a -foldTree f s (Node a ts) = foldl (foldTree f) (f s a) ts - - -toIdList :: Tree a -> [([Int], a)] -toIdList = f [] - where f ids (Node a as) = ((ids, a) : ) $ - concat [f (ids ++ [i]) x | (i, x) <- zip [0..] as] - - -substTreeById :: [Int] -> Tree a -> Tree a -> Tree a -substTreeById id subtree tree = - case id of - [] -> subtree - xs -> substTreeById (init id) newSubtree tree - where newSubtree = - let s = subTree (init id) tree - x = treeChilds s - n = last id - in Node (treeVal s) $ - (take n x) ++ [subtree] ++ (drop (n+1) x) - - -subTree :: [Int] -> Tree a -> Tree a -subTree id tree = - case id of - [] -> tree - (x:xs) -> subTree xs (treeChilds tree !! x) - - - -equalTreeStructureBy :: (a -> a -> Bool) -> Tree a -> Tree a -> Bool -equalTreeStructureBy pred (Node a as) (Node b bs) - | pred a b = if length as == length bs - then all (uncurry $ equalTreeStructureBy pred) $ zip as bs - else False - | otherwise = False - diff --git a/src/CsoundExpr/Translator/ExprTree/TreeSeq.hs b/src/CsoundExpr/Translator/ExprTree/TreeSeq.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/ExprTree/TreeSeq.hs +++ /dev/null @@ -1,123 +0,0 @@ -module CsoundExpr.Translator.ExprTree.TreeSeq - (adjList, reduceAdjList, - adjLists, reduceAdjLists - ) -where - -import Control.Monad.State.Strict -import qualified Data.Map as M - -import CsoundExpr.Translator.ExprTree.Tree - - -numOfChildsList :: Tree a -> [(a, Int)] -numOfChildsList (Node a xs) = (a, length xs) : (numOfChildsList =<< xs) - -type TreeLayer a b = (a, (b, [Int])) -mkLayer a b c = (a, (b, c)) - - -adjList :: Int -> [Tree a] -> [TreeLayer Int a] -adjList s = fst . foldl f ([], s) - where f (res, id) t = let xs = fst $ runState (adjList' id t) id - ys = reverse xs - in (res ++ ys, nextId ys) - nextId (x:xs) = 1 + layerOut x - - -reduceAdjList :: Ord a => [TreeLayer Int a] -> [TreeLayer Int a] -reduceAdjList xs = fst $ runState (foldM reduceAdjList' [] xs) (0, M.empty, M.empty) - - -adjLists :: Int -> [Tree a] -> [(TreeLayer Int a, [TreeLayer Int a])] -adjLists s = fst . foldl f ([], s) - where f (res, id) t = let (x:xs) = fst $ runState (adjList' id t) id - ys = reverse xs - in (res ++ [(x, ys)], nextId x ys) - nextId x xs = (1 + ) $ layerOut $ - case xs of - [] -> x - _ -> head xs - - -reduceAdjLists :: Ord a => - [(TreeLayer Int a, [TreeLayer Int a])] - -> [TreeLayer Int a] -reduceAdjLists = fst . foldl f ([], (0, M.empty, M.empty)) - where f (res, s) (lastStm, x) = - registerLastStm lastStm $ - runState (foldM reduceAdjList' res $ x) s - - - - -adjList' :: Int -> Tree a -> State Int [TreeLayer Int a] -adjList' root (Node a xs) = - state $ \s -> let s' = nextId s - xs' = zip (ids s) xs - vs = fst $ runState (foldM foldAdjList [] xs') s' - in (mkLayer root a (ids s) : vs, s') - where ids x = [x + 1 .. x + n] - nextId x = x + n + 1 - n = length xs - foldAdjList x y = liftM (x ++) $ (uncurry adjList') y - -layerOut = fst -layerOp = fst . snd -layerIns = snd . snd - - -type LayerNode a = (a, [Int]) -type TableNode a = M.Map (LayerNode a) Int -type TableId = M.Map Int Int -type RegisterData a = (Int, TableNode a, TableId) - - -reduceAdjList' :: - Ord a => [TreeLayer Int a] - -> TreeLayer Int a - -> State (RegisterData a) [(TreeLayer Int a)] -reduceAdjList' res x = - state $ \s@(id, mNodes, mIds) -> - let k = (layerOp x, map (mIds M.! ) $ layerIns x) - in case (M.lookup k mNodes) of - Nothing -> registerNewNode (layerOut x) k (res, s) - (Just i) -> registerNewId (layerOut x) i (res, s) - - -registerNewNode :: Ord a => Int -> LayerNode a - -> ([TreeLayer Int a], RegisterData a) - -> ([TreeLayer Int a], RegisterData a) -registerNewNode i k (res, (id, mNodes, mIds)) = - (res ++ [(id, k)], (id+1, M.insert k id mNodes, M.insert i id mIds)) - - -registerNewId :: Ord a => Int -> Int - -> ([TreeLayer Int a], RegisterData a) - -> ([TreeLayer Int a], RegisterData a) -registerNewId x i (res, (id, mNodes, mIds)) = - (res, (id, mNodes, M.insert x i mIds)) - - - -registerLastStm :: Ord a => - TreeLayer Int a - -> ([TreeLayer Int a], RegisterData a) - -> ([TreeLayer Int a], RegisterData a) -registerLastStm lastStm (res, (id, mNodes, mIds)) = - (res ++ [(id, k)],( - id + 1, - dropLastStm lastStm mNodes, - M.insert (layerOut lastStm) id mIds - ) - ) - where k = (layerOp lastStm, map (mIds M.! ) $ layerIns lastStm) - - -dropLastStm :: Ord a => TreeLayer Int a - -> TableNode a -> TableNode a -dropLastStm lastStm = - M.filterWithKey (\k _ -> (/= layerOp lastStm) $ fst k) - - - diff --git a/src/CsoundExpr/Translator/Ftable.hs b/src/CsoundExpr/Translator/Ftable.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Ftable.hs +++ /dev/null @@ -1,110 +0,0 @@ -module CsoundExpr.Translator.Ftable - (toCsFtables, - ftableInfo, - getFtablesFromInstr, getFtablesFromNote, - setFtablesInInstr, setFtablesInNote) -where - -import Data.List -import qualified Data.Map as Map - -import CsoundExpr.Translator.ExprTree.Tree -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.Cs.Utils - -import qualified CsoundExpr.Translator.Cs.CsTree as La -import qualified CsoundExpr.Translator.Cs.CsoundFile as Cs - -import CsoundExpr.Translator.Types - - -substFtablesGen :: (a -> [FtableId]) -> (FtableInfo -> a -> a) -> - a -> (a, [Cs.Ftable]) -substFtablesGen toFtables fromFtables t = (fromFtables fs t, toCsFtables fs) - where fs = Map.fromList $ zip (addFtempty $ nub $ toFtables t) [0..] - addFtempty = let ft0 = (Pure, La.EmptyFtable) - in (ft0 : ) . delete ft0 - - --------------------------------------------------------- --- translate ftables - -toCsFtables :: FtableInfo -> [Cs.Ftable] -toCsFtables fs = map f $ filter ((/= 0 ) . snd) $ Map.toList fs - where f ((_, ft), id) = Cs.Ftable id - (Cs.FtableInits 0 (La.ftableSize ft)) - (Cs.GEN (La.ftableGENId ft) $ - map toGens $ La.ftableGENArgs ft) - toGens (Node a _) - | isFtable' $ exprOp $ exprTag a = Cs.ValueInt $ fs Map.! (ftableId a) - | otherwise = toValue $ La.value $ exprOp $ exprTag a - --------------------------------------------------------- --- make ftableInfo - -ftableInfo :: [FtableId] -> FtableInfo -ftableInfo = Map.fromList . flip zip [0..] . addFtempty . nub - where addFtempty = let ft0 = (Pure, La.EmptyFtable) - in (ft0 : ) . delete ft0 - - --------------------------------------------------------- --- extract ftables - -getFtablesFromNote :: Note -> [FtableId] -getFtablesFromNote (_, _, x) = (subFtables =<< ) $ map f $ filter (La.isFtable . snd) x - where f = mapSnd La.toFtable - - -getFtablesFromInstr :: Instr -> [FtableId] -getFtablesFromInstr = (getFtablesFromTree =<<) - -getFtablesFromTree :: La.CsTree -> [FtableId] -getFtablesFromTree = (subFtables =<< ) . getFtables' - where getFtables' = map ftableId . filter p . foldTree (flip (:)) [] - p = isFtable' . exprOp . exprTag - ------------------------------------------------------------ --- substitute ftables - -setFtablesInNote :: FtableInfo -> Note -> Note -setFtablesInNote fs (t0, t1, vs) = (t0, t1, map f vs) - where f x - | La.isFtable $ snd x = let id = La.ValueInt $ (fs Map.!) $ mapSnd La.toFtable x - in (fst x, id) - | otherwise = x - - -setFtablesInInstr :: FtableInfo -> Instr -> Instr -setFtablesInInstr fs = map (setFtablesInTree fs) - - -setFtablesInTree :: FtableInfo -> La.CsTree -> La.CsTree -setFtablesInTree fs = substTreeByFunc (f fs) - where f fs (Node a _) - | isFtable' $ exprOp $ exprTag a = Just $ toValueInt fs $ ftableId a - | otherwise = Nothing - ------------------------------------------------------------ --- aux funs - -subFtables :: FtableId -> [FtableId] -subFtables x = (x: ) $ (getFtablesFromTree =<<) $ La.ftableGENArgs $ snd x - - -ftableId :: Expr Id La.Rate La.CsExpr -> FtableId -ftableId a = (exprPurity a, La.toFtable $ La.value $ exprOp $ exprTag a) - - - -isFtable' :: La.CsExpr -> Bool -isFtable' x = if La.isVal x - then (La.isFtable $ La.value x) - else False - - -toValueInt :: FtableInfo -> FtableId -> La.CsTree -toValueInt fs = mapType (const [La.I]) . La.int . (fs Map.! ) - - - diff --git a/src/CsoundExpr/Translator/Header.hs b/src/CsoundExpr/Translator/Header.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Header.hs +++ /dev/null @@ -1,84 +0,0 @@ -module CsoundExpr.Translator.Header - (toHeader, - parseInits, - GlobalInits, - MidiInstr, - InstrOrder) -where - -import Data.List -import Data.Maybe -import Control.Monad - - -import qualified Data.Set as Set -import qualified Data.Map as Map - -import qualified CsoundExpr.Translator.Cs.CsTree as La -import qualified CsoundExpr.Translator.Cs.CsoundFile as Cs - -import CsoundExpr.Translator.Types -import CsoundExpr.Translator.Instr - ---------------------------------------------------------------- ---------------------------------------------------------------- --- translate header - -toHeader :: InstrOrderInfo -> [SignalInit] -> Instr -> Cs.Header -toHeader order inits instr0 = Cs.Instr0 $ csInstr0 ++ (map f $ filter isMidiAssign inits) - where f x = - case x of - (Massign xs id instr) -> assigns "massign" order xs id (fromSignalOut instr) - (Pgmassign xs id instr) -> assigns "pgmassign" order xs id (fromSignalOut instr) - g name val = let outs = [Cs.ArgName Cs.SetupRate name] - ins = [Cs.ArgInValue $ Cs.ValueInt val] - in Cs.OpcodeExpr outs "=" ins - assigns name order xs id instr = - let vs = [id, order Map.! instr] ++ xs - ins = map (Cs.ArgInValue . Cs.ValueInt) vs - in Cs.OpcodeExpr [] name ins - csInstr0 = toOpcodeExpr instr0 - - ---------------------------------------------------------------- ---------------------------------------------------------------- - -parseInits :: [SignalInit] -> (Instr, [MidiInstr], InstrOrder) -parseInits inits = (getInstr0 inits, - getMidiInstrs inits, - getInstrOrder inits) - - -getInstr0 :: [SignalInit] -> Instr -getInstr0 = (fromSignalOut . fromInstr0 =<< ) . filter isInstr0 - where fromInstr0 (Instr0 x) = x - - -getMidiInstrs :: [SignalInit] -> [MidiInstr] -getMidiInstrs = map fromSignalOut . ( >>= f) - where f x = case x of - Massign _ _ x -> [x] - Pgmassign _ _ x -> [x] - _ -> [] - - -getInstrOrder :: [SignalInit] -> InstrOrder -getInstrOrder = map fromSignalOut . getList . find isInstrOrder - where getList x = case x of - (Just (InstrOrder xs)) -> xs - Nothing -> [] - - ------------------------------------------------------------- - -isInstr0 :: SignalInit -> Bool -isInstr0 x = case x of (Instr0 _) -> True - _ -> False - -isInstrOrder :: SignalInit -> Bool -isInstrOrder x = case x of (InstrOrder _) -> True - _ -> False - - -isMidiAssign :: SignalInit -> Bool -isMidiAssign x = not $ isInstr0 x || isInstrOrder x diff --git a/src/CsoundExpr/Translator/Instr.hs b/src/CsoundExpr/Translator/Instr.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Instr.hs +++ /dev/null @@ -1,32 +0,0 @@ -module CsoundExpr.Translator.Instr - (toInstr, toOpcodeExpr) -where - -import qualified Data.Map as Map - -import CsoundExpr.Translator.ExprTree.TreeSeq - -import qualified CsoundExpr.Translator.Cs.CsTree as La -import qualified CsoundExpr.Translator.Cs.CsoundFile as Cs - -import CsoundExpr.Translator.Types -import CsoundExpr.Translator.AssignmentElimination -import CsoundExpr.Translator.MultiOutsFolding - ---------------------------------------------------------------- ---------------------------------------------------------------- --- translate intruments - - -toInstr :: (Id, Instr) -> Cs.Instr -toInstr (id, x) = Cs.Instr id $ toOpcodeExpr x - - ---------------------------------------------------------------- ---------------------------------------------------------------- --- translate opcodes - - -toOpcodeExpr :: Instr -> [Cs.OpcodeExpr] -toOpcodeExpr = foldMultiOuts . eliminateAssignment . - reduceAdjLists . adjLists 0 diff --git a/src/CsoundExpr/Translator/InstrOrder.hs b/src/CsoundExpr/Translator/InstrOrder.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/InstrOrder.hs +++ /dev/null @@ -1,54 +0,0 @@ -module CsoundExpr.Translator.InstrOrder - (instrOrderInfo, - setInstrIds, - instrIds) -where - -import Data.List -import Data.Function -import qualified Data.Map as Map - -import Control.Monad.State - -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.Cs.Utils -import CsoundExpr.Translator.Types - - -import Debug.Trace -debug x = trace (show x) x - -setInstrIds :: [Id] -> [(Instr, [Note])] -> - ([(Id, Instr)], [(Id, [Note])]) -setInstrIds ids qs = unzip [((id, q1), (id, q2)) | (id, (q1, q2)) <- xs] - where xs = sortBy (compare `on` fst) $ zip ids qs - - -instrOrderInfo :: InstrOrder -> [Instr] -> InstrOrderInfo -instrOrderInfo xs qs = Map.fromList $ zip (map fst ps') ids - where ids = resolveCollisions $ map snd ps' - ps' = sortBy (compare `on` snd) $ - fst $ runState (mapM (f xs) qs) (startId + length xs) - - -f :: InstrOrder -> Instr -> State Id (Instr, Id) -f xs q = state $ \s -> case findIndex ((liftPredicateToList equalStructureByParams) q) xs of - (Just i) -> ((q, startId + i), s) - Nothing -> ((q, s), s + 1) - - - -resolveCollisions :: [Int] -> [Int] -resolveCollisions xs = fst $ runState (mapM f xs) (head xs - 1, 0) - where f x = state $ \(prev, shift) -> - if x + shift == prev - then (x + shift + 1, (x + shift + 1, shift + 1)) - else (x + shift, (x + shift , shift)) - - -startId :: Id -startId = 33 - - -instrIds :: InstrOrderInfo -> [Instr] -> [Id] -instrIds f = map (f Map.!) diff --git a/src/CsoundExpr/Translator/MultiOutsFolding.hs b/src/CsoundExpr/Translator/MultiOutsFolding.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/MultiOutsFolding.hs +++ /dev/null @@ -1,110 +0,0 @@ -module CsoundExpr.Translator.MultiOutsFolding - (foldMultiOuts) -where - -import Data.List -import Data.Function -import Data.Maybe - -import qualified Data.Map as M - -import Control.Monad -import Control.Monad.State - - -import CsoundExpr.Translator.AssignmentElimination - -import qualified CsoundExpr.Translator.Cs.CsoundFile as Cs -import CsoundExpr.Translator.Cs.Utils - - - -isMO :: SubstExpr -> Bool -isMO x = case rateInfo x of - (MultiOut _ _ _) -> True - _ -> False - - -foldMultiOuts :: [SubstExpr] -> [Cs.OpcodeExpr] -foldMultiOuts xs = map snd $ - unionSortedBy (compare `on` fst) - (map procS s) - (procMOs (length xs) $ sortMOs $ groupMOs m) - where (m, s) = partition isMO xs - - -procS :: SubstExpr -> (Int, Cs.OpcodeExpr) -procS x = (lineNum x, uncurry (Cs.OpcodeExpr $ outs x) $ body x) - where outs = fromMaybe [] . (liftM (:[])) . argOut - - -groupMOs :: [SubstExpr] -> [[SubstExpr]] -groupMOs = groupBy ((==) `on` pred) . sortBy (compare `on` pred) - where pred x = case rateInfo x of - MultiOut purity _ rates -> (purity, rates, body x) - - -sortMOs :: [[SubstExpr]] -> [(Int, [(Maybe Cs.ArgOut, Cs.Rate)], Opcode)] -sortMOs = (flattenMOs =<< ) . map foldMOs - - -data FoldedMO = FoldedMO - { moLineNum :: Int - , moPort :: Int - , moArgOut :: Cs.ArgOut - } deriving (Show) - -foldMOs :: [SubstExpr] -> ([FoldedMO], [Cs.Rate], Opcode) -foldMOs xs = (map outs xs, rates xs, opc xs) - where opc = body . head - rates x = case rateInfo $ head x of - MultiOut _ _ rs -> rs - outs x = case rateInfo x of - MultiOut _ port _ -> - FoldedMO (lineNum x) port (fromJust $ argOut x) - - -flattenMOs :: ([FoldedMO], [Cs.Rate], Opcode) - -> [(Int, [(Maybe Cs.ArgOut, Cs.Rate)], Opcode)] -flattenMOs (xs, rates, opc) = map (\(i, os) -> (i, os, opc)) $ flatten rates xs - -flatten :: [Cs.Rate] -> [FoldedMO] -> [(Int, [(Maybe Cs.ArgOut, Cs.Rate)])] -flatten rs xs = map (\x -> (formId x, formRates x)) ys - where formId = minimum . map (fst . fromJust) . filter isJust - formRates = flip zip rs . map (liftM snd) - ys = transpose $ map (getPortVals m k) [0 .. n - 1] - n = length rs - (m, k) = foldPorts xs - - -getPortVals :: M.Map Int [(Int, Cs.ArgOut)] - -> Int -> Int - -> [Maybe (Int, Cs.ArgOut)] -getPortVals m n id = map Just q ++ replicate (n - length q) Nothing - where q = case M.lookup id m of - (Just xs) -> xs - Nothing -> [] - -foldPorts :: [FoldedMO] -> (M.Map Int [(Int, Cs.ArgOut)], Int) -foldPorts = (\x -> (M.fromList x, getMaxLength x)) . map select . - groupBy ((==) `on` moPort) . sortBy (compare `on` moPort) - where getMaxLength = maximum . map (length . snd) - select xs = let key = moPort $ head xs - val = map (\x -> (moLineNum x, moArgOut x)) xs - in (key, val) - - - -procMOs :: Int -> [(Int, [(Maybe Cs.ArgOut, Cs.Rate)], Opcode)] - -> [(Int, Cs.OpcodeExpr)] -procMOs n xs = fst $ runState (mapM f xs) n - where f (id, outs, opc) = liftM (\x -> (id, x)) $ mkOpcode outs opc - mkOpcode outs opc = liftM (\x -> uncurry (Cs.OpcodeExpr x) opc) $ - mapM mkOuts outs - - -mkOuts :: (Maybe Cs.ArgOut, Cs.Rate) -> State Int Cs.ArgOut -mkOuts (arg, rate) = - state $ \n -> case arg of - Nothing -> (numArgName rate n, n + 1) - (Just a) -> (a, n) diff --git a/src/CsoundExpr/Translator/Score.hs b/src/CsoundExpr/Translator/Score.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Score.hs +++ /dev/null @@ -1,146 +0,0 @@ -module CsoundExpr.Translator.Score - (foldScores) -where - -import Data.List -import Data.Function - - -import Temporal.Music(Score, Event(..), render) - -import qualified Data.Map as Map - -import CsoundExpr.Translator.ExprTree.Tree -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.ExprTree.ExprTree (Purity(..), exprTag) - -import CsoundExpr.Translator.Cs.CsTree -import CsoundExpr.Translator.Cs.Utils - -import CsoundExpr.Translator.Types - - --- import Debug.Trace --- debug msg x = trace (msg ++ " : " ++ show x) x - - -type NodeId = (Int, [Int]) -type PfieldId = (Int, IsStringPfield) - -type IsStringPfield = Bool - - --- | all values in given instrument node -type NodeSlice = (NodeId, [ValueId]) - -foldScores :: Score Instr -> [(Instr, [Note])] -foldScores x = zip instrs vals - where instrs = zipWith substPfields ids rawInstrs - (ids, vals) = unzip $ map (foldVals . formValues) sco - rawInstrs = map (thd . head) sco - sco = scoreList x - - ---scoreList :: Events Instr -> [[(Time, Time, Instr)]] ---scoreList = groupBy ((liftPredicateToList equalStructure) `on` thd) . --- sortBy (compare `on` thd) . toList - -scoreList :: Score Instr -> [[(Time, Dur, Instr)]] -scoreList = iterScoreList [] . toList - where iterScoreList res s = - case s of - [] -> res - (x:xs) -> let (x1, x2) = partition (pred x) xs - in iterScoreList (res ++ [x : x1]) x2 - pred = liftPredicateToList equalStructure `on` thd - toList x = map (\(Event t d a) -> (t, d, a)) $ render x - - -foldVals :: [(Time, Time, [(NodeId, ValueId)])] -> ([(NodeId, PfieldId)], [Note]) -foldVals xs = (i, subst3 (valList v) xs) - where (i, v) = assignPfieldIds $ filter (isPfield . snd) $ alignValuesByNodes xs - subst3 ys xs = [(a, b, y) | (y, (a, b, _)) <- zip ys xs] - valList [] = repeat [] - valList xs = transpose xs - - -isPfield :: [ValueId] -> Bool -isPfield = p . nub - where p x = case x of - (x0 : x1 : _) -> True - _ -> False - - -alignValuesByNodes :: [(Time, Time, [(NodeId, ValueId)])] -> [NodeSlice] -alignValuesByNodes = map select . transpose . map thd - where select x = (fst $ head x, map snd x) - - -substPfields :: [(NodeId, PfieldId)] -> Instr -> Instr -substPfields ids instr = foldl f instr ids -- zip ids [4..] - where f xs ((id0, id), n) = - substListElem id0 (substTreeById id (p n) (xs !! id0)) xs - p (id, isStr) - | isStr = mapType (const [S]) $ param id - | otherwise = mapType (const [I]) $ param id - - - -substListElem :: Int -> a -> [a] -> [a] -substListElem id x xs = take id xs ++ [x] ++ drop (id+1) xs - - - -formValues :: [(Time, Time, Instr)] -> [(Time, Time, [(NodeId, ValueId)])] -formValues = map f . sortBy p - where f (t, d, expr) = (t, d, toVals expr) - p (a1, b1, _) (a2, b2, _) - | a1 < a2 = LT - | a1 == a2 && a1 < a2 = LT - | a1 == a2 && a1 == a2 = EQ - | otherwise = GT - - - -toVals :: Instr -> [(NodeId, ValueId)] -toVals = (addId0 =<< ) . zip [0..] . map getVals - where getVals = map (mapSnd value') . filter (isVal . exprOp . exprTag . snd) . toIdList - value' x = (exprPurity x, value $ exprOp $ exprTag x) - addId0 (id0, xs) = [((id0, ids), vs) | (ids, vs) <- xs] - - -assignPfieldIds :: [NodeSlice] -> ([(NodeId, PfieldId)], [[ValueId]]) -assignPfieldIds xs = (zip (map fst xs) (zip ids isStr), orderValsWithIds ids vals) - where ids = map (+4) $ numerate $ map snd xs - isStr = map (isStringValueId . head . snd) xs - vals = map snd xs - - - -orderValsWithIds :: [Int] -> [[ValueId]] -> [[ValueId]] -orderValsWithIds ids vals = map snd $ sortOn fst $ nubOn fst $ zip ids vals - - -sortOn :: Ord b => (a -> b) -> [a] -> [a] -sortOn f = sortBy (compare `on` f) - -nubOn :: Eq b => (a -> b) -> [a] -> [a] -nubOn f = nubBy ((==) `on` f) - - -isStringValueId :: ValueId -> Bool -isStringValueId (_, v) = isString v - - --- numerate : --- assigns numbers to unique elements of list --- (it's for (ExprTree -> ExprSeq) optimisation, --- pfields with the same values should have same pfield ids) - -numerate :: Ord b => [b] -> [Int] -numerate = fst . foldl f ([], Map.empty) - where f (s, m) b - | Map.member b m = (s ++ [m Map.! b], m) - | otherwise = (s ++ [id], mNew) - where id = Map.size m - mNew = Map.insert b id m diff --git a/src/CsoundExpr/Translator/Types.hs b/src/CsoundExpr/Translator/Types.hs deleted file mode 100644 --- a/src/CsoundExpr/Translator/Types.hs +++ /dev/null @@ -1,236 +0,0 @@ -{-# LANGUAGE - MultiParamTypeClasses, - TypeSynonymInstances, - FlexibleInstances, - FlexibleContexts #-} - -module CsoundExpr.Translator.Types ( - Time, Dur, - Id, - ExprLayer, LaExpr, - mkLayer, layerOut, layerOp, layerIn, - GlobalInits, - FtableId, FtableInfo, - Instr, MidiInstr, InstrOrder, InstrOrderInfo, - Note, ValueId, - SignalOut(..), outList, fromSignalOut, - Header, SignalInit(..), - Arate(..), Krate(..), Irate(..), X(..), K(..), MO(..), - BoolRate(..), - toValue, toCsRate, gRate, isArgOut -) -where - -import qualified Data.Set as Set -import qualified Data.Map as Map - -import CsoundExpr.Translator.ExprTree.ExprTree -import CsoundExpr.Translator.Cs.IM -import qualified CsoundExpr.Translator.Cs.CsTree as La -import qualified CsoundExpr.Translator.Cs.CsoundFile as Cs -import CsoundExpr.Translator.Cs.CsBoolean - -type Time = Double -type Dur = Time - - --- exprSeq - ---type CsExprSeq = ExprSeq La.Rate La.CsExpr ---type CsExprLayer = ExprLayer [(La.Rate, Id)] La.CsExpr Int - -type LaExpr = Expr La.Label La.Rate La.CsExpr - --- type ExprSeq a b = [ExprLayer [(a, Id)] b Id] -type ExprLayer a b c = (a, (b, [c])) - -layerOut (a, (b, c)) = a -layerOp (a, (b, c)) = b -layerIn (a, (b, c)) = c - -mkLayer a b c = (a, (b, c)) - --- globals - -type GlobalInits = Set.Set (La.Name, La.Rate) - --- ftables - -type FtableId = (Purity Id, La.Ftable) -type FtableInfo = Map.Map FtableId Id - --- instr - -type Instr = [La.CsTree] -type MidiInstr = Instr -type InstrOrder = [Instr] - -type InstrOrderInfo = Map.Map Instr Id - --- scores - -type Note = (Time, Time, [ValueId]) -type ValueId = (Purity Id, La.Value) - --- rates - --- | audio signal -data Arate = Arate La.CsTree - --- | control signal -data Krate = Krate La.CsTree - --- | init variable -data Irate = Irate La.CsTree - - --- | boolean signal. Type for comparison of control or init rate signals. -data BoolRate = BoolRate CsBool - --- rate classes - --- IM - -instance IM La.CsTree Arate where - from = Arate . mapType (const [La.A]) - to (Arate t) = t - - -instance IM La.CsTree Krate where - from = Krate . mapType (const [La.K]) - to (Krate t) = t - - -instance IM La.CsTree Irate where - from = Irate . mapType (const [La.I]) - to (Irate t) = t - - -instance IM La.CsTree String where - from x = error "from string is undefined" - to = La.string - --- MO - -class MO a where - rateMO :: [La.Rate] -> a -> a - -instance MO Arate where - rateMO rs (Arate x) = Arate $ mapType (const rs) x - -instance MO Krate where - rateMO rs (Krate x) = Krate $ mapType (const rs) x - -instance MO Irate where - rateMO rs (Irate x) = Irate $ mapType (const rs) x - --- X, K - --- | 'X' = 'Arate' | 'Krate' | 'Irate' -class (IM La.CsTree a, MO a) => X a where - arate :: a -> Arate - krate :: a -> Krate - irate :: a -> Irate - - --- | 'K' = 'Krate' | 'Irate' -class X a => K a - -instance X Arate where - arate = id - krate = from . pure (La.opc "downsamp") . return . toCsTree - irate = from . pure (La.opr ["i(", ")"]) . return . toCsTree . krate - -instance X Krate where - arate = from . pure (La.opc "upsamp") . return . toCsTree - krate = id - irate = from . pure (La.opr ["i(", ")"]) . return . toCsTree - -instance X Irate where - arate = from . pure (La.opc "upsamp") . return . toCsTree - krate = from . pure (La.opr ["k(", ")"]) . return . toCsTree - irate = id - -toCsTree :: X a => a -> La.CsTree -toCsTree = to - -instance K Krate -instance K Irate - --- signal out - --- | Output of opcodes that produce no value in csound code (out, outs, xtratim, etc.) -data SignalOut = SignalOut Instr - deriving (Eq, Ord) - --- | Join several output opcodes --- --- Example : --- --- > instr q --- > a1 upsamp 1 --- > out a1 --- > gaSig = a1 --- > endin --- --- > q = outList [out x, gar "Sig" <=> x] --- > where x = upsamp $ num 1 --- -outList :: [SignalOut] -> SignalOut -outList = SignalOut . (fromSignalOut =<< ) - - -fromSignalOut :: SignalOut -> Instr -fromSignalOut (SignalOut x) = x - --- signal init - --- | Header section -type Header = [SignalInit] - -data SignalInit = Instr0 SignalOut - | Massign [Int] Int SignalOut - | Pgmassign [Int] Int SignalOut - | InstrOrder [SignalOut] - deriving (Eq, Ord) - -------------------------------------------------------- --- predicates - -isArgOut :: ExprLayer Int LaExpr Int -> Bool -isArgOut x = (not $ null $ layerIn x) && (La.isArg $ exprOp $ exprTag $ layerOp x) - -------------------------------------------------------- --- converters - - -toValue :: La.Value -> Cs.Value -toValue x = case x of - (La.ValueDouble v) -> Cs.ValueDouble v - (La.ValueString v) -> Cs.ValueString v - (La.ValueInt v) -> Cs.ValueInt v - - -toCsRate :: La.Rate -> Cs.Rate -toCsRate x = - case x of - La.A -> Cs.A - La.K -> Cs.K - La.I -> Cs.I - La.S -> Cs.S - - La.GA -> Cs.GA - La.GK -> Cs.GK - La.GI -> Cs.GI - La.GS -> Cs.GS - - La.SetupRate -> Cs.SetupRate - - - -gRate :: Cs.Rate -> Cs.Rate -gRate x = case x of - Cs.A -> Cs.GA - Cs.K -> Cs.GK - Cs.I -> Cs.GI -