Code:

' ********************

' ** Analoge Clock **

' ** (C) 2011 **

' ** Thomas Krueger **

' ********************

GRAPHICS ON

SETSCALE 479,799

StrokeWidth 3

DEGREE

tx=SCREENX()/2

ty=SCREENY()/2

COLOR 75,0,0

DrawingBuffer on

color 0,0,0

cls

FOR w=0 TO 360 STEP 6

COLOR 75,0,0

x=SIN(w)*180+tx

y=COS(w)*180+ty

LINE x,y,SIN(w)*20+x,COS(w)*20+y

IF (w%30)=0 THEN

COLOR 0,0,75

x=SIN(w)*160+tx

y=COS(w)*160+ty

LINE x,y,SIN(w)*40+x,COS(w)*40+y

ENDIF

NEXT w

DrawingBuffer off

ox = 0

oy = 0

DO

t$=FORMATTIME$(TIME(),"hhmmss")

s=VAL(MID$(t$,5,2))

IF so<>s THEN

so=s

cls

COLOR 0,100,0

m=VAL(MID$(t$,3,2))

LINE tx,ty,SIN(180-(m*6))*155+tx,COS(180-(m*6))*155+ty

w=VAL(MID$(t$,1,2))

LINE tx,ty,SIN(180-(w*30)-(m*0.5))*120+tx,COS(180-(w*30)-(m*0.5))

*120+ty

COLOR 0,25,0

LINE tx,ty,SIN(180-(s*6))*155+tx,COS(180-(s*6))*155+ty

CIRCLE SIN(180-(s*6))*140+tx,COS(180-(s*6))*140+ty,10,1

ENDIF

setDrawingBufferOffset ox, oy

ox += 2

oy += 2

render

LOOP

' ** Analoge Clock **

' ** (C) 2011 **

' ** Thomas Krueger **

' ********************

GRAPHICS ON

SETSCALE 479,799

StrokeWidth 3

DEGREE

tx=SCREENX()/2

ty=SCREENY()/2

COLOR 75,0,0

DrawingBuffer on

color 0,0,0

cls

FOR w=0 TO 360 STEP 6

COLOR 75,0,0

x=SIN(w)*180+tx

y=COS(w)*180+ty

LINE x,y,SIN(w)*20+x,COS(w)*20+y

IF (w%30)=0 THEN

COLOR 0,0,75

x=SIN(w)*160+tx

y=COS(w)*160+ty

LINE x,y,SIN(w)*40+x,COS(w)*40+y

ENDIF

NEXT w

DrawingBuffer off

ox = 0

oy = 0

DO

t$=FORMATTIME$(TIME(),"hhmmss")

s=VAL(MID$(t$,5,2))

IF so<>s THEN

so=s

cls

COLOR 0,100,0

m=VAL(MID$(t$,3,2))

LINE tx,ty,SIN(180-(m*6))*155+tx,COS(180-(m*6))*155+ty

w=VAL(MID$(t$,1,2))

LINE tx,ty,SIN(180-(w*30)-(m*0.5))*120+tx,COS(180-(w*30)-(m*0.5))

*120+ty

COLOR 0,25,0

LINE tx,ty,SIN(180-(s*6))*155+tx,COS(180-(s*6))*155+ty

CIRCLE SIN(180-(s*6))*140+tx,COS(180-(s*6))*140+ty,10,1

ENDIF

setDrawingBufferOffset ox, oy

ox += 2

oy += 2

render

LOOP