svn merge ^/branches/released .

1 files changed, 576 insertions, 579 deletions

diff --git a/libXaw/src/StripChart.c b/libXaw/src/StripChart.c
index ada85f172..85e3e3914 100644
--- a/libXaw/src/StripChart.c
+++ b/libXaw/src/StripChart.c
@@ -1,579 +1,576 @@
-/* $Xorg: StripChart.c,v 1.4 2001/02/09 02:03:46 xorgcvs Exp $ */
-
-/***********************************************************
-
-Copyright 1987, 1988, 1994, 1998  The Open Group
-
-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.
-
-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
-OPEN GROUP 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 Open Group 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 Open Group.
-
-
-Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.
-
-                        All Rights Reserved
-
-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, and that the name of Digital not be
-used in advertising or publicity pertaining to distribution of the
-software without specific, written prior permission.  
-
-DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
-ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
-DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
-ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
-WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
-SOFTWARE.
-
-******************************************************************/
-/* $XFree86: xc/lib/Xaw/StripChart.c,v 1.7 2001/01/17 19:42:32 dawes Exp $ */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/IntrinsicP.h>
-#include <X11/StringDefs.h>
-#include <X11/Xfuncs.h>
-#include <X11/Xaw/StripCharP.h>
-#include <X11/Xaw/XawInit.h>
-#include "Private.h"
-
-#define MS_PER_SEC 1000
-
-/*
- * Class Methods
- */
-static void XawStripChartInitialize(Widget, Widget, ArgList, Cardinal*);
-static void XawStripChartDestroy(Widget);
-static void XawStripChartRedisplay(Widget, XEvent*, Region);
-static void XawStripChartResize(Widget);
-static Boolean XawStripChartSetValues(Widget, Widget, Widget,
-				      ArgList, Cardinal*);
-
-/*
- * Prototypes
- */
-static void CreateGC(StripChartWidget, unsigned int);
-static void DestroyGC(StripChartWidget, unsigned int);
-static void draw_it(XtPointer, XtIntervalId*);
-static void MoveChart(StripChartWidget, Bool);
-static int repaint_window(StripChartWidget, int, int);
-
-/*
- * Initialization
- */
-#define offset(field)	XtOffsetOf(StripChartRec, field)
-static XtResource resources[] = {
-  {
-    XtNwidth,
-    XtCWidth,
-    XtRDimension,
-    sizeof(Dimension),
-    offset(core.width),
-    XtRImmediate,
-    (XtPointer)
-    120
-  },
-  {
-    XtNheight,
-    XtCHeight,
-    XtRDimension,
-    sizeof(Dimension),
-    offset(core.height),
-    XtRImmediate,
-    (XtPointer)120
-  },
-  {
-    XtNupdate,
-    XtCInterval,
-    XtRInt,
-    sizeof(int),
-    offset(strip_chart.update),
-    XtRImmediate,
-    (XtPointer)10
-  },
-  {
-    XtNminScale,
-    XtCScale,
-    XtRInt,
-    sizeof(int),
-    offset(strip_chart.min_scale),
-    XtRImmediate,
-    (XtPointer)1
-  },
-  {
-    XtNforeground,
-    XtCForeground,
-    XtRPixel,
-    sizeof(Pixel),
-    offset(strip_chart.fgpixel),
-    XtRString,
-    XtDefaultForeground
-  },
-  {
-    XtNhighlight,
-    XtCForeground,
-    XtRPixel,
-    sizeof(Pixel),
-    offset(strip_chart.hipixel),
-    XtRString,
-    XtDefaultForeground
-  },
-  {
-    XtNgetValue,
-    XtCCallback,
-    XtRCallback,
-    sizeof(XtPointer),
-    offset(strip_chart.get_value),
-    XtRImmediate,
-    NULL
-  },
-  {
-    XtNjumpScroll,
-    XtCJumpScroll,
-    XtRInt,
-    sizeof(int),
-    offset(strip_chart.jump_val),
-    XtRImmediate,
-    (XtPointer)DEFAULT_JUMP
-  },
-};
-#undef offset
-
-StripChartClassRec stripChartClassRec = {
-  /* core */
-  {
-    (WidgetClass)&simpleClassRec,	/* superclass */
-    "StripChart",			/* class_name */
-    sizeof(StripChartRec),		/* widget_size */
-    XawInitializeWidgetSet,		/* class_initialize */
-    NULL,				/* class_part_initialize */
-    False,				/* class_inited */
-    XawStripChartInitialize,		/* initialize */
-    NULL,				/* initialize_hook */
-    XtInheritRealize,			/* realize */
-    NULL,				/* actions */
-    0,					/* num_actions */
-    resources,				/* resources */
-    XtNumber(resources),		/* num_resources */
-    NULLQUARK,				/* xrm_class */
-    True,				/* compress_motion */
-    XtExposeCompressMultiple		/* compress_exposure */
-    | XtExposeGraphicsExposeMerged,
-    True,				/* compress_enterleave */
-    False,				/* visible_interest */
-    XawStripChartDestroy,		/* destroy */
-    XawStripChartResize,		/* resize */
-    XawStripChartRedisplay,		/* expose */
-    XawStripChartSetValues,		/* set_values */
-    NULL,				/* set_values_hook */
-    NULL,				/* set_values_almost */
-    NULL,				/* get_values_hook */
-    NULL,				/* accept_focus */
-    XtVersion,				/* version */
-    NULL,				/* callback_private */
-    NULL,				/* tm_table */
-    XtInheritQueryGeometry,		/* query_geometry */
-    XtInheritDisplayAccelerator,	/* display_accelerator */
-    NULL,				/* extension */
-  },
-  /* simple */
-  {
-    XtInheritChangeSensitive,		/* change_sensitive */
-  }
-};
-
-WidgetClass stripChartWidgetClass = (WidgetClass)&stripChartClassRec;
-
-/*
- * Implementation
- */
-/*
- * Function:
- *	CreateGC
- *
- * Parameters:
- *	w     - strip chart widget
- *	which - GC's to create
- *
- * Description:
- *	Creates the GC's
- */
-static void
-CreateGC(StripChartWidget w, unsigned int which)
-{
-    XGCValues myXGCV;
-
-    if (which & FOREGROUND) {
-	myXGCV.foreground = w->strip_chart.fgpixel;
-	w->strip_chart.fgGC = XtGetGC((Widget)w, GCForeground, &myXGCV);
-    }
-
-    if (which & HIGHLIGHT) {
-	myXGCV.foreground = w->strip_chart.hipixel;
-	w->strip_chart.hiGC = XtGetGC((Widget)w, GCForeground, &myXGCV);
-    }
-}
-
-/*
- * Function:
- *	DestroyGC
- *
- * Arguments:
- *	w     - strip chart widget
- *	which - which GC's to destroy
- *
- * Description:
- *	Destroys the GC's
- */
-static void
-DestroyGC(StripChartWidget w, unsigned int which)
-{
-    if (which & FOREGROUND) 
-	XtReleaseGC((Widget)w, w->strip_chart.fgGC);
-
-    if (which & HIGHLIGHT) 
-	XtReleaseGC((Widget)w, w->strip_chart.hiGC);
-}
-
-/*ARGSUSED*/
-static void
-XawStripChartInitialize(Widget greq, Widget gnew,
-			ArgList args, Cardinal *num_args)
-{
-    StripChartWidget w = (StripChartWidget)gnew;
-
-    if (w->strip_chart.update > 0)
-    w->strip_chart.interval_id =
-    XtAppAddTimeOut(XtWidgetToApplicationContext(gnew),
-		    w->strip_chart.update * MS_PER_SEC, 
-		    draw_it, (XtPointer)gnew);
-    CreateGC(w, ALL_GCS);
-
-    w->strip_chart.scale = w->strip_chart.min_scale;
-    w->strip_chart.interval = 0;
-    w->strip_chart.max_value = 0.0;
-    w->strip_chart.points = NULL;
-    XawStripChartResize(gnew);
-}
- 
-static void
-XawStripChartDestroy(Widget gw)
-{
-    StripChartWidget w = (StripChartWidget)gw;
-
-    if (w->strip_chart.update > 0)
-	XtRemoveTimeOut(w->strip_chart.interval_id);
-    if (w->strip_chart.points)
-	XtFree((char *)w->strip_chart.points);
-    DestroyGC(w, ALL_GCS);
-}
-
-/*
- * NOTE: This function really needs to recieve graphics exposure 
- *       events, but since this is not easily supported until R4 I am
- *       going to hold off until then.
- */
-/*ARGSUSED*/
-static void
-XawStripChartRedisplay(Widget w, XEvent *event, Region region)
-{
-    if (event->type == GraphicsExpose)
-	(void)repaint_window((StripChartWidget)w, event->xgraphicsexpose.x,
-			     event->xgraphicsexpose.width);
-    else
-	(void)repaint_window((StripChartWidget)w, event->xexpose.x,
-			     event->xexpose.width);
-}
-
-/*ARGSUSED*/
-static void 
-draw_it(XtPointer client_data, XtIntervalId *id)
-{
-    StripChartWidget w = (StripChartWidget)client_data;
-    double value;
-   
-    if (w->strip_chart.update > 0)
-	w->strip_chart.interval_id =
-	    XtAppAddTimeOut(XtWidgetToApplicationContext((Widget)w),
-			    w->strip_chart.update * MS_PER_SEC,draw_it,
-			    client_data);
-
-    if (w->strip_chart.interval >= XtWidth(w))
-	MoveChart((StripChartWidget)w, True);
-
-    /* Get the value, stash the point and draw corresponding line */
-    if (w->strip_chart.get_value == NULL)
-	return;
-
-    XtCallCallbacks((Widget)w, XtNgetValue, (XtPointer)&value);
-
-    /* 
-     * Keep w->strip_chart.max_value up to date, and if this data 
-     * point is off the graph, change the scale to make it fit
-     */
-    if (value > w->strip_chart.max_value) {
-	w->strip_chart.max_value = value;
-	if (XtIsRealized((Widget)w) &&
-	    w->strip_chart.max_value > w->strip_chart.scale) {
-	    XClearWindow(XtDisplay(w), XtWindow(w));
-	    w->strip_chart.interval = repaint_window(w, 0, XtWidth(w));
-	}
-    }
-
-    w->strip_chart.valuedata[w->strip_chart.interval] = value;
-    if (XtIsRealized((Widget)w)) {
-	int y = (int)(XtHeight(w) - XtHeight(w) * value
-		     / w->strip_chart.scale);
-
-	XFillRectangle(XtDisplay(w), XtWindow(w), w->strip_chart.fgGC,
-		       w->strip_chart.interval, y, 
-		       1, XtHeight(w) - y);
-
-	/*
-	 * Fill in the graph lines we just painted over
-	 */
-	if (w->strip_chart.points != NULL) {
-	    w->strip_chart.points[0].x = w->strip_chart.interval;
-	    XDrawPoints(XtDisplay(w), XtWindow(w), w->strip_chart.hiGC,
-			w->strip_chart.points, w->strip_chart.scale - 1,
-			CoordModePrevious);
-	}
-
-	XFlush(XtDisplay(w));		    /* Flush output buffers */
-    }
-    w->strip_chart.interval++;		    /* Next point */
-}
-
-/* Blts data according to current size, then redraws the stripChart window
- * Next represents the number of valid points in data.  Returns the (possibly)
- * adjusted value of next.  If next is 0, this routine draws an empty window
- * (scale - 1 lines for graph).  If next is less than the current window width,
- * the returned value is identical to the initial value of next and data is
- * unchanged.  Otherwise keeps half a window's worth of data.  If data is
- * changed, then w->strip_chart.max_value is updated to reflect the
- * largest data point
- */
-static int 
-repaint_window(StripChartWidget w, int left, int width)
-{
-    int i, j;
-    int next = w->strip_chart.interval;
-    int scale = w->strip_chart.scale;
-    int scalewidth = 0;
-
-    /* Compute the minimum scale required to graph the data, but don't go
-       lower than min_scale */
-    if (w->strip_chart.interval != 0 || scale <= w->strip_chart.max_value)
-	scale = w->strip_chart.max_value + 1;
-	if (scale < w->strip_chart.min_scale)
-	    scale = w->strip_chart.min_scale;
-
-    if (scale != w->strip_chart.scale) {
-	w->strip_chart.scale = scale;
-	left = 0;
-	width = next;
-	scalewidth = XtWidth(w);
-
-	XawStripChartResize((Widget)w);
-
-	if (XtIsRealized((Widget)w))
-	    XClearWindow(XtDisplay(w), XtWindow(w));
-    }
-
-    if (XtIsRealized((Widget)w)) {
-	Display *dpy = XtDisplay(w);
-	Window win = XtWindow(w);
-
-	width += left - 1;
-	if (!scalewidth)
-	    scalewidth = width;
-
-	if (next < ++width)
-	    width = next;
-
-	/* Draw data point lines */
-	for (i = left; i < width; i++) {
-	    int y = XtHeight(w) - (XtHeight(w) * w->strip_chart.valuedata[i])
-				   / w->strip_chart.scale;
-
-	    XFillRectangle(dpy, win, w->strip_chart.fgGC, 
-			   i, y, 1, XtHeight(w) - y);
-	}
-
-	/* Draw graph reference lines */
-	for (i = 1; i < w->strip_chart.scale; i++) {
-	    j = i * ((int)XtHeight(w) / w->strip_chart.scale);
-	    XDrawLine(dpy, win, w->strip_chart.hiGC, left, j, scalewidth, j);
-	}
-    }
-    return (next);
-}
-
-/*
- * Function:
- *	MoveChart
- *
- * Parameters:
- *	w - chart widget
- *	blit - blit the bits?
- *
- * Description:
- *	Moves the chart over when it would run off the end.
- */
-static void
-MoveChart(StripChartWidget w, Bool blit)
-{
-    double old_max;
-    int left, i, j;
-    int next = w->strip_chart.interval;
-
-    if (!XtIsRealized((Widget)w))
-	return;
-
-    if (w->strip_chart.jump_val < 0)
-	w->strip_chart.jump_val = DEFAULT_JUMP;
-    if (w->strip_chart.jump_val == DEFAULT_JUMP)
-	j = XtWidth(w) >> 1;
-    else {
-	j = (int)XtWidth(w) - w->strip_chart.jump_val;
-	if (j < 0)
-	    j = 0;
-    }
-
-    (void)memmove((char *)w->strip_chart.valuedata,
-		  (char *)(w->strip_chart.valuedata + next - j),
-		  j * sizeof(double));
-    next = w->strip_chart.interval = j;
-	
-    /*
-     * Since we just lost some data, recompute the 
-     * w->strip_chart.max_value
-     */
-    old_max = w->strip_chart.max_value;
-    w->strip_chart.max_value = 0.0;
-    for (i = 0; i < next; i++) {
-	if (w->strip_chart.valuedata[i] > w->strip_chart.max_value) 
-	    w->strip_chart.max_value = w->strip_chart.valuedata[i];
-    }
-
-    if (!blit)
-	return;
-
-    if (old_max != w->strip_chart.max_value) {
-	XClearWindow(XtDisplay(w), XtWindow(w));
-	repaint_window(w, 0, XtWidth(w));
-	return;
-    }
-
-    XCopyArea(XtDisplay((Widget)w), XtWindow((Widget)w), XtWindow((Widget)w),
-	      w->strip_chart.hiGC, (int)XtWidth(w) - j, 0, j, XtHeight(w), 0, 0);
-
-    XClearArea(XtDisplay((Widget)w), XtWindow((Widget)w), 
-	       j, 0, XtWidth(w) - j, XtHeight(w), False);
-
-    /* Draw graph reference lines */
-    left = j;
-    for (i = 1; i < w->strip_chart.scale; i++) {
-	j = i * (XtHeight(w) / w->strip_chart.scale);
-	XDrawLine(XtDisplay((Widget)w), XtWindow((Widget)w),
-		  w->strip_chart.hiGC, left, j, XtWidth(w), j);
-    }
-}
-
-/*ARGSUSED*/
-static Boolean
-XawStripChartSetValues(Widget current, Widget request, Widget cnew,
-		       ArgList args, Cardinal *num_args)
-{
-    StripChartWidget old = (StripChartWidget)current;
-    StripChartWidget w = (StripChartWidget)cnew;
-    Bool ret_val = False;
-    unsigned int new_gc = NO_GCS;
-
-    if (w->strip_chart.update != old->strip_chart.update) {
-	if (old->strip_chart.update > 0)
-	    XtRemoveTimeOut(old->strip_chart.interval_id);
-	if (w->strip_chart.update > 0)
-	    w->strip_chart.interval_id =
-		XtAppAddTimeOut(XtWidgetToApplicationContext(cnew),
-				w->strip_chart.update * MS_PER_SEC,
-				draw_it, (XtPointer)w);
-    }
-
-    if (w->strip_chart.min_scale > w->strip_chart.max_value + 1)
-	ret_val = True;
-     
-    if (w->strip_chart.fgpixel != old->strip_chart.fgpixel) {
-	new_gc |= FOREGROUND;
-	ret_val = True;
-    }
-    
-    if (w->strip_chart.hipixel != old->strip_chart.hipixel) {
-	new_gc |= HIGHLIGHT;
-	ret_val = True;
-    }
-    
-    DestroyGC(old, new_gc);
-    CreateGC(w, new_gc);
-
-    return (ret_val);
-}
-
-/*
- * Function:
- *	XawStripChartResize
- *
- * Parameters:
- *	w - StripChart widget
- *
- * Description:
- *	Sets up the polypoint that will be used to draw in the graph lines.
- */
-static void
-XawStripChartResize(Widget widget)
-{
-    StripChartWidget w = (StripChartWidget)widget;
-    XPoint *points;
-    Cardinal size;
-    int i;
-
-    if (w->strip_chart.scale <= 1) {
-	XtFree((char *)w->strip_chart.points);
-	w->strip_chart.points = NULL;
-	return;
-    }
-    
-    size = sizeof(XPoint) * (w->strip_chart.scale - 1);
-
-    points = (XPoint *)XtRealloc((XtPointer)w->strip_chart.points, size);
-    w->strip_chart.points = points;
-
-    /* Draw graph reference lines into clip mask */
-
-    for (i = 1; i < w->strip_chart.scale; i++) {
-	points[i - 1].x = 0;
-	points[i - 1].y = XtHeight(w) / w->strip_chart.scale;
-    }
-}
+/***********************************************************

+

+Copyright 1987, 1988, 1994, 1998  The Open Group

+

+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.

+

+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

+OPEN GROUP 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 Open Group 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 Open Group.

+

+

+Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.

+

+                        All Rights Reserved

+

+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, and that the name of Digital not be

+used in advertising or publicity pertaining to distribution of the

+software without specific, written prior permission.  

+

+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+SOFTWARE.

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <X11/IntrinsicP.h>

+#include <X11/StringDefs.h>

+#include <X11/Xfuncs.h>

+#include <X11/Xaw/StripCharP.h>

+#include <X11/Xaw/XawInit.h>

+#include "Private.h"

+

+#define MS_PER_SEC 1000

+

+/*

+ * Class Methods

+ */

