module Sound.SC3.UGen.Protect where
import Sound.SC3.Common.UId
import Sound.SC3.UGen.Type
import Sound.SC3.UGen.UGen
edit_ugenid :: ID a => a -> UGenId -> UGenId
edit_ugenid e z =
case z of
NoId -> NoId
UId i -> UId (resolveID (e,i))
uprotect :: ID a => a -> UGen -> UGen
uprotect e =
let f u = case u of
Primitive_U p -> Primitive_U (p {ugenId = edit_ugenid e (ugenId p)})
_ -> u
in ugenTraverse f
uprotect_seq :: ID a => a -> [UGen] -> [UGen]
uprotect_seq e =
let n = map (+ resolveID e) [1..]
in zipWith uprotect n
uclone_seq :: ID a => a -> Int -> UGen -> [UGen]
uclone_seq e n = uprotect_seq e . replicate n
uclone :: ID a => a -> Int -> UGen -> UGen
uclone e n = mce . uclone_seq e n
ucompose :: ID a => a -> [UGen -> UGen] -> UGen -> UGen
ucompose e xs =
let go [] u = u
go ((f,k):f') u = go f' (uprotect k (f u))
in go (zip xs [resolveID e ..])
useq :: ID a => a -> Int -> (UGen -> UGen) -> UGen -> UGen
useq e n f = ucompose e (replicate n f)