Sound.SC3.RW.PSynth

Rewriter for psynth directives and related functions.

Types

type Param = (String, Double)

A SynthDef parameter.

type PSynth = (String, [Param])

Name of SynthDef and associated Param.

Pretty printer

param_pp :: Param -> String

Printer for control and trigger parameters.

 map param_pp [("freq",440),("t_gate",1)]

add_braces :: String -> String

params_pp :: [Param] -> String

uparam_pp :: [Param] -> String

psynth_pp :: PSynth -> String

Parser

type P a = ParsecT String () Identity a

promote :: Either Integer Double -> Double

assign :: P Param

param_list :: P [Param]

uparam :: P [Param]

psynth :: P PSynth

parse_psynth :: String -> PSynth

Parse PSynth pre-amble.

 parse_psynth "gr = psynth {freq = 440,phase = 0,amp = 0.1,loc = 0} where"

rewrite_psynth :: String -> String

Rewrite PSynth pre-amble.

 rewrite_psynth "gr = psynth {freq = 440,phase = 0,amp = 0.1,loc = 0} where"

parse_param_list :: String -> [Param]

rewrite_param_list :: String -> String

Rewrite plaine Param list, ie. SC3 argument list.

 rewrite_param_list "freq=440,amp=0.1,t_gate=1"

parse_uparam :: String -> [Param]

rewrite_uparam :: String -> String

lexer :: GenTokenParser String u Identity

braces :: P a -> P a

identifier :: P String

symbol :: String -> P String

naturalOrFloat :: P (Either Integer Double)

equals :: P String

comma :: P String

semi :: P String

Re-write processor

begins_psynth :: String -> Bool

ends_psynth :: String -> Bool

psynth_rewrite :: [String] -> [String]

psynth_rewrite_ghcF :: IO ()

Arguments as required by ghc -F -pgmF.

uparam_rewrite :: String -> String

Rewrite uparam pre-amble.

 uparam_rewrite "    let uparam = {amp = 0.1, freq = 129.897, rise = 0.1, fall = 0.5}"

uparam_rewrite_ghcF :: IO ()

Arguments as required by ghc -F -pgmF.