/* -*- Mode: C; tab-width: 4 -*- */ /* mountain -- square grid mountains */ #if 0 static const char sccsid[] = "@(#)mountain.c 5.00 2000/11/01 xlockmore"; #endif /*- * Copyright (c) 1995 Pascal Pensa * * Permission to use, copy, modify, and distribute this software and its * documentation for any purpose and without fee is hereby granted, * provided that the above copyright notice appear in all copies and that * both that copyright notice and this permission notice appear in * supporting documentation. * * This file is provided AS IS with no warranties of any kind. The author * shall have no liability with respect to the infringement of copyrights, * trade secrets or any patents by this file or any part thereof. In no * event will the author be liable for any lost revenue or profits or * other special, indirect and consequential damages. * * Revision History: * 01-Nov-2000: Allocation checks * 10-May-1997: Compatible with xscreensaver * 1995: Written */ #ifdef STANDALONE # define MODE_mountain #define DEFAULTS "*delay: 20000 \n" \ "*count: 30 \n" \ "*cycles: 4000 \n" \ "*ncolors: 64 \n" \ "*fpsSolid: true \n" \ # define SMOOTH_COLORS # define release_mountain 0 # define reshape_mountain 0 # define mountain_handle_event 0 # include "xlockmore.h" /* in xscreensaver distribution */ #else /* STANDALONE */ # include "xlock.h" /* in xlockmore distribution */ #endif /* STANDALONE */ #ifdef MODE_mountain ENTRYPOINT ModeSpecOpt mountain_opts = {0, (XrmOptionDescRec *) NULL, 0, (argtype *) NULL, (OptionStruct *) NULL}; #ifdef USE_MODULES ModStruct mountain_description = {"mountain", "init_mountain", "draw_mountain", (char *) NULL, "refresh_mountain", "init_mountain", "free_mountain", &mountain_opts, 1000, 30, 4000, 1, 64, 1.0, "", "Shows Papo's mountain range", 0, NULL}; #endif /* ~ 5000 Max mountain height (1000 - 10000) */ #define MAXHEIGHT (3 * (mp->width + mp->height)) #define WORLDWIDTH 50 /* World size x * y */ #define RANGE_RAND(min,max) ((min) + NRAND((max) - (min))) typedef struct { int pixelmode; int width; int height; int x, y; int offset; int stage; int h[WORLDWIDTH][WORLDWIDTH]; long time; /* up time */ Bool wireframe; Bool joke; GC stippledGC; } mountainstruct; static mountainstruct *mountains = (mountainstruct *) NULL; static void spread(int (*m)[50], int x, int y) { int x2, y2; int h = m[x][y]; for (y2 = y - 1; y2 <= y + 1; y2++) for (x2 = x - 1; x2 <= x + 1; x2++) if (x2 >= 0 && y2 >= 0 && x2 < WORLDWIDTH && y2 < WORLDWIDTH) m[x2][y2] = (m[x2][y2] + h) / 2; } static void drawamountain(ModeInfo * mi) { Display *display = MI_DISPLAY(mi); Window window = MI_WINDOW(mi); GC gc = MI_GC(mi); mountainstruct *mp = &mountains[MI_SCREEN(mi)]; int x2, y2, x3, y3, y4, y5, c = 0; XPoint p[5]; if (MI_NPIXELS(mi) > 2) { c = (mp->h[mp->x][mp->y] + mp->h[mp->x + 1][mp->y] + mp->h[mp->x][mp->y + 1] + mp->h[mp->x + 1][mp->y + 1]) / 4; c = (c / 10 + mp->offset) % MI_NPIXELS(mi); } x2 = mp->x * (2 * mp->width) / (3 * WORLDWIDTH); y2 = mp->y * (2 * mp->height) / (3 * WORLDWIDTH); p[0].x = (x2 - y2 / 2) + (mp->width / 4); p[0].y = (y2 - mp->h[mp->x][mp->y]) + mp->height / 4; x3 = (mp->x + 1) * (2 * mp->width) / (3 * WORLDWIDTH); y3 = mp->y * (2 * mp->height) / (3 * WORLDWIDTH); p[1].x = (x3 - y3 / 2) + (mp->width / 4); p[1].y = (y3 - mp->h[mp->x + 1][mp->y]) + mp->height / 4; y4 = (mp->y + 1) * (2 * mp->height) / (3 * WORLDWIDTH); p[2].x = (x3 - y4 / 2) + (mp->width / 4); p[2].y = (y4 - mp->h[mp->x + 1][mp->y + 1]) + mp->height / 4; y5 = (mp->y + 1) * (2 * mp->height) / (3 * WORLDWIDTH); p[3].x = (x2 - y5 / 2) + (mp->width / 4); p[3].y = (y5 - mp->h[mp->x][mp->y + 1]) + mp->height / 4; p[4].x = p[0].x; p[4].y = p[0].y; if (MI_NPIXELS(mi) > 2) XSetForeground(display, gc, MI_PIXEL(mi, c)); else XSetForeground(display, gc, MI_WHITE_PIXEL(mi)); if (mp->joke) { if ((Bool) (LRAND() & 1)) XDrawLines(display, window, gc, p, 5, CoordModeOrigin); else { XFillPolygon(display, window, gc, p, 4, Complex, CoordModeOrigin); if (!mp->pixelmode) { XSetForeground(display, gc, MI_BLACK_PIXEL(mi)); XDrawLines(display, window, gc, p, 5, CoordModeOrigin); } } } else { if (mp->wireframe) { XDrawLines(display, window, gc, p, 5, CoordModeOrigin); } else { XFillPolygon(display, window, gc, p, 4, Complex, CoordModeOrigin); if (!mp->pixelmode) { XSetForeground(display, gc, MI_BLACK_PIXEL(mi)); XDrawLines(display, window, gc, p, 5, CoordModeOrigin); } } } mp->x++; if (mp->x == WORLDWIDTH - 1) { mp->y++; mp->x = 0; } if (mp->y == WORLDWIDTH - 1) mp->stage++; } ENTRYPOINT void init_mountain (ModeInfo * mi) { int i, j, x, y; XGCValues gcv; mountainstruct *mp; MI_INIT (mi, mountains); mp = &mountains[MI_SCREEN(mi)]; mp->width = MI_WIDTH(mi); mp->height = MI_HEIGHT(mi); mp->pixelmode = (mp->width + mp->height < 200); mp->stage = 0; mp->time = 0; mp->x = mp->y = 0; if (MI_IS_FULLRANDOM(mi)) { mp->joke = (Bool) (NRAND(10) == 0); mp->wireframe = (Bool) (LRAND() & 1); } else { mp->joke = False; mp->wireframe = MI_IS_WIREFRAME(mi); } if (mp->stippledGC == None) { gcv.foreground = MI_WHITE_PIXEL(mi); gcv.background = MI_BLACK_PIXEL(mi); if ((mp->stippledGC = XCreateGC(MI_DISPLAY(mi), MI_WINDOW(mi), GCForeground | GCBackground, &gcv)) == None) return; } MI_CLEARWINDOW(mi); for (y = 0; y < (int) WORLDWIDTH; y++) for (x = 0; x < (int) WORLDWIDTH; x++) mp->h[x][y] = 0; j = MI_COUNT(mi); if (j < 0) j = NRAND(-j) + 1; for (i = 0; i < j; i++) mp->h[RANGE_RAND(1, WORLDWIDTH - 1)][RANGE_RAND(1, WORLDWIDTH - 1)] = NRAND(MAXHEIGHT); for (y = 0; y < WORLDWIDTH; y++) for (x = 0; x < WORLDWIDTH; x++) spread(mp->h, x, y); for (y = 0; y < WORLDWIDTH; y++) for (x = 0; x < WORLDWIDTH; x++) { mp->h[x][y] = mp->h[x][y] + NRAND(10) - 5; if (mp->h[x][y] < 10) mp->h[x][y] = 0; } if (MI_NPIXELS(mi) > 2) mp->offset = NRAND(MI_NPIXELS(mi)); else mp->offset = 0; } ENTRYPOINT void draw_mountain (ModeInfo * mi) { mountainstruct *mp; if (mountains == NULL) return; mp = &mountains[MI_SCREEN(mi)]; if (mp->stippledGC == NULL) return; MI_IS_DRAWN(mi) = True; switch (mp->stage) { case 0: drawamountain(mi); break; case 1: if (++mp->time > MI_CYCLES(mi)) mp->stage++; break; case 2: init_mountain(mi); break; } } ENTRYPOINT void free_mountain (ModeInfo * mi) { mountainstruct *mp = &mountains[MI_SCREEN(mi)]; if (mp->stippledGC) XFreeGC(MI_DISPLAY(mi), mp->stippledGC); } #ifndef STANDALONE ENTRYPOINT void refresh_mountain(ModeInfo * mi) { mountainstruct *mp; if (mountains == NULL) return; mp = &mountains[MI_SCREEN(mi)]; MI_CLEARWINDOW(mi); mp->x = 0; mp->y = 0; } #endif XSCREENSAVER_MODULE ("Mountain", mountain) #endif /* MODE_mountain */