+static void XawStripChartInitialize(Widget, Widget, ArgList, Cardinal*);

+static void XawStripChartDestroy(Widget);

+static void XawStripChartRedisplay(Widget, XEvent*, Region);

+static void XawStripChartResize(Widget);

+static Boolean XawStripChartSetValues(Widget, Widget, Widget,

+				      ArgList, Cardinal*);

+

+/*

+ * Prototypes

+ */

+static void CreateGC(StripChartWidget, unsigned int);

+static void DestroyGC(StripChartWidget, unsigned int);

+static void draw_it(XtPointer, XtIntervalId*);

+static void MoveChart(StripChartWidget, Bool);

+static int repaint_window(StripChartWidget, int, int);

+

+/*

+ * Initialization

+ */

+#define offset(field)	XtOffsetOf(StripChartRec, field)

+static XtResource resources[] = {

+  {

+    XtNwidth,

+    XtCWidth,

+    XtRDimension,

+    sizeof(Dimension),

+    offset(core.width),

+    XtRImmediate,

+    (XtPointer)

+    120

+  },

+  {

+    XtNheight,

+    XtCHeight,

+    XtRDimension,

+    sizeof(Dimension),

+    offset(core.height),

+    XtRImmediate,

+    (XtPointer)120

+  },

+  {

+    XtNupdate,

+    XtCInterval,

+    XtRInt,

+    sizeof(int),

+    offset(strip_chart.update),

+    XtRImmediate,

+    (XtPointer)10

+  },

+  {

+    XtNminScale,

+    XtCScale,

+    XtRInt,

+    sizeof(int),

+    offset(strip_chart.min_scale),

+    XtRImmediate,

+    (XtPointer)1

+  },

+  {

+    XtNforeground,

+    XtCForeground,

+    XtRPixel,

+    sizeof(Pixel),

+    offset(strip_chart.fgpixel),

+    XtRString,

+    XtDefaultForeground

+  },

+  {

+    XtNhighlight,

+    XtCForeground,

+    XtRPixel,

+    sizeof(Pixel),

+    offset(strip_chart.hipixel),

+    XtRString,

+    XtDefaultForeground

+  },

+  {

+    XtNgetValue,

+    XtCCallback,

+    XtRCallback,

+    sizeof(XtPointer),

+    offset(strip_chart.get_value),

+    XtRImmediate,

+    NULL

+  },

+  {

+    XtNjumpScroll,

+    XtCJumpScroll,

+    XtRInt,

+    sizeof(int),

+    offset(strip_chart.jump_val),

+    XtRImmediate,

+    (XtPointer)DEFAULT_JUMP

+  },

+};

