analogue_cc   xtlang

(bind-func analogue_cc
  (let ((osc1 0) (osc1l 8:i32) ;; 6 params
        (osc2 (+ osc1 osc1l)) (osc2l 8:i32) ;; 6 params
        (osc3 (+ osc2 osc2l)) (osc3l 8:i32) ;; 6 params
        (osc4 (+ osc3 osc3l)) (osc4l 8:i32) ;; 6 params
        (subnoise (+ osc4 osc4l)) (subnoisel 4:i32) ;; 3 params
        (filter (+ subnoise subnoisel)) (filterl 4:i32) ;; 4 params
        (amp_pitch_env (+ filter filterl)) (amp_pitch_envl 8:i32) ;; 7 params
        (filter_env (+ amp_pitch_env amp_pitch_envl)) (filter_envl 8:i32)    ;; 7 params
        (delay (+ filter_env filter_envl)) (delayl 4:i32) ;; 4 params
        (reverb (+ delay delayl)) (reverbl 4:i32) ;; 4 params
        (flanger (+ reverb reverbl)) (flangerl 8:i32) ;; 5 params
        (main (+ flanger flangerl)) (mainl 4:i32) ;; 4 params
        (matrix (+ main mainl)) (matrixl 4:i32) ;; 3 params
        (lfo1 (+ matrix matrixl)) (lfo1l 8:i32) ;; 8 params
        (extras (+ lfo1 lfo1l)) ;; everything else!
        (osc1_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (osc2_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (osc3_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (osc4_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (sub_noise_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (filter_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (amp_pitch_env_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (filter_env_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (delay_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (reverb_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (flanger_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (main_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (matrix_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (lfo1_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (extras_ccs:|16,[void,i8*,i32,i32,i32]*|* (alloc))
        (i:i64 0)