/* STAI MOLTO ATTENTO PRIMA DI METTERE PLAY VOLUME R I D I C O L O O O O O O O O ! ! ! ! ! ! ! ! ! ! ! */ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;copyright 1998 Paul M. Winkler, zarmzarm@erols.com ;****++++ ;**** Last modified: Wed Dec 9 20:32:30 1998 ;****---- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; sr = 44100 kr = 4410 ksmps = 10 nchnls = 1 massign 1, 1 instr 1 kentzo adsr .01, .001, .5, 0.00000001 icps cpsmidi kmodwhl midic7 1, .4, 1 klfo oscil 100, kmodwhl, 2 aindex phasor icps inum = .4 ; normalize it to 0 - 1 ilength = ftlen(1) irange = ( ilength + ( inum * ilength )) * .5 aqualcosa = (aindex*irange) aout table aqualcosa, 1; use f1 out (aout*kentzo)/3 endin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;COPYRIGHT 1998 PAUL M. WINKLER, ZARMZARM@EROLS.COM ;****++++ ;**** LAST MODIFIED: WED DEC 9 20:34:05 1998 ;****---- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; f1 0 512 -7 30000 256 30000 0 -30000 256 -30000 ;square wave, !normalized f2 0 4096 10 1 ; AT DUR PCH WIDTH f0 666 Widgets 0 0 399 235 true 231 46 255 slider1 5 5 20 100 {1529a012-0f21-461f-8370-2309fc750934} true 0 -3 0.00000000 1.00000000 0.00000000 lin continuous -1.00000000 false Version: 3 Render: Real Ask: Yes Functions: ioObject Listing: Window WindowBounds: 905 61 96 26 CurrentView: io IOViewEdit: On Options: ioView nobackground {59367, 11822, 65535} ioSlider {5, 5} {20, 100} 0.000000 1.000000 0.000000 slider1