1/* $Id: tclock.c,v 1.25 2005/04/16 16:39:27 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 */
53static void
54plot(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. */
60static void
61dline(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
117int
118main(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((chtype) (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}
259