/* flow --- flow of strange bees */
#if 0
-#if !defined( lint ) && !defined( SABER )
static const char sccsid[] = "@(#)flow.c 5.00 2000/11/01 xlockmore";
#endif
-#endif
/*-
* Copyright (c) 1996 by Tim Auckland <tda10.geo@yahoo.com>
#ifdef STANDALONE
# define MODE_flow
-# define PROGCLASS "Flow"
-# define HACK_INIT init_flow
-# define HACK_DRAW draw_flow
-# define flow_opts xlockmore_opts
# define DEFAULTS "*delay: 10000 \n" \
- "*count: 3000 \n" \
- "*size: -10 \n" \
- "*cycles: 10000 \n" \
- "*ncolors: 200 \n" \
-
+ "*count: 3000 \n" \
+ "*size: -10 \n" \
+ "*cycles: 10000 \n" \
+ "*ncolors: 200 \n"
+
+# define release_flow 0
+# define reshape_flow 0
+# define flow_handle_event 0
# include "xlockmore.h" /* in xscreensaver distribution */
-# ifndef MI_DEPTH
-# define MI_DEPTH MI_WIN_DEPTH
-# endif
#else /* STANDALONE */
# include "xlock.h" /* in xlockmore distribution */
#endif /* STANDALONE */
{"-/+dbuf", "turn on/off double buffering."},
};
-ModeSpecOpt flow_opts =
+ENTRYPOINT ModeSpecOpt flow_opts =
{sizeof opts / sizeof opts[0], opts,
sizeof vars / sizeof vars[0], vars, desc};
#ifdef USE_MODULES
ModStruct flow_description = {
- "flow", "init_flow", "draw_flow", "release_flow",
- "refresh_flow", "init_flow", NULL, &flow_opts,
+ "flow", "init_flow", "draw_flow", NULL,
+ "refresh_flow", "init_flow", "free_flow", &flow_opts,
1000, 1024, 10000, -10, 200, 1.0, "",
"Shows dynamic strange attractors", 0, NULL
};
#define deallocate(p,t) if (p!=NULL) {free(p); p=(t*)NULL; }
#define allocate(p,t,s) if ((p=(t*)malloc(sizeof(t)*s))==NULL)\
-{free_flow(sp);return;}
+{free_flow(mi);return;}
-static void
-free_flow(flowstruct *sp)
+ENTRYPOINT void
+free_flow(ModeInfo * mi)
{
+ flowstruct *sp = &flows[MI_SCREEN(mi)];
deallocate(sp->csegs, XSegment);
deallocate(sp->cnsegs, int);
deallocate(sp->old_segs, XSegment);
* Public functions
*/
-void
-init_flow(ModeInfo * mi)
+ENTRYPOINT void
+init_flow (ModeInfo * mi)
{
flowstruct *sp;
char *name;
- if (flows == NULL) {
- if ((flows = (flowstruct *) calloc(MI_NUM_SCREENS(mi),
- sizeof (flowstruct))) == NULL)
- return;
- }
+ MI_INIT (mi, flows);
sp = &flows[MI_SCREEN(mi)];
sp->count2 = 0;
sp->count2 = 0; /* Reset search */
- free_flow(sp);
sp->beecount = MI_COUNT(mi);
- if (sp->beecount < 0) { /* random variations */
+ if (!sp->beecount) {
+ sp->beecount = 1; /* The camera requires 1 or more */
+ } else if (sp->beecount < 0) { /* random variations */
sp->beecount = NRAND(-sp->beecount) + 1; /* Minimum 1 */
}
+# ifdef HAVE_JWXYZ /* Don't second-guess Quartz's double-buffering */
+ dbufp = False;
+# endif
+
if(dbufp) { /* Set up double buffer */
if (sp->buffer != None)
XFreePixmap(MI_DISPLAY(mi), sp->buffer);
allocate(sp->csegs, XSegment,
(sp->beecount + BOX_L) * MI_NPIXELS(mi) * sp->taillen);
allocate(sp->cnsegs, int, MI_NPIXELS(mi));
- allocate(sp->old_segs, XSegment, sp->beecount * sp->taillen);
+ allocate(sp->old_segs, XSegment, (sp->beecount + BOX_L) * sp->taillen);
allocate(sp->p, dvector, sp->beecount * sp->taillen);
}
Z(1, 0) = sp->cam[1].z = 0;
}
-void
-draw_flow(ModeInfo * mi)
+ENTRYPOINT void
+draw_flow (ModeInfo * mi)
{
int b, i;
int col, begin, end;
if (sp->csegs == NULL)
return;
+#ifdef HAVE_JWXYZ /* Don't second-guess Quartz's double-buffering */
+ XClearWindow (MI_DISPLAY(mi), MI_WINDOW(mi));
+#endif
+
/* multiplier for indexing segment arrays. Used in IX macro, etc. */
segindex = (sp->beecount + BOX_L) * sp->taillen;
are ok, they help to outline the Poincare'
slice. */
for(j = i; j < end; j++) Y(j,b) = Y(i,b);
- begin = i + 1;
+ /*begin = i + 1;*/
break;
}
}
}
-void
-release_flow(ModeInfo * mi)
-{
- if (flows != NULL) {
- int screen;
-
- for (screen = 0; screen < MI_NUM_SCREENS(mi); screen++)
- free_flow(&flows[screen]);
- free(flows);
- flows = (flowstruct *) NULL;
- }
-}
-
-void
-refresh_flow(ModeInfo * mi)
+#ifndef STANDALONE
+ENTRYPOINT void
+refresh_flow (ModeInfo * mi)
{
if(!dbufp) MI_CLEARWINDOW(mi);
}
+#endif
+
+XSCREENSAVER_MODULE ("Flow", flow)
#endif /* MODE_flow */