Advertisement
Jousway

Analog Clock

Jun 24th, 2012
221
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.33 KB | None | 0 0
  1. local t = Def.ActorFrame {
  2.     Name="Clock";
  3.     LoadActor("BLACK") .. {
  4.         InitCommand=cmd(y,SCREEN_CENTER_Y;x,SCREEN_CENTER_X);
  5.     };
  6.     LoadActor("Clock 4") .. {
  7.         InitCommand=cmd(y,SCREEN_CENTER_Y;x,SCREEN_CENTER_X);
  8.     };
  9.     LoadActor("Clock 3") .. {
  10.         Name="three";
  11.         InitCommand=cmd(y,SCREEN_CENTER_Y;x,SCREEN_CENTER_X;rotationz,rot3);
  12.     };
  13.     LoadActor("Clock 2") .. {
  14.         Name="two";
  15.         InitCommand=cmd(y,SCREEN_CENTER_Y;x,SCREEN_CENTER_X;rotationz,rot2);
  16.     };
  17.     Def.ActorFrame {
  18.         Name="one";
  19.         InitCommand=cmd(y,SCREEN_CENTER_Y;x,SCREEN_CENTER_X;rotationz,rot1);
  20.         LoadActor("Clock 1") .. {
  21.             Name="zero";
  22.             --InitCommand=cmd(queuecommand,"KawaiiAnimu");
  23.             KawaiiAnimuCommand=cmd(linear,0;addrotationz,-6;linear,1;addrotationz,6;queuecommand,"KawaiiAnimu");
  24.         };
  25.     };
  26.     LoadActor("Clock 0") .. {
  27.         InitCommand=cmd(y,SCREEN_CENTER_Y;x,SCREEN_CENTER_X);
  28.     };
  29. };
  30.  
  31.  
  32. local function Update(self)
  33.     local clock = self:GetChild("Clock");
  34.  
  35.     local AMPMSYS;
  36.     if Hour() >= 12 then AMPMSYS = Hour()-12; --Thanks Daisu !!
  37.     else AMPMSYS = Hour(); end;
  38.    
  39.     local rot1 = self:GetChild("one"):rotationz(Second()*6);
  40.     local rot2 = self:GetChild("two"):rotationz((Minute()*6)+(Second()/10));
  41.     local rot3 = self:GetChild("three"):rotationz((AMPMSYS*30)+(Minute()/2)+(Second()/120));
  42.    
  43. end;
  44.  
  45. t.InitCommand=cmd(SetUpdateFunction,Update);
  46.  
  47. return t;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement