/* -*- Mode: C; tab-width: 4 -*- */
/* euler2d --- 2 Dimensional Incompressible Inviscid Fluid Flow */
-#if !defined( lint ) && !defined( SABER )
+#if 0
static const char sccsid[] = "@(#)euler2d.c 5.00 2000/11/01 xlockmore";
-
#endif
/*
*/
#ifdef STANDALONE
-#define MODE_euler2d
-#define PROGCLASS "Euler2d"
-#define HACK_INIT init_euler2d
-#define HACK_DRAW draw_euler2d
-#define euler2d_opts xlockmore_opts
-#define DEFAULTS "*delay: 10000 \n" \
-"*count: 1024 \n" \
-"*cycles: 3000 \n" \
-"*ncolors: 64 \n"
-#define SMOOTH_COLORS
-#include "xlockmore.h" /* in xscreensaver distribution */
+# define MODE_euler2d
+# define DEFAULTS "*delay: 10000 \n" \
+ "*count: 1024 \n" \
+ "*cycles: 3000 \n" \
+ "*ncolors: 64 \n" \
+ "*fpsSolid: true \n" \
+
+# define reshape_euler2d 0
+# define euler2d_handle_event 0
+# define SMOOTH_COLORS
+# include "xlockmore.h" /* in xscreensaver distribution */
#else /* STANDALONE */
-#include "xlock.h" /* in xlockmore distribution */
+# include "xlock.h" /* in xlockmore distribution */
#endif /* STANDALONE */
#ifdef MODE_euler2d
static XrmOptionDescRec opts[] =
{
- {(char* ) "-eulertail", (char *) ".euler2d.eulertail",
- XrmoptionSepArg, (caddr_t) NULL},
- {(char* ) "-eulerpower", (char *) ".euler2d.eulerpower",
- XrmoptionSepArg, (caddr_t) NULL},
+ {"-eulertail", ".euler2d.eulertail", XrmoptionSepArg, NULL},
+ {"-eulerpower", ".euler2d.eulerpower", XrmoptionSepArg, NULL},
};
static argtype vars[] =
{
- {(caddr_t *) &tail_len, (char *) "eulertail",
- (char *) "EulerTail", (char *) DEF_EULERTAIL, t_Int},
- {(caddr_t *) &power, (char *) "eulerpower",
- (char *) "EulerPower", (char *) "1", t_Float},
+ {&tail_len, "eulertail",
+ "EulerTail", (char *) DEF_EULERTAIL, t_Int},
+ {&power, "eulerpower",
+ "EulerPower", "1", t_Float},
};
static OptionStruct desc[] =
{
- {(char *) "-eulertail len", (char *) "Length of Euler2d tails"},
- {(char *) "-eulerpower power", (char *) "power of interaction law for points for Euler2d"},
+ {"-eulertail len", "Length of Euler2d tails"},
+ {"-eulerpower power", "power of interaction law for points for Euler2d"},
};
-ModeSpecOpt euler2d_opts =
+ENTRYPOINT ModeSpecOpt euler2d_opts =
{sizeof opts / sizeof opts[0], opts,
sizeof vars / sizeof vars[0], vars, desc};
deallocate(sp->mod_dp2, double);
}
-void
-init_euler2d(ModeInfo * mi)
+ENTRYPOINT void
+init_euler2d (ModeInfo * mi)
{
#define nr_rotates 18 /* how many rotations to try to fill as much of screen as possible - must be even number */
euler2dstruct *sp;
}
sp = &euler2ds[MI_SCREEN(mi)];
+#ifdef HAVE_COCOA
+ jwxyz_XSetAntiAliasing (MI_DISPLAY(mi), MI_GC(mi), False);
+#endif
+
sp->boundary_color = NRAND(MI_NPIXELS(mi));
sp->hide_vortex = NRAND(4) != 0;
}
}
-void
-draw_euler2d(ModeInfo * mi)
+ENTRYPOINT void
+draw_euler2d (ModeInfo * mi)
{
Display *display = MI_DISPLAY(mi);
Window window = MI_WINDOW(mi);
}
-void
-release_euler2d(ModeInfo * mi)
+ENTRYPOINT void
+release_euler2d (ModeInfo * mi)
{
if (euler2ds != NULL) {
int screen;
}
}
-void
-refresh_euler2d(ModeInfo * mi)
+ENTRYPOINT void
+refresh_euler2d (ModeInfo * mi)
{
MI_CLEARWINDOW(mi);
}
+XSCREENSAVER_MODULE ("Euler2D", euler2d)
+
#endif /* MODE_euler2d */