; three instrument for sliding pitches

sr	=	44100
kr	=	8820
ksmps	=	5

instr	1 ; linear frequency gliss = inverse-exponential pitch gliss
	imaxamp	=	32767
	kampenv	linen	p4*imaxamp, 0.125, p3, 0.125 ; amplitude envelope
	kfreq	line	p5,p3,p6 ; linear freq. glissando from p5 to p6
	awave	oscil	kampenv, kfreq, 1
		out	awave
endin

instr	2 ; linear pitch gliss to achieve an exponential frequency gliss
	imaxamp	=	32767
	kampenv	linen	p4*imaxamp, 0.125, p3, 0.125
	koct	line	p5,p3,p6 ; glissando from p5 to p6 ; pitch defined in octaves
	awave	oscil	kampenv, cpsoct(koct), 1 ; convert octaves to Hz
		out	awave
endin

instr	3 ; exponential frequency gliss gives linear pitch gliss
	imaxamp	=	32767
	kampenv	linen	p4*imaxamp, 0.125, p3, 0.125
	kexp	line	p6,p3,p7 ; glissando from p6 to p7
	kpow	=	2^kexp ; 2 to the power of kexp
	kpitch =	p5*kpow ; base frequency times 2 to the kexp power
	awave	oscil	kampenv, kpitch, 1
		out	awave
endin