; amend device number accordingly
-Q999
; Example by Iain McCurdy
ksmps = 32 ; no audio so sr and nchnls irrelevant
instr 1
; read values in from p-fields
kchn = p4
knum random 48,72.99 ; note numbers chosen randomly across a 2 octaves
kvel random 40, 115 ; velocities are chosen randomly
krate randomi 1,2,1 ; rate at which new notes will be output
ktrig metro krate^2 ; 'new note' trigger
midion2 kchn, int(knum), int(kvel), ktrig ; send midi note if ktrig=1
endin
i 1 0 20 1
f 0 21 ; extending performance time prevents the final note-off being lost