* as Greg Turk's turmites) whose tape is the screen
*/
-#if !defined( lint ) && !defined( SABER )
+#if 0
static const char sccsid[] = "@(#)ant.c 5.00 2000/11/01 xlockmore";
-
#endif
/*-
Neighbors 6 and neighbors 3 produce the same Turk ants.
*/
+#ifndef HAVE_COCOA
+/*# define DO_STIPPLE*/
+#endif
+
#ifdef STANDALONE
-#define MODE_ant
-#define PROGCLASS "Ant"
-#define HACK_INIT init_ant
-#define HACK_DRAW draw_ant
-#define ant_opts xlockmore_opts
-#define DEFAULTS "*delay: 1000 \n" \
- "*count: -3 \n" \
- "*cycles: 40000 \n" \
- "*size: -12 \n" \
- "*ncolors: 64 \n" \
- "*neighbors: 0 \n" \
- "*sharpturn: False \n"
-#include "xlockmore.h" /* in xscreensaver distribution */
-#include "erase.h"
+# define MODE_ant
+# define DEFAULTS "*delay: 20000 \n" \
+ "*count: -3 \n" \
+ "*cycles: 40000 \n" \
+ "*size: -12 \n" \
+ "*ncolors: 64 \n" \
+ "*fpsSolid: true \n" \
+
+# define reshape_ant 0
+# define ant_handle_event 0
+# include "xlockmore.h" /* in xscreensaver distribution */
+# include "erase.h"
#else /* STANDALONE */
-#include "xlock.h" /* in xlockmore distribution */
+# include "xlock.h" /* in xlockmore distribution */
#endif /* STANDALONE */
#include "automata.h"
static XrmOptionDescRec opts[] =
{
- {(char *) "-neighbors", (char *) ".ant.neighbors", XrmoptionSepArg, (caddr_t) NULL},
- {(char *) "-truchet", (char *) ".ant.truchet", XrmoptionNoArg, (caddr_t) "on"},
- {(char *) "+truchet", (char *) ".ant.truchet", XrmoptionNoArg, (caddr_t) "off"},
- {(char *) "-eyes", (char *) ".ant.eyes", XrmoptionNoArg, (caddr_t) "on"},
- {(char *) "+eyes", (char *) ".ant.eyes", XrmoptionNoArg, (caddr_t) "off"},
- {(char *) "-sharpturn", (char *) ".ant.sharpturn", XrmoptionNoArg, (caddr_t) "on"},
- {(char *) "+sharpturn", (char *) ".ant.sharpturn", XrmoptionNoArg, (caddr_t) "off"},
- {"-neighbors", ".ant.neighbors", XrmoptionSepArg, (caddr_t) 0},
- {"+neighbors", ".ant.neighbors", XrmoptionSepArg, (caddr_t) 0}
+ {"-neighbors", ".ant.neighbors", XrmoptionSepArg, 0},
+ {"-truchet", ".ant.truchet", XrmoptionNoArg, "on"},
+ {"+truchet", ".ant.truchet", XrmoptionNoArg, "off"},
+ {"-eyes", ".ant.eyes", XrmoptionNoArg, "on"},
+ {"+eyes", ".ant.eyes", XrmoptionNoArg, "off"},
+ {"-sharpturn", ".ant.sharpturn", XrmoptionNoArg, "on"},
+ {"+sharpturn", ".ant.sharpturn", XrmoptionNoArg, "off"},
};
static argtype vars[] =
{
- {(caddr_t *) & neighbors, (char *) "neighbors", (char *) "Neighbors", (char *) DEF_NEIGHBORS, t_Int},
- {(caddr_t *) & truchet, (char *) "truchet", (char *) "Truchet", (char *) DEF_TRUCHET, t_Bool},
- {(caddr_t *) & eyes, (char *) "eyes", (char *) "Eyes", (char *) DEF_EYES, t_Bool},
- {(caddr_t *) & sharpturn, (char *) "sharpturn", (char *) "SharpTurn", (char *) DEF_SHARPTURN, t_Bool},
- {(caddr_t *) & neighbors, "neighbors", "Neighbors", DEF_NEIGHBORS, t_Int}
+ {&neighbors, "neighbors", "Neighbors", DEF_NEIGHBORS, t_Int},
+ {&truchet, "truchet", "Truchet", DEF_TRUCHET, t_Bool},
+ {&eyes, "eyes", "Eyes", DEF_EYES, t_Bool},
+ {&sharpturn, "sharpturn", "SharpTurn", DEF_SHARPTURN, t_Bool},
};
static OptionStruct desc[] =
{
- {(char *) "-neighbors num", (char *) "squares 4 or 8, hexagons 6, triangles 3 or 12"},
- {(char *) "-/+truchet", (char *) "turn on/off Truchet lines"},
- {(char *) "-/+eyes", (char *) "turn on/off eyes"},
- {(char *) "-/+sharpturn", (char *) "turn on/off sharp turns (6, 8 or 12 neighbors only)"}
+ {"-neighbors num", "squares 4 or 8, hexagons 6, triangles 3 or 12"},
+ {"-/+truchet", "turn on/off Truchet lines"},
+ {"-/+eyes", "turn on/off eyes"},
+ {"-/+sharpturn", "turn on/off sharp turns (6, 8 or 12 neighbors only)"}
};
-ModeSpecOpt ant_opts =
+ENTRYPOINT ModeSpecOpt ant_opts =
{sizeof opts / sizeof opts[0], opts, sizeof vars / sizeof vars[0], vars, desc};
#ifdef USE_MODULES
antstruct *ants;
int init_bits;
unsigned char colors[NUMSTIPPLES - 1];
+# ifdef DO_STIPPLE
GC stippledGC;
+# endif /* DO_STIPPLE */
Pixmap pixmaps[NUMSTIPPLES - 1];
union {
XPoint hexagon[7]; /* Need more than 6 for truchet */
XPoint triangle[2][4]; /* Need more than 3 for truchet */
} shape;
+#ifdef STANDALONE
+ eraser_state *eraser;
+#endif
} antfarmstruct;
static char plots[] =
if (!color) {
XSetForeground(MI_DISPLAY(mi), MI_GC(mi), MI_BLACK_PIXEL(mi));
gc = MI_GC(mi);
- } else if (MI_NPIXELS(mi) > 2) {
- XSetForeground(MI_DISPLAY(mi), MI_GC(mi),
- MI_PIXEL(mi, ap->colors[color - 1]));
- gc = MI_GC(mi);
- } else {
+# ifdef DO_STIPPLE
+ } else if (MI_NPIXELS(mi) <= 2) {
XGCValues gcv;
-
- gcv.stipple = ap->pixmaps[color - 1];
gcv.foreground = MI_WHITE_PIXEL(mi);
gcv.background = MI_BLACK_PIXEL(mi);
+ gcv.stipple = ap->pixmaps[color - 1];
XChangeGC(MI_DISPLAY(mi), ap->stippledGC,
GCStipple | GCForeground | GCBackground, &gcv);
gc = ap->stippledGC;
+# endif /* !DO_STIPPLE */
+ } else {
+ XSetForeground(MI_DISPLAY(mi), MI_GC(mi),
+ MI_PIXEL(mi, ap->colors[color - 1]));
+ gc = MI_GC(mi);
}
fillcell(mi, gc, col, row);
}
{
int shade;
+#ifdef DO_STIPPLE
if (ap->stippledGC != None) {
XFreeGC(display, ap->stippledGC);
ap->stippledGC = None;
}
+#endif /* DO_STIPPLE */
for (shade = 0; shade < ap->init_bits; shade++) {
XFreePixmap(display, ap->pixmaps[shade]);
}
}
}
-void
+ENTRYPOINT void
init_ant(ModeInfo * mi)
{
Display *display = MI_DISPLAY(mi);
- Window window = MI_WINDOW(mi);
int size = MI_SIZE(mi);
antfarmstruct *ap;
int col, row, dir;
ap = &antfarms[MI_SCREEN(mi)];
ap->redrawing = 0;
+#ifdef DO_STIPPLE
if (MI_NPIXELS(mi) <= 2) {
- if (ap->stippledGC == None) {
+ Window window = MI_WINDOW(mi);
+ if (ap->stippledGC == None) {
XGCValues gcv;
gcv.fill_style = FillOpaqueStippled;
- if ((ap->stippledGC = XCreateGC(display, window, GCFillStyle,
+ if ((ap->stippledGC = XCreateGC(display, window,
+ GCFillStyle,
&gcv)) == None) {
free_ant(display, ap);
return;
}
}
}
+#endif /* DO_STIPPLE */
ap->generation = 0;
ap->n = MI_COUNT(mi);
if (ap->n < -MINANTS) {
draw_anant(mi, dir, col, row);
}
-void
+ENTRYPOINT void
draw_ant(ModeInfo * mi)
{
antstruct *anant;
if (ap->ants == NULL)
return;
+#ifdef STANDALONE
+ if (ap->eraser) {
+ ap->eraser = erase_window (MI_DISPLAY(mi), MI_WINDOW(mi), ap->eraser);
+ return;
+ }
+#endif
+
MI_IS_DRAWN(mi) = True;
ap->painted = True;
for (i = 0; i < ap->n; i++) {
}
if (++ap->generation > MI_CYCLES(mi)) {
#ifdef STANDALONE
- erase_full_window(MI_DISPLAY(mi), MI_WINDOW(mi));
+ ap->eraser = erase_window (MI_DISPLAY(mi), MI_WINDOW(mi), ap->eraser);
#endif
init_ant(mi);
}
}
}
-void
+ENTRYPOINT void
release_ant(ModeInfo * mi)
{
if (antfarms != NULL) {
}
}
-void
+ENTRYPOINT void
refresh_ant(ModeInfo * mi)
{
antfarmstruct *ap;
}
}
+XSCREENSAVER_MODULE ("Ant", ant)
+
#endif /* MODE_ant */