-odac -m0 ; activate real-time audio output and suppress printing ; example written by Iain McCurdy sr = 44100 ksmps = 16 nchnls = 2 0dbfs = 1 ; waveform used for granulation giSound ftgen 1,0,2097152,1,"ClassGuit.wav",0,0,0 ; window function - used as an amplitude envelope for each grain ; (first half of a sine wave) giWFn ftgen 2,0,16384,9,0.5,1,0 instr 1 kamp = 0.1 ktimewarp expon p4,p3,p5 ; amount of time stretch, 1=none 2=double kresample line p6,p3,p7 ; pitch change 1=none 2=+1oct ifn1 = giSound ; sound file to be granulated ifn2 = giWFn ; window shaped used to envelope every grain ibeg = 0 iwsize = 3000 ; grain size (in sample) irandw = 3000 ; randomization of grain size range ioverlap = 50 ; density itimemode = 0 ; 0=stretch factor 1=pointer prints p8 ; print a description aSigL,aSigR sndwarpst kamp,ktimewarp,kresample,ifn1,ibeg, \ iwsize,irandw,ioverlap,ifn2,itimemode outs aSigL,aSigR endin ;p3 = stretch factor begin / pointer location begin ;p4 = stretch factor end / pointer location end ;p5 = resample begin (transposition) ;p6 = resample end (transposition) ;p7 = procedure description ;p8 = description string ; p1 p2 p3 p4 p5 p6 p7 p8 i 1 0 10 1 1 1 1 "No time stretch. No pitch shift." i 1 10.5 10 2 2 1 1 "%nTime stretch x 2." i 1 21 20 1 20 1 1 \ "%nGradually increasing time stretch factor from x 1 to x 20." i 1 41.5 10 1 1 2 2 "%nPitch shift x 2 (up 1 octave)." i 1 52 10 1 1 0.5 0.5 "%nPitch shift x 0.5 (down 1 octave)." i 1 62.5 10 1 1 4 0.25 \ "%nPitch shift glides smoothly from 4 (up 2 octaves) to 0.25 (down 2 octaves)." i 1 73 15 4 4 1 1 \ "%nA chord containing three transpositions: unison, +5th, +10th. (x4 time stretch.)" i 1 73 15 4 4 [3/2] [3/2] "" i 1 73 15 4 4 3 3 "" e