xenocara/app/xlockmore/modes/galaxy.c

594 lines
16 KiB
C
Raw Normal View History

2006-11-26 04:07:42 -07:00
/* -*- Mode: C; tab-width: 4 -*- */
/* galaxy --- spinning galaxies */
#if !defined( lint ) && !defined( SABER )
static const char sccsid[] = "@(#)galaxy.c 5.01 2001/01/02 xlockmore";
#endif
/*-
* Originally done by Uli Siegmund <uli@wombat.okapi.sub.org> on Amiga
* for EGS in Cluster
* Port from Cluster/EGS to C/Intuition by Harald Backert
* Port to X11 and incorporation into xlockmore by Hubert Feyrer
* <hubert.feyrer@rz.uni-regensburg.de>
*
* 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:
* 24-Dec-2000: Modified by Richard Loftin <rich@sevenravens.com>
fisheye lens view
* 01-Nov-2000: Allocation checks
* 10-May-1997: Compatible with xscreensaver
* 18-Apr-1997: Memory leak fixed by Tom Schmidt <tschmidt@micron.com>
* 07-Apr-1997: Modified by Dave Mitchell <davem@magnet.com>
* random star sizes
* colors change depending on velocity
* 23-Oct-1994: Modified by David Bagley <bagleyd@tux.org>
* 10-Oct-1994: Add colors by Hubert Feyer
* 30-Sep-1994: Initial port by Hubert Feyer
* 09-Mar-1994: VMS can generate a random number 0.0 which results in a
* division by zero, corrected by Jouk Jansen
* <joukj@hrem.stm.tudelft.nl>
*/
#ifdef STANDALONE
#define MODE_galaxy
#define PROGCLASS "Galaxy"
#define HACK_INIT init_galaxy
#define HACK_DRAW draw_galaxy
#define galaxy_opts xlockmore_opts
#define DEFAULTS "*delay: 100 \n" \
"*count: -5 \n" \
"*cycles: 250 \n" \
"*size: -3 \n" \
"*ncolors: 64 \n"
#define UNIFORM_COLORS
#include "xlockmore.h" /* in xscreensaver distribution */
#else /* STANDALONE */
#include "xlock.h" /* in xlockmore distribution */
#endif /* STANDALONE */
#ifdef MODE_galaxy
static Bool fisheye;
static Bool tracks;
#define DEF_FISHEYE "True"
#define DEF_TRACKS "False"
static XrmOptionDescRec opts[] =
{
{(char *) "-fisheye", (char *) ".galaxy.fisheye", XrmoptionNoArg, (caddr_t) "on"},
{(char *) "+fisheye", (char *) ".galaxy.fisheye", XrmoptionNoArg, (caddr_t) "off"},
{(char *) "-tracks", (char *) ".galaxy.tracks", XrmoptionNoArg, (caddr_t) "on"},
{(char *) "+tracks", (char *) ".galaxy.tracks", XrmoptionNoArg, (caddr_t) "off"}
};
static argtype vars[] =
{
{(void *) & fisheye, (char *) "fisheye", (char *) "FishEye", (char *) DEF_FISHEYE, t_Bool},
{(void *) & tracks, (char *) "tracks", (char *) "Tracks", (char *) DEF_TRACKS, t_Bool}
};
static OptionStruct desc[] =
{
{(char *) "-/+fisheye", (char *) "turn on/off fish eye view"},
{(char *) "-/+tracks", (char *) "turn on/off star tracks"}
};
ModeSpecOpt galaxy_opts =
{sizeof opts / sizeof opts[0], opts, sizeof vars / sizeof vars[0], vars, desc};
#ifdef USE_MODULES
ModStruct galaxy_description =
{"galaxy", "init_galaxy", "draw_galaxy", "release_galaxy",
"refresh_galaxy", "init_galaxy", (char *) NULL, &galaxy_opts,
100, -5, 250, -3, 64, 1.0, "",
"Shows crashing spiral galaxies", 0, NULL};
#endif
#define FLOATRAND ((double) LRAND() / ((double) MAXRAND))
#if 0
#define WRAP 1 /* Warp around edges */
#define BOUNCE 1 /* Bounce from borders */
#endif
#define MINSIZE 1
#define MINGALAXIES 2
#define MAX_STARS 300
#define MAX_IDELTAT 50
/* These come originally from the Cluster-version */
#define DEFAULT_GALAXIES 2
#define DEFAULT_STARS 1000
#define DEFAULT_HITITERATIONS 7500
#define DEFAULT_IDELTAT 200 /* 0.02 */
#define EPSILON 0.00000001
#define sqrt_EPSILON 0.0001
#define DELTAT (MAX_IDELTAT * 0.0001)
#define GALAXYRANGESIZE 0.1
#define GALAXYMINSIZE 0.1
#define QCONS 0.001
#define Z_OFFSET 1.25
/*
* The following is enabled, it does not look that good for some.
* (But it looks great for me.) Maybe velocities should be measured
* relative to their galaxy-centers instead of absolute.
*/
#if 0
#undef NO_VELOCITY_COLORING */ /* different colors for different speeds */
#endif
#define COLORBASE (MI_NPIXELS(mi) / COLORS) /* Colors for stars start here */
#define GREEN (22 * MI_NPIXELS(mi) / 64) /* Do green stars exist? */
#define NOTGREEN (7 * MI_NPIXELS(mi) / 64)
#define COLORS 8
#define drawStar(x,y,size) if(size<=1) XDrawPoint(display,drawable,gc,x,y);\
else XFillArc(display,drawable,gc,x,y,size,size,0,23040)
typedef struct {
double pos[3], vel[3];
int px, py;
int color;
int size;
int Z_size;
} Star;
typedef struct {
int mass;
int nstars;
Star *stars;
double pos[3], vel[3];
int galcol;
} Galaxy;
typedef struct {
struct {
int left; /* x minimum */
int right; /* x maximum */
int top; /* y minimum */
int bottom; /* y maximum */
} clip;
double mat[3][3]; /* Movement of stars(?) */
double scale; /* Scale */
int midx; /* Middle of screen, x */
int midy; /* Middle of screen, y */
double size; /* */
double diff[3]; /* */
Galaxy *galaxies; /* the Whole Universe */
int ngalaxies; /* # galaxies */
int f_hititerations; /* # iterations before restart */
int step; /* */
Bool tracks, fisheye;
double star_scale_Z;
Pixmap pixmap;
} unistruct;
static unistruct *universes = (unistruct *) NULL;
static void
free_galaxies(unistruct * gp)
{
if (gp->galaxies != NULL) {
int i;
for (i = 0; i < gp->ngalaxies; i++) {
Galaxy *gt = &gp->galaxies[i];
if (gt->stars != NULL)
free(gt->stars);
}
free(gp->galaxies);
gp->galaxies = (Galaxy *) NULL;
}
}
static void
free_galaxy(Display *display, unistruct * gp)
{
free_galaxies(gp);
if (gp->pixmap != None) {
XFreePixmap(display, gp->pixmap);
gp->pixmap = None;
}
}
static Bool
startover(ModeInfo * mi)
{
unistruct *gp = &universes[MI_SCREEN(mi)];
int size = (int) MI_SIZE(mi);
int i, j; /* more tmp */
double w1, w2; /* more tmp */
double d, v, w, h; /* yet more tmp */
gp->step = 0;
if (MI_COUNT(mi) < -MINGALAXIES)
free_galaxies(gp);
gp->ngalaxies = MI_COUNT(mi);
if (gp->ngalaxies < -MINGALAXIES)
gp->ngalaxies = NRAND(-gp->ngalaxies - MINGALAXIES + 1) + MINGALAXIES;
else if (gp->ngalaxies < MINGALAXIES)
gp->ngalaxies = MINGALAXIES;
if (gp->galaxies == NULL)
if ((gp->galaxies = (Galaxy *) calloc(gp->ngalaxies,
sizeof (Galaxy))) == NULL) {
free_galaxy(MI_DISPLAY(mi), gp);
return False;
}
for (i = 0; i < gp->ngalaxies; ++i) {
Galaxy *gt = &gp->galaxies[i];
double sinw1, sinw2, cosw1, cosw2;
if (MI_NPIXELS(mi) >= COLORS)
do {
gt->galcol = NRAND(COLORBASE) * COLORS;
} while (gt->galcol + COLORBASE / 2 < GREEN + NOTGREEN &&
gt->galcol + COLORBASE / 2 > GREEN - NOTGREEN);
else
gt->galcol = 0;
/* Galaxies still may have some green stars but are not all green. */
if (gt->stars != NULL) {
free(gt->stars);
gt->stars = (Star *) NULL;
}
gt->nstars = (NRAND(MAX_STARS / 2)) + MAX_STARS / 2;
if ((gt->stars = (Star *) malloc(gt->nstars *
sizeof (Star))) == NULL) {
free_galaxy(MI_DISPLAY(mi), gp);
return False;
}
w1 = 2.0 * M_PI * FLOATRAND;
w2 = 2.0 * M_PI * FLOATRAND;
sinw1 = SINF(w1);
sinw2 = SINF(w2);
cosw1 = COSF(w1);
cosw2 = COSF(w2);
gp->mat[0][0] = cosw2;
gp->mat[0][1] = -sinw1 * sinw2;
gp->mat[0][2] = cosw1 * sinw2;
gp->mat[1][0] = 0.0;
gp->mat[1][1] = cosw1;
gp->mat[1][2] = sinw1;
gp->mat[2][0] = -sinw2;
gp->mat[2][1] = -sinw1 * cosw2;
gp->mat[2][2] = cosw1 * cosw2;
gt->vel[0] = FLOATRAND * 2.0 - 1.0;
gt->vel[1] = FLOATRAND * 2.0 - 1.0;
gt->vel[2] = FLOATRAND * 2.0 - 1.0;
gt->pos[0] = -gt->vel[0] * DELTAT *
gp->f_hititerations + FLOATRAND - 0.5;
gt->pos[1] = -gt->vel[1] * DELTAT *
gp->f_hititerations + FLOATRAND - 0.5;
gt->pos[2] = (-gt->vel[2] * DELTAT *
gp->f_hititerations + FLOATRAND - 0.5) + Z_OFFSET;
gt->mass = (int) (FLOATRAND * 1000.0) + 1;
gp->size = GALAXYRANGESIZE * FLOATRAND + GALAXYMINSIZE;
for (j = 0; j < gt->nstars; ++j) {
Star *st = &gt->stars[j];
double sinw, cosw;
w = 2.0 * M_PI * FLOATRAND;
sinw = SINF(w);
cosw = COSF(w);
d = FLOATRAND * gp->size;
h = FLOATRAND * exp(-2.0 * (d / gp->size)) / 5.0 * gp->size;
if (FLOATRAND < 0.5)
h = -h;
st->pos[0] = gp->mat[0][0] * d * cosw + gp->mat[1][0] * d * sinw +
gp->mat[2][0] * h + gt->pos[0];
st->pos[1] = gp->mat[0][1] * d * cosw + gp->mat[1][1] * d * sinw +
gp->mat[2][1] * h + gt->pos[1];
st->pos[2] = gp->mat[0][2] * d * cosw + gp->mat[1][2] * d * sinw +
gp->mat[2][2] * h + gt->pos[2];
v = sqrt(gt->mass * QCONS / sqrt(d * d + h * h));
st->vel[0] = -gp->mat[0][0] * v * sinw + gp->mat[1][0] * v * cosw +
gt->vel[0];
st->vel[1] = -gp->mat[0][1] * v * sinw + gp->mat[1][1] * v * cosw +
gt->vel[1];
st->vel[2] = -gp->mat[0][2] * v * sinw + gp->mat[1][2] * v * cosw +
gt->vel[2];
st->vel[0] *= DELTAT;
st->vel[1] *= DELTAT;
st->vel[2] *= DELTAT;
st->px = 0;
st->py = 0;
if (size < -MINSIZE)
st->size = NRAND(-size - MINSIZE + 1) + MINSIZE;
else if (size < MINSIZE)
st->size = MINSIZE;
else
st->size = size;
st->Z_size = st->size;
}
}
MI_CLEARWINDOW(mi);
#if 0
(void) printf("ngalaxies=%d, f_hititerations=%d\n",
gp->ngalaxies, gp->f_hititerations);
(void) printf("f_deltat=%g\n", DELTAT);
(void) printf("Screen: ");
(void) printf("%dx%d pixel (%d-%d, %d-%d)\n",
(gp->clip.right - gp->clip.left), (gp->clip.bottom - gp->clip.top),
gp->clip.left, gp->clip.right, gp->clip.top, gp->clip.bottom);
#endif
return True;
}
void
init_galaxy(ModeInfo * mi)
{
Display *display = MI_DISPLAY(mi);
unistruct *gp;
if (universes == NULL) {
if ((universes = (unistruct *) calloc(MI_NUM_SCREENS(mi),
sizeof (unistruct))) == NULL)
return;
}
gp = &universes[MI_SCREEN(mi)];
gp->f_hititerations = MI_CYCLES(mi);
gp->clip.left = 0;
gp->clip.top = 0;
gp->clip.right = MI_WIDTH(mi);
gp->clip.bottom = MI_HEIGHT(mi);
gp->scale = (double) (gp->clip.right + gp->clip.bottom) / 8.0;
gp->midx = gp->clip.right / 2;
gp->midy = gp->clip.bottom / 2;
if (MI_IS_FULLRANDOM(mi)) {
gp->fisheye = !(NRAND(3));
if (!gp->fisheye)
gp->tracks = (Bool) (LRAND() & 1);
} else {
gp->fisheye = fisheye;
gp->tracks = tracks;
}
if (!startover(mi))
return;
if (gp->fisheye) {
if (gp->pixmap != None)
XFreePixmap(display, gp->pixmap);
if ((gp->pixmap = XCreatePixmap(display, MI_WINDOW(mi),
MI_WIDTH(mi), MI_HEIGHT(mi),
MI_DEPTH(mi))) == None) {
gp->fisheye = False;
}
}
if (gp->fisheye) {
XSetGraphicsExposures(display, MI_GC(mi), False);
gp->scale *= Z_OFFSET;
gp->star_scale_Z = (gp->scale * .005);
/* don't want any exposure events from XCopyPlane */
}
}
void
draw_galaxy(ModeInfo * mi)
{
Display *display = MI_DISPLAY(mi);
Drawable drawable;
GC gc = MI_GC(mi);
double d; /* tmp */
int i, j, k; /* more tmp */
unistruct *gp;
Bool clipped;
if (universes == NULL)
return;
gp = &universes[MI_SCREEN(mi)];
if (gp->galaxies == NULL)
return;
if (gp->fisheye)
drawable = (Drawable) gp->pixmap;
else
drawable = MI_WINDOW(mi);
MI_IS_DRAWN(mi) = True;
for (i = 0; i < gp->ngalaxies; ++i) {
Galaxy *gt = &gp->galaxies[i];
for (j = 0; j < gp->galaxies[i].nstars; ++j) {
Star *st = &gt->stars[j];
double v0 = st->vel[0];
double v1 = st->vel[1];
double v2 = st->vel[2];
for (k = 0; k < gp->ngalaxies; ++k) {
Galaxy *gtk = &gp->galaxies[k];
double d0 = gtk->pos[0] - st->pos[0];
double d1 = gtk->pos[1] - st->pos[1];
double d2 = gtk->pos[2] - st->pos[2];
d = d0 * d0 + d1 * d1 + d2 * d2;
if (d > EPSILON)
d = gt->mass / (d * sqrt(d)) * DELTAT * DELTAT * QCONS;
else
d = gt->mass / (EPSILON * sqrt_EPSILON) * DELTAT * DELTAT * QCONS;
v0 += d0 * d;
v1 += d1 * d;
v2 += d2 * d;
}
st->vel[0] = v0;
st->vel[1] = v1;
st->vel[2] = v2;
#ifndef NO_VELOCITY_COLORING
d = (v0 * v0 + v1 * v1 + v2 * v2) / (3.0 * DELTAT * DELTAT);
if (d > (double) COLORBASE)
st->color = gt->galcol + COLORBASE - 1;
else
st->color = gt->galcol + ((int) d) % COLORBASE;
#endif
st->pos[0] += v0;
st->pos[1] += v1;
st->pos[2] += v2;
clipped = True;
if (gp->fisheye) {
/* clip if star Z position < 0.0 - also avoid divide by zero errors */
if(st->pos[2]>0.0)
{
st->px = (int) ((st->pos[0] * gp->scale) / st->pos[2]) + gp->midx;
st->py = (int) ((st->pos[1] * gp->scale) / st->pos[2]) + gp->midy;
st->size = (int) (gp->star_scale_Z / st->pos[2]) + st->Z_size;
if(st->size>12)st->size=12;
clipped = False;
}
} else {
if (st->px >= gp->clip.left &&
st->px <= gp->clip.right - st->size &&
st->py >= gp->clip.top &&
st->py <= gp->clip.bottom - st->size) {
XSetForeground(display, gc, MI_BLACK_PIXEL(mi));
drawStar(st->px, st->py, st->size);
}
st->px = (int) (st->pos[0] * gp->scale) + gp->midx;
st->py = (int) (st->pos[1] * gp->scale) + gp->midy;
#ifdef WRAP /* won't WRAP if FISHEYE_LENS */
if (st->px < gp->clip.left) {
(void) printf("wrap l -> r\n");
st->px = gp->clip.right;
}
if (st->px > gp->clip.right) {
(void) printf("wrap r -> l\n");
st->px = gp->clip.left;
}
if (st->py > gp->clip.bottom) {
(void) printf("wrap b -> t\n");
st->py = gp->clip.top;
}
if (st->py < gp->clip.top) {
(void) printf("wrap t -> b\n");
st->py = gp->clip.bottom;
}
#endif /*WRAP */
if (st->px >= gp->clip.left &&
st->px <= gp->clip.right - st->size &&
st->py >= gp->clip.top &&
st->py <= gp->clip.bottom - st->size) {
clipped = False;
}
}
if (!clipped) {
if (MI_NPIXELS(mi) >= COLORS)
#ifdef NO_VELOCITY_COLORING
XSetForeground(display, gc, MI_PIXEL(mi, gt->galcol));
#else
XSetForeground(display, gc, MI_PIXEL(mi, st->color));
#endif
else
XSetForeground(display, gc, MI_WHITE_PIXEL(mi));
if (gp->tracks) {
drawStar(st->px + 1, st->py, st->size);
} else {
drawStar(st->px, st->py, st->size);
}
}
}
for (k = i + 1; k < gp->ngalaxies; ++k) {
Galaxy *gtk = &gp->galaxies[k];
double d0 = gtk->pos[0] - gt->pos[0];
double d1 = gtk->pos[1] - gt->pos[1];
double d2 = gtk->pos[2] - gt->pos[2];
d = d0 * d0 + d1 * d1 + d2 * d2;
if (d > EPSILON)
d = gt->mass * gt->mass / (d * sqrt(d)) * DELTAT * QCONS;
else
d = gt->mass * gt->mass / (EPSILON * sqrt_EPSILON) * DELTAT * QCONS;
d0 *= d;
d1 *= d;
d2 *= d;
gt->vel[0] += d0 / gt->mass;
gt->vel[1] += d1 / gt->mass;
gt->vel[2] += d2 / gt->mass;
gtk->vel[0] -= d0 / gtk->mass;
gtk->vel[1] -= d1 / gtk->mass;
gtk->vel[2] -= d2 / gtk->mass;
}
gt->pos[0] += gt->vel[0] * DELTAT;
gt->pos[1] += gt->vel[1] * DELTAT;
gt->pos[2] += gt->vel[2] * DELTAT;
}
if (gp->fisheye) {
XCopyArea(display, drawable, MI_WINDOW(mi), gc,
0, 0, MI_WIDTH(mi), MI_HEIGHT(mi),0 , 0);
XSetForeground(display, gc, MI_BLACK_PIXEL(mi));
XFillRectangle(display, drawable, gc,
0, 0, MI_WIDTH(mi), MI_HEIGHT(mi));
}
gp->step++;
if (gp->step > gp->f_hititerations * 4)
(void) startover(mi);
}
void
release_galaxy(ModeInfo * mi)
{
if (universes != NULL) {
int screen;
for (screen = 0; screen < MI_NUM_SCREENS(mi); screen++)
free_galaxy(MI_DISPLAY(mi), &universes[screen]);
free(universes);
universes = (unistruct *) NULL;
}
}
void
refresh_galaxy(ModeInfo * mi)
{
MI_CLEARWINDOW(mi);
}
#endif /* MODE_galaxy */