Path: utzoo!mnetor!uunet!munnari!mb
From: mb@munnari.oz (Michael Bednarek)
Newsgroups: comp.sys.amiga
Subject: Re: Sonic Holography.
Message-ID: <1933@munnari.oz>
Date: 14 Dec 87 11:15:26 GMT
References: <2100@crash.cts.com> <22087@ucbvax.BERKELEY.EDU> <2591@cbdkc1.ATT.COM>
Organization: I.A.E.S.R., Melbourne University
Lines: 53

In article <2591@cbdkc1.ATT.COM> joe@cbdkc1.UUCP (Joseph T. Judge) writes:
>In article <22087@ucbvax.BERKELEY.EDU> oster@dewey.soe.berkeley.edu.UUCP (David Phillip Oster) writes:
>>I'm posting a Macintosh version of the Shepard Tone effect to 
>>[SUMEX]<INFO-MAC>. The program lets you go up or down forever, and includes
>	POST IT TO THE NET!!! Please.

Here is a rather simplistic example in AmigaBasic. My family say it works.

' Program ARise
' demonstrates endlessly rising scale

     f=2^(1/12)      ' move in half tones
     TRUE=1
     SPEED=.5
     TOP=4096
     BOTTOM=TOP/32
     TopVoice%=3
     
     v(0)=BOTTOM
     v(1)=v(0)*2
     v(2)=v(1)*2
     v(3)=v(2)*2
     
     ON TIMER(SPEED) GOSUB Play
     TIMER ON
     
     WHILE TRUE
      SLEEP
     WEND
     END

Play:SOUND WAIT
     FOR i%=0 TO 3
      'LOCATE 3,i%*10+1:PRINT v(i%);
      SOUND v(i%),SPEED*18.2,127,i%
      v(i%)=v(i%)*f
     NEXT i%
     SOUND RESUME
     IF INT(v(TopVoice%))>=TOP THEN
      v(TopVoice%)=BOTTOM
      TopVoice%=TopVoice%-1
      IF TopVoice%<0 THEN TopVoice%=3
     END IF
     RETURN


Michael Bednarek		
Institute of Applied Economic and Social Research (IAESR)
Melbourne University, Parkville 3052, AUSTRALIA, Phone : +61 3 344 5744
Domain: u3369429@{murdu.oz.au | ucsvc.dn.mu.oz.au}  or  mb@munnari.oz.au
"bang": ...UUNET.UU.NET!munnari!{murdu.oz | ucsvc.dn.mu.oz}!u3369429

"POST NO BILLS."