<info>
pichej
Fri Feb 28 16:49:20 EST 1997
New Module
</info>
<tk_interface>
cfilein name

cgraph index 		-label "Index into File" -min 0 -max 1 -func "0 0 1 1" -gen 31
cgraph pitch 		-label Pitch -uni oct -rel lo -min .1 -max 4 -init 1 -gen 30
cgraph envelope 		-label "Envelope" -rel lin -min 0 -max 1 -init .5 -gen 34
cslider windsize 		-label "Window Size" -rat i -uni samples -res 10 -min 200 -max 44100 -init 3000
cslider winddev  		-label "Window Deviation" -rat i -uni samples  -res 1 -min 0 -max 10000 -init 500
cslider laps 		-label "Overlaps" -ra i -res 1 -min 1 -max 40 -init 10

cslider rang		-label "Index Variation Range"  -res .001 -min 0 -max .4 -init 0 -co forestgreen
cslider spee 		-label "Index Variation Speed" -rel lin -res .01 -min 0 -max 50 -init 0  -co forestgreen



cslider gain 		-label Gain -res .1 -min .1 -max 5 -init 1
cslider total_time 		-label "Total Duration" -uni sec. -init 60 -min 1 -max 600

ctoggle bal 		-label "Balance Level" -init 0
</tk_interface>
<mono>

</mono>
<stereo>
	instr 1 

kpir	randi	gkrang, gkspee
itr	=	[sinfo name sr]/sr
ichn	=	[sinfo name chn]


ar1, acmp1	sndwarp	gkenvelope, gkindex*[sinfo name dur]*(1+kpir)*itr, gkpitch*itr, 2, 0, giwindsize, giwinddev, gilaps, 3 , 1     
if ichn = 1 goto mon

ag1, acmp2	sndwarp	gkenvelope, gkindex*[sinfo name dur]*(1+kpir)*itr, gkpitch*itr, 4, 0, giwindsize, giwinddev, gilaps, 3 , 1
goto ste

mon:
ag1 = ar1
acmp2 = acmp1

ste:
if gkbal == 0 goto nobal


ar1	balance	ar1, acmp1
ag1	balance 	ag1, acmp2

nobal:

outs	ar1*gkgain, ag1*gkgain
						endin
</stereo>
<quad>

</quad>
<score>
#tcl
proc makeScore {} {
	global  value realArr
	set size [findgenSize [sinfo name frames]]
	set thescore "f1 0 8192 10 1\n"
	append thescore "f2 0 $size -1 \"$value(name)\" $value(offname) 4 1\n"
	append thescore "f3 0 16384 9 .5 1 0 \n"
	if {[sinfo name chn]  != "1" } {
	append thescore "f4 0 $size -1 \"$value(name)\"  $value(offname) 4 2\n"
          }
	append thescore "i1 0 $value(total_time)\n"
	return $thescore
}

makeScore
</score>
