freebsd-dev/contrib/ncurses/test/tclock.c
Peter Wemm 7a69bbfb27 Import ncurses-5.2-20010512 onto the vendor branch
Obtained from: ftp://dickey.his.com/ncurses/
2001-05-17 08:21:06 +00:00

231 lines
4.3 KiB
C

#include "test.priv.h"
#include <math.h>
#include <time.h>
/*
tclock - analog/digital clock for curses.
If it gives you joy, then
(a) I'm glad
(b) you need to get out more :-)
This program is copyright Howard Jones, September 1994
(ha.jones@ic.ac.uk). It may be freely distributed as
long as this copyright message remains intact, and any
modifications are clearly marked as such. [In fact, if
you modify it, I wouldn't mind the modifications back,
especially if they add any nice features. A good one
would be a precalc table for the 60 hand positions, so
that the floating point stuff can be ditched. As I said,
it was a 20 hackup minute job.]
COMING SOON: tfishtank. Be the envy of your mac-owning
colleagues.
*/
/* To compile: cc -o tclock tclock.c -lcurses -lm */
#ifndef PI
#define PI 3.141592654
#endif
#define sign(_x) (_x<0?-1:1)
#define ASPECT 2.2
#define ROUND(value) ((int)((value) + 0.5))
#define A2X(angle,radius) ROUND(ASPECT * radius * sin(angle))
#define A2Y(angle,radius) ROUND(radius * cos(angle))
/* Plot a point */
static void
plot(int x, int y, char col)
{
mvaddch(y, x, (chtype) col);
}
/* Draw a diagonal(arbitrary) line using Bresenham's alogrithm. */
static void
dline(int pair, int from_x, int from_y, int x2, int y2, char ch)
{
int dx, dy;
int ax, ay;
int sx, sy;
int x, y;
int d;
if (has_colors())
attrset(COLOR_PAIR(pair));
dx = x2 - from_x;
dy = y2 - from_y;
ax = abs(dx * 2);
ay = abs(dy * 2);
sx = sign(dx);
sy = sign(dy);
x = from_x;
y = from_y;
if (ax > ay) {
d = ay - (ax / 2);
while (1) {
plot(x, y, ch);
if (x == x2)
return;
if (d >= 0) {
y += sy;
d -= ax;
}
x += sx;
d += ay;
}
} else {
d = ax - (ay / 2);
while (1) {
plot(x, y, ch);
if (y == y2)
return;
if (d >= 0) {
x += sx;
d -= ay;
}
y += sy;
d += ax;
}
}
}
int
main(
int argc GCC_UNUSED,
char *argv[]GCC_UNUSED)
{
int i, cx, cy;
double cr, mradius, hradius, mangle, hangle;
double sangle, sradius, hours;
int hdx, hdy;
int mdx, mdy;
int sdx, sdy;
int ch;
int lastbeep = -1;
time_t tim;
struct tm *t;
char szChar[10];
int my_bg = COLOR_BLACK;
initscr();
noecho();
cbreak();
nodelay(stdscr, TRUE);
curs_set(0);
if (has_colors()) {
start_color();
#if HAVE_USE_DEFAULT_COLORS
if (use_default_colors() == OK)
my_bg = -1;
#endif
init_pair(1, COLOR_RED, my_bg);
init_pair(2, COLOR_MAGENTA, my_bg);
init_pair(3, COLOR_GREEN, my_bg);
}
#ifdef KEY_RESIZE
keypad(stdscr, TRUE);
restart:
#endif
cx = (COLS - 1) / 2; /* 39 */
cy = LINES / 2; /* 12 */
if (cx / ASPECT < cy)
cr = cx / ASPECT;
else
cr = cy;
sradius = (5 * cr) / 6; /* 10 */
mradius = (3 * cr) / 4; /* 9 */
hradius = cr / 2; /* 6 */
for (i = 0; i < 12; i++) {
sangle = (i + 1) * (2.0 * PI) / 12.0;
sdx = A2X(sangle, sradius);
sdy = A2Y(sangle, sradius);
sprintf(szChar, "%d", i + 1);
mvaddstr(cy - sdy, cx + sdx, szChar);
}
mvaddstr(0, 0, "ASCII Clock by Howard Jones (ha.jones@ic.ac.uk),1994");
sradius = (4 * sradius) / 5;
for (;;) {
napms(100);
tim = time(0);
t = localtime(&tim);
hours = (t->tm_hour + (t->tm_min / 60.0));
if (hours > 12.0)
hours -= 12.0;
mangle = ((t->tm_min) * (2 * PI) / 60.0);
mdx = A2X(mangle, mradius);
mdy = A2Y(mangle, mradius);
hangle = ((hours) * (2.0 * PI) / 12.0);
hdx = A2X(hangle, hradius);
hdy = A2Y(hangle, hradius);
sangle = ((t->tm_sec) * (2.0 * PI) / 60.0);
sdx = A2X(sangle, sradius);
sdy = A2Y(sangle, sradius);
dline(3, cx, cy, cx + mdx, cy - mdy, '#');
attrset(A_REVERSE);
dline(2, cx, cy, cx + hdx, cy - hdy, '.');
attroff(A_REVERSE);
if (has_colors())
attrset(COLOR_PAIR(1));
plot(cx + sdx, cy - sdy, 'O');
if (has_colors())
attrset(COLOR_PAIR(0));
mvaddstr(LINES - 2, 0, ctime(&tim));
refresh();
if ((t->tm_sec % 5) == 0
&& t->tm_sec != lastbeep) {
lastbeep = t->tm_sec;
beep();
}
if ((ch = getch()) != ERR) {
#ifdef KEY_RESIZE
if (ch == KEY_RESIZE) {
flash();
erase();
wrefresh(curscr);
goto restart;
}
#endif
break;
}
plot(cx + sdx, cy - sdy, ' ');
dline(0, cx, cy, cx + hdx, cy - hdy, ' ');
dline(0, cx, cy, cx + mdx, cy - mdy, ' ');
}
curs_set(1);
endwin();
return 0;
}