<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

cpopup type -label "Window Type" -value "Sine Hamming Hanning Triangle Blackman Blackman-Harris Gaussian Rectangle Sync"
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]

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

ag1, acmp2	sndwarp	gkenvelope, gk index*[sinfo name dur]*(1+kpir)*itr, gkpitch*itr, 14, 0, giwindsize, giwinddev, gilaps, i(gktype)+3   , 0
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 "f13 0 $size -1 \"$value(name)\" $value(offname) 4 1\n"
	append thescore "f3 0 16384 9 .5 1 0 \n"
	append thescore "f4 0 16384 20 1  \n"
	append thescore "f5 0 16384 20 2  \n"
	append thescore "f6 0 16384 20 3  \n"
	append thescore "f7 0 16384 20 4  \n"
	append thescore "f8 0 16384 20 5 \n"
	append thescore "f9 0 16384 20 6 \n"
	append thescore "f10 0 16384 20 8 \n"
	append thescore "f11 0 16384 20 9 \n"
	if {[sinfo name chn]  != "1" } {
	append thescore "f14 0 $size -1 \"$value(name)\"  $value(offname) 4 2\n"
          }
	append thescore "i1 0 $value(total_time)\n"
	return $thescore
}

makeScore
</score>
