; This file is from an older distribution of Csound for Macintosh, put
; together by Michael Berry, Matt Ingalls, and Dave Madole.

sr = 22050
kr = 2205
ksmps = 10
nchnls = 1

instr   1

	;idb		=	p5/127 * 90							; rescale MIDI velocity to 90db
	;iamp	=	ampdb(idb)
	ipitch	=	cpsoct( (p4+32)/12 )				; convert Midi notenum to pitch	
	a1      pluck   25000, ipitch, ipitch, 0, 1
			out     a1*(p5/127)
endin