/* -*- Mode: C; tab-width: 4 -*- */
/* shape --- basic in your face shapes */

#if 0
static const char sccsid[] = "@(#)shape.c	5.00 2000/11/01 xlockmore";

#endif

/*-
 * Copyright (c) 1992 by Jamie Zawinski
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation for any purpose and without fee is hereby granted,
 * provided that the above copyright notice appear in all copies and that
 * both that copyright notice and this permission notice appear in
 * supporting documentation.
 *
 * This file is provided AS IS with no warranties of any kind.  The author
 * shall have no liability with respect to the infringement of copyrights,
 * trade secrets or any patents by this file or any part thereof.  In no
 * event will the author be liable for any lost revenue or profits or
 * other special, indirect and consequential damages.
 *
 * Revision History:
 * 01-Nov-2000: Allocation checks
 * 12-Mar-1998: Got the idea for shadow from looking at xscreensaver web page.
 * 10-May-1997: Compatible with xscreensaver
 * 03-Nov-1995: formerly rect.c
 * 11-Aug-1995: slight change to initialization of pixmaps
 * 27-Jun-1995: added ellipses
 * 27-Feb-1995: patch for VMS
 * 29-Sep-1994: multidisplay bug fix <epstein_caleb@jpmorgan.com>
 * 15-Jul-1994: xlock version David Bagley <bagleyd AT verizon.net>
 * 1992: xscreensaver version Jamie Zawinski <jwz AT jwz.org>
 */

/*-
 * original copyright
 * Copyright (c) 1992 by Jamie Zawinski
 * Permission to use, copy, modify, distribute, and sell this software and
 * its documentation for any purpose is hereby granted without fee, provided
 * that the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation.  No representations are made about the suitability of this
 * software for any purpose.  It is provided "as is" without express or
 * implied warranty.
 */

#ifdef STANDALONE
#define MODE_shape
#define DEFAULTS "*delay: 10000 \n" \
	"*count: 100 \n" \
	"*cycles: 256 \n" \
	"*ncolors: 200 \n" \
	"*fullrandom: True \n" \
	"*verbose: False \n" \

# define free_shape 0
# define reshape_shape 0
# define shape_handle_event 0
#include "xlockmore.h"		/* in xscreensaver distribution */
#else /* STANDALONE */
#include "xlock.h"		/* in xlockmore distribution */
#endif /* STANDALONE */

#ifdef MODE_shape

#ifndef STIPPLING
/*-
 * For Linux (others, Intel based?) this could be deadly for the client.
 *   If you have 15/16 bit displays it may want a hard reboot after
 *   1 minute.  Not true on all systems... may be a XFree86 based problem.
 *   Also what is it with those corruption lines in some of the shapes?
 * 3 degrees for STIPPLING ...
 *     0: absolutely not
 *     1: if user insists (default for Linux)
 *     2: permit (also no warning message) (default for other OS's)
 */
#ifdef __linux__
#if 0
#define STIPPLING 0
#else
#define STIPPLING 1
#endif
#else
#define STIPPLING 2
#endif
#endif

/*-
 * "shade" is used over "shadow" because of possible confusion with
 * password shadowing
 */

#define DEF_SHADE  "True"
#define DEF_BORDER  "False"
#if (STIPPLING > 1)
#define DEF_STIPPLE  "True"
#else
#define DEF_STIPPLE  "False"
#endif

static Bool shade;
static Bool border;
static Bool stipple;

static XrmOptionDescRec opts[] =
{
	{(char *) "-shade", (char *) ".shape.shade", XrmoptionNoArg, (caddr_t) "on"},
	{(char *) "+shade", (char *) ".shape.shade", XrmoptionNoArg, (caddr_t) "off"},
	{(char *) "-border", (char *) ".shape.border", XrmoptionNoArg, (caddr_t) "on"},
	{(char *) "+border", (char *) ".shape.border", XrmoptionNoArg, (caddr_t) "off"},
	{(char *) "-stipple", (char *) ".shape.stipple", XrmoptionNoArg, (caddr_t) "on"},
	{(char *) "+stipple", (char *) ".shape.stipple", XrmoptionNoArg, (caddr_t) "off"}
};
static argtype vars[] =
{
	{(void *) & shade, (char *) "shade", (char *) "Shade", (char *) DEF_SHADE, t_Bool},
	{(void *) & border, (char *) "border", (char *) "Border", (char *) DEF_BORDER, t_Bool},
	{(void *) & stipple, (char *) "stipple", (char *) "Stipple", (char *) DEF_STIPPLE, t_Bool}
};
static OptionStruct desc[] =
{
	{(char *) "-/+shade", (char *) "turn on/off shape's shadows"},
	{(char *) "-/+border", (char *) "turn on/off shape's borders"},
	{(char *) "-/+stipple", (char *) "turn on/off shape's stippling"}
};

