Zegar

13 :04

Co zegar godziny nie pokazuje

DGenerationX już zrobiłem hahahahahahahahaha

bartek narysuj to w kodzie, a w paincie nie zrobisz tego tak dokładnie

Kółko i kilka kresek... wielkie dzieło

A ja zrobie w paincie ;)
(Jak mi sie będzie chciało ;P

?

to hour :x
rt 30 * :x
setpensize [5 5]
fd 70
setpensize [1 1]
home
end

to min :x
rt 6 * :x
setpensize [3 3]
fd 100
setpensize [1 1]
home
end

to sek :x
rt 6 * :x
fd 150
home
end

to tarcza
circle 200
repeat 60 [
pu
fd 170
pd
fd 30
pu
home
pd
rt 6 * repcount ]
repeat 12 [
pu
fd 150
pd
fd 50
pu
home
pd
rt 30 * repcount
]
end

to zegar
tarcza
repeat 12 [
make "h repcount-1
repeat 60 [
make "m repcount-1
repeat 60 [
setpc [0 0 0]
sek repcount
min :m
hour :h

wait 1

setpc [255 255 255]
sek repcount
min :m
hour :h
]
]
]
end

Make "h 1
Make "m 10