Here is something I made up. Don't know if it's usefull to anyone, but here it is anyway... opcode cps2midi, k, k kcps xin xout logbtwo(kcps / 440) * 12 + 69 endop opcode keytrack, k,kki kcps, kcutoff, ikeytrack xin kmidi cps2midi kcps kmidi = kmidi-64 kkey = 2^(kmidi/12)*kcutoff kscaled = (kkey-kcutoff)*ikeytrack+kcutoff xout kscaled endop instr 1 kcps = cpspch(p4) kcutoff = 440 ikeytrack = 0.5 kcutoff keytrack kcps, kcutoff, ikeytrack printks "%f", 1, kcutoff endin i1 0 1 7.09