+#undef offset

+

+StripChartClassRec stripChartClassRec = {

+  /* core */

+  {

+    (WidgetClass)&simpleClassRec,	/* superclass */

+    "StripChart",			/* class_name */

+    sizeof(StripChartRec),		/* widget_size */

+    XawInitializeWidgetSet,		/* class_initialize */

+    NULL,				/* class_part_initialize */

+    False,				/* class_inited */

+    XawStripChartInitialize,		/* initialize */

+    NULL,				/* initialize_hook */

+    XtInheritRealize,			/* realize */

+    NULL,				/* actions */

+    0,					/* num_actions */

+    resources,				/* resources */

+    XtNumber(resources),		/* num_resources */

+    NULLQUARK,				/* xrm_class */

+    True,				/* compress_motion */

+    XtExposeCompressMultiple		/* compress_exposure */

+    | XtExposeGraphicsExposeMerged,

+    True,				/* compress_enterleave */

+    False,				/* visible_interest */

+    XawStripChartDestroy,		/* destroy */

+    XawStripChartResize,		/* resize */

+    XawStripChartRedisplay,		/* expose */

+    XawStripChartSetValues,		/* set_values */

+    NULL,				/* set_values_hook */

+    NULL,				/* set_values_almost */

+    NULL,				/* get_values_hook */

+    NULL,				/* accept_focus */

+    XtVersion,				/* version */

+    NULL,				/* callback_private */

+    NULL,				/* tm_table */

+    XtInheritQueryGeometry,		/* query_geometry */

+    XtInheritDisplayAccelerator,	/* display_accelerator */

+    NULL,				/* extension */

+  },

+  /* simple */

+  {

+    XtInheritChangeSensitive,		/* change_sensitive */

+  }

+};

