libtest/rolex.c

   1 #include <math.h>
   2 #include <string.h>
   3 #include "windows.h"
   4
   5 char* AppName = "Rolex";
   6 char* WindowName = "Rolex";
   7 int WindowWidth = 100;
   8 int WindowHeight = 121;
   9 COLORREF FaceColor = RGB(192,192,192);
  10 COLORREF HandColor = RGB(0,0,0);
  11 COLORREF EtchColor = RGB(0,0,0);
  12
  13 float Pi=3.1415926;
  14
  15 typedef struct
  16 {
  17   int StartX,StartY,EndX,EndY;
  18 } HandData;
  19
  20 int MaxX,MaxY;
  21 HandData OldSecond,OldHour,OldMinute;
  22
  23 HWND HWindow;
  24
  25 void DrawFace(HDC dc)
  26 {
  27   int MidX, MidY, t;
  28
  29   MidX=MaxX/2;
  30   MidY=MaxY/2;
  31   SelectObject(dc,CreateSolidBrush(FaceColor));
  32   SelectObject(dc,CreatePen(PS_SOLID,1,EtchColor));
  33   Ellipse(dc,0,0,MaxX,MaxY);
  34
  35   for(t=0; t<12; t++)
  36   {
  37     MoveToEx(dc,MidX+sin(t*Pi/6)*0.9*MidX,MidY-cos(t*Pi/6)*0.9*MidY,NULL);
  38     LineTo(dc,MidX+sin(t*Pi/6)*0.8*MidX,MidY-cos(t*Pi/6)*0.8*MidY);
  39   }
  40   if(MaxX>64 && MaxY>64)
  41     for(t=0; t<60; t++)
  42       SetPixel(dc,MidX+sin(t*Pi/30)*0.9*MidX,MidY-cos(t*Pi/30)*0.9*MidY
  43                ,EtchColor);
  44   DeleteObject(SelectObject(dc,GetStockObject(NULL_BRUSH)));
  45   DeleteObject(SelectObject(dc,GetStockObject(NULL_PEN)));
  46   memset(&OldSecond,0,sizeof(OldSecond));
  47   memset(&OldMinute,0,sizeof(OldMinute));
  48   memset(&OldHour,0,sizeof(OldHour));
  49 }
  50
  51 void DrawHourHand(HDC dc)
  52 {
  53   MoveToEx(dc, OldHour.StartX, OldHour.StartY, NULL);
  54   LineTo(dc, OldHour.EndX, OldHour.EndY);
  55 }
  56
  57 void DrawMinuteHand(HDC dc)
  58 {
  59   MoveToEx(dc, OldMinute.StartX, OldMinute.StartY, NULL);
  60   LineTo(dc, OldMinute.EndX, OldMinute.EndY);
  61 }
  62
  63 void DrawSecondHand(HDC dc)
  64 {
  65   MoveToEx(dc, OldSecond.StartX, OldSecond.StartY, NULL);
  66   LineTo(dc, OldSecond.EndX, OldSecond.EndY);
  67 }
  68
  69 BOOL UpdateHourHand(HDC dc,int MidX,int MidY,int XExt,int YExt,WORD Pos)
  70 {
  71   int Sx, Sy, Ex, Ey;
  72   BOOL rv;
  73
  74   rv = FALSE;
  75   Sx = MidX; Sy = MidY;
  76   Ex = MidX+sin(Pos*Pi/6000)*XExt;
  77   Ey = MidY-cos(Pos*Pi/6000)*YExt;
  78   rv = ( Sx!=OldHour.StartX || Ex!=OldHour.EndX ||
  79          Sy!=OldHour.StartY || Ey!=OldHour.EndY );
  80   if(rv)DrawHourHand(dc);
  81   OldHour.StartX = Sx; OldHour.EndX = Ex;
  82   OldHour.StartY = Sy; OldHour.EndY = Ey;
  83   return rv;
  84 }
  85
  86 BOOL UpdateMinuteHand(HDC dc,int MidX,int MidY,int XExt,int YExt,WORD Pos)
  87 {
  88   int Sx, Sy, Ex, Ey;
  89   BOOL rv;
  90
  91   rv = FALSE;
  92   Sx = MidX; Sy = MidY;
  93   Ex = MidX+sin(Pos*Pi/30000)*XExt;
  94   Ey = MidY-cos(Pos*Pi/30000)*YExt;
  95   rv = ( Sx!=OldMinute.StartX || Ex!=OldMinute.EndX ||
  96          Sy!=OldMinute.StartY || Ey!=OldMinute.EndY );
  97   if(rv)DrawMinuteHand(dc);
  98   OldMinute.StartX = Sx; OldMinute.EndX = Ex;
  99   OldMinute.StartY = Sy; OldMinute.EndY = Ey;
 100   return rv;
 101 }
 102
 103 BOOL UpdateSecondHand(HDC dc,int MidX,int MidY,int XExt,int YExt,WORD Pos)
 104 {
 105   int Sx, Sy, Ex, Ey;
 106   BOOL rv;
 107
 108   rv = FALSE;
 109   Sx = MidX; Sy = MidY;
 110   Ex = MidX+sin(Pos*Pi/3000)*XExt;
 111   Ey = MidY-cos(Pos*Pi/3000)*YExt;
 112   rv = ( Sx!=OldSecond.StartX || Ex!=OldSecond.EndX ||
 113          Sy!=OldSecond.StartY || Ey!=OldSecond.EndY );
 114   if(rv)DrawSecondHand(dc);
 115   OldSecond.StartX = Sx; OldSecond.EndX = Ex;
 116   OldSecond.StartY = Sy; OldSecond.EndY = Ey;
 117   return rv;
 118 }
 119
 120 void Idle(HDC idc)
 121 {
 122   SYSTEMTIME st;
 123   WORD H, M, S, F;
 124   int MidX, MidY;
 125   HDC dc;
 126   BOOL Redraw;
 127
 128   if(idc)
 129     dc=idc;
 130   else
 131     dc=GetDC(HWindow);
 132   if(!dc)return;
 133
 134   GetLocalTime(&st);
 135   H = st.wHour;
 136   M = st.wMinute;
 137   S = st.wSecond;
 138   F = st.wMilliseconds / 10;
 139   F = F + S*100;
 140   M = M*1000+F/6;
 141   H = H*1000+M/60;
 142   MidX = MaxX/2;
 143   MidY = MaxY/2;
 144   SelectObject(dc,CreatePen(PS_SOLID,1,FaceColor));
 145   Redraw = FALSE;
 146   if(UpdateHourHand(dc,MidX,MidY,MidX*0.5,MidY*0.5,H)) Redraw = TRUE;
 147   if(UpdateMinuteHand(dc,MidX,MidY,MidX*0.65,MidY*0.65,M)) Redraw = TRUE;
 148   if(UpdateSecondHand(dc,MidX,MidY,MidX*0.79,MidY*0.79,F)) Redraw = TRUE;
 149   DeleteObject(SelectObject(dc,CreatePen(PS_SOLID,1,HandColor)));
 150   if(Redraw)
 151   {
 152     DrawSecondHand(dc);
 153     DrawMinuteHand(dc);
 154     DrawHourHand(dc);
 155   }
 156   DeleteObject(SelectObject(dc,GetStockObject(NULL_PEN)));
 157   if(!idc) ReleaseDC(HWindow,dc);
 158 }
 159
 160 LRESULT ProcessAppMsg(HWND wnd,UINT msg,WPARAM w,LPARAM l)
 161 {
 162   PAINTSTRUCT PaintInfo;
 163   HDC dc;
 164
 165   switch(msg)
 166   {
 167   case WM_PAINT:
 168     if(GetUpdateRect(wnd,NULL,FALSE))
 169     {
 170       dc=BeginPaint(wnd,&PaintInfo);
 171       DrawFace(dc);
 172       Idle(dc);
 173       EndPaint(wnd,&PaintInfo);
 174     }
 175     break;
 176
 177   case WM_SIZE:
 178     MaxX = LOWORD(l);
 179     MaxY = HIWORD(l);
 180     break;
 181
 182   case WM_DESTROY:
 183     PostQuitMessage (0);
 184     break;
 185
 186   default:
 187     return DefWindowProc (wnd, msg, w, l);
 188   }
 189   return 0l;
 190 }
 191
 192 WPARAM MessageLoop()
 193 {
 194   MSG msg;
 195
 196   while(1)
 197   {
 198     Sleep(1); /* sleep 1 millisecond */
 199     if(PeekMessage(&msg,0,0,0,PM_REMOVE))
 200     {
 201       if(msg.message == WM_QUIT) return msg.wParam;
 202       TranslateMessage(&msg);
 203       DispatchMessage(&msg);
 204     }
 205     else
 206       Idle(NULL);
 207   }
 208 }
 209
 210 int PASCAL WinMain (HANDLE inst, HANDLE prev, LPSTR cmdline, int show)
 211 {
 212   WNDCLASS class;
 213   if(!prev)
 214   {
 215     class.style = CS_HREDRAW | CS_VREDRAW;
 216     class.lpfnWndProc = ProcessAppMsg;
 217     class.cbClsExtra = 0;
 218     class.cbWndExtra = 0;
 219     class.hInstance  = inst;
 220     class.hIcon      = 0; /* Draw my own icon */
 221     class.hCursor    = LoadCursor (0, IDC_ARROW);
 222     class.hbrBackground = (HBRUSH)(COLOR_BACKGROUND + 1);
 223     class.lpszMenuName = 0;
 224     class.lpszClassName = AppName;
 225   }
 226   if (!RegisterClass (&class)) return -1;
 227
 228   HWindow=CreateWindowEx(WS_EX_TOPMOST,AppName,WindowName,WS_OVERLAPPEDWINDOW,
 229                          CW_USEDEFAULT,CW_USEDEFAULT,WindowWidth,WindowHeight,
 230                          0,0,inst,0);
 231   memset(&OldSecond,0,sizeof(OldSecond));
 232   memset(&OldMinute,0,sizeof(OldMinute));
 233   memset(&OldHour,0,sizeof(OldHour));
 234   MaxX = WindowWidth;
 235   MaxY = WindowHeight;
 236
 237   ShowWindow (HWindow, show);
 238   UpdateWindow (HWindow);
 239
 240   return MessageLoop();
 241 }