<CsoundSynthesizer> <CsOptions> ; Select audio/midi flags here according to platform -odac -M1 ;;;realtime audio out and midi in ;-iadc ;;;uncomment -iadc if realtime audio input is needed too ; For Non-realtime ouput leave only the line below: ; -o midipolyaftertouch.wav -W ;;; for file output any platform </CsOptions> <CsInstruments> sr = 44100 ksmps = 32 nchnls = 2 0dbfs = 1 instr 1;midi keyboard and score are used midinoteoncps p4, p5 ;puts MIDI key translated to cycles per second into p4, and MIDI velocity into p5 kafter init 127 ;full open midipolyaftertouch kafter, 1 printk2 kafter ;display the key value when it changes and when key is pressed kvel = p5/127 ;scale midi velocity to 0-1 kenv madsr 0.5, 0.8, 0.8, 0.5 ;amplitude envelope multiplied by ain pluck kenv*kvel, p4, p4, 2, 1 ;velocity value asig moogvcf2 ain, 300+(kafter*100), .5 ;use value of aftertouch to control frequency of filter outs asig, asig ;base freq of filter = 300 Hz endin </CsInstruments> <CsScore> f 0 30 ;runs for 30 seconds f 2 0 4096 10 1 ;sine wave i 1 0 2 440 100 ;play these notes from score as well i 1 + 2 1440 100 e </CsScore> </CsoundSynthesizer>