"Songs" For Ultra-SiMPLE

(NOTE: The programs discussed on this page might not work properly on all computers.)

The "toys" library in the PLAYPEN project (in Pro-SiMPLE) contains the "song" task that allows you to play any of ten very short musical pieces through your computer's tiny built-in speaker. Unfortunately, Ultra-SiMPLE doesn't provide you with access to that speaker. But now you can incorporate those same "songs" into your Ultra-SiMPLE programs by playing them through your sound card.

First, you will need to check the "SOUNDS" folder (inside your "SiMPLE" folder) to make sure that it contains the "tones.mid" file. (If you don't have the "tones.mid" file, you can download it by right-clicking the following link and selecting "Save Target As..."):

(Right-click Me and Select "Save Target As...")

Then, just "PUT" the following task into one of your libraries, (or simply append the task listing to the end of your source listing):

Task Listing

Task song (Int id, Int key) * * Enter with: id - The selection to be played (1-10) * key - The key in which to play the music * (key=0 is key of C) * Int n[]={1,6,10,13,10,13,1,1,3,5,1,5,3,4,4,1,6,4,1,1,6,10,\ 6,1,1,6,10,6,1,1,6,10,6,1,6,10,6,10,10,13,6,6,10,1,1,6,6,6,\ 6,1,1,1,1,1,1,1,1,6,8,10,1,1,1,1,1,6,10,10,8,5,1,1,3,5,6,8,\ 10,12,13,8,5,3,1,1,1,3,5,3,5,1,13,2,2,2,2,5,4,4,2,2,1,2} Int d[]={4,4,4,8,4,23,4,4,4,4,4,4,12,5,5,5,5,10,10,4,4,4,4,8,\ 4,4,4,4,8,4,4,4,4,8,4,12,12,12,4,16,12,4,16,12,4,16,12,4,23,\ 3,3,6,3,3,6,3,3,6,6,6,3,3,6,3,3,6,3,3,6,6,12,1,1,1,1,1,1,1,2,\ 12,4,9,10,20,4,4,4,8,4,14,8,20,16,4,20,16,4,16,4,16,4,31} Int x[]={0,6,13,19,37,49,71,79,84,91,102} If id<1 | id>10 Return handle = open mci ("\\simple\\sounds\\tones.mid") Do k = x[id-1], x[id]-1 start mci (handle, (n[k]+key+24)*2998L) delay (32*d[k]) Loop stop mci (handle) close mci (handle)

Presto! You can now incorporate the same ten "songs" that you used in the PLAYPEN into your Ultra-SiMPLE programs!

Want to create your own songs? No problem!

The "tones.mid" file contains 61 musical notes (five octaves) that you can freely use. (Note #24 is middle C.) All you have to do is open the "tones.mid" file and specify which notes you want to be played (and how long you want them to be heard). Then, when you're finished, close the file.

For example, the following program will play notes #24, #26, and #28, each for 500 milliseconds:

            handle = open mci ("\\simple\\sounds\\tones.mid")
            start mci (handle, 24*2998L); delay (500)
            start mci (handle, 26*2998L); delay (500)
            start mci (handle, 28*2998L); delay (500)
            stop  mci (handle); close mci (handle)