+

+WidgetClass stripChartWidgetClass = (WidgetClass)&stripChartClassRec;

+

+/*

+ * Implementation

+ */

+/*

+ * Function:

+ *	CreateGC

+ *

+ * Parameters:

+ *	w     - strip chart widget

+ *	which - GC's to create

+ *

+ * Description:

+ *	Creates the GC's

+ */

+static void

+CreateGC(StripChartWidget w, unsigned int which)

+{

+    XGCValues myXGCV;

+

+    if (which & FOREGROUND) {

+	myXGCV.foreground = w->strip_chart.fgpixel;

+	w->strip_chart.fgGC = XtGetGC((Widget)w, GCForeground, &myXGCV);

+    }

+

+    if (which & HIGHLIGHT) {

+	myXGCV.foreground = w->strip_chart.hipixel;

+	w->strip_chart.hiGC = XtGetGC((Widget)w, GCForeground, &myXGCV);

+    }

+}

+

+/*

+ * Function:

+ *	DestroyGC

+ *

+ * Arguments:

+ *	w     - strip chart widget

+ *	which - which GC's to destroy

+ *

+ * Description:

+ *	Destroys the GC's

+ */

+static void

+DestroyGC(StripChartWidget w, unsigned int which)

+{

+    if (which & FOREGROUND) 

+	XtReleaseGC((Widget)w, w->strip_chart.fgGC);

+

+    if (which & HIGHLIGHT) 

+	XtReleaseGC((Widget)w, w->strip_chart.hiGC);

+}

