contrib/ncurses-5.4/test/tclock.c

   1 /* $Id: tclock.c,v 1.24 2002/12/29 01:40:30 tom Exp $ */
   2
   3 #include <test.priv.h>
   4
   5 #include <math.h>
   6
   7 #if TIME_WITH_SYS_TIME
   8 # include <sys/time.h>
   9 # include <time.h>
  10 #else
  11 # if HAVE_SYS_TIME_H
  12 #  include <sys/time.h>
  13 # else
  14 #  include <time.h>
  15 # endif
  16 #endif
  17
  18 /*
  19   tclock - analog/digital clock for curses.
  20   If it gives you joy, then
  21   (a) I'm glad
  22   (b) you need to get out more :-)
  23
  24   This program is copyright Howard Jones, September 1994
  25   (ha.jones@ic.ac.uk). It may be freely distributed as
  26   long as this copyright message remains intact, and any
  27   modifications are clearly marked as such. [In fact, if
  28   you modify it, I wouldn't mind the modifications back,
  29   especially if they add any nice features. A good one
  30   would be a precalc table for the 60 hand positions, so
  31   that the floating point stuff can be ditched. As I said,
  32   it was a 20 hackup minute job.]
  33
  34   COMING SOON: tfishtank. Be the envy of your mac-owning
  35   colleagues.
  36 */
  37
  38 /* To compile: cc -o tclock tclock.c -lcurses -lm */
  39
  40 #ifndef PI
  41 #define PI 3.141592654
  42 #endif
  43
  44 #define sign(_x) (_x<0?-1:1)
  45
  46 #define ASPECT 2.2
  47 #define ROUND(value) ((int)((value) + 0.5))
  48
  49 #define A2X(angle,radius) ROUND(ASPECT * radius * sin(angle))
  50 #define A2Y(angle,radius) ROUND(radius * cos(angle))
  51
  52 /* Plot a point */
  53 static void
  54 plot(int x, int y, char col)
  55 {
  56     mvaddch(y, x, (chtype) col);
  57 }
  58
  59 /* Draw a diagonal(arbitrary) line using Bresenham's alogrithm. */
  60 static void
  61 dline(int pair, int from_x, int from_y, int x2, int y2, char ch)
  62 {
  63     int dx, dy;
  64     int ax, ay;
  65     int sx, sy;
  66     int x, y;
  67     int d;
  68
  69     if (has_colors())
  70         attrset(COLOR_PAIR(pair));
  71
  72     dx = x2 - from_x;
  73     dy = y2 - from_y;
  74
  75     ax = abs(dx * 2);
  76     ay = abs(dy * 2);
  77
  78     sx = sign(dx);
  79     sy = sign(dy);
  80
  81     x = from_x;
  82     y = from_y;
  83
  84     if (ax > ay) {
  85         d = ay - (ax / 2);
  86
  87         while (1) {
  88             plot(x, y, ch);
  89             if (x == x2)
  90                 return;
  91
  92             if (d >= 0) {
  93                 y += sy;
  94                 d -= ax;
  95             }
  96             x += sx;
  97             d += ay;
  98         }
  99     } else {
 100         d = ax - (ay / 2);
 101
 102         while (1) {
 103             plot(x, y, ch);
 104             if (y == y2)
 105                 return;
 106
 107             if (d >= 0) {
 108                 x += sx;
 109                 d -= ay;
 110             }
 111             y += sy;
 112             d += ax;
 113         }
 114     }
 115 }
 116
 117 int
 118 main(int argc GCC_UNUSED, char *argv[]GCC_UNUSED)
 119 {
 120     int i, cx, cy;
 121     double cr, mradius, hradius, mangle, hangle;
 122     double sangle, sradius, hours;
 123     int hdx, hdy;
 124     int mdx, mdy;
 125     int sdx, sdy;
 126     int ch;
 127     int lastbeep = -1;
 128     bool odd = FALSE;
 129     time_t tim;
 130     struct tm *t;
 131     char szChar[10];
 132     char *text;
 133     int my_bg = COLOR_BLACK;
 134 #if HAVE_GETTIMEOFDAY
 135     struct timeval current;
 136     double fraction = 0.0;
 137 #endif
 138
 139     setlocale(LC_ALL, "");
 140
 141     initscr();
 142     noecho();
 143     cbreak();
 144     nodelay(stdscr, TRUE);
 145     curs_set(0);
 146
 147     if (has_colors()) {
 148         start_color();
 149 #if HAVE_USE_DEFAULT_COLORS
 150         if (use_default_colors() == OK)
 151             my_bg = -1;
 152 #endif
 153         init_pair(1, COLOR_RED, my_bg);
 154         init_pair(2, COLOR_MAGENTA, my_bg);
 155         init_pair(3, COLOR_GREEN, my_bg);
 156         init_pair(4, COLOR_WHITE, COLOR_BLUE);
 157     }
 158 #ifdef KEY_RESIZE
 159     keypad(stdscr, TRUE);
 160   restart:
 161 #endif
 162     cx = (COLS - 1) / 2;        /* 39 */
 163     cy = LINES / 2;             /* 12 */
 164     if (cx / ASPECT < cy)
 165         cr = cx / ASPECT;
 166     else
 167         cr = cy;
 168     sradius = (5 * cr) / 6;     /* 10 */
 169     mradius = (3 * cr) / 4;     /* 9 */
 170     hradius = cr / 2;           /* 6 */
 171
 172     for (i = 0; i < 12; i++) {
 173         sangle = (i + 1) * (2.0 * PI) / 12.0;
 174         sdx = A2X(sangle, sradius);
 175         sdy = A2Y(sangle, sradius);
 176         sprintf(szChar, "%d", i + 1);
 177
 178         mvaddstr(cy - sdy, cx + sdx, szChar);
 179     }
 180
 181     mvaddstr(0, 0, "ASCII Clock by Howard Jones (ha.jones@ic.ac.uk),1994");
 182
 183     sradius = (4 * sradius) / 5;
 184     for (;;) {
 185         napms(100);
 186
 187         tim = time(0);
 188         t = localtime(&tim);
 189
 190         hours = (t->tm_hour + (t->tm_min / 60.0));
 191         if (hours > 12.0)
 192             hours -= 12.0;
 193
 194         mangle = ((t->tm_min + (t->tm_sec / 60.0)) * (2 * PI) / 60.0);
 195         mdx = A2X(mangle, mradius);
 196         mdy = A2Y(mangle, mradius);
 197
 198         hangle = ((hours) * (2.0 * PI) / 12.0);
 199         hdx = A2X(hangle, hradius);
 200         hdy = A2Y(hangle, hradius);
 201
 202 #if HAVE_GETTIMEOFDAY
 203         gettimeofday(&current, 0);
 204         fraction = (current.tv_usec / 1.0e6);
 205 #endif
 206         sangle = ((t->tm_sec + fraction) * (2.0 * PI) / 60.0);
 207         sdx = A2X(sangle, sradius);
 208         sdy = A2Y(sangle, sradius);
 209
 210         dline(3, cx, cy, cx + mdx, cy - mdy, '#');
 211
 212         attrset(A_REVERSE);
 213         dline(2, cx, cy, cx + hdx, cy - hdy, '.');
 214         attroff(A_REVERSE);
 215
 216         if (has_colors())
 217             attrset(COLOR_PAIR(1));
 218
 219         dline(1, cx, cy, cx + sdx, cy - sdy, 'O');
 220
 221         if (has_colors())
 222             attrset(COLOR_PAIR(0));
 223
 224         text = ctime(&tim);
 225         mvprintw(2, 0, "%.*s", (int) (strlen(text) - 1), text);
 226         refresh();
 227         if ((t->tm_sec % 5) == 0
 228             && t->tm_sec != lastbeep) {
 229             lastbeep = t->tm_sec;
 230             if (has_colors()) {
 231                 odd = !odd;
 232                 bkgd(odd ? COLOR_PAIR(4) : COLOR_PAIR(0));
 233             }
 234             beep();
 235         }
 236
 237         if ((ch = getch()) != ERR) {
 238 #ifdef KEY_RESIZE
 239             if (ch == KEY_RESIZE) {
 240                 flash();
 241                 erase();
 242                 wrefresh(curscr);
 243                 goto restart;
 244             }
 245 #endif
 246             break;
 247         }
 248
 249         dline(0, cx, cy, cx + hdx, cy - hdy, ' ');
 250         dline(0, cx, cy, cx + mdx, cy - mdy, ' ');
 251         dline(0, cx, cy, cx + sdx, cy - sdy, ' ');
 252
 253     }
 254
 255     curs_set(1);
 256     endwin();
 257     ExitProgram(EXIT_SUCCESS);
 258 }