aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Draw-a-clock/Seed7/draw-a-clock.seed7
View file

@ -22,7 +22,7 @@ const proc: main is func
screen(WINDOW_WIDTH, WINDOW_HEIGHT);
clear(curr_win, BACKGROUND);
KEYBOARD := GRAPH_KEYBOARD;
command := busy_getc(KEYBOARD);
command := getc(KEYBOARD, NO_WAIT);
while command <> 'q' do
start_time := truncToSecond(time(NOW));
clear(curr_win, BACKGROUND);
@ -64,8 +64,8 @@ const proc: main is func
100 + round(sin(alpha)*50.0), FOREGROUND);
fcircle(100, 100, 7, CLOCKCOLOR);
circle(100, 100, 7, FOREGROUND);
DRAW_FLUSH;
flushGraphic;
await(start_time + 1 . SECONDS);
command := busy_getc(KEYBOARD);
command := getc(KEYBOARD, NO_WAIT);
end while;
end func;