+

+/*ARGSUSED*/

+static void

+XawStripChartInitialize(Widget greq, Widget gnew,

+			ArgList args, Cardinal *num_args)

+{

+    StripChartWidget w = (StripChartWidget)gnew;

+

+    if (w->strip_chart.update > 0)

+    w->strip_chart.interval_id =

+    XtAppAddTimeOut(XtWidgetToApplicationContext(gnew),

+		    w->strip_chart.update * MS_PER_SEC, 

+		    draw_it, (XtPointer)gnew);

+    CreateGC(w, ALL_GCS);

+

+    w->strip_chart.scale = w->strip_chart.min_scale;

+    w->strip_chart.interval = 0;

+    w->strip_chart.max_value = 0.0;

+    w->strip_chart.points = NULL;

+    XawStripChartResize(gnew);

+}

+ 

+static void

+XawStripChartDestroy(Widget gw)

+{

+    StripChartWidget w = (StripChartWidget)gw;

+

+    if (w->strip_chart.update > 0)

+	XtRemoveTimeOut(w->strip_chart.interval_id);

+    if (w->strip_chart.points)

+	XtFree((char *)w->strip_chart.points);

+    DestroyGC(w, ALL_GCS);

+}

+

+/*

+ * NOTE: This function really needs to recieve graphics exposure 

+ *       events, but since this is not easily supported until R4 I am

+ *       going to hold off until then.

+ */

