40 lines
1.1 KiB
Plaintext
40 lines
1.1 KiB
Plaintext
WindowWidth =120
|
|
WindowHeight =144
|
|
nomainwin
|
|
|
|
open "Clock" for graphics_nsb_nf as #clock
|
|
#clock "trapclose [exit]"
|
|
#clock "fill white"
|
|
for angle =0 to 330 step 30
|
|
#clock "up ; home ; north ; turn "; angle
|
|
#clock "go 40 ; down ; go 5"
|
|
next angle
|
|
|
|
#clock "flush"
|
|
|
|
timer 1000, [display]
|
|
wait
|
|
|
|
[display] ' called only when seconds have changed
|
|
time$ =time$()
|
|
seconds =val( right$( time$, 2))
|
|
' delete the last drawn segment, if there is one
|
|
if segId >2 then #clock "delsegment "; segId -1
|
|
' center the turtle
|
|
#clock "up ; home ; down ; north"
|
|
' erase each hand if its position has changed
|
|
if oldSeconds <>seconds then #clock, "size 1 ; color white ; turn "; oldSeconds *6 ; " ; go 38 ; home ; color black ; north" : oldSeconds =seconds
|
|
' redraw all three hands, second hand first
|
|
#clock "size 1 ; turn "; seconds * 6 ; " ; go 38"
|
|
' flush to end segment, then get the next segment id #
|
|
#clock "flush"
|
|
#clock "segment"
|
|
input #clock, segId
|
|
|
|
wait
|
|
|
|
[exit]
|
|
close #clock
|
|
|
|
end
|