<info>
ESM Csound Library
orc: gran   sco: gransop
Allan Schindler  1/97
</info>
<tk_interface>


</tk_interface>
<mono>
 ; granular synthesis algorithm, using soundfiles as grains
 ; duty factor : determines amount of time overlap between successive grains
 ; p4 : cross-fade times for both fade-in & fade-out
 ; p5 : amplitude  {.001 - 10. = multiplier ; 10.1 - 32767 = new raw amplitude}
 ; p6 : gen1 function number
 ; p7 : legnth of soundfile to be used, in duration (seconds) OR # of samples
 ; p8 : skip time (if positive) OR (if negative, between -.001 & -.99) index
        ; into gen1 func
 ; p9 : pitch multiplier
 ; p10 : stereo pan location {for stereo only}

instr 33
   ;  init values : --------------
isound   = p6  ; number of gen1 function table of source soundfile
 ; iamp = amplitude multiplier for non-normalized soundfiles
iamp	 = (p5 = 0 ? 1. : p5)
iamp = (iamp > 10.0 ? iamp/32767 : iamp )
ipitch	 = (p9 = 0 ? 1. : p9 )
ipitch	 = (p9 = 0 ? 1. : p9 )

ilen	 = ( p7 > 44 ? p7 : p7 * sr) ; number of samples in soundfile to be used
inom 	 = sr/ilen  ; (phasor speed to get original base frequncy of sample)
isfdur     = ( p7 > 44. ? ilen/sr : p7 ) ; duration in seconds of soundfile

 ; if p8 is negative, between -.001 and -1., it indicates % of soundfile skipped
 ; if positive, it indicates skip time in seconds
index    = ( p8 < 0 ? abs(p8) : p8/isfdur)  
ifade    = p4  ; (normally  should be c. 1/2 overlap durations of input notes)
ipan	 = p10
   ; end of init values ; now do it  ---------
aph	phasor	 inom*ipitch                ;transpose pitch by p9
asi	tablei 	(aph+index)*ilen, isound    ;read the table at index for p3 time
a1	linen	  asi*iamp, ifade, p3, ifade  ; envelope and amp variation
;Standard out statement
out a1
endin
    
</mono>
<stereo>


</stereo>
<quad>


