The Online Module Library

< Prev | The Online Module Library | Next >

Module: barometer

Task: initbarometer (Int x, Int y, Int color) Description: Draws a barometer on your screen Parameters: x,y: the location of the center of the barometer color: the color of the "liquid" (1-15) _____________________________________________________ Task: barometer (Int amount) Description: Displays the barometer's "amount" Parameter: amount: (0-100)

Module Source Listing

Task init barometer (Int x, Int y, Int color) Common Int baro_x, baro_y, baro_color baro_x=x; baro_y=y; baro_color=color line size (1) line color (0) solid color (7) filled rectangle (x-112, y-11, x+112, y+11) line size (3) line color (rgb(128,128,128)) solid color (0) filled rectangle (x-102, y-4, x+102, y+4) line size (1) Task barometer (Int z) Common Int baro_x, baro_y, baro_color Int xr zz=z If (zz<0) zz=0 If (zz>100) zz=100 xr=baro_x-100+2*zz If (zz>0) solid color (baro_color) solid rectangle (baro_x-100, baro_y-2, xr, baro_y+2) Endif If (zz<100) solid color (0) solid rectangle (xr, baro_y-2, baro_x+100, baro_y+2) Endif

Example

The following example program draws a barometer whose value slowly changes from 0 to 100:

Example Program Source Listing

Win-SiMPLE init barometer (300, 200, Cyan) @ Do value = 0, 100 barometer (value) @ delay (100) Loop Append G: barometer

(The above program assumes that you've placed
the module into your Global Append Library.)

How To Download The Module
Into Your Local Append Library

If you're feeling ambitious and have nothing better to do, you could just copy
the source listing by hand! However, there is a much easier way to do it:

Copy the source listing into the Windows Clipboard

Paste the Clipboard into a new text document in your project's "Library" folder

Change the name of that new text document to the module's name

The module is now in your Local Append Library.

After the module has been placed into your Local Append Library, you can
either just leave it there, or you can transfer it into your Global Append Library:

How To Transfer The Module From Your Local
Append Library Into Your Global Append Library

Drop the module's text file onto the "Librarian.exe" file

Click "Win" when you are asked to select the intended universe

The module is now in your Global Append Library.