crasy sine waves

[Nicknack]

mike's thread (http://forums.arianesoft.ca/showthread.php?t=1623) reminds me of an old code lying here around. It loads a simple sine wave and alter its frequency over time. you can stop the sound with space.

@kornalius: please include in the new manual two hints: setloop comes after playsound and s_shut isn't necessary ;)

[Mike Halliday]

Hee hee, thats pretty good. Sounds very spacey! :)

M.

[Nicknack]

on pc you can get sound even faster with our loved beep:
#declare Beep kernel32.dll Beep 2 1


proc main

str$="392,250,392,375,330,125,330,250,392,250,392,375,29 4,125,294,250,330,250,349,250,392,250,440,250,494, 250,392,750,392,250,392,375,330,125,330,250,392,25 0,392,375,294,125,294,250,587,250,554,250,587,250, 659,250,404,250,587,750,392,250,659,375,659,125,58 7,250,523,250,523,375,494,125,494,250,523,250,587, 250,494,250,440,250,392,250,523,750,523,250,523,37 5,440,125,440,250,523,250,440,250,392,125,392,250, 392,250,440,250,523,250,392,250,587,250,523,750,0, 0";
STRTOARRAY(str$,",",&a$);


while(x$<amax(a$,0)-1)
beep(int(a$[x$]),int(a$[x$+1]));
delay(100);
x$+=2;
end;


end;
:p

[Leginus]

Nice idea. I like it.