summaryrefslogtreecommitdiff
path: root/ncurses-5.3/test/newdemo.c
diff options
context:
space:
mode:
Diffstat (limited to 'ncurses-5.3/test/newdemo.c')
-rw-r--r--ncurses-5.3/test/newdemo.c358
1 files changed, 0 insertions, 358 deletions
diff --git a/ncurses-5.3/test/newdemo.c b/ncurses-5.3/test/newdemo.c
deleted file mode 100644
index ee7e8a2..0000000
--- a/ncurses-5.3/test/newdemo.c
+++ /dev/null
@@ -1,358 +0,0 @@
-/*
- * newdemo.c - A demo program using PDCurses. The program illustrate
- * the use of colours for text output.
- *
- * $Id$
- */
-
-#include <time.h>
-
-#include <test.priv.h>
-
-#define delay_output(x) napms(x)
-
-/*
- * The Australian map
- */
-const char *AusMap[16] =
-{
- " A A ",
- " N.T. AAAAA AAAA ",
- " AAAAAAAAAAA AAAAAAAA ",
- " AAAAAAAAAAAAAAAAAAAAAAAAA Qld.",
- "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
- "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
- " AAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
- " AAAAAAAAAAAAAAAAAAAAAAAAA N.S.W.",
- "W.A. AAAAAAAAA AAAAAA Vic.",
- " AAA S.A. AA",
- " A Tas.",
- ""
-};
-
-/*
- * Funny messages
- */
-#define NMESSAGES 6
-
-NCURSES_CONST char *messages[] =
-{
- "Hello from the Land Down Under",
- "The Land of crocs. and a big Red Rock",
- "Where the sunflower runs along the highways",
- "the dusty red roads lead one to loneliness",
- "Blue sky in the morning and",
- "freezing nights and twinkling stars",
- ""
-};
-
-/*
- * Trap interrupt
- */
-static RETSIGTYPE
-trap(int sig GCC_UNUSED)
-{
- endwin();
- ExitProgram(EXIT_FAILURE);
-}
-
-/*
- * Wait for user
- */
-static int
-WaitForUser(WINDOW *win)
-{
- time_t t;
- chtype key;
-
- nodelay(win, TRUE);
- t = time((time_t *) 0);
- while (1) {
- if ((int) (key = wgetch(win)) != ERR) {
- if (key == 'q' || key == 'Q')
- return 1;
- else
- return 0;
- }
- if (time((time_t *) 0) - t > 5)
- return 0;
- }
-}
-
-static void
-set_colors(WINDOW *win, int pair, int foreground, int background)
-{
- if (has_colors()) {
- if (pair > COLOR_PAIRS)
- pair = COLOR_PAIRS;
- init_pair(pair, foreground, background);
- wattrset(win, COLOR_PAIR(pair));
- }
-}
-
-static int
-use_colors(WINDOW *win, int pair, int attrs)
-{
- if (has_colors()) {
- if (pair > COLOR_PAIRS)
- pair = COLOR_PAIRS;
- attrs |= COLOR_PAIR(pair);
- }
- wattrset(win, attrs);
- return attrs;
-}
-
-/*
- * Test sub windows
- */
-static int
-SubWinTest(WINDOW *win)
-{
- int w, h, sw, sh, bx, by;
- WINDOW *swin1, *swin2, *swin3;
-
- getmaxyx(win, h, w);
- getbegyx(win, by, bx);
- sw = w / 3;
- sh = h / 3;
- if ((swin1 = subwin(win, sh, sw, by + 3, bx + 5)) == NULL)
- return 1;
- if ((swin2 = subwin(win, sh, sw, by + 4, bx + 8)) == NULL)
- return 1;
- if ((swin3 = subwin(win, sh, sw, by + 5, bx + 11)) == NULL)
- return 1;
-
- set_colors(swin1, 8, COLOR_RED, COLOR_BLUE);
- werase(swin1);
- mvwaddstr(swin1, 0, 3, "Sub-window 1");
- wrefresh(swin1);
-
- set_colors(swin2, 9, COLOR_CYAN, COLOR_MAGENTA);
- werase(swin2);
- mvwaddstr(swin2, 0, 3, "Sub-window 2");
- wrefresh(swin2);
-
- set_colors(swin3, 10, COLOR_YELLOW, COLOR_GREEN);
- werase(swin3);
- mvwaddstr(swin3, 0, 3, "Sub-window 3");
- wrefresh(swin3);
-
- delwin(swin1);
- delwin(swin2);
- delwin(swin3);
- WaitForUser(win);
- return 0;
-}
-
-static int
-bounce(int n, int *dir, int len)
-{
- if (*dir > 0)
- ++n;
- else
- --n;
- if (n <= 1 || n >= len - 2)
- *dir = *dir ? 0 : 1;
- return n;
-}
-
-/*
- * Bouncing balls
- */
-static int
-BouncingBalls(WINDOW *win)
-{
- int w, h;
- int x1, y1, xd1, yd1;
- int x2, y2, xd2, yd2;
- int x3, y3, xd3, yd3;
-
- getmaxyx(win, h, w);
-
- x1 = 2 + rand() % (w - 4);
- y1 = 2 + rand() % (h - 4);
- x2 = 2 + rand() % (w - 4);
- y2 = 2 + rand() % (h - 4);
- x3 = 2 + rand() % (w - 4);
- y3 = 2 + rand() % (h - 4);
-
- xd1 = 1;
- yd1 = 1;
- xd2 = 1;
- yd2 = 0;
- xd3 = 0;
- yd3 = 1;
-
- nodelay(win, TRUE);
-
- while (wgetch(win) == ERR) {
- x1 = bounce(x1, &xd1, w);
- y1 = bounce(y1, &yd1, h);
- x2 = bounce(x2, &xd2, w);
- y2 = bounce(y2, &yd2, h);
- x3 = bounce(x3, &xd3, w);
- y3 = bounce(y3, &yd3, h);
-
- set_colors(win, 11, COLOR_RED, COLOR_BLUE);
- mvwaddch(win, y1, x1, 'O');
-
- set_colors(win, 12, COLOR_BLUE, COLOR_RED);
- mvwaddch(win, y2, x2, '*');
-
- set_colors(win, 13, COLOR_YELLOW, COLOR_WHITE);
- mvwaddch(win, y3, x3, '@');
-
- wmove(win, 0, 0);
- wrefresh(win);
- delay_output(100);
- }
- return 0;
-}
-
-/*
- * Main driver
- */
-int
-main(int argc GCC_UNUSED, char *argv[]GCC_UNUSED)
-{
- WINDOW *win;
- int w, x, y, i, j, k;
- char buffer[200];
- const char *message;
- int width, height;
- chtype save[80];
- chtype c;
-
- setlocale(LC_ALL, "");
-
- initscr();
- if (has_colors())
- start_color();
- cbreak();
- curs_set(0);
- signal(SIGINT, trap);
- width = 48;
- height = 14; /* Create a drawing window */
- win = newwin(height, width, (LINES - height) / 2, (COLS - width) / 2);
- if (win == NULL) {
- endwin();
- ExitProgram(EXIT_FAILURE);
- }
-
- while (1) {
- set_colors(win, 1, COLOR_WHITE, COLOR_BLUE);
- werase(win);
-
- set_colors(win, 2, COLOR_RED, COLOR_RED);
- box(win, ACS_VLINE, ACS_HLINE);
- wrefresh(win);
- /* Do ramdom output of a character */
- use_colors(win, 1, A_NORMAL);
- c = 'a';
- for (i = 0; i < 5000; ++i) {
- x = rand() % (width - 2) + 1;
- y = rand() % (height - 2) + 1;
- mvwaddch(win, y, x, c);
- wrefresh(win);
- nodelay(win, TRUE);
- if (wgetch(win) != ERR)
- break;
- if (i == 2000) {
- c = 'b';
- set_colors(win, 3, COLOR_CYAN, COLOR_YELLOW);
- }
- }
-
- SubWinTest(win);
- /* Erase and draw green window */
- set_colors(win, 4, COLOR_YELLOW, COLOR_GREEN);
- wbkgd(win, use_colors(win, 4, A_BOLD));
- werase(win);
- wrefresh(win);
- /* Draw RED bounding box */
- use_colors(win, 2, A_NORMAL);
- box(win, ' ', ' ');
- wrefresh(win);
- /* Display Australia map */
- use_colors(win, 4, A_BOLD);
- i = 0;
- while (*AusMap[i]) {
- mvwaddstr(win, i + 1, 8, AusMap[i]);
- wrefresh(win);
- delay_output(50);
- ++i;
- }
-
- set_colors(win, 5, COLOR_BLUE, COLOR_WHITE);
- use_colors(win, 5, A_BLINK);
- mvwaddstr(win, height - 2, 6, " PDCurses 2.1 for DOS, OS/2 and Unix");
- wrefresh(win);
-
- /* Draw running messages */
- set_colors(win, 6, COLOR_YELLOW, COLOR_WHITE);
- message = messages[j = 0];
- i = 1;
- w = width - 2;
- strcpy(buffer, message);
- while (j < NMESSAGES) {
- while ((int) strlen(buffer) < w) {
- strcat(buffer, " ... ");
- strcat(buffer, messages[++j % NMESSAGES]);
- }
-
- if (i < w)
- mvwaddnstr(win, height / 2, w - i, buffer, i);
- else
- mvwaddnstr(win, height / 2, 1, buffer, w);
-
- wrefresh(win);
- nodelay(win, TRUE);
- if (wgetch(win) != ERR) {
- flushinp();
- break;
- }
- if (i++ >= w) {
- for (k = 0; (buffer[k] = buffer[k + 1]) != '\0'; k++) ;
- }
- delay_output(100);
- }
-
- j = 0;
- /* Draw running As across in RED */
- set_colors(win, 7, COLOR_RED, COLOR_GREEN);
- for (i = 2; i < width - 4; ++i) {
- k = mvwinch(win, 4, i);
- if (k == ERR)
- break;
- save[j++] = c = k;
- c &= A_CHARTEXT;
- mvwaddch(win, 4, i, c);
- }
- wrefresh(win);
-
- /* Put a message up wait for a key */
- i = height - 2;
- use_colors(win, 5, A_NORMAL);
- mvwaddstr(win, i, 5, " Type a key to continue or 'Q' to quit ");
- wrefresh(win);
-
- if (WaitForUser(win) == 1)
- break;
-
- j = 0; /* Restore the old line */
- for (i = 2; i < width - 4; ++i)
- mvwaddch(win, 4, i, save[j++]);
- wrefresh(win);
-
- BouncingBalls(win);
- /* Put a message up wait for a key */
- i = height - 2;
- use_colors(win, 5, A_NORMAL);
- mvwaddstr(win, i, 5, " Type a key to continue or 'Q' to quit ");
- wrefresh(win);
- if (WaitForUser(win) == 1)
- break;
- }
- endwin();
- ExitProgram(EXIT_SUCCESS);
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-07 07:23:26 +0000