Sorry your browser is not supported!

sync on
set window on
set text size 20

set window title "Circle Clock - Matt Hollands"

do

cls


time$=get time$()

seconds$=right$(time$,2)

minutes$=right$(time$,5)
minutes$=left$(minutes$,2)

hours$=left$(time$,2)

gosub draw_final
gosub draw_seconds
gosub draw_minutes
gosub draw_hours

ink rgb(0,0,255),0
center text (screen width()/2),screen height()/2-seconds#,seconds$

ink rgb(0,255,255),0
center text (screen width()/2)-minutes#,screen height()/2,minutes$

ink rgb(255,0,255),0
center text (screen width()/2)+hours#,screen height()/2,hours$

sync
loop

draw_seconds:

ink rgb(255,255,255),0

secondstemp#=val(seconds$)*3
if seconds#<secondstemp# then inc seconds#,1
if seconds#>secondstemp# then inc seconds#,-6

circle screen width()/2,screen height()/2,seconds#-1
circle screen width()/2,screen height()/2,seconds#

return

draw_minutes:

ink rgb(255,0,0),0

minutestemp#=val(minutes$)*3
if minutes#<minutestemp# then inc minutes#,1
if minutes#>minutestemp# then inc minutes#,-6

circle screen width()/2,screen height()/2,minutes#-1
circle screen width()/2,screen height()/2,minutes#


return

draw_hours:

ink rgb(0,255,0),0

hourstemp#=val(hours$)*(7.5)-1
if hours#<hourstemp# then inc hours#,1
if minutes#>minutestemp# then inc minutes#,-6

circle screen width()/2,screen height()/2,hours#-1
circle screen width()/2,screen height()/2,hours#



return

draw_final:

ink rgb(120,120,120),0

circle screen width()/2,screen height()/2,178
circle screen width()/2,screen height()/2,177

return

set window on
set window size 1,1

Save Bitmap "c:\your_temp_image.jpg"

cls
set window size 640,480

load image "c:\your_temp_image.jpg",1
make object plain 1,640,480
scale object 1,33,33,33
lock object on  1
position object 1,0,0,132
texture object 1,1

rem background desktop illusion
rem by latch
rem 11/09/2008
rem based on background screen shot code by bat out of hell

load dll "user32.dll",1
load dll "gdi32.dll",2

set window on
wd=desktop_width(1)
ht=desktop_height(1)
dp=desktop_depth(1,2)
set display mode wd,ht,dp
sync on
sync rate 60
set window layout 0,0,0
maximize window
hide window

save bitmap "my_temp_image.bmp"
cls
show window
maximize window

load bitmap "my_temp_image.bmp",1

rem make an environement
make matrix 1,10000,10000,25,25
randomize matrix 1,50

make object cube 1,25

draw to back

do
   copy bitmap 1,0
   gosub _move_camera
   sync
loop

`----------------------------------------------------------------
   _move_camera:
      move object 1,(upkey()-downkey())*10
      cx#=object position x(1)
      cz#=object position z(1)
      cy#=get ground height(1,cx#,cz#)+25
      position object 1,cx#,cy#,cz#
      yang#=wrapvalue(object angle y(1)+mousemovex())
      yrotate object 1,yang#

      set camera to follow cx#,cy#,cz#,yang#,200,100,10,1

   return
`----------------------------------------------------------------
function desktop_width(user32)
   SM_CXSCREEN = 0
   dwidth=call dll(user32,"GetSystemMetrics",SM_CXSCREEN)
endfunction dwidth
`----------------------------------------------------------------
function desktop_height(user32)
   SM_CYSCREEN = 1
   dheight=call dll(user32,"GetSystemMetrics",SM_CYSCREEN)
endfunction dheight
`----------------------------------------------------------------
function desktop_depth(user32,gdi32)
   BITSPIXEL = 12
   hdc=0
   hdc=call dll(user32, "GetDC", 0)
   ddepth=call dll(gdi32, "GetDeviceCaps", hdc, BITSPIXEL)
   call dll user32, "ReleaseDC", 0, hdc
endfunction ddepth