nifty analog clock

[zylum]

here's a simple procedure that draws an analog clock. you can set the length of each hand and it will automatically adjust. the first parameter is for the hour hand, the second is for the minute hand and the last is for the second hand...

code:

procedure displayClock (hourHand, minuteHand, secondHand : int)     setscreen ("offscreenonly")     const PI := 3.14159     var whatTime : string     var whatDate : string     var hour, minute, second : int     var x, y, x2, y2 : int     var ang : real     loop         date (whatDate)         locate (1, 1)         put whatDate         time (whatTime)         hour := strint (whatTime (1 .. 2))         hour := hour mod 12         minute := strint (whatTime (4 .. 5))         second := strint (whatTime (7 .. 8))         %hour hand         ang := ((hour + (minute / 60)) / 12) * 360 - 90         x := round (cos (-ang * (PI / 180)) * hourHand + maxx div 2)         y := round (sin (-ang * (PI / 180)) * hourHand + maxy div 2)         drawline (maxx div 2, maxy div 2, x, y, 7)         %minute hand         ang := (minute / 60) * 360 - 90         x := round (cos (-ang * (PI / 180)) * minuteHand + maxx div 2)         y := round (sin (-ang * (PI / 180)) * minuteHand + maxy div 2)         drawline (maxx div 2, maxy div 2, x, y, 7)         %second hand         ang := (second / 60) * 360 - 90         x := round (cos (-ang * (PI / 180)) * secondHand + maxx div 2)         y := round (sin (-ang * (PI / 180)) * secondHand + maxy div 2)         drawline (maxx div 2, maxy div 2, x, y, 7)         %draw face         for i : -90 .. 270 by 6             if i mod 15 = 0 then                 x := round (cos (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand))) + maxx div 2)                 y := round (sin (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand))) + maxy div 2)                 x2 := round (cos (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 10) + maxx div 2)                 y2 := round (sin (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 10) + maxy div 2)             else                 x := round (cos (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 5) + maxx div 2)                 y := round (sin (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 5) + maxy div 2)                 x2 := round (cos (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 10) + maxx div 2)                 y2 := round (sin (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 10) + maxy div 2)             end if             drawline (x, y, x2, y2, 7)         end for         drawoval (maxx div 2, maxy div 2, max (hourHand, max (minuteHand, secondHand)) + 10, max (hourHand, max (minuteHand, secondHand)) + 10, 7)         View.Update         cls     end loop end displayClock displayClock (40, 70, 80)

- zylum

[recneps]

Purdy, but could use some numbers and i think it moves slower than 1 move per second on my comp..?

[jonos]

thats really nice, it works perfectly on my computer, even has the right time!!! wasn't expecting that

[zylum]

lol, well of course it has the right time, it gets the values from your system clock.

[jonos]

what did you use to get the system clock time? i couldn't find it in the reference

[apomb]

umm well to get the system clock time by using

code:

var whatTime : string loop     time (whatTime)     put whatTime     delay (1000)     cls end loop

and Zylum very nice program

[jonos]

thanks, so its just the a time() function.

[apomb]

yep... pretty simple eh? i think its in the reference... if you want a complete description. It also only works in the newest version .. so you should get yourself that if you dont already have it