Sound Sensations!/sound_sensations.iso/miscprog/soundup/soundup.doc

Text File | 1990-08-21 | 6KB | 128 lines

       ▄█████                             ██  ██   ██
       ██                                 ██  ██   ██
       ▀████▄  ▄████▄ ██ ██  ██▄██▄▄  ▄█████  ██   ██  █████▄
           ██  ██  ██ ██ ██  ██▀  ██  ██  ██  ██▄ ▄██  ██  ██
       █████▀  ▀████▀ ▀███▀  ██   ██  ▀█████  ▀█████▀  █████▀
                                                       ██
                                                       ██
                    Version 1.0 By: Andy Sherwood












    SoundUp is a program that is used to easily create sound
effects to be used in your Turbo Pascal 5.5 programs.  It
contains an easy to use editor and simple commands to call the
saved sound files.  The saved files are EXTREMELY small and any
number of them may be loaded at the same time.  SOUNDS.TPU
contains all the commands you will need to run SoundUp sound
files.  There are a few pre-packaged sounds which I thought were
rather nifty, so they are included here.

Using The Editor
~~~~~~~~~~~~~~~~
    The SoundUp editor is VERY easy to use. Simply use the up
and down arrows keys to select the desired voice, delay, or to
set the length of the sound.  When you wish to change a voice,
delay, or the length, simply press Enter and enter the new value.
There are a couple of special commands, but those will be
discussed later.  After the desired length has been set, and
voices and delays are set, press F1 to hear your sound.  The
sound may be stopped at ANY time by pressing a key.  This is
especially useful if you design an especially irritating sound
that makes, you, your family, and/or the dog cringe.
    If you think your sound isn't really as neat as you thought
it would be, simply press F2 and watch it disappear.  To save
your sound, press F3, a prompt will appear asking you for the
desired filename.  Filenames can contain any number of characters
to allow you to save to a specified path.  You can use any
extension you want, I prefer the .SND extension, but its entirely
up to you.  Pressing F4 will prompt you for the name of a sound
to load, the same rules apply to load as they do for save, you
may enter a desired path.  If the sound you wish load is not
present, SoundUp will simply reply, "File Not Found", and
continue on its merry way.  When you are through using SoundUp,
press F10, and it will clear the screen and exit.

Using the SPECIAL commands, OOOooo!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    There are a few special commands that can be used in the
Delay or Voice fields.  Many of the niftiest sounds are made by
following the length of the file in the voice.  In TP 5.5, this
is done thusly,

  For I:=1 to 5000 Do Sound(I);

Well, SoundUp has a set of "L" commands that will allow you to do
this, for instance, if you wish Voice 1 to follow the length,
simply place an "L" in Voice 1.  However, if you wish to have a
sound played WITH the length, you can include a + or - sign.  ie,
L+5000, will play the length plus 5000 in Hz.  The "L" command
can follow the number as well, ie 5000-L.  However, NEVER put a
space between the number and the L command or you may have some
pretty unpredictable results!(this means I never bothered to test
it)  Anyway, both I.SND and PAGE.SND use the L commands to
demonstrate them.

Using the SOUNDS.TPU unit
~~~~~~~~~~~~~~~~~~~~~~~~~
    The SOUNDS.TPU unit contain 3 easy to use commands to load
and play sounds.  LoadSound, PlaySound and KeepSound.  LoadSound
is called with two parameters, the name of the file, and the
variable you wish to store the sound in.  The varible you store
the sound in must be of the type NOISE, ie VAR NeatSound:Noise;.
LoadSound is a function, so it must be called as a "variable" of
the type byte.  It returns a 0 if everything was fine and the
sound loaded, and a 1 if everyting WASN'T just great, and the
sound DID not load.  This usually means that the file wasn't
found.  The PlaySound command is called only with the variable
name of the sound you just loaded, when it is through playing, it
called NoSound from the CRT unit and stops the sound.  KeepSound,
on the otherhand, DOES NOT call NoSound, this allows you to link
many sounds together without a little "click" in the middle of
each sound.  REMEMBER:  You must USE the CRT unit in your
program, or your program will not compile!  Here's a REAL short
example.

Program NiftySound;
Uses Crt,Sounds;
Var Snd:Noise;
Begin
    If LoadSound('NIFTY.SND',Snd)=0 Then PlaySound(Snd)
        Else WriteLn('File Not Found');
End.

    Pretty simple, huh?  For anyone out there who likes to peek
at .TPU's, you may notice another function in the SOUNDS unit,
this is the EXIST function, it test to see whether a file exists
or not, it is simply returns true or false if a file exists or
not.  It comes in handy from time to time.  I have also included
another sample program called SAMPLE.PAS which will play PAGE.SND
and without stopping move right into I.SND.  I think you will
understand why I called I.SND what I did once you hear it, its
pretty weird.

Shareware!
~~~~~~~~~~
    Thats right, yet ANOTHER shareware product.  Use it,
distribute it, do whatever you want with it, as long as you don't
change the original .ZIP file in any way.  AND!  For those of you
who find in the kindness of your hearts, or who want to get a
hold of the source code, simply send in $10 to:

                    Andy Sherwood
                    3440 E. Southern Ave. #1003
                    Mesa, Az 85204