sync on
set display mode 800,600,32
make object cube 1,1
delete object 1
color backdrop 0
autocam off
hide mouse

alpha = 10
set camera to image 0,200,512,512
sprite 1000,0,0,200
set sprite 1000,0,1
set sprite alpha 1000,alpha
size sprite 1000,screen width(),screen height()

ink rgb(0,255,0),0
box 49,0,51,50
get image 1,0,0,100,100
cls
box 48,0,51,50
get image 2,0,0,100,100
cls
box 48,20,51,50
get image 3,0,0,100,100
cls
ink rgb(255,255,255),0
for n=1 to 12
box 98+90*cos(theta#),98+90*sin(theta#),102+90*cos(theta#),102+90*sin(theta#)
inc theta#,30
next n
get image 4,0,0,200,200,1

sprite 101,0,0,1
size sprite 101,100,100
sprite 102,0,0,2
size sprite 102,100,100
sprite 103,0,0,3
size sprite 103,100,100
sprite 104,0,0,4
size sprite 104,120,120

offset sprite 101,50,50
offset sprite 102,50,50
offset sprite 103,50,50
offset sprite 104,60,60

gosub create_digits
dx=1.5
dy=1

r=255

do

t$=get time$()

for n=1 to 8
if n=3 or n=6
  sprite n,n*20+x,y,20
else
  image=val(left$(right$(t$,9-n),1))+10
  sprite n,n*20+x,y,image
endif
set sprite diffuse n,r,g,b
next n

inc x,dx
inc y,dy
if x>screen width()-160 or x<0 then dx=dx*-1
if y>screen height()-150 or y<0 then dy=dy*-1

gosub transitions

s#=val(right$(t$,2))*6
m#=(val(left$(right$(t$,5),2))*6)+s#/60.0
h#=(val(left$(t$,2))*30)+m#/12.0

sprite 101,x+100,y+100,1
sprite 102,x+100,y+100,2
sprite 103,x+100,y+100,3
sprite 104,x+100,y+100,4
rotate sprite 101,s#
rotate sprite 102,m#
rotate sprite 103,h#

set sprite diffuse 104,r,g,b

sync
loop


Create_Digits:

ink rgb(255,255,255),0
   DigitImg = 10

   `ZERO
   Box 0, 2, 2, 12 : Box 0, 14, 2, 24 : Box 14, 2, 16, 12 : Box 14, 14, 16, 24 : Box 3, 0, 13, 2 : Box 3, 24, 13, 26
   Get Image DigitImg+0, 0, 0, 16, 26, 1
   CLS

   `ONE
   Box 14, 2, 16, 12 : Box 14, 14, 16, 24
   Get Image DigitImg+1, 0, 0, 16, 26, 1
   CLS

   `TWO
   Box 0, 14, 2, 24 : Box 14, 2, 16, 12 : Box 3, 0, 13, 2 : Box 3, 24, 13, 26 : Box 3, 12, 13, 14
   Get Image DigitImg+2, 0, 0, 16, 26, 1
   CLS

   `THREE
   Box 14, 2, 16, 12 : Box 14, 14, 16, 24 : Box 3, 0, 13, 2 : Box 3, 24, 13, 26 : Box 3, 12, 13, 14
   Get Image DigitImg+3, 0, 0, 16, 26, 1
   CLS

   `FOUR
   Box 0, 2, 2, 12 : Box 14, 2, 16, 12 : Box 14, 14, 16, 24 : Box 3, 12, 13, 14
   Get Image DigitImg+4, 0, 0, 16, 26, 1
   CLS

   `FIVE
   Box 0, 2, 2, 12 : Box 14, 14, 16, 24 : Box 3, 0, 13, 2 : Box 3, 24, 13, 26 : Box 3, 12, 13, 14
   Get Image DigitImg+5, 0, 0, 16, 26, 1
   CLS

   `SIX
   Box 0, 2, 2, 12 : Box 0, 14, 2, 24 : Box 14, 14, 16, 24 : Box 3, 0, 13, 2 : Box 3, 24, 13, 26 : Box 3, 12, 13, 14
   Get Image DigitImg+6, 0, 0, 16, 26, 1
   CLS

   `SEVEN
   Box 14, 2, 16, 12 : Box 14, 14, 16, 24 : Box 3, 0, 13, 2 `Top
   Get Image DigitImg+7, 0, 0, 16, 26, 1
   CLS

   `EIGHT
   Box 0, 2, 2, 12 : Box 0, 14, 2, 24 : Box 14, 2, 16, 12 : Box 14, 14, 16, 24 : Box 3, 0, 13, 2 : Box 3, 24, 13, 26 : Box 3, 12, 13, 14
   Get Image DigitImg+8, 0, 0, 16, 26, 1
   CLS

   `NINE
   Box 0, 2, 2, 12 : Box 14, 2, 16, 12 : Box 14, 14, 16, 24 : Box 3, 0, 13, 2 : Box 3, 12, 13, 14
   Get Image DigitImg+9, 0, 0, 16, 26, 1
   CLS

   `COLON
   Box 7, 9, 9, 11 : Box 7, 15, 9, 17
   Get Image DigitImg+10, 0, 0, 16, 26, 1
   CLS
Return

transitions:

if transition=0
inc g
if g=255 then transition=1
endif
if transition=2
inc b
if b=255 then transition=3
endif
if transition=1
dec r
if r=0 then transition=2
endif
if transition=3
dec g
if g=0 then transition=4
endif
if transition=4
inc r
if r=255 then transition=5
endif
if transition=5
dec b
if b=0 then transition=0
endif

return