Lift constants

Transform U_Node_C to U_Node_K, id for other U_Node types.

let k = U_Node_K 8 ControlRate Nothing "k_8" 0.1 K_ControlRate Nothing
node_k_eq k (snd (constant_to_control 8 (U_Node_C 0 0.1)))

If the From_Port is a constant generate a control U_Node, else retain From_Port.

Lift a set of U_NodeU inputs from constants to controls. The result triple gives the incremented Id, the transformed From_Port list, and the list of newly minted control U_Nodes.

Lift inputs at U_Node_U as required.

c_lift_ugen at list of U_Node_U.

Lift constants to controls.

import Sound.Sc3 
import Sound.Sc3.Ugen.Dot 

let u = out 0 (sinOsc AR 440 0 * 0.1)
let g = ugen_to_graph u
draw g
draw (lift_constants g)