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]. 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."