;; time in milliseconds to glide between note frequencies (bind-func static set_portamento (lambda (inst:i8* val:float) (let ((note (cref (cast inst [void]*) note_kernel [void]*))) (cset! note portamento val float) void)))