Here is something I made up. Don't know if it's usefull to anyone, but here it is anyway...

<CsoundSynthesizer>

<CsOptions>
</CsOptions>
 
<CsInstruments>
   
        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
   
   
</CsInstruments>
 
<CsScore>

i1 0 1 7.09
   
</CsScore>
</CsoundSynthesizer>