1 /* -*- Mode: C; tab-width: 4 -*- */
2 /* mountain -- square grid mountains */
5 static const char sccsid[] = "@(#)mountain.c 5.00 2000/11/01 xlockmore";
9 * Copyright (c) 1995 Pascal Pensa <pensa@aurora.unice.fr>
11 * Permission to use, copy, modify, and distribute this software and its
12 * documentation for any purpose and without fee is hereby granted,
13 * provided that the above copyright notice appear in all copies and that
14 * both that copyright notice and this permission notice appear in
15 * supporting documentation.
17 * This file is provided AS IS with no warranties of any kind. The author
18 * shall have no liability with respect to the infringement of copyrights,
19 * trade secrets or any patents by this file or any part thereof. In no
20 * event will the author be liable for any lost revenue or profits or
21 * other special, indirect and consequential damages.
24 * 01-Nov-2000: Allocation checks
25 * 10-May-1997: Compatible with xscreensaver
30 # define MODE_mountain
31 #define DEFAULTS "*delay: 20000 \n" \
35 "*fpsSolid: true \n" \
37 # define SMOOTH_COLORS
38 # include "xlockmore.h" /* in xscreensaver distribution */
39 #else /* STANDALONE */
40 # include "xlock.h" /* in xlockmore distribution */
41 #endif /* STANDALONE */
45 ENTRYPOINT ModeSpecOpt mountain_opts =
46 {0, (XrmOptionDescRec *) NULL, 0, (argtype *) NULL, (OptionStruct *) NULL};
49 ModStruct mountain_description =
50 {"mountain", "init_mountain", "draw_mountain", "release_mountain",
51 "refresh_mountain", "init_mountain", (char *) NULL, &mountain_opts,
52 1000, 30, 4000, 1, 64, 1.0, "",
53 "Shows Papo's mountain range", 0, NULL};
57 /* ~ 5000 Max mountain height (1000 - 10000) */
58 #define MAXHEIGHT (3 * (mp->width + mp->height))
60 #define WORLDWIDTH 50 /* World size x * y */
62 #define RANGE_RAND(min,max) ((min) + NRAND((max) - (min)))
71 int h[WORLDWIDTH][WORLDWIDTH];
72 long time; /* up time */
78 static mountainstruct *mountains = (mountainstruct *) NULL;
81 spread(int (*m)[50], int x, int y)
86 for (y2 = y - 1; y2 <= y + 1; y2++)
87 for (x2 = x - 1; x2 <= x + 1; x2++)
88 if (x2 >= 0 && y2 >= 0 && x2 < WORLDWIDTH && y2 < WORLDWIDTH)
89 m[x2][y2] = (m[x2][y2] + h) / 2;
93 drawamountain(ModeInfo * mi)
95 Display *display = MI_DISPLAY(mi);
96 Window window = MI_WINDOW(mi);
98 mountainstruct *mp = &mountains[MI_SCREEN(mi)];
99 int x2, y2, x3, y3, y4, y5, c = 0;
102 if (MI_NPIXELS(mi) > 2) {
103 c = (mp->h[mp->x][mp->y] + mp->h[mp->x + 1][mp->y] +
104 mp->h[mp->x][mp->y + 1] + mp->h[mp->x + 1][mp->y + 1]) / 4;
105 c = (c / 10 + mp->offset) % MI_NPIXELS(mi);
107 x2 = mp->x * (2 * mp->width) / (3 * WORLDWIDTH);
108 y2 = mp->y * (2 * mp->height) / (3 * WORLDWIDTH);
109 p[0].x = (x2 - y2 / 2) + (mp->width / 4);
110 p[0].y = (y2 - mp->h[mp->x][mp->y]) + mp->height / 4;
112 x3 = (mp->x + 1) * (2 * mp->width) / (3 * WORLDWIDTH);
113 y3 = mp->y * (2 * mp->height) / (3 * WORLDWIDTH);
114 p[1].x = (x3 - y3 / 2) + (mp->width / 4);
115 p[1].y = (y3 - mp->h[mp->x + 1][mp->y]) + mp->height / 4;
117 y4 = (mp->y + 1) * (2 * mp->height) / (3 * WORLDWIDTH);
118 p[2].x = (x3 - y4 / 2) + (mp->width / 4);
119 p[2].y = (y4 - mp->h[mp->x + 1][mp->y + 1]) + mp->height / 4;
121 y5 = (mp->y + 1) * (2 * mp->height) / (3 * WORLDWIDTH);
122 p[3].x = (x2 - y5 / 2) + (mp->width / 4);
123 p[3].y = (y5 - mp->h[mp->x][mp->y + 1]) + mp->height / 4;
128 if (MI_NPIXELS(mi) > 2)
129 XSetForeground(display, gc, MI_PIXEL(mi, c));
131 XSetForeground(display, gc, MI_WHITE_PIXEL(mi));
134 if ((Bool) (LRAND() & 1))
135 XDrawLines(display, window, gc, p, 5, CoordModeOrigin);
137 XFillPolygon(display, window, gc, p, 4, Complex, CoordModeOrigin);
138 if (!mp->pixelmode) {
139 XSetForeground(display, gc, MI_BLACK_PIXEL(mi));
140 XDrawLines(display, window, gc, p, 5, CoordModeOrigin);
145 XDrawLines(display, window, gc, p, 5, CoordModeOrigin);
147 XFillPolygon(display, window, gc, p, 4, Complex, CoordModeOrigin);
149 if (!mp->pixelmode) {
150 XSetForeground(display, gc, MI_BLACK_PIXEL(mi));
151 XDrawLines(display, window, gc, p, 5, CoordModeOrigin);
156 if (mp->x == WORLDWIDTH - 1) {
160 if (mp->y == WORLDWIDTH - 1)
165 init_mountain (ModeInfo * mi)
171 if (mountains == NULL) {
172 if ((mountains = (mountainstruct *) calloc(MI_NUM_SCREENS(mi),
173 sizeof (mountainstruct))) == NULL)
176 mp = &mountains[MI_SCREEN(mi)];
178 mp->width = MI_WIDTH(mi);
179 mp->height = MI_HEIGHT(mi);
180 mp->pixelmode = (mp->width + mp->height < 200);
184 if (MI_IS_FULLRANDOM(mi)) {
185 mp->joke = (Bool) (NRAND(10) == 0);
186 mp->wireframe = (Bool) (LRAND() & 1);
189 mp->wireframe = MI_IS_WIREFRAME(mi);
192 if (mp->stippledGC == None) {
193 gcv.foreground = MI_WHITE_PIXEL(mi);
194 gcv.background = MI_BLACK_PIXEL(mi);
195 if ((mp->stippledGC = XCreateGC(MI_DISPLAY(mi), MI_WINDOW(mi),
196 GCForeground | GCBackground, &gcv)) == None)
201 for (y = 0; y < (int) WORLDWIDTH; y++)
202 for (x = 0; x < (int) WORLDWIDTH; x++)
208 for (i = 0; i < j; i++)
209 mp->h[RANGE_RAND(1, WORLDWIDTH - 1)][RANGE_RAND(1, WORLDWIDTH - 1)] =
212 for (y = 0; y < WORLDWIDTH; y++)
213 for (x = 0; x < WORLDWIDTH; x++)
216 for (y = 0; y < WORLDWIDTH; y++)
217 for (x = 0; x < WORLDWIDTH; x++) {
218 mp->h[x][y] = mp->h[x][y] + NRAND(10) - 5;
219 if (mp->h[x][y] < 10)
223 if (MI_NPIXELS(mi) > 2)
224 mp->offset = NRAND(MI_NPIXELS(mi));
230 draw_mountain (ModeInfo * mi)
234 if (mountains == NULL)
236 mp = &mountains[MI_SCREEN(mi)];
237 if (mp->stippledGC == NULL)
240 MI_IS_DRAWN(mi) = True;
247 if (++mp->time > MI_CYCLES(mi))
257 reshape_mountain(ModeInfo * mi, int width, int height)
259 XClearWindow (MI_DISPLAY (mi), MI_WINDOW(mi));
265 release_mountain (ModeInfo * mi)
267 if (mountains != NULL) {
270 for (screen = 0; screen < MI_NUM_SCREENS(mi); screen++) {
271 mountainstruct *mp = &mountains[screen];
274 XFreeGC(MI_DISPLAY(mi), mp->stippledGC);
276 (void) free((void *) mountains);
277 mountains = (mountainstruct *) NULL;
282 refresh_mountain(ModeInfo * mi)
286 if (mountains == NULL)
288 mp = &mountains[MI_SCREEN(mi)];
296 mountain_handle_event (ModeInfo *mi, XEvent *event)
298 if (screenhack_event_helper (MI_DISPLAY(mi), MI_WINDOW(mi), event))
306 XSCREENSAVER_MODULE ("Mountain", mountain)
308 #endif /* MODE_mountain */