+/*ARGSUSED*/

+static void

+XawStripChartRedisplay(Widget w, XEvent *event, Region region)

+{

+    if (event->type == GraphicsExpose)

+	(void)repaint_window((StripChartWidget)w, event->xgraphicsexpose.x,

+			     event->xgraphicsexpose.width);

+    else

+	(void)repaint_window((StripChartWidget)w, event->xexpose.x,

+			     event->xexpose.width);

+}

+

+/*ARGSUSED*/

+static void 

+draw_it(XtPointer client_data, XtIntervalId *id)

+{

+    StripChartWidget w = (StripChartWidget)client_data;

+    double value;

+   

+    if (w->strip_chart.update > 0)

+	w->strip_chart.interval_id =

+	    XtAppAddTimeOut(XtWidgetToApplicationContext((Widget)w),

+			    w->strip_chart.update * MS_PER_SEC,draw_it,

+			    client_data);

+

+    if (w->strip_chart.interval >= XtWidth(w))

+	MoveChart((StripChartWidget)w, True);

+

+    /* Get the value, stash the point and draw corresponding line */

+    if (w->strip_chart.get_value == NULL)

+	return;

+

+    XtCallCallbacks((Widget)w, XtNgetValue, (XtPointer)&value);

+

+    /* 

+     * Keep w->strip_chart.max_value up to date, and if this data 

+     * point is off the graph, change the scale to make it fit

+     */

+    if (value > w->strip_chart.max_value) {

+	w->strip_chart.max_value = value;

+	if (XtIsRealized((Widget)w) &&

+	    w->strip_chart.max_value > w->strip_chart.scale) {

+	    XClearWindow(XtDisplay(w), XtWindow(w));

+	    w->strip_chart.interval = repaint_window(w, 0, XtWidth(w));

+	}

+    }

+

+    w->strip_chart.valuedata[w->strip_chart.interval] = value;

+    if (XtIsRealized((Widget)w)) {

+	int y = (int)(XtHeight(w) - XtHeight(w) * value

+		     / w->strip_chart.scale);

+

+	XFillRectangle(XtDisplay(w), XtWindow(w), w->strip_chart.fgGC,

+		       w->strip_chart.interval, y, 

+		       1, XtHeight(w) - y);

+

+	/*

+	 * Fill in the graph lines we just painted over

+	 */

+	if (w->strip_chart.points != NULL) {

+	    w->strip_chart.points[0].x = w->strip_chart.interval;

+	    XDrawPoints(XtDisplay(w), XtWindow(w), w->strip_chart.hiGC,

+			w->strip_chart.points, w->strip_chart.scale - 1,

+			CoordModePrevious);

+	}

+

+	XFlush(XtDisplay(w));		    /* Flush output buffers */

+    }

+    w->strip_chart.interval++;		    /* Next point */

+}

