Initial revision

Change-Id: I97166917246ed4ce407b93cf744c0489dc156aff

1 files changed, 455 insertions, 0 deletions

diff --git a/Eyes.c b/Eyes.c
new file mode 100644
index 0000000..71c3c26
--- /dev/null
+++ b/Eyes.c
@@ -0,0 +1,455 @@
+/* $XConsortium: Eyes.c,v 1.28 94/04/17 20:45:22 eswu Exp $ */
+/* $XFree86: xc/programs/xeyes/Eyes.c,v 1.4 2001/08/27 23:35:13 dawes Exp $ */
+/*
+
+Copyright (c) 1991  X Consortium
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR
+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of the X Consortium shall
+not be used in advertising or otherwise to promote the sale, use or
+other dealings in this Software without prior written authorization
+from the X Consortium.
+
+*/
+
+/*
+ * Eyes.c
+ *
+ * a widget which follows the mouse around
+ */
+
+# include <X11/Xos.h>
+# include <stdio.h>
+# include <X11/IntrinsicP.h>
+# include <X11/StringDefs.h>
+# include <X11/Xmu/Converters.h>
+# include "EyesP.h"
+# include <math.h>
+# include <X11/extensions/shape.h>
+
+#if (defined(SVR4) || defined(SYSV) && defined(i386))
+extern double hypot(double, double);
+#endif
+
+#define offset(field) XtOffsetOf(EyesRec, eyes.field)
+#define goffset(field) XtOffsetOf(WidgetRec, core.field)
+
+static XtResource resources[] = {
+    {XtNwidth, XtCWidth, XtRDimension, sizeof(Dimension),
+	goffset(width), XtRImmediate, (XtPointer) 150},
+    {XtNheight, XtCHeight, XtRDimension, sizeof(Dimension),
+	goffset(height), XtRImmediate, (XtPointer) 100},
+    {XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel),
+        offset(puppixel), XtRString, XtDefaultForeground},
+    {XtNoutline, XtCForeground, XtRPixel, sizeof(Pixel),
+        offset(outline), XtRString, XtDefaultForeground},
+    {XtNcenterColor, XtCBackground, XtRPixel, sizeof (Pixel),
+    	offset(center), XtRString, XtDefaultBackground},
+    {XtNreverseVideo, XtCReverseVideo, XtRBoolean, sizeof (Boolean),
+	offset (reverse_video), XtRImmediate, (XtPointer) FALSE},
+    {XtNbackingStore, XtCBackingStore, XtRBackingStore, sizeof (int),
+    	offset (backing_store), XtRString, "default"},
+    {XtNshapeWindow, XtCShapeWindow, XtRBoolean, sizeof (Boolean),
+	offset (shape_window), XtRImmediate, (XtPointer) TRUE},
+};
+
+#undef offset
+#undef goffset
+
+# define NUM_EYES	2
+# define EYE_X(n)	((n) * 2.0)
+# define EYE_Y(n)	(0.0)
+# define EYE_OFFSET	(0.1)	/* padding between eyes */
+# define EYE_THICK	(0.175)	/* thickness of eye rim */
+# define BALL_WIDTH	(0.3)
+# define BALL_PAD	(0.05)
+# define EYE_WIDTH	(2.0 - (EYE_THICK + EYE_OFFSET) * 2)
+# define EYE_HEIGHT	EYE_WIDTH
+# define EYE_HWIDTH	(EYE_WIDTH / 2.0)
+# define EYE_HHEIGHT	(EYE_HEIGHT / 2.0)
+# define BALL_HEIGHT	BALL_WIDTH
+# define BALL_DIST	((EYE_WIDTH - BALL_WIDTH) / 2.0 - BALL_PAD)
+# define W_MIN_X	(-1.0 + EYE_OFFSET)
+# define W_MAX_X	(3.0 - EYE_OFFSET)
+# define W_MIN_Y	(-1.0 + EYE_OFFSET)
+# define W_MAX_Y	(1.0 - EYE_OFFSET)
+
+# define TPointEqual(a, b)  ((a).x == (b).x && (a).y == (b).y)
+# define XPointEqual(a, b)  ((a).x == (b).x && (a).y == (b).y)
+
+static int delays[] = { 50, 100, 200, 400, 0 };
+
+static void ClassInitialize(void)
+{
+    XtAddConverter( XtRString, XtRBackingStore, XmuCvtStringToBackingStore,
+		    NULL, 0 );
+}
+
+WidgetClass eyesWidgetClass = (WidgetClass) &eyesClassRec;
+
+/* ARGSUSED */
+static void Initialize (
+    Widget greq,
+    Widget gnew,
+    ArgList args,
+    Cardinal *num_args)
+{
+    EyesWidget w = (EyesWidget)gnew;
+    XtGCMask	valuemask;
+    XGCValues	myXGCV;
+    int shape_event_base, shape_error_base;
+
+    /*
+     * set the colors if reverse video; these are the colors used:
+     *
+     *     background - paper		white
+     *     foreground - text, ticks	black
+     *     border - border		black (foreground)
+     *
+     * This doesn't completely work since the parent has already made up a 
+     * border.  Sigh.
+     */
+    if (w->eyes.reverse_video) {
+	Pixel fg = w->eyes.puppixel;
+	Pixel bg = w->core.background_pixel;
+
+	if (w->core.border_pixel == fg)
+ 	    w->core.border_pixel = bg;
+	if (w->eyes.outline == fg)
+	    w->eyes.outline = bg;
+	if (w->eyes.center == bg)
+	    w->eyes.center = fg;
+	w->eyes.puppixel = bg;
+	w->core.background_pixel = fg;
+    }
+
+    myXGCV.foreground = w->eyes.puppixel;
+    myXGCV.background = w->core.background_pixel;
+    valuemask = GCForeground | GCBackground;
+    w->eyes.pupGC = XtGetGC(gnew, valuemask, &myXGCV);
+
+    myXGCV.foreground = w->eyes.outline;
+    valuemask = GCForeground | GCBackground;
+    w->eyes.outGC = XtGetGC(gnew, valuemask, &myXGCV);
+
+    myXGCV.foreground = w->eyes.center;
+    myXGCV.background = w->eyes.puppixel;
+    valuemask = GCForeground | GCBackground;
+    w->eyes.centerGC = XtGetGC(gnew, valuemask, &myXGCV);
+
+    w->eyes.update = 0;
+    /* wait for Realize to add the timeout */
+    w->eyes.interval_id = 0;
+
+    w->eyes.pupil[0].x = w->eyes.pupil[1].x = -1000;
+    w->eyes.pupil[0].y = w->eyes.pupil[1].y = -1000;
+
+    w->eyes.mouse.x = w->eyes.mouse.y = -1000;
+
+    if (w->eyes.shape_window && !XShapeQueryExtension (XtDisplay (w),
+						       &shape_event_base,
+						       &shape_error_base))
+	w->eyes.shape_window = False;
+    w->eyes.shape_mask = 0;
+    w->eyes.shapeGC = 0;
+}
+
+static void eyeLiner (
+    EyesWidget	w,
+    Drawable	d,
+    GC		outgc,
+    GC		centergc,
+    int		num)
+{
+	Display *dpy = XtDisplay(w);
+
+	TFillArc (dpy, d, outgc, &w->eyes.t,
+		  EYE_X(num) - EYE_HWIDTH - EYE_THICK,
+ 		  EYE_Y(num) - EYE_HHEIGHT - EYE_THICK,
+		  EYE_WIDTH + EYE_THICK * 2.0,
+ 		  EYE_HEIGHT + EYE_THICK * 2.0,
+ 		  90 * 64, 360 * 64);
+	if (centergc) {
+    	    TFillArc (dpy, d, centergc, &w->eyes.t,
+		  EYE_X(num) - EYE_HWIDTH,
+ 		  EYE_Y(num) - EYE_HHEIGHT,
+		  EYE_WIDTH, EYE_HEIGHT,
+		  90 * 64, 360 * 64);
+	}
+}
+
+static TPoint computePupil (
+    int		num,
+    TPoint	mouse)
+{
+	double	cx, cy;
+	double	dist;
+	double	angle;
+	double	x, y;
+	double	h;
+	double	dx, dy;
+	double	cosa, sina;
+	TPoint	ret;
+
+	dx = mouse.x - EYE_X(num);
+	dy = mouse.y - EYE_Y(num);
+	if (dx == 0 && dy == 0) {
+		cx = EYE_X(num);
+		cy = EYE_Y(num);
+	} else {
+		angle = atan2 ((double) dy, (double) dx);
+		cosa = cos (angle);
+		sina = sin (angle);
+		h = hypot (EYE_HHEIGHT * cosa, EYE_HWIDTH * sina);
+		x = (EYE_HWIDTH * EYE_HHEIGHT) * cosa / h;
+		y = (EYE_HWIDTH * EYE_HHEIGHT) * sina / h;
+		dist = BALL_DIST * hypot (x, y);
+		if (dist > hypot ((double) dx, (double) dy)) {
+			cx = dx + EYE_X(num);
+			cy = dy + EYE_Y(num);
+		} else {
+			cx = dist * cosa + EYE_X(num);
+			cy = dist * sina + EYE_Y(num);
+		}
+	}
+	ret.x = cx;
+	ret.y = cy;
+	return ret;
+}
+
+static void computePupils (
+    TPoint	mouse,
+    TPoint	pupils[2])
+{
+    pupils[0] = computePupil (0, mouse);
+    pupils[1] = computePupil (1, mouse);
+}
+
+static void eyeBall (
+    EyesWidget	w,
+    GC	gc,
+    int	num)
+{
+	Display *dpy = XtDisplay(w);
+	Window win = XtWindow(w);
+
+	TFillArc (dpy, win, gc, &w->eyes.t,
+		   w->eyes.pupil[num].x - BALL_WIDTH / 2.0,
+		   w->eyes.pupil[num].y - BALL_HEIGHT / 2.0,
+		   BALL_WIDTH, BALL_HEIGHT,
+		  90 * 64, 360 * 64);
+}
+
+static void repaint_window (EyesWidget w)
+{
+	if (XtIsRealized ((Widget) w)) {
+		eyeLiner (w, XtWindow (w), w->eyes.outGC, w->eyes.centerGC, 0);
+		eyeLiner (w, XtWindow (w), w->eyes.outGC, w->eyes.centerGC, 1);
+		computePupils (w->eyes.mouse, w->eyes.pupil);
+		eyeBall (w, w->eyes.pupGC, 0);
+		eyeBall (w, w->eyes.pupGC, 1);
+	}
+}
+
+/* ARGSUSED */
+static void draw_it (
+     XtPointer client_data,
+     XtIntervalId *id)		/* unused */
+{
+        EyesWidget	w = (EyesWidget)client_data;
+	Window		rep_root, rep_child;
+	int		rep_rootx, rep_rooty;
+	unsigned int	rep_mask;
+	int		dx, dy;
+	TPoint		mouse;
+	Display		*dpy = XtDisplay (w);
+	Window		win = XtWindow (w);
+	TPoint		newpupil[2];
+	XPoint		xnewpupil, xpupil;
+
+	if (XtIsRealized((Widget)w)) {
+    		XQueryPointer (dpy, win, &rep_root, &rep_child,
+ 			&rep_rootx, &rep_rooty, &dx, &dy, &rep_mask);
+		mouse.x = Tx(dx, dy, &w->eyes.t);
+		mouse.y = Ty(dx, dy, &w->eyes.t);
+		if (!TPointEqual (mouse, w->eyes.mouse)) {
+			computePupils (mouse, newpupil);
+			xpupil.x = Xx(w->eyes.pupil[0].x, w->eyes.pupil[0].y, &w->eyes.t);
+			xpupil.y = Xy(w->eyes.pupil[0].x, w->eyes.pupil[0].y, &w->eyes.t);
+			xnewpupil.x =  Xx(newpupil[0].x, newpupil[0].y, &w->eyes.t);
+			xnewpupil.y =  Xy(newpupil[0].x, newpupil[0].y, &w->eyes.t);
+			if (!XPointEqual (xpupil, xnewpupil)) {
+			    if (w->eyes.pupil[0].x != -1000 || w->eyes.pupil[0].y != -1000)
+				eyeBall (w, w->eyes.centerGC, 0);
+			    w->eyes.pupil[0] = newpupil[0];
+			    eyeBall (w, w->eyes.pupGC, 0);
+			}
+			xpupil.x = Xx(w->eyes.pupil[1].x, w->eyes.pupil[1].y, &w->eyes.t);
+			xpupil.y = Xy(w->eyes.pupil[1].x, w->eyes.pupil[1].y, &w->eyes.t);
+			xnewpupil.x =  Xx(newpupil[1].x, newpupil[1].y, &w->eyes.t);
+			xnewpupil.y =  Xy(newpupil[1].x, newpupil[1].y, &w->eyes.t);
+			if (!XPointEqual (xpupil, xnewpupil)) {
+			    if (w->eyes.pupil[1].x != -1 || w->eyes.pupil[1].y != -1)
+				eyeBall (w, w->eyes.centerGC, 1);
+			    w->eyes.pupil[1] = newpupil[1];
+			    eyeBall (w, w->eyes.pupGC, 1);
+			}
+			w->eyes.mouse = mouse;
+			w->eyes.update = 0;
+		} else {
+			if (delays[w->eyes.update + 1] != 0)
+				++w->eyes.update;
+		}
+	}
+	w->eyes.interval_id =
+		XtAppAddTimeOut(XtWidgetToApplicationContext((Widget) w),
+				delays[w->eyes.update], draw_it, (XtPointer)w);
+} /* draw_it */
+
+static void Resize (Widget gw)
+{
+    EyesWidget	w = (EyesWidget) gw;
+    XGCValues	xgcv;
+    Widget	parent;
+    int		x, y;
+
+    if (XtIsRealized (gw))
+    {
+    	XClearWindow (XtDisplay (w), XtWindow (w));
+    	SetTransform (&w->eyes.t,
+		    	0, w->core.width,
+ 		    	w->core.height, 0,
+		    	W_MIN_X, W_MAX_X,
+		    	W_MIN_Y, W_MAX_Y);
+    	if (w->eyes.shape_window) {
+    	    w->eyes.shape_mask = XCreatePixmap (XtDisplay (w), XtWindow (w),
+	    	    w->core.width, w->core.height, 1);
+    	    if (!w->eyes.shapeGC)
+            	w->eyes.shapeGC = XCreateGC (XtDisplay (w), w->eyes.shape_mask, 0, &xgcv);
+    	    XSetForeground (XtDisplay (w), w->eyes.shapeGC, 0);
+    	    XFillRectangle (XtDisplay (w), w->eyes.shape_mask, w->eyes.shapeGC, 0, 0,
+	    	w->core.width, w->core.height);
+    	    XSetForeground (XtDisplay (w), w->eyes.shapeGC, 1);
+    	    eyeLiner (w, w->eyes.shape_mask, w->eyes.shapeGC, (GC) 0, 0);
+    	    eyeLiner (w, w->eyes.shape_mask, w->eyes.shapeGC, (GC) 0, 1);
+	    x = y = 0;
+	    for (parent = (Widget) w; XtParent (parent); parent = XtParent (parent)) {
+	    	x += parent->core.x + parent->core.border_width;
+	    	x += parent->core.y + parent->core.border_width;
+	    }
+    	    XShapeCombineMask (XtDisplay (parent), XtWindow (parent), ShapeBounding,
+		       	       x, y, w->eyes.shape_mask, ShapeSet);
+    	    XFreePixmap (XtDisplay (w), w->eyes.shape_mask);
+    	}
+    }
+}
+
+static void Realize (
+     Widget gw,
+     XtValueMask *valueMask,
+     XSetWindowAttributes *attrs)
+{
+    EyesWidget	w = (EyesWidget)gw;
+
+    if (w->eyes.backing_store != Always + WhenMapped + NotUseful) {
+     	attrs->backing_store = w->eyes.backing_store;
+	*valueMask |= CWBackingStore;
+    }
+    XtCreateWindow( gw, (unsigned)InputOutput, (Visual *)CopyFromParent,
+		     *valueMask, attrs );
+    Resize (gw);
+    w->eyes.interval_id =
+	XtAppAddTimeOut(XtWidgetToApplicationContext(gw),
+			delays[w->eyes.update], draw_it, (XtPointer)gw);
+}
+
+static void Destroy (Widget gw)
+{
+     EyesWidget w = (EyesWidget)gw;
+
+     if (w->eyes.interval_id)
+	XtRemoveTimeOut (w->eyes.interval_id);
+     XtReleaseGC(gw, w->eyes.pupGC);
+     XtReleaseGC(gw, w->eyes.outGC);
+     XtReleaseGC(gw, w->eyes.centerGC);
+}
+
+/* ARGSUSED */
+static void Redisplay(
+     Widget gw,
+     XEvent *event,
+     Region region)
+{
+    EyesWidget	w;
+
+    w = (EyesWidget) gw;
+    w->eyes.pupil[0].x = -1000;
+    w->eyes.pupil[0].y = -1000;
+    w->eyes.pupil[1].x = -1000;
+    w->eyes.pupil[1].y = -1000;
+    (void) repaint_window ((EyesWidget)gw);
+}
+
+/* ARGSUSED */
+static Boolean SetValues (
+    Widget current,
+    Widget request,
+    Widget new,
+    ArgList args,
+    Cardinal *num_args)
+{
+    return( FALSE );
+}
+
+EyesClassRec eyesClassRec = {
+    { /* core fields */
+    /* superclass		*/	&widgetClassRec,
+    /* class_name		*/	"Eyes",
+    /* size			*/	sizeof(EyesRec),
+    /* class_initialize		*/	ClassInitialize,
+    /* class_part_initialize	*/	NULL,
+    /* class_inited		*/	FALSE,
+    /* initialize		*/	Initialize,
+    /* initialize_hook		*/	NULL,
+    /* realize			*/	Realize,
+    /* actions			*/	NULL,
+    /* num_actions		*/	0,
+    /* resources		*/	resources,
+    /* num_resources		*/	XtNumber(resources),
+    /* xrm_class		*/	NULLQUARK,
+    /* compress_motion		*/	TRUE,
+    /* compress_exposure	*/	TRUE,
+    /* compress_enterleave	*/	TRUE,
+    /* visible_interest		*/	FALSE,
+    /* destroy			*/	Destroy,
+    /* resize			*/	Resize,
+    /* expose			*/	Redisplay,
+    /* set_values		*/	SetValues,
+    /* set_values_hook		*/	NULL,
+    /* set_values_almost	*/	NULL,
+    /* get_values_hook		*/	NULL,
+    /* accept_focus		*/	NULL,
+    /* version			*/	XtVersion,
+    /* callback_private		*/	NULL,
+    /* tm_table			*/	NULL,
+    /* query_geometry		*/	XtInheritQueryGeometry,
+    }
+};