Draw a clock: Difference between revisions
Content added Content deleted
(Added BaCon version.) |
|||
Line 581: | Line 581: | ||
' Draw hour |
' Draw hour |
||
h = IIF(HOUR(NOW)>12, HOUR(NOW)-12, HOUR(NOW))*30-90 |
h = IIF(HOUR(NOW)>12, HOUR(NOW)-12, HOUR(NOW))*30+(MINUTE(NOW)/12)*6-90 |
||
CALL cairo_move_to(cr, 150, 150) |
CALL cairo_move_to(cr, 150, 150) |
||
CALL cairo_line_to(cr, 150 + ALEN*COS(RAD(h)), 150 + ALEN*SIN(RAD(h))) |
CALL cairo_line_to(cr, 150 + ALEN*COS(RAD(h)), 150 + ALEN*SIN(RAD(h))) |