</quad>
<score>
f1 0 524288 -1 "/sflib/voice/sop1.b3" 0 0 0
  i33 0.000 0.220 0.080 15000 1 280748 0.000 0 0
  i33 0.070 0.220 0.080 15000 1 280748 0.087 0 0
  i33 0.140 0.220 0.080 15000 1 280748 0.175 0 0
  i33 0.210 0.220 0.080 15000 1 280748 0.263 0 0
  i33 0.280 0.220 0.080 15000 1 280748 0.350 0 0
  i33 0.350 0.220 0.080 15000 1 280748 0.438 0 0
  i33 0.420 0.220 0.080 15000 1 280748 0.525 0 0
  i33 0.490 0.220 0.080 15000 1 280748 0.612 0 0
  i33 0.560 0.220 0.080 15000 1 280748 0.700 0 0
  i33 0.630 0.220 0.080 15000 1 280748 0.788 0 0
  i33 0.700 0.220 0.080 15000 1 280748 0.875 0 0
  i33 0.770 0.220 0.080 15000 1 280748 0.962 0 0
  i33 0.840 0.220 0.080 15000 1 280748 1.050 0 0
  i33 0.910 0.220 0.080 15000 1 280748 1.137 0 0
  i33 0.980 0.220 0.080 15000 1 280748 1.225 0 0
  i33 1.050 0.220 0.080 15000 1 280748 1.312 0 0
  i33 1.120 0.220 0.080 15000 1 280748 1.400 0 0
  i33 1.190 0.220 0.080 15000 1 280748 1.488 0 0
  i33 1.260 0.220 0.080 15000 1 280748 1.575 0 0
  i33 1.330 0.220 0.080 15000 1 280748 1.663 0 0
  i33 1.400 0.220 0.080 15000 1 280748 1.750 0 0
  i33 1.470 0.220 0.080 15000 1 280748 1.838 0 0
  i33 1.540 0.220 0.080 15000 1 280748 1.925 0 0
  i33 1.610 0.220 0.080 15000 1 280748 2.013 0 0
  i33 1.680 0.220 0.080 15000 1 280748 2.100 0 0
  i33 1.750 0.220 0.080 15000 1 280748 2.188 0 0
  i33 1.820 0.220 0.080 15000 1 280748 2.275 0 0
  i33 1.890 0.220 0.080 15000 1 280748 2.363 0 0
  i33 1.960 0.220 0.080 15000 1 280748 2.450 0 0
  i33 2.030 0.220 0.080 15000 1 280748 1.038 0 0
  i33 2.100 0.220 0.080 15000 1 280748 1.125 0 0
  i33 2.170 0.220 0.080 15000 1 280748 1.213 0 0
  i33 2.240 0.220 0.080 15000 1 280748 1.300 0 0
  i33 2.310 0.220 0.080 15000 1 280748 1.388 0 0
  i33 2.380 0.220 0.080 15000 1 280748 1.475 0 0
  i33 2.450 0.220 0.080 15000 1 280748 1.563 0 0
  i33 2.520 0.220 0.080 15000 1 280748 1.650 0 0
  i33 2.590 0.220 0.080 15000 1 280748 1.738 0 0
  i33 2.660 0.220 0.080 15000 1 280748 1.825 0 0
  i33 2.730 0.220 0.080 15000 1 280748 1.913 0 0
  i33 2.800 0.220 0.080 15000 1 280748 2.000 0 0
  i33 2.870 0.220 0.080 15000 1 280748 2.087 0 0
  i33 2.940 0.220 0.080 15000 1 280748 2.175 0 0
  i33 3.010 0.220 0.080 15000 1 280748 2.262 0 0
  i33 3.080 0.220 0.080 15000 1 280748 2.350 0 0
  i33 3.150 0.220 0.080 15000 1 280748 2.437 0 0
  i33 3.220 0.220 0.080 15000 1 280748 2.525 0 0
  i33 3.290 0.220 0.080 15000 1 280748 2.612 0 0
  i33 3.360 0.220 0.080 15000 1 280748 2.700 0 0
  i33 3.430 0.220 0.080 15000 1 280748 2.787 0 0
  i33 3.500 0.220 0.080 15000 1 280748 2.875 0 0
  i33 3.570 0.220 0.080 15000 1 280748 2.962 0 0
  i33 3.640 0.220 0.080 15000 1 280748 3.050 0 0
  i33 3.710 0.220 0.080 15000 1 280748 3.137 0 0
  i33 3.780 0.220 0.080 15000 1 280748 3.225 0 0
  i33 3.850 0.220 0.080 15000 1 280748 3.312 0 0
  i33 3.920 0.220 0.080 15000 1 280748 3.400 0 0
  i33 3.990 0.220 0.080 15000 1 280748 3.487 0 0
  i33 4.060 0.220 0.080 15000 1 280748 2.075 0 0
  i33 4.130 0.220 0.080 15000 1 280748 2.162 0 0
  i33 4.200 0.220 0.080 15000 1 280748 2.250 0 0
  i33 4.270 0.220 0.080 15000 1 280748 2.337 0 0
  i33 4.340 0.220 0.080 15000 1 280748 2.425 0 0
  i33 4.410 0.220 0.080 15000 1 280748 2.512 0 0
  i33 4.480 0.220 0.080 15000 1 280748 2.600 0 0
  i33 4.550 0.220 0.080 15000 1 280748 2.688 0 0
  i33 4.620 0.220 0.080 15000 1 280748 2.775 0 0
  i33 4.690 0.220 0.080 15000 1 280748 2.863 0 0
  i33 4.760 0.220 0.080 15000 1 280748 2.950 0 0
  i33 4.830 0.220 0.080 15000 1 280748 3.038 0 0
  i33 4.900 0.220 0.080 15000 1 280748 3.125 0 0
  i33 4.970 0.220 0.080 15000 1 280748 3.213 0 0
  i33 5.040 0.220 0.080 15000 1 280748 3.300 0 0
  i33 5.110 0.220 0.080 15000 1 280748 3.388 0 0
  i33 5.180 0.220 0.080 15000 1 280748 3.475 0 0
  i33 5.250 0.220 0.080 15000 1 280748 3.563 0 0
  i33 5.320 0.220 0.080 15000 1 280748 3.650 0 0
  i33 5.390 0.220 0.080 15000 1 280748 3.738 0 0
  i33 5.460 0.220 0.080 15000 1 280748 3.825 0 0
  i33 5.530 0.220 0.080 15000 1 280748 3.913 0 0
  i33 5.600 0.220 0.080 15000 1 280748 4.000 0 0
  i33 5.670 0.220 0.080 15000 1 280748 4.088 0 0
  i33 5.740 0.220 0.080 15000 1 280748 4.175 0 0
  i33 5.810 0.220 0.080 15000 1 280748 4.263 0 0
  i33 5.880 0.220 0.080 15000 1 280748 4.350 0 0
  i33 5.950 0.220 0.080 15000 1 280748 4.438 0 0
  i33 6.020 0.220 0.080 15000 1 280748 3.025 0 0
  i33 6.090 0.220 0.080 15000 1 280748 3.113 0 0
  i33 6.160 0.220 0.080 15000 1 280748 3.200 0 0
  i33 6.230 0.220 0.080 15000 1 280748 3.288 0 0
  i33 6.300 0.220 0.080 15000 1 280748 3.375 0 0
  i33 6.370 0.220 0.080 15000 1 280748 3.463 0 0
  i33 6.440 0.220 0.080 15000 1 280748 3.550 0 0
  i33 6.510 0.220 0.080 15000 1 280748 3.638 0 0
  i33 6.580 0.220 0.080 15000 1 280748 3.725 0 0
  i33 6.650 0.220 0.080 15000 1 280748 3.813 0 0
  i33 6.720 0.220 0.080 15000 1 280748 3.900 0 0
  i33 6.790 0.220 0.080 15000 1 280748 3.988 0 0
  i33 6.860 0.220 0.080 15000 1 280748 4.075 0 0
  i33 6.930 0.220 0.080 15000 1 280748 4.163 0 0
  i33 7.000 0.220 0.080 15000 1 280748 4.250 0 0
  i33 7.070 0.220 0.080 15000 1 280748 4.338 0 0
  i33 7.140 0.220 0.080 15000 1 280748 4.425 0 0
  i33 7.210 0.220 0.080 15000 1 280748 4.513 0 0
  i33 7.280 0.220 0.080 15000 1 280748 4.600 0 0
  i33 7.350 0.220 0.080 15000 1 280748 4.688 0 0
  i33 7.420 0.220 0.080 15000 1 280748 4.775 0 0
  i33 7.490 0.220 0.080 15000 1 280748 4.863 0 0
  i33 7.560 0.220 0.080 15000 1 280748 4.950 0 0
  i33 7.630 0.220 0.080 15000 1 280748 5.038 0 0
  i33 7.700 0.220 0.080 15000 1 280748 5.125 0 0
  i33 7.770 0.220 0.080 15000 1 280748 5.213 0 0
  i33 7.840 0.220 0.080 15000 1 280748 5.300 0 0
  i33 7.910 0.220 0.080 15000 1 280748 5.388 0 0
  i33 7.980 0.220 0.080 15000 1 280748 5.475 0 0
  i33 8.050 0.220 0.080 15000 1 280748 4.155 0 0
  i33 8.120 0.220 0.080 15000 1 280748 4.232 0 0
  i33 8.190 0.220 0.080 15000 1 280748 4.309 0 0
  i33 8.260 0.220 0.080 15000 1 280748 4.386 0 0
  i33 8.330 0.220 0.080 15000 1 280748 4.463 0 0
  i33 8.400 0.220 0.080 15000 1 280748 4.540 0 0
  i33 8.470 0.220 0.080 15000 1 280748 4.617 0 0
  i33 8.540 0.220 0.080 15000 1 280748 4.694 0 0
  i33 8.610 0.220 0.080 15000 1 280748 4.771 0 0
  i33 8.680 0.220 0.080 15000 1 280748 4.848 0 0
  i33 8.750 0.220 0.080 15000 1 280748 4.925 0 0
  i33 8.820 0.220 0.080 15000 1 280748 5.002 0 0
  i33 8.890 0.220 0.080 15000 1 280748 5.079 0 0
  i33 8.960 0.220 0.080 15000 1 280748 5.156 0 0
  i33 9.030 0.220 0.080 15000 1 280748 5.233 0 0
  i33 9.100 0.220 0.080 15000 1 280748 5.310 0 0
  i33 9.170 0.220 0.080 15000 1 280748 5.387 0 0
  i33 9.240 0.220 0.080 15000 1 280748 5.464 0 0
  i33 9.310 0.220 0.080 15000 1 280748 5.541 0 0
  i33 9.380 0.220 0.080 15000 1 280748 5.618 0 0
  i33 9.450 0.220 0.080 15000 1 280748 5.695 0 0
  i33  9.520 0.220 0.080 15000 1 280748 5.772 0 0
  i33  9.590 0.220 0.080 15000 1 280748 5.849 0 0
  i33  9.660 0.220 0.080 15000 1 280748 5.926 0 0
  i33  9.730 0.220 0.080 15000 1 280748 6.003 0 0
  i33  9.800 0.220 0.080 15000 1 280748 6.080 0 0
  i33  9.870 0.220 0.080 15000 1 280748 6.157 0 0
  i33  9.940 0.220 0.080 15000 1 280748 6.234 0 0
e

</score>

