home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
WINDOWS
/
SOUND
/
WAVEWIN.ZIP
/
SQRT.WPL
< prev
next >
Wrap
Text File
|
1992-04-08
|
411b
|
26 lines
#
# SQRT Wavepool program
#
# Copyright 1992, Data Assist, Inc.
#
BEGIN {
screate("sqrt.sou")
for (x=0; x<=1000; x=x+10) {
sinwave2(x-sqrt(x), x+sqrt(x), 50);
quiet(2);
}
for (x=1000; x>=0; x=x-10) {
sinwave2(x-sqrt(x), x+sqrt(x), 50);
quiet(2);
}
quiet(10);
sclose(0);
sndvoc("sqrt.sou", "sqrt.voc");
}