Neighbors 6 and neighbors 3 produce the same Turk ants.
*/
-#ifndef HAVE_COCOA
-# define DO_STIPPLE
+#ifndef HAVE_JWXYZ
+/*# define DO_STIPPLE*/
#endif
#ifdef STANDALONE
# define MODE_ant
-# define DEFAULTS "*delay: 1000 \n" \
+# define DEFAULTS "*delay: 20000 \n" \
"*count: -3 \n" \
"*cycles: 40000 \n" \
"*size: -12 \n" \
- "*ncolors: 64 \n"
+ "*ncolors: 64 \n" \
+ "*fpsSolid: true \n" \
+
# define reshape_ant 0
+# define release_ant 0
# define ant_handle_event 0
# include "xlockmore.h" /* in xscreensaver distribution */
-# include "erase.h"
#else /* STANDALONE */
# include "xlock.h" /* in xlockmore distribution */
#endif /* STANDALONE */
#ifdef USE_MODULES
const ModStruct ant_description =
{"ant",
- "init_ant", "draw_ant", "release_ant",
- "refresh_ant", "init_ant", (char *) NULL, &ant_opts,
+ "init_ant", "draw_ant", (char *) NULL,
+ "refresh_ant", "init_ant", "free_ant", &ant_opts,
1000, -3, 40000, -12, 64, 1.0, "",
"Shows Langton's and Turk's generalized ants", 0, NULL};
#define ANTBITS(n,w,h)\
if ((ap->pixmaps[ap->init_bits]=\
XCreatePixmapFromBitmapData(display,window,(char *)n,w,h,1,0,1))==None){\
- free_ant(display,ap); return;} else {ap->init_bits++;}
+ free_ant(mi); return;} else {ap->init_bits++;}
/* If you change the table you may have to change the following 2 constants */
#define STATES 2
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;
-
-#ifdef DO_STIPPLE
- gcv.stipple = ap->pixmaps[color - 1];
-#endif /* DO_STIPPLE */
gcv.foreground = MI_WHITE_PIXEL(mi);
gcv.background = MI_BLACK_PIXEL(mi);
+ gcv.stipple = ap->pixmaps[color - 1];
XChangeGC(MI_DISPLAY(mi), ap->stippledGC,
-#ifdef DO_STIPPLE
- GCStipple |
-#endif /* DO_STIPPLE */
- GCForeground | GCBackground, &gcv);
+ 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);
}
ap->n, ap->neighbors, number, ap->ncolors);
}
-static void
-free_ant(Display *display, antfarmstruct *ap)
+ENTRYPOINT void
+free_ant(ModeInfo * mi)
{
+ Display *display = MI_DISPLAY(mi);
+ antfarmstruct *ap = &antfarms[MI_SCREEN(mi)];
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]);
}
int col, row, dir;
int i;
- if (antfarms == NULL) {
+ MI_INIT(mi, antfarms);
+ /*if (antfarms == NULL) {
if ((antfarms = (antfarmstruct *) calloc(MI_NUM_SCREENS(mi),
sizeof (antfarmstruct))) == NULL)
return;
- }
+ }*/
ap = &antfarms[MI_SCREEN(mi)];
ap->redrawing = 0;
if ((ap->stippledGC = XCreateGC(display, window,
GCFillStyle,
&gcv)) == None) {
- free_ant(display, ap);
+ free_ant(mi);
return;
}
}
if (ap->ants == NULL) {
if ((ap->ants = (antstruct *) malloc(ap->n * sizeof (antstruct))) ==
NULL) {
- free_ant(display, ap);
+ free_ant(mi);
return;
}
}
(void) free((void *) ap->tape);
if ((ap->tape = (unsigned char *) calloc(ap->ncols * ap->nrows,
sizeof (unsigned char))) == NULL) {
- free_ant(display, ap);
+ free_ant(mi);
return;
}
if (ap->truchet_state != NULL)
(void) free((void *) ap->truchet_state);
if ((ap->truchet_state = (unsigned char *) calloc(ap->ncols * ap->nrows,
sizeof (unsigned char))) == NULL) {
- free_ant(display, ap);
+ free_ant(mi);
return;
}
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++) {
draw_anant(mi, anant->direction, anant->col, anant->row);
}
if (++ap->generation > MI_CYCLES(mi)) {
-#ifdef STANDALONE
- ap->eraser = erase_window (MI_DISPLAY(mi), MI_WINDOW(mi), ap->eraser);
-#endif
init_ant(mi);
}
if (ap->redrawing) {
}
}
-ENTRYPOINT void
-release_ant(ModeInfo * mi)
-{
- if (antfarms != NULL) {
- int screen;
-
- for (screen = 0; screen < MI_NUM_SCREENS(mi); screen++)
- free_ant(MI_DISPLAY(mi), &antfarms[screen]);
- (void) free((void *) antfarms);
- antfarms = (antfarmstruct *) NULL;
- }
-}
-
+#ifndef STANDALONE
ENTRYPOINT void
refresh_ant(ModeInfo * mi)
{
ap->redrawpos = 0;
}
}
+#endif
XSCREENSAVER_MODULE ("Ant", ant)