ncurses 5.6 - patch 20070414
[ncurses.git] / test / rain.c
index c0b39041680bc02979650739f8b0c5f29bb484eb..f2c748eafb599354ed244900378c35dc3c2e4f6b 100644 (file)
+/****************************************************************************
+ * Copyright (c) 1998-2002,2006 Free Software Foundation, Inc.              *
+ *                                                                          *
+ * Permission is hereby granted, free of charge, to any person obtaining a  *
+ * copy of this software and associated documentation files (the            *
+ * "Software"), to deal in the Software without restriction, including      *
+ * without limitation the rights to use, copy, modify, merge, publish,      *
+ * distribute, distribute with modifications, sublicense, and/or sell       *
+ * copies of the Software, and to permit persons to whom the Software is    *
+ * furnished to do so, subject to the following conditions:                 *
+ *                                                                          *
+ * The above copyright notice and this permission notice shall be included  *
+ * in all copies or substantial portions of the Software.                   *
+ *                                                                          *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
+ * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
+ * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
+ * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
+ * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
+ * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
+ *                                                                          *
+ * Except as contained in this notice, the name(s) of the above copyright   *
+ * holders shall not be used in advertising or otherwise to promote the     *
+ * sale, use or other dealings in this Software without prior written       *
+ * authorization.                                                           *
+ ****************************************************************************/
 /*
- * $Id: rain.c,v 1.8 1997/05/03 18:38:27 tom Exp $
+ * $Id: rain.c,v 1.22 2006/05/20 15:34:27 tom Exp $
  */
 #include <test.priv.h>
 
-#include <term.h>      /* for tparm() */
-
-#include <signal.h>
-
 /* rain 11/3/1980 EPS/CITHEP */
 
-#define cursor(col,row) move(row,col)
-
 static float ranf(void);
 static void onsig(int sig);
 
