;; some event level modification to saw_synth
;; adjust res & cof of saw_synth_note_c (dsp kernel)
(define res-sweep
(lambda (beat dur)
(saw_synth_note_c.res (cosr .5 .44 1/37))
(saw_synth_note_c.cof (cosr 5000.0 1500.0 1/19))
(callback (*metro* (+ beat (* dur .5))) 'res-sweep
(+ beat dur) dur)))