+

+/* Blts data according to current size, then redraws the stripChart window

+ * Next represents the number of valid points in data.  Returns the (possibly)

+ * adjusted value of next.  If next is 0, this routine draws an empty window

+ * (scale - 1 lines for graph).  If next is less than the current window width,

+ * the returned value is identical to the initial value of next and data is

+ * unchanged.  Otherwise keeps half a window's worth of data.  If data is

+ * changed, then w->strip_chart.max_value is updated to reflect the

+ * largest data point

+ */

+static int 

+repaint_window(StripChartWidget w, int left, int width)

+{

+    int i, j;

+    int next = w->strip_chart.interval;

+    int scale = w->strip_chart.scale;

+    int scalewidth = 0;

+

+    /* Compute the minimum scale required to graph the data, but don't go

+       lower than min_scale */

+    if (w->strip_chart.interval != 0 || scale <= w->strip_chart.max_value)

+	scale = w->strip_chart.max_value + 1;

+	if (scale < w->strip_chart.min_scale)

+	    scale = w->strip_chart.min_scale;

+

+    if (scale != w->strip_chart.scale) {

+	w->strip_chart.scale = scale;

+	left = 0;

+	width = next;

+	scalewidth = XtWidth(w);

+

+	XawStripChartResize((Widget)w);

+

+	if (XtIsRealized((Widget)w))

+	    XClearWindow(XtDisplay(w), XtWindow(w));

+    }

+

+    if (XtIsRealized((Widget)w)) {

+	Display *dpy = XtDisplay(w);

+	Window win = XtWindow(w);

+

+	width += left - 1;

+	if (!scalewidth)

+	    scalewidth = width;

+

+	if (next < ++width)

+	    width = next;

+

+	/* Draw data point lines */

+	for (i = left; i < width; i++) {

+	    int y = XtHeight(w) - (XtHeight(w) * w->strip_chart.valuedata[i])

+				   / w->strip_chart.scale;

+

+	    XFillRectangle(dpy, win, w->strip_chart.fgGC, 

+			   i, y, 1, XtHeight(w) - y);

+	}

+

+	/* Draw graph reference lines */

+	for (i = 1; i < w->strip_chart.scale; i++) {

+	    j = i * ((int)XtHeight(w) / w->strip_chart.scale);

+	    XDrawLine(dpy, win, w->strip_chart.hiGC, left, j, scalewidth, j);

+	}

+    }

+    return (next);

+}

+

+/*

+ * Function:

+ *	MoveChart

+ *

+ * Parameters:

+ *	w - chart widget

+ *	blit - blit the bits?

+ *

+ * Description:

+ *	Moves the chart over when it would run off the end.

+ */

+static void

+MoveChart(StripChartWidget w, Bool blit)