ENTRYPOINT ModeSpecOpt shape_opts =
{sizeof opts / sizeof opts[0], opts, sizeof vars / sizeof vars[0], vars, desc};

#ifdef USE_MODULES
ModStruct   shape_description =
{"shape", "init_shape", "draw_shape", "release_shape",
 "refresh_shape", "init_shape", (char *) NULL, &shape_opts,
 10000, 100, 256, 1, 64, 1.0, "",
 "Shows overlaying rectangles, ellipses, and triangles", 0, NULL};

#endif

#define MAX_SHADE_OFFSET 32
#define MIN_SHADE_OFFSET 2

#define NBITS 12

#include "bitmaps/gray1.xbm"
#include "bitmaps/gray3.xbm"
#include "bitmaps/stipple.xbm"
#include "bitmaps/cross_weave.xbm"
#include "bitmaps/dimple1.xbm"
#include "bitmaps/dimple3.xbm"
#include "bitmaps/flipped_gray.xbm"
#include "bitmaps/hlines2.xbm"
#include "bitmaps/light_gray.xbm"
#include "bitmaps/root_weave.xbm"
#include "bitmaps/vlines2.xbm"
#include "bitmaps/vlines3.xbm"
#define SHAPEBITS(n,w,h)\
  if ((sp->pixmaps[sp->init_bits]=\
  XCreateBitmapFromData(display,window,(char *)n,w,h))==None){\
  free_shape_screen(display,sp); return;} else {sp->init_bits++;}

typedef struct {
	int         width;
	int         height;
	int         borderx;
	int         bordery;
	int         time;
	int         x, y, w, h;
	Bool        shade;
	Bool        border;
	Bool        stipple;
	XPoint      shade_offset;
	int         init_bits;
	Pixmap      pixmaps[NBITS];
} shapestruct;

static shapestruct *shapes = (shapestruct *) NULL;

static void
free_shape_screen(Display *display, shapestruct *sp)
{
	int         bits;

	if (sp == NULL) {
		return;
	}
	for (bits = 0; bits < sp->init_bits; bits++)
		XFreePixmap(display, sp->pixmaps[bits]);
	/*sp->init_bits = 0;*/
	sp = NULL;
}

ENTRYPOINT void
init_shape(ModeInfo * mi)
{
	shapestruct *sp;

	MI_INIT(mi, shapes);
	sp = &shapes[MI_SCREEN(mi)];

	sp->width = MI_WIDTH(mi);
	sp->height = MI_HEIGHT(mi);
	sp->borderx = sp->width / 20;
	sp->bordery = sp->height / 20;
	sp->time = 0;

	if (MI_IS_FULLRANDOM(mi))
		sp->shade = (Bool) (LRAND() & 1);
	else
		sp->shade = shade;

	if (shade) {
		sp->shade_offset.x = (NRAND(MAX_SHADE_OFFSET - MIN_SHADE_OFFSET) +
				MIN_SHADE_OFFSET) * ((LRAND() & 1) ? 1 : -1);
		sp->shade_offset.y = (NRAND(MAX_SHADE_OFFSET - MIN_SHADE_OFFSET) +
				MIN_SHADE_OFFSET) * ((LRAND() & 1) ? 1 : -1);
	}
	if (MI_IS_FULLRANDOM(mi))
		sp->border = (Bool) (LRAND() & 1);
	else
		sp->border = border;

#if (STIPPLING > 1)
	if (MI_IS_FULLRANDOM(mi))
		sp->stipple = (Bool) (LRAND() & 1);
	else
		sp->stipple = stipple;
#else
#if (STIPPLING < 1)
	sp->stipple = False;
#else
	sp->stipple = stipple;	/* OK if you insist... could be dangerous */
#endif
#endif
	if (sp->stipple && !sp->init_bits) {
		Display    *display = MI_DISPLAY(mi);
		Window      window = MI_WINDOW(mi);

#if defined( __linux__ ) && ( STIPPLING < 2 )
		if ((MI_IS_VERBOSE(mi) || MI_IS_DEBUG(mi)) &&
		    (MI_DEPTH(mi) == 15 || MI_DEPTH(mi) == 16))
			(void) fprintf(stderr, "This may cause a LOCKUP in seconds!!!\n");
#endif
		SHAPEBITS(gray1_bits, gray1_width, gray1_height);
		SHAPEBITS(gray3_bits, gray3_width, gray3_height);
		SHAPEBITS(cross_weave_bits, cross_weave_width, cross_weave_height);
		SHAPEBITS(dimple1_bits, dimple1_width, dimple1_height);
		SHAPEBITS(dimple3_bits, dimple3_width, dimple3_height);
		SHAPEBITS(flipped_gray_bits, flipped_gray_width, flipped_gray_height);
		SHAPEBITS(vlines3_bits, vlines3_width, vlines3_height);
		SHAPEBITS(stipple_bits, stipple_width, stipple_height);
		SHAPEBITS(hlines2_bits, hlines2_width, hlines2_height);
		SHAPEBITS(light_gray_bits, light_gray_width, light_gray_height);
		SHAPEBITS(root_weave_bits, root_weave_width, root_weave_height);
		SHAPEBITS(vlines2_bits, vlines2_width, vlines2_height);
	}
	MI_CLEARWINDOW(mi);
}

