/* -*- Mode: C; tab-width: 4 -*- */
/* fiberlamp --- A Fiber Optic Lamp */
-#if !defined( lint ) && !defined( SABER )
+#if 0
static const char sccsid[] = "@(#)fiberlamp.c 5.00 2000/11/01 xlockmore";
#endif
#define DEFAULTS "*delay: 10000 \n" \
"*count: 500 \n" \
"*cycles: 10000 \n" \
- "*ncolors: 64 \n"
+ "*ncolors: 64 \n" \
+ "*fpsTop: true \n" \
+
# define UNIFORM_COLORS
+# define release_fiberlamp 0
# define fiberlamp_handle_event 0
# include "xlockmore.h" /* in xscreensaver distribution */
#else /* STANDALONE */
#ifdef USE_MODULES
ModStruct fiberlamp_description =
-{"fiberlamp", "init_fiberlamp", "draw_fiberlamp", "release_fiberlamp",
+{"fiberlamp", "init_fiberlamp", "draw_fiberlamp", (char *) NULL,
"draw_fiberlamp", "change_fiberlamp", (char *) NULL, &fiberlamp_opts,
1000, 500, 10000, 0, 64, 1.0, "", "Shows a Fiber Optic Lamp", 0, NULL};
#define SPREAD (30.0) /* Angular spread at the base */
#define SCALE (MI_WIDTH(mi)/2) /* Screen size */
-#define NODES (20) /* Number of nodes in a fiber. Variable with range
+#define NODES (20L) /* Number of nodes in a fiber. Variable with range
10 .. 30, if desired. High values have
stability problems unless you use small DT */
int init;
double psi;
double dpsi;
- int count, nfibers;
+ long count, nfibers;
double cx;
double rx, ry; /* Coordinates relative to root */
fiberstruct *fiber;
}
static void
-free_fiberlamp(ModeInfo *mi, fiberlampstruct *fl)
+free_fiberlamp(ModeInfo *mi)
{
+ fiberlampstruct *fl = &fiberlamps[MI_SCREEN(mi)];
if (fl->buffer != None && fl->dbufp) {
XFreePixmap(MI_DISPLAY(mi), fl->buffer);
fl->buffer = None;
{
fiberlampstruct *fl;
- if (fiberlamps == NULL) {
- if ((fiberlamps =
- (fiberlampstruct *) calloc(MI_NUM_SCREENS(mi),
- sizeof (fiberlampstruct))) == NULL)
- return;
- }
+ MI_INIT (mi, fiberlamps, free_fiberlamp);
fl = &fiberlamps[MI_SCREEN(mi)];
/* Create or Resize double buffer */
-#ifdef HAVE_COCOA /* Don't second-guess Quartz's double-buffering */
+#ifdef HAVE_JWXYZ /* Don't second-guess Quartz's double-buffering */
fl->dbufp = False;
#else
fl->dbufp = True;
fl->buffer = XCreatePixmap(MI_DISPLAY(mi), MI_WINDOW(mi),
MI_WIDTH(mi), MI_HEIGHT(mi), MI_DEPTH(mi));
if (fl->buffer == None) {
- free_fiberlamp(mi, fl);
+ free_fiberlamp(mi);
return;
}
} else {
/* Allocate fibers */
if((fl->fiber =
(fiberstruct*) calloc(fl->nfibers, sizeof (fiberstruct))) == NULL) {
- free_fiberlamp(mi, fl);
+ free_fiberlamp(mi);
return;
} else {
int f;
(nodestruct*) calloc(NODES, sizeof (nodestruct))) == NULL
||(fs->draw =
(XPoint*) calloc(NODES, sizeof (XPoint))) == NULL) {
- free_fiberlamp(mi, fl);
+ free_fiberlamp(mi);
return;
}
}
double x = fs->node[1].x - fl->cx + 0.025;
double y = fs->node[1].z + 0.02;
double angle = atan2(y, x) + fl->psi;
- int tipcolor = (int)(MI_NPIXELS(mi)*angle/(2*M_PI)) % MI_NPIXELS(mi);
- int fibercolor;
- int tiplen;
+ long tipcolor = (int)(MI_NPIXELS(mi)*angle/(2*M_PI)) % MI_NPIXELS(mi);
+ long fibercolor;
+ long tiplen;
if (tipcolor < 0) tipcolor += MI_NPIXELS(mi);
tipcolor = MI_PIXEL(mi, tipcolor);
}
}
-ENTRYPOINT void
-release_fiberlamp(ModeInfo * mi)
-{
- if (fiberlamps != NULL) {
- int screen;
-
- for (screen = 0; screen < MI_NUM_SCREENS(mi); screen++)
- free_fiberlamp(mi, &fiberlamps[screen]);
- free(fiberlamps);
- fiberlamps = (fiberlampstruct *) NULL;
- }
-}
-
ENTRYPOINT void
refresh_fiberlamp(ModeInfo * mi)
{