+static int
+next_j(int j)
+{
+    if (j == 0)
+       j = 4;
+    else
+       --j;
+    if (has_colors()) {
+       int z = (int) (3 * ranf());
+       chtype color = COLOR_PAIR(z);
+       if (z)
+           color |= A_BOLD;
+       attrset(color);
+    }
+    return j;
+}
+
 int
 main(
        int argc GCC_UNUSED,
-       char *argv[] GCC_UNUSED)
+       char *argv[]GCC_UNUSED)
 {
-int x, y, j;
-static int xpos[5], ypos[5];
-float r;
-float c;
+    int x, y, j;
+    static int xpos[5], ypos[5];
+    float r;
+    float c;
+
+    setlocale(LC_ALL, "");
 
-    for (j=SIGHUP;j<=SIGTERM;j++)
-       if (signal(j,SIG_IGN)!=SIG_IGN) signal(j,onsig);
+    CATCHALL(onsig);
 
     initscr();
+    if (has_colors()) {
+       int bg = COLOR_BLACK;
+       start_color();
+#if HAVE_USE_DEFAULT_COLORS
+       if (use_default_colors() == OK)
+           bg = -1;
+#endif
+       init_pair(1, COLOR_BLUE, bg);
+       init_pair(2, COLOR_CYAN, bg);
+    }
     nl();
     noecho();
     curs_set(0);
+    timeout(0);
 
-    r = (float)(LINES - 4);
-    c = (float)(COLS - 4);
-    for (j=5;--j>=0;) {
-               xpos[j]=(int)(c* ranf())+2;
-               ypos[j]=(int)(r* ranf())+2;
+    r = (float) (LINES - 4);
+    c = (float) (COLS - 4);
+    for (j = 5; --j >= 0;) {
+       xpos[j] = (int) (c * ranf()) + 2;
+       ypos[j] = (int) (r * ranf()) + 2;
     }
-    for (j=0;;) {
-               x=(int)(c*ranf())+2;
-               y=(int)(r*ranf())+2;
-
-               cursor(x,y); addch('.');
-
-               cursor(xpos[j],ypos[j]); addch('o');
-
-               if (j==0) j=4; else --j;
-               cursor(xpos[j],ypos[j]); addch('O');
-
-               if (j==0) j=4; else --j;
-               cursor(xpos[j],ypos[j]-1);
-               addch('-');
-               cursor(xpos[j]-1,ypos[j]);
-               addstr("|.|");
-               cursor(xpos[j],ypos[j]+1);
-               addch('-');
-
-               if (j==0) j=4; else --j;
-               cursor(xpos[j],ypos[j]-2);
-               addch('-');
-               cursor(xpos[j]-1,ypos[j]-1);
-               addstr("/ \\");
-               cursor(xpos[j]-2,ypos[j]);
-               addstr("| O |");
-               cursor(xpos[j]-1,ypos[j]+1);
-               addstr("\\ /");
-               cursor(xpos[j],ypos[j]+2);
-               addch('-');
-
-               if (j==0) j=4; else --j;
-               cursor(xpos[j],ypos[j]-2);
-               addch(' ');
-               cursor(xpos[j]-1,ypos[j]-1);
-               addstr("   ");
-               cursor(xpos[j]-2,ypos[j]);
-               addstr("     ");
-               cursor(xpos[j]-1,ypos[j]+1);
-               addstr("   ");
-               cursor(xpos[j],ypos[j]+2);
-               addch(' ');
-               xpos[j]=x; ypos[j]=y;
-               refresh();
-               napms(50);
+
+    for (j = 0;;) {
+       x = (int) (c * ranf()) + 2;
+       y = (int) (r * ranf()) + 2;
+
+       mvaddch(y, x, '.');
+
+       mvaddch(ypos[j], xpos[j], 'o');
+
+       j = next_j(j);
+       mvaddch(ypos[j], xpos[j], 'O');
+
+       j = next_j(j);
+       mvaddch(ypos[j] - 1, xpos[j], '-');
+       mvaddstr(ypos[j], xpos[j] - 1, "|.|");
+       mvaddch(ypos[j] + 1, xpos[j], '-');
+
+       j = next_j(j);
+       mvaddch(ypos[j] - 2, xpos[j], '-');
+       mvaddstr(ypos[j] - 1, xpos[j] - 1, "/ \\");
+       mvaddstr(ypos[j], xpos[j] - 2, "| O |");
+       mvaddstr(ypos[j] + 1, xpos[j] - 1, "\\ /");
+       mvaddch(ypos[j] + 2, xpos[j], '-');
+
+       j = next_j(j);
+       mvaddch(ypos[j] - 2, xpos[j], ' ');
+       mvaddstr(ypos[j] - 1, xpos[j] - 1, "   ");
+       mvaddstr(ypos[j], xpos[j] - 2, "     ");
+       mvaddstr(ypos[j] + 1, xpos[j] - 1, "   ");
+       mvaddch(ypos[j] + 2, xpos[j], ' ');
+
+       xpos[j] = x;
+       ypos[j] = y;
+
+       switch (getch()) {
+       case ('q'):
+       case ('Q'):
+           curs_set(1);
+           endwin();
+           ExitProgram(EXIT_SUCCESS);
+       case 's':
+           nodelay(stdscr, FALSE);
+           break;
+       case ' ':
+           nodelay(stdscr, TRUE);
+           break;
+#ifdef KEY_RESIZE
+       case (KEY_RESIZE):
+           r = (float) (LINES - 4);
+           c = (float) (COLS - 4);
+           break;
+#endif
+       }
+       napms(50);
     }
 }
 
@@ -91,16 +150,12 @@ onsig(int n GCC_UNUSED)
 {
     curs_set(1);
     endwin();
-    exit(EXIT_FAILURE);
+    ExitProgram(EXIT_FAILURE);
 }
 
 static float
 ranf(void)
 {
-    float rv;
-    long r = rand();
-
-    r &= 077777;
-    rv =((float)r/32767.);
-    return rv;
+    long r = (rand() & 077777);
+    return ((float) r / 32768.);
 }