/* cpsmid - Converts MIDI Note Number to Cycles per second (Hz) DESCRIPTION Takes a MIDI note number input and converts to Cycles per second (Hz). SYNTAX kcps cpsmid knum PERFORMANCE knum -- Expects MIDI Note # In kcps -- Returns equivelent of MIDI Note # in Cycles per second (Hz). CREDITS David Akbari - 2005 */ opcode cpsmid, k, k kmid xin #define MIDI2CPS(xmidi) # (440.0*exp(log(2.0)*(($xmidi)-69.0)/12.0)) # kcps = $MIDI2CPS(kmid) xout kcps endop