; conversor de frecuencia cpspch ; ============================================== sr = 44100 kr = 44100 ksmps = 1 nchnls = 2 instr 1 iamp = p4 ifreq = cpspch(p5) ; convertir la frecuencia de pitch a Hz a1, a2 loscil iamp, ifreq, 1, 220 kdec linen 1, 0, p3, .07 ; envolvente de apagado outs a1*kdec, a2*kdec endin ; ============================================== f1 0 0 1 "Piano.mf.A3.wav" 0 0 0 ;p1 p2 p3 p4 p5 ; amp frec en pch i1 0 3.2 22000 7.09 i1 3 1.2 20000 7.08 i1 4 4 23000 8.01