define([NEWPAR],13)dnl

ifelse(NCHNLS,2,[define([STEREO_OUT],[ipan	 = p12
[a2 = a1*sqrt(1-ipan)  ; stereo orchestra : right channel output]
[a1 = a1*sqrt(ipan)  ; left channel output]
[outs a1, a2]
])])dnl
; p6 = time in analysis file to begin read
; p7 = "      "      "      "    end read
; Optional p-fields:
;  p5 = amplitude multiplier
; p9 = pitch transposition multiplier
; p8 optional (attack) time at beginning with no time warping
; p10 = fade-in time  ; p11 = fade-out time
; p12 : stereo pan location {for stereo only}

instr phavoc
; PITCH TRANSPOSITION
	ipitch init 1
if p9 = 0 igoto gotpitch
		icount init 0
		iabsolute = abs(p9)
		imult = (p9 > 0? 1.059463 : 1/1.059463)
	findpitch:
	ipitch = ipitch * imult
		icount = icount + 1
	if icount < int(iabsolute) igoto findpitch
	if frac(p9) = 0 igoto gotpitch
		; microtones
		imicro = frac(p9) * .059463
		ipitch = ipitch + imicro	
gotpitch:

ip8 = (p8=0 ? .0001 : p8)
ip8val = (p6 < p7 ? ip8 : -ip8)
ktime linseg p6,ip8,p6 + ip8val, p3-ip8, p7
;a1 pvoc ktime,ipitch,0,p4
a1 pvoc ktime,ipitch,p4
; Optional amplitude scaling,  fade-in and fade-out
iamp = (p5=0? 1.: p5)
p10 = (p10=0 ? .0001 : p10)
p11 = (p10=0 ? .0001 : p11)
kfades expseg .001,p10,iamp,p3-(p10+p11),iamp,p11,.001
a1 = a1 * kfades
