I recently found this project, i'd like to help, email is
alec0493@btinternet.com
and heres my clock
set display mode 1680,1050,32
`set window on
radius# = 500
x = screen width()/2
y = screen height()/2
secondpercent# = 90
minpercent# = 50
hourpercent# = 30
milipercent# = 80
miniradius# = radius# / 8
minioffx = 0
minioffy = (radius# / 4) * 3
_2d:
hide mouse
do
cls
ink rgb(125,125,125),rgb(125,125,125)
circle x+minioffx,y+minioffy,miniradius#
linelength# = miniradius# * (milipercent#/100)
time# = timer()
hourhandangle# = (0.36) * time#
timey# = linelength# * sin(hourhandangle#)
timex# = linelength# * cos(hourhandangle#)
line x+minioffx,y+minioffy,timex#+x+minioffx,timey#+y+minioffy
hour$ = get_string_time_hour(get time$())
min$ = get_string_time_minute(get time$())
second$ = get_string_time_second(get time$())
ink rgb(255,255,255),rgb(255,255,255)
circle x,y,radius#
`second hand
ink rgb(255,0,0),rgb(255,0,0)
linelength# = radius# * (secondpercent# / 100)
secondhandangle# = (360/60) * val(second$) -90
timey# = linelength# * sin(secondhandangle#)
timex# = linelength# * cos(secondhandangle#)
line x,y,timex#+x,timey#+y
`minute hand
ink rgb(0,255,0),rgb(0,255,0)
linelength# = radius# * (minpercent# / 100)
minutehandangle# = (360/60) * val(min$) - 90
timey# = linelength# * sin(minutehandangle#)
timex# = linelength# * cos(minutehandangle#)
line x,y,timex#+x,timey#+y
ink rgb(0,0,255),rgb(0,0,255)
linelength# = radius# * (hourpercent# / 100)
hourhandangle# = (360/12) * (val(hour$) )-90
timey# = linelength# * sin(hourhandangle#)
timex# = linelength# * cos(hourhandangle#)
line x,y,timex#+x,timey#+y
loop
function get_string_time_hour(ctime$)
time$ = mid$(ctime$,1) + mid$(ctime$,2)
endfunction time$
function get_string_time_minute(ctime$)
time$ = mid$(ctime$,4) + mid$(ctime$,5)
endfunction time$
function get_string_time_second(ctime$)
time$ = mid$(ctime$,7) + mid$(ctime$,8)
endfunction time$
bit modified as i started off going with the timer function.
Alec
Please let me join, no media for the thing above
