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 döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Draw-a-clock/Tcl/draw-a-clock.tcl
View file

@ -13,9 +13,9 @@ proc updateClock t {
set m [expr {$m + $s/60.0}]
set h [expr {($h % 12 + $m/60.0) * 5}]
foreach tag {hour minute second} value [list $h $m $s] len {50 80 80} {
.c coords $tag 100 100 \
[expr {100 + $len*sin($value/30.0*3.14159)}] \
[expr {100 - $len*cos($value/30.0*3.14159)}]
.c coords $tag 100 100 \
[expr {100 + $len*sin($value/30.0*3.14159)}] \
[expr {100 - $len*cos($value/30.0*3.14159)}]
}
}
@ -26,8 +26,8 @@ proc ticker {} {
set t [clock seconds]
after 250 ticker
if {$t != $time} {
set time $t
updateClock $t
set time $t
updateClock $t
}
}
ticker