+{

+    double old_max;

+    int left, i, j;

+    int next = w->strip_chart.interval;

+

+    if (!XtIsRealized((Widget)w))

+	return;

+

+    if (w->strip_chart.jump_val < 0)

+	w->strip_chart.jump_val = DEFAULT_JUMP;

+    if (w->strip_chart.jump_val == DEFAULT_JUMP)

+	j = XtWidth(w) >> 1;

+    else {

+	j = (int)XtWidth(w) - w->strip_chart.jump_val;

+	if (j < 0)

+	    j = 0;

+    }

+

+    (void)memmove((char *)w->strip_chart.valuedata,

+		  (char *)(w->strip_chart.valuedata + next - j),

+		  j * sizeof(double));

+    next = w->strip_chart.interval = j;

+	

+    /*

+     * Since we just lost some data, recompute the 

+     * w->strip_chart.max_value

+     */

+    old_max = w->strip_chart.max_value;

+    w->strip_chart.max_value = 0.0;

+    for (i = 0; i < next; i++) {

+	if (w->strip_chart.valuedata[i] > w->strip_chart.max_value) 

+	    w->strip_chart.max_value = w->strip_chart.valuedata[i];

+    }

+

+    if (!blit)

+	return;

+

+    if (old_max != w->strip_chart.max_value) {

+	XClearWindow(XtDisplay(w), XtWindow(w));

+	repaint_window(w, 0, XtWidth(w));

+	return;

+    }

+

+    XCopyArea(XtDisplay((Widget)w), XtWindow((Widget)w), XtWindow((Widget)w),

+	      w->strip_chart.hiGC, (int)XtWidth(w) - j, 0, j, XtHeight(w), 0, 0);

+

+    XClearArea(XtDisplay((Widget)w), XtWindow((Widget)w), 

+	       j, 0, XtWidth(w) - j, XtHeight(w), False);

+

+    /* Draw graph reference lines */

+    left = j;

+    for (i = 1; i < w->strip_chart.scale; i++) {

+	j = i * (XtHeight(w) / w->strip_chart.scale);

+	XDrawLine(XtDisplay((Widget)w), XtWindow((Widget)w),

+		  w->strip_chart.hiGC, left, j, XtWidth(w), j);

+    }

+}

+

+/*ARGSUSED*/

+static Boolean

+XawStripChartSetValues(Widget current, Widget request, Widget cnew,

+		       ArgList args, Cardinal *num_args)

+{

+    StripChartWidget old = (StripChartWidget)current;

+    StripChartWidget w = (StripChartWidget)cnew;

+    Bool ret_val = False;

+    unsigned int new_gc = NO_GCS;

+

+    if (w->strip_chart.update != old->strip_chart.update) {

+	if (old->strip_chart.update > 0)

+	    XtRemoveTimeOut(old->strip_chart.interval_id);

+	if (w->strip_chart.update > 0)

+	    w->strip_chart.interval_id =

+		XtAppAddTimeOut(XtWidgetToApplicationContext(cnew),

+				w->strip_chart.update * MS_PER_SEC,

+				draw_it, (XtPointer)w);

+    }

+

+    if (w->strip_chart.min_scale > w->strip_chart.max_value + 1)

+	ret_val = True;

+     

+    if (w->strip_chart.fgpixel != old->strip_chart.fgpixel) {

+	new_gc |= FOREGROUND;

+	ret_val = True;

+    }

+    

+    if (w->strip_chart.hipixel != old->strip_chart.hipixel) {

+	new_gc |= HIGHLIGHT;

+	ret_val = True;

+    }

+    

+    DestroyGC(old, new_gc);

+    CreateGC(w, new_gc);

+

+    return (ret_val);

+}

+

+/*

+ * Function:

+ *	XawStripChartResize

+ *

+ * Parameters:

+ *	w - StripChart widget

+ *

+ * Description:

+ *	Sets up the polypoint that will be used to draw in the graph lines.

+ */

+static void

+XawStripChartResize(Widget widget)

+{

+    StripChartWidget w = (StripChartWidget)widget;

+    XPoint *points;

+    Cardinal size;

+    int i;

+

+    if (w->strip_chart.scale <= 1) {

+	XtFree((char *)w->strip_chart.points);

+	w->strip_chart.points = NULL;

+	return;

+    }

+    

+    size = sizeof(XPoint) * (w->strip_chart.scale - 1);

+

+    points = (XPoint *)XtRealloc((XtPointer)w->strip_chart.points, size);

+    w->strip_chart.points = points;

+

+    /* Draw graph reference lines into clip mask */

+

+    for (i = 1; i < w->strip_chart.scale; i++) {

+	points[i - 1].x = 0;

+	points[i - 1].y = XtHeight(w) / w->strip_chart.scale;

+    }

+}