ENTRYPOINT void
draw_shape(ModeInfo * mi)
{
	Display    *display = MI_DISPLAY(mi);
	Window      window = MI_WINDOW(mi);
	GC          gc = MI_GC(mi);
	int         shape, i;
	XPoint      shade_offset;
	shapestruct *sp;

	if (shapes == NULL)
		return;
	sp = &shapes[MI_SCREEN(mi)];
	if (sp->stipple && !sp->init_bits)
		return;

	MI_IS_DRAWN(mi) = True;
	shade_offset.x = 0;
	shade_offset.y = 0;

	if (sp->stipple) {
		XSetBackground(display, gc, (MI_NPIXELS(mi) > 2) ?
		   MI_PIXEL(mi, NRAND(MI_NPIXELS(mi))) : MI_BLACK_PIXEL(mi));
	}
	if (sp->border) {
		XSetLineAttributes(display, gc, 2, LineSolid, CapNotLast, JoinRound);
	}
	shape = NRAND(3);
	if (sp->shade) {
		i = MAX(ABS(sp->shade_offset.x), ABS(sp->shade_offset.y));
		shade_offset.x = (short) (((float) NRAND(i) + 2.0) /
		     ((float) (1.0 + i) * sp->shade_offset.x));
		/* cc: error 1405: "/opt/ansic/lbin/ccom"
		   terminated abnormally with signal 11.
		   *** Error exit code 9 */
		/* Next line trips up HP cc -g -O, remove a flag */
		shade_offset.y = (short) (((float) NRAND(i) + 2.0) /
		     ((float) (1.0 + i) * sp->shade_offset.y));
		/* This is over-simplistic... it casts the same
		 * length shadow over different depth objects.
		 */
	}
	if (shape == 2) {
		XPoint      triangleList[4];
		XPoint      triangleShade[3];

		triangleList[0].x = sp->borderx + NRAND(sp->width - 2 * sp->borderx);
		triangleList[0].y = sp->bordery + NRAND(sp->height - 2 * sp->bordery);
		triangleList[1].x = sp->borderx + NRAND(sp->width - 2 * sp->borderx);
		triangleList[1].y = sp->bordery + NRAND(sp->height - 2 * sp->bordery);
		triangleList[2].x = sp->borderx + NRAND(sp->width - 2 * sp->borderx);
		triangleList[2].y = sp->bordery + NRAND(sp->height - 2 * sp->bordery);
		triangleList[3].x = triangleList[0].x;
		triangleList[3].y = triangleList[0].y;
		if (sp->shade) {
			for (i = 0; i < 3; i++) {
				triangleShade[i].x = triangleList[i].x + shade_offset.x;
				triangleShade[i].y = triangleList[i].y + shade_offset.y;
			}
			if (sp->stipple) {
				XSetStipple(display, gc, sp->pixmaps[0]);
				XSetFillStyle(display, gc, FillStippled);
			}
			XSetForeground(display, gc, MI_BLACK_PIXEL(mi));
			XFillPolygon(display, window, gc, triangleShade, 3,
				     Convex, CoordModeOrigin);
		}
		if (sp->stipple) {
			XSetStipple(display, gc, sp->pixmaps[NRAND(sp->init_bits)]);
			XSetFillStyle(display, gc, FillOpaqueStippled);
		}
		XSetForeground(display, gc, (MI_NPIXELS(mi) > 2) ?
		   MI_PIXEL(mi, NRAND(MI_NPIXELS(mi))) : MI_WHITE_PIXEL(mi));
		XFillPolygon(display, window, gc, triangleList, 3,
			     Convex, CoordModeOrigin);
		if (sp->border) {
			XSetForeground(display, gc, (MI_NPIXELS(mi) > 2) ?
				       MI_PIXEL(mi, NRAND(MI_NPIXELS(mi))) : MI_BLACK_PIXEL(mi));
			XDrawLines(display, window, gc, triangleList, 4, CoordModeOrigin);
		}
	} else {
		sp->w = sp->borderx + NRAND(sp->width - 2 * sp->borderx) *
			NRAND(sp->width) / sp->width;
		sp->h = sp->bordery + NRAND(sp->height - 2 * sp->bordery) *
			NRAND(sp->height) / sp->height;
		sp->x = NRAND(sp->width - sp->w);
		sp->y = NRAND(sp->height - sp->h);
		if (shape) {
			if (sp->shade) {
				if (sp->stipple) {
					XSetStipple(display, gc, sp->pixmaps[0]);
					XSetFillStyle(display, gc, FillStippled);
				}
				XSetForeground(display, gc, MI_BLACK_PIXEL(mi));
				XFillArc(display, window, gc,
					 sp->x + shade_offset.x, sp->y + shade_offset.y,
					 sp->w, sp->h, 0, 23040);
			}
			if (sp->stipple) {
				XSetStipple(display, gc, sp->pixmaps[NRAND(sp->init_bits)]);
				XSetFillStyle(display, gc, FillOpaqueStippled);
			}
			XSetForeground(display, gc, (MI_NPIXELS(mi) > 2) ?
				       MI_PIXEL(mi, NRAND(MI_NPIXELS(mi))) : MI_WHITE_PIXEL(mi));
			XFillArc(display, window, gc,
				 sp->x, sp->y, sp->w, sp->h, 0, 23040);
			if (sp->border) {
				XSetForeground(display, gc, (MI_NPIXELS(mi) > 2) ?
					       MI_PIXEL(mi, NRAND(MI_NPIXELS(mi))) : MI_BLACK_PIXEL(mi));
				XDrawArc(display, window, gc,
				       sp->x, sp->y, sp->w, sp->h, 0, 23040);
			}
		} else {
			if (sp->shade) {
				if (sp->stipple) {
					XSetStipple(display, gc, sp->pixmaps[0]);
					XSetFillStyle(display, gc, FillStippled);
				}
				XSetForeground(display, gc, MI_BLACK_PIXEL(mi));
				XFillRectangle(display, window, gc,
					       sp->x + shade_offset.x, sp->y + shade_offset.y, sp->w, sp->h);
			}
			if (sp->stipple) {
				XSetStipple(display, gc, sp->pixmaps[NRAND(sp->init_bits)]);
				XSetFillStyle(display, gc, FillOpaqueStippled);
			}
			XSetForeground(display, gc, (MI_NPIXELS(mi) > 2) ?
				       MI_PIXEL(mi, NRAND(MI_NPIXELS(mi))) : MI_WHITE_PIXEL(mi));
			XFillRectangle(display, window, gc,
				       sp->x, sp->y, sp->w, sp->h);
			if (sp->border) {
				XSetForeground(display, gc, (MI_NPIXELS(mi) > 2) ?
					       MI_PIXEL(mi, NRAND(MI_NPIXELS(mi))) : MI_BLACK_PIXEL(mi));
				XDrawRectangle(display, window, gc,
					       sp->x, sp->y, sp->w, sp->h);
			}
		}
	}
	if (sp->border)
		XSetLineAttributes(display, gc, 1, LineSolid, CapNotLast, JoinRound);
	if (sp->stipple)
		XSetFillStyle(display, gc, FillSolid);
	if (sp->stipple && MI_NPIXELS(mi) > 2) {
		XSetBackground(display, gc, MI_BLACK_PIXEL(mi));
	}
	XFlush(display);
	if (++sp->time > MI_CYCLES(mi))
		init_shape(mi);
}

ENTRYPOINT void
release_shape(ModeInfo * mi)
{
	if (shapes != NULL) {
		int         screen;

		for (screen = 0; screen < MI_NUM_SCREENS(mi); screen++)
			free_shape_screen(MI_DISPLAY(mi), &shapes[screen]);
		free(shapes);
		shapes = (shapestruct *) NULL;
	}
}

#ifndef STANDALONE
ENTRYPOINT void
refresh_shape(ModeInfo * mi)
{
	MI_CLEARWINDOW(mi);
}
#endif

XSCREENSAVER_MODULE ("Shape", shape)

#endif /* MODE_shape */
