[sdiy] Re: granular synthesis (long + may be OT)

[Fdi]

;;;;;;;inurx.orc   granular processing csound instrument *ADUR atelier 2001*


sr        =         48000
kr        =         48000
ksmps     =         1
nchnls    =         2

instr 1

gipo   = 1.570796
ileft  = (cos(gipo*p8))*p4
iright = (sin(gipo*p8))*p4

ain 	diskin	p6,p5,p7,0,4
aenv    oscil   p4,1/p3,p9
aout    =  ain*aenv
outs    aout*ileft , aout*iright
endin



;iamp	 = p4
;ipitch	 = p5
;ifilcod = p6 this is the source sound file/s
;iskipt  = p7 this is the cut time point
;ipan	 = p8
;iefn	 = p9 this is the number of the amp env fun/s
;I think the gipo function is for equal-power panning.
;I copy-pasted it from somewhere late at night


;example score lines
;ins st dur amp pitch  filename  skipt pan efn
;i1  0   .3  .7    1  "john.aif"  1.2  .5  1
;i1  .1  .3  .7   .87 "bird.aif"   .0  .1  5
;i1  .3  .3  .7   .98 "mary.aif"  3.0  .9  3
;i1  .4  .3  .7   .92 "john.aif"  0.5  .3  2
;e
;
;use milli/micro/nanosecond rhythm and durations for real granular
processing


f
*

d
*
<br><br>
Direccion.com<br>
________________________________________________<br>
This
mail was sent by Direccion.com 2.0