LiveCode Forums.

Code: Select all

## Doesn't really matter, but its pretty common
## to use k names for constants
## s variable names for script locals (like these which are local to this whole script
## g variable names for globals
## t for temporary (1 pass through then gone) 
## and I think l (L) for handler local variables
## properties often start with a c (_c_ ustom property)
## makes it a little easier for others to jump in to your code 
## if its obvious what is what.  

local kCounter, kClockTicking
local kHour0, kMinute0, kSecond0

on preOpenCard
   ## I set the layer mode for the 3 hands graphics to Dynamic
   ## so that they get the benefit of the accelerated rendering
   ## did this in the property inspector for each. 
   set the acceleratedRendering of this stack to true
end preOpenCard

on mouseUp
   ##Untouched
   put the short name of the target into gObject
   switch gObject
      case "start"
         startTicking
         break
      case "stop"
         put false into kClockTicking
         break
   end switch
end mouseUp

on startTicking
   ## If the user clicked start multiple times there would be several 
   ## loops running at the same time giving strange behavoir, and if they
   ## click it enough times could cause a system slowdown (cpu bind)
   ## So I check to see if the clock is already ticking and if it is, exit from startTicking
   if kClockTicking then exit startTicking
   put true into kClockTicking
   ## No need to use send for the first call
   tickTheClock 
end startTicking

on tickTheClock
   ## If you want the dissolve effect to work, you would need to change
   ## the lock screen line to "lock screen for visual effect"
   lock screen 
   
   put the internet date into gInternetTime
   
   ## In this case no need to set the delimiter. 
   ## if you use word chunks it will work the same 
   ## as setting item delim to space and then getting item 5
   put word 5 of gInternetTime into gInternetHour
   
   ## Since the time was just retrieved, might as well put it 
   ## into the casio field, this way the time displayed and the
   ## time on the click will always be exactly the same.
   set the text of field "casio" to gInternetHour
   
   ## Uses your calculate the angle function
   ## Changed the function to accept a paremeter
   ## as before it returns a comma delimited list of angles
   put calculatetheangle(gInternetHour) into tAngles   
   
   ## Sets the angles for each
   set the angle of image "second" to item 3 of tAngles
   set the angle of image "minute" to item 2 of tAngles
   set the angle of image "hour" to item 1 of tAngles
   unlock screen with visual effect dissolve very fast
   if kClockTicking then send tickTheClock to me in 1 second
end tickTheClock

## Changed this function to accept a parameter g
function calculateTheAngle pVar
   set the itemDelimiter to ":"
   put item 1 of pVar into gHour
   put item 2 of pVar into gMinute
   put item 3 of pVar into gSecond
   
   ## Never was entirely sure what the kCounter stuff was for
   ## So its gone.  Also, since I like seeing numbers 
   ## in the 360 degree range, used mod 360 for 
   ## the hour since it can be up to 24 which gives angles
   ## beyond 360.  
   put -((gHour / 12) * 360) mod 360 into gHourAngle
   put -((gMinute / 60) * 360) into gMinuteAngle
   put -((gSecond / 60) * 360) into gSecondAngle
   ## If you decide you want a sweeping second hand
   ## you would need to increase the frequency of the send
   ## in ticktheclock and then round or trunc the values, and use the milliseconds
   ## for the angle calculations for each hand. 
   ## Since its incrementing to specific points that always hit 
   ## integers its not necessary. 
   
   put gHourAngle & comma & gMinuteAngle & comma & gSecondAngle into gResult
   return gResult
end calculateTheAngle

Code: Select all

## seconds calc is unchanged
   put -((gSecond / 60) * 360) into gSecondAngle

## minutes calc  adds a factor based on the current second hand angle / 60 to get the minutes adjustment
   put -((gMinute / 60) * 360) + round(gSecondAngle / 60) into gMinuteAngle

## same for hour adjust based on the current minute hand angle. 
   put -((gHour / 12) * 360) + round(gMinuteAngle / 60 ) into gHourAngle