TheGameCreators - CodeBase - Another 12 hours clock

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 19th Jul 2004 05:52

Modified: 1st Jan 1970 01:00

Author: exLRT

Summary

Just another 12 hours clock...made up a set of spheres

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: 3DClocks

Rem Created: 13/07/2004 08:34:18

Rem Author: Ulric BoÃ«l (ulric.boel@pro.tiscali.be)

Rem ***** Main Source File *****

rem set display mode 1024,768,32

sync on

autocam off

set text font "Arial"

set text size 24

global defaultRadius# = 15.0

global baseTick = 1

global currentTick = baseTick

global turnRate# = 6.0

global cFPS = 0

colClock = rgb(255, 255, 255)

colHNeedle = rgb(64, 128, 255)

colMNeedle = rgb(128, 128, 255)

colSNeedle = rgb(255, 0, 0)

position camera 0, 0.0, 0.0, -35.0

point camera 0, 0.0, 0.0, 0.0

gosub initObjects

while not escapekey()

gosub mainLoop

sync;

endwhile

return

rem ------------------------------------------------------------------------------------------------------------------------

initObjects:

rem --- Clock ---

make object sphere 1, 1.0

make mesh from object 1, 1

for i=0 to 59

thisTick = baseTick+i

add limb 1,thisTick,1

tickX# = defaultRadius# * sin(i*6)

tickY# = defaultRadius# * cos(i*6)

offset limb 1, thisTick, tickX#, tickY#, 0.0

next i

delete mesh 1

color object 1, colClock

rem --- Hours needle ---

make object sphere 2, 0.6

make mesh from object 1, 2

for i = 1 to 13

add limb 2, i, 1

offset limb 2, i, 0.0, i, 0.0

next i

color object 2, colHNeedle

delete mesh 1

rem --- Minutes needle ---

make object sphere 3, 0.8

make mesh from object 1, 3

for i = 1 to 7

add limb 3, i, 1

offset limb 3, i, 0.0, i, 0.0

next i

color object 3, colMNeedle

delete mesh 1

rem --- Seconds needle ---

make object sphere 4, 0.3

make mesh from object 1, 4

for i = 1 to 26

add limb 4, i, 1

offset limb 4, i, 0.0, i/2.0, 0.0

next i

color object 4, colSNeedle

delete mesh 1

return

rem ------------------------------------------------------------------------------------------------------------------------

mainLoop:

theHour$ = get time$()

theH = val(mid$(theHour$,1)+mid$(theHour$,2))

theM = val(mid$(theHour$,4)+mid$(theHour$,5))

theS = val(mid$(theHour$,7)+mid$(theHour$,8))

if currentTick-baseTick <> theS

color limb 1, currentTick, colClock

currentTick = baseTick + theS

color limb 1, currentTick, colSNeedle

endif

theHAngle# = (theH mod 12) * 30.0

rotate object 3, 0.0, 0.0, -theHAngle#

theMAngle# = theM * 6.0

rotate object 2, 0.0, 0.0, -theMAngle#

theSAngle# = theS * 6.0

rotate object 4, 0.0, 0.0, -theSAngle#

center text screen width()/2,screen height()- 50,theHour$

return

rem ------------------------------------------------------------------------------------------------------------------------

Download

Please login to download

Comments

No comments yet.

Author Name:	exLRT
CodeBase Entries:	1

CodeBase - Another 12 hours clock

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments