Csound Csound-dev Csound-tekno Search About

PVOC_R_EX

Date1999-10-12 13:14
Fromroberto zanata
SubjectPVOC_R_EX
;It works with 24 files pvanal! 

;PVOC_R_ex.orc---------------------------------------------

sr = 22050
kr = 110.250
ksmps = 200
nchnls = 1
massign 2,2
massign 3,3
massign 4,4

instr	1

	;k1, ... , k16	slider16f	ichan, ictlnum1,  imin1, 
imax1,  init1,  ifn1,  icutoff1, .... , \
		

	gktime0,gkfreq0,gktime1,gkfreq1,gktime2,gkfreq2,k7,k8
slider8f 1,	0,0,20,0,0,.5  ,1,-.2,.2,0,0,5,\
										2,0,20,0,0,.5  ,3,-.2,.2,0,0,5,\
										4,0,20,0,0,.5  ,5,-.2,.2,0,0,5,\									
										6,0,1,0,0,5	,7,0,1,0,0,5
endin
	

;kampshift0,kampshift1,kampshift2,kamp0,kamp1,kamp2,k7,k8
slider8 2, \
		;							0,0,10,0,0	,1,0,10,0,0, \
			;						2,0,10,0,0	,3,0,1,0,0,	\
				;					4,0,1,0,0	,5,0,1,0,0,	\
					;				6,0,1,0,0	,7,0,1,0,0
									
								
instr 2
	ipvocnum0 notnum
	kampshift0 ctrl7 2,0,0,10
	kamp0 ctrl7 2,1,0,1
	ienv0	ctrl7 2,2,0,5
	ktimedev0 ctrl7 2,3,.2,1.5
	ktimeshift0 oscil
kampshift0,1/kampshift0*ktimedev0,ienv0+1
	asig0	pvoc
gktime0+ktimeshift0,1+gkfreq0,ipvocnum0*.06+1
	out asig0*kamp0

endin

instr 3
	ipvocnum1 notnum
	kampshift1 ctrl7 3,0,0,10
	kamp1 ctrl7 3,1,0,1
	ienv1	ctrl7 3,2,0,5
	ktimedev1 ctrl7 3,3,.2,1.5
	ktimeshift1 oscil
kampshift1,1/kampshift1*ktimedev1,ienv1+1
	asig1	pvoc	gktime1+ktimeshift1,1+gkfreq1,ipvocnum1
	out asig1*kamp1
endin

instr 4
	ipvocnum2 notnum
	kampshift2 ctrl7 4,0,0,10
	kamp2 ctrl7 4,1,0,1
	ienv2	ctrl7 4,2,0,5
	ktimedev2 ctrl7 4,3,.2,1.5
	ktimeshift2 oscil
kampshift2,1/kampshift2*ktimedev2,ienv2+1
	asig2	pvoc	gktime2+ktimeshift2,1+gkfreq2,ipvocnum2
	out asig2*kamp2
endin

 
;PVOC_R_ex.sco---------------------------------------------



f1 0 4096 7 0 4096 1
f2 0 4096 7 0 2048 .5 2048 0
f3 0 4096 7 1 4096 0
f4 0 4096 7 0 256 .07 256 .05 256 .1 256 .03 1024 0
512 .2 512 .3 512 .5 512 0
;f5 0 4096 10 1
f0 3600








 

































=====

__________________________________________________
Do You Yahoo!?