Часы

Автор: goglus

i=RED
zul19="
ii.iiii
i.i...i
i.iiii.
i.i.i.i
.iiii.i
i...i.i
iiii.ii
+
iii.iii
i..i..i
i.iii.i
.ii.ii.
i.iii.i
i..i..i
iii.iii
+
iii..ii
i...i.i
.iiii.i
i.i.iii
i.iiii.
i.i...i
ii.iiii
"
make_pixi(zul19)
a=1
b=2
 
time:
clear(SUN)
h = get_hours
m = get_minutes
s = get_seconds
print( "$h:$m:$s", -65, -65, BLACK )
a+1
b+2
//round patch
h=h * 256   h / 12   h - 64
m=m * 256   m / 60   m - 64
s=s * 256   s / 60   s - 64
 
//arrows
line(0,0, ccos(h) /4, csin(h)/4, BLACK)
line(0,0, ccos(s) /3, csin(s) /3,  BLACK)
line(0,0, ccos(m) /5, csin(m)/5, BLACK)
 
fbox(-2,-2,4,4,BLACK)
box(0-a,0-a,0+b,0+b,BLACK)
transp(22 )
pixi(zul19,0,0,a)
if a>99{a=1 if b>99{b=2}}
 
frame(20)
go time