Mon cadeau de Noël: une pendule à 1 euro

' Pendulette
DIM np, wp, hp, xc, yc, r, h, m, s, pi, rh, rm, rs, re
DIM a, ah, am, as, x, y, xph, yph, xpm, ypm, xps, yps
DIM t$
LABEL rrb, Fin, Heure, Minute, Seconde

wp = 200: hp = 200: xc = wp/2: yc = hp/2
r = wp/2-5: re = r-8: rs = r-15: rm = rs-10: rh = rm-15
pi = 4*ATN(1)
xph = xc: yph = yc: xpm = xc: ypm = yc: xps = xc: yps = yc

WIDTH 0, wp+18: HEIGHT 0, hp+38
CAPTION 0, "Pendulette"
np = 1
PICTURE np: LEFT np, 0: TOP np,0: WIDTH np, wp: HEIGHT np, hp
COLOR np, 0, 255, 255
2D_TARGET_IS np
2D_FILL_COLOR 255, 255, 255
2D_PEN_COLOR 255, 0, 0: 2D_PEN_WIDTH 3
2D_CIRCLE xc, yc, r
FOR a = 0 TO 2*pi STEP 2*pi/60
    x = xc + re*COS(a): y = yc + re*SIN(a)
    2D_CIRCLE x, y, 2
NEXT a
2D_PEN_COLOR 0, 0, 0
FOR a = 0 TO 2*pi STEP 2*pi/12
    x = xc + re*COS(a): y = yc + re*SIN(a)
    2D_CIRCLE x, y, 4
NEXT a
2D_FILL_COLOR 255, 0, 0
rrb:
WHILE TIME$ = t$: WAIT 200: END_WHILE
IF CLICKED(np) = 1 THEN GOTO Fin
PRINT_LOCATE 40, 400: PRINT TIME$
t$ = TIME$
h = VAL(LEFT$(t$, 2))
m = VAL(MID$(t$, 4, 2))
s = VAL(RIGHT$(t$, 2))
IF h >= 12 THEN h = h - 12
ah = h*2*pi/12: ' angle des heures
am = m*2*pi/60: ' angle des minutes
as = s*2*pi/60: ' angle des secondes
am = am + as/60: ah = ah + am/12
ah = pi/2 - ah: am = pi/2 - am: as = pi/2 - as
GOSUB Heure
GOSUB Minute
GOSUB Seconde
GOTO rrb
END
Fin:
TERMINATE

Heure:
2D_PEN_WIDTH 9
2D_PEN_COLOR 255, 255, 255: 2D_LINE xc, yc, xph, yph
2D_PEN_COLOR 0, 0, 0
xph = xc + rh*COS(ah): yph = yc + -1*rh*SIN(ah)
2D_LINE xc, yc, xph, yph
RETURN

Minute:
2D_PEN_WIDTH 7
2D_PEN_COLOR 255, 255, 255: 2D_LINE xc, yc, xpm, ypm
2D_PEN_COLOR 0, 0, 0
xpm = xc + rm*COS(am): ypm = yc + -1*rm*SIN(am)
2D_LINE xc, yc, xpm, ypm
RETURN

Seconde:
2D_PEN_WIDTH 2
2D_PEN_COLOR 255, 255, 255: 2D_LINE xc, yc, xps, yps
2D_PEN_COLOR 255, 0, 0
xps = xc + rs*COS(as): yps = yc + -1*rs*SIN(as)
2D_LINE xc, yc, xps, yps
2D_CIRCLE xc, yc, 8
RETURN