RecursiveDiskin

Alters kpitch and iskiptime each time it calls itself to create a little bit of texture.

Description

Alters kpitch and iskiptime each time it calls itself to create a little bit of texture.

Syntax

aout RecursiveDiskin ifile, kpitch, iskiptime, iwrap, iformat, inum, icnt

Code

	opcode RecursiveDiskin, a, ikiiiip

ifile, kpitch, iskiptime, iwrap, iformat, inum, icnt      xin

if (icnt > inum) goto skip1

;ar1 [,ar2] [, ar3] [, ar4] diskin ifilcod, kpitch [, iskiptim]
;    [,iwraparound] [, iformat]

ar1 	diskin ifile, kpitch, iskiptime, iwrap, iformat
ar1 	= ar1 * .2 ; scale amplitude for recrusive calls
 
a1 	RecursiveDiskin ifile, kpitch + .3, iskiptime + .2, iwrap, iformat, inum, 

icnt + 1

skip1:

xout ar1 + a1
	
	endop

Credits

Author: Jim Hearon