Draw a clock: Difference between revisions
m
Replace deprecated functions
imported>Mparson mNo edit summary |
m (Replace deprecated functions) |
||
Line 6,198:
clear(curr_win, BACKGROUND);
KEYBOARD := GRAPH_KEYBOARD;
command :=
while command <> 'q' do
start_time := truncToSecond(time(NOW));
Line 6,240:
fcircle(100, 100, 7, CLOCKCOLOR);
circle(100, 100, 7, FOREGROUND);
await(start_time + 1 . SECONDS);
command :=
end while;
end func;</syntaxhighlight>
| |||