Sound.SC3.UGen.Event

Event and Ctl systems for external control interfaces.

Event

type REvent t = (t, t, t, t, t, t, t, t, t, t)

(wgate,x,y,zforce,orientation,radius-x,radius-y,pitch,pitch-x,pitch-y)

rEvent_from_list :: Num t => [t] -> REvent t

Translate list to REvent.

rEventAddr :: UGen -> UGen -> UGen -> REvent UGen

k0 = index of control bus zero for event system, stp = voice index incremennt, c = event channel or voice (zero indexed)

rEventVoicerAddr :: UGen -> UGen -> UGen -> Int -> (Int -> REvent UGen -> UGen) -> UGen

c0 = index of voice (channel) zero for event set, n = number of voices (channels)

rEvent :: REvent UGen

rEventAddr with control inputs for eventAddr, eventIncr and eventZero.

rEventVoicer :: Int -> (Int -> REvent UGen -> UGen) -> UGen

rEventVoicerAddr with control inputs for eventAddr, eventIncr and eventZero.

rEventGateReset :: UGen -> UGen -> (UGen, UGen)

Given g and p fields of an REvent derive a gateReset from g and a trigger derived from monitoring g and p for changed values.

Ctl

type RCtl = (UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen)

Sequence of 16 continous controller inputs in range (0-1).

rCtlAddr :: UGen -> UGen -> RCtl

k0 = index of control bus zero for ctl system, c = ctl channel or voice (zero indexed)

rCtlVoicerAddr :: UGen -> UGen -> Int -> (Int -> RCtl -> UGen) -> UGen

c0 = index of voice (channel) zero for ctl set, n = number of voices (channels)

rCtl :: RCtl

rCtlAddr with control inputs for CtlAddr and CtlZero.

rCtlVoicer :: Int -> (Int -> RCtl -> UGen) -> UGen

rCtlVoicerAddr with control inputs for CtlAddr and CtlZero.

type RCtl8 = (UGen, UGen, UGen, UGen, UGen, UGen, UGen, UGen)

First eight elements of RCtl.

rCtl_to_rCtl8 :: RCtl -> RCtl8

Select first eight elements of RCtl.

rCtl8Voicer :: Int -> (Int -> RCtl8 -> UGen) -> UGen

rCtlVoicer of rCtl_to_rCtl8

Names

sc3_control_spec :: Fractional t => [(String, (t, t, String))]

See SCClassLibraryCommonControl/Spec:ControlSpec.initClass

"ControlSpec defines the range and curve of a control"

kyma_event_value_ranges :: Fractional t => [(String, (t, t, String))]

See Kyma X Revealed, p.403

"The following EventValue names are associated with initial ranges other than (0,1). EventValue names are not case-sensitive."

This list adds curve specifiers as strings.

let x = Data.List.intersect (map fst sc3_control_spec) (map fst kyma_event_value_ranges)
x == ["beats","boostcut","freq","rate"]
let c z = let (p,q) = unzip z in let f i = filter (flip elem i . fst) in zip (f p sc3_control_spec) (f q kyma_event_value_ranges)
c (zip x x)

c [("lofreq","freqlow"),("midfreq","freqmid")]
lookup "freqhigh" kyma_event_value_ranges