;; high shelf (the works with both parametricEQ and busEQ)
(bind-func set_peq_hshelf
(lambda (peq:i8* cutoff:float gain:float Q:float)
(cset! (cast peq [void]*) hshelfG gain float)
(cset! (cast peq [void]*) hshelfF cutoff float)
(cset! (cast peq [void]*) hshelfQ Q float)))