The Online Module Library

< Prev | The Online Module Library | Next >

Module: thermometer

Task: thermometer (Int x, Int y, Int temp) Description: Draws a thermometer on your screen Parameters: x,y: the location of the center of the thermometer temp: the initial temperature (0-125) ___________________________________________________ Task: temperature (Int temp) Description: Changes the thermometer's temperature Parameter: temp: the new temperature (0-125)

Module Source Listing

Task thermometer (Int x, Int y, Int temp) Common Int x_therm, y_therm, flag_therm=0 line color (8); solid color (7) filled round rectangle (x-45, y+150, x+45, y-150, 25, 25) fore color (8); back color (7); line color (0) Do t=0, 120, 10 line (x-7, y+115-2*t, x+7, y+115-2*t) If (t%20) outtextxy (x+11, y+115-2*t-8, itot(t)) Else dx=8*(t/100)+29; If (t=0) dx=dx-8 outtextxy (x-dx, y+115-2*t-8, itot(t)) Endelse Loop filled rectangle (x-2, y+130, x+2, y-137) solid color (4); filled circle (x, y+130, 10) x_therm=x; y_therm=y; flag_therm=1 temperature (temp) @ Task temperature (Int temp) Common Int x_therm, y_therm, flag_therm If (!flag_therm) Return x=x_therm; y=y_therm solid color (4) t=temp If (t<0) t=0 If (t>125) t=125 solid rectangle (x-1, y+130, x+1, y+115-2*t) solid color (7) solid rectangle (x-1, y+114-2*t, x+1, y-136)

Example

The following example program draws a thermometer displaying a temperature of 68 degrees:

Example Program Source Listing

Win-SiMPLE thermometer (500, 300, 68) @ Append G: thermometer

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

Example 2 - An Exploding Thermometer

The following example program draws a thermometer whose temperature rises from 68 degrees to 125 degrees. When the temperature reaches 125, the thermometer explodes:

Example Program Source Listing

Win-SiMPLE xc=xpixels()/2; yc=ypixels()/2 cls (3); frame thermometer (xc, yc, 68) @ Do t=69,125 temperature (t) @ delay (50) Loop exploder (xc, yc-137, 3, 0, 1) @ quit Append G: explode Append G: thermometer

(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.