/* EX4B.GEN: Multiple Event Granular Synthesis to create time-stretching
(use with ex4.orc)
Compiled by Mikel Kuehn, 3/01
*/

;SOUND FILES TO READ:
>f1 0 1048576 -1 "cool.wav" 0 4 1
>f2 0 8192 10 1                    ;sine wave

;WINDOWING FUNCTIONS
>f10 0 8192 -8 0 4096  1 4096 0    ;half-sine (positive)
>f11 0 8192 -8 0 4096 -1 4096 0    ;half-sine (negative)
>f12 0 8192 20 2 1                 ;hanning
>f13 0 8192 20 5                   ;blackmann-harris window

#include |macros.txt|              ;macros that create command shortcuts

rs(9533)
i1 = 10 0 15 
{
  p2     .01                       ;grain speed
  p3     25                        ;grain duration (* p2)
  p4     .25                       ;amp (0-1)
  p5     $mf(0'1)                  ;file position
  p6     1                         ;transposition factor:  1 = normal
  p7     $rb(0'1)                  ;spatial placement
  p8(in) $se([10,11,12,13])        ;window Function #
  p9     1                         ;GEN01 table # 
  p10    .2                        ;amount of reverb (% between 0 and 1)

}

;This turns on the global reverb instrument
>i2 0 20