/* Copyright (c) Colorado School of Mines, 1990./* All rights reserved.                       */#include "samples.h"#define CHARSET ((XmStringCharSet)XmSTRING_DEFAULT_CHARSET)static void samplesDrawCB (Widget da, Samples *s, caddr_t call_data);static void samplesResizeCB (Widget da, Samples *s, caddr_t call_data);static void mouseDown (Widget w, Samples *s, XEvent *event);static void mouseEdit (Widget w, Samples *s, XEvent *event);static void mouseUp (Widget w, Samples *s, XEvent *event);static void windowMapped (Widget w, Samples *s, XEvent *event);static void drawOneSample (int mode, Samples *s, int i);static Dimension widgetWidth (Widget w);static Dimension widgetHeight (Widget w);Samples *samplesCreate (Widget parent, char *title,	void (*editDone)(Samples *s)){	int n,i;	Dimension width,height;	char *labels;	Widget frame,form,label,da;	Arg args[20];	Display *dpy=XtDisplay(parent);	Samples *s;		/* create frame */	n = 0;	frame = XmCreateFrame(parent,"",args,n);	XtManageChild(frame);		/* create form to manage geometry of label and drawing area */	n = 0;	form = XmCreateForm(frame,"",args,n);	XtManageChild(form);		/* create label gadget at top of form */	n = 0;	XtSetArg(args[n],XmNlabelType,XmSTRING); n++;	labels = XmStringCreateLtoR(title,CHARSET);	XtSetArg(args[n],XmNlabelString,labels); n++;	XtSetArg(args[n],XmNtopAttachment,XmATTACH_FORM); n++;	XtSetArg(args[n],XmNtopOffset,2); n++;	XtSetArg(args[n],XmNleftAttachment,XmATTACH_FORM); n++;	XtSetArg(args[n],XmNleftOffset,2); n++;	XtSetArg(args[n],XmNrightAttachment,XmATTACH_FORM); n++;	XtSetArg(args[n],XmNrightOffset,2); n++;	label = XmCreateLabelGadget(form,"",args,n);	XtManageChild(label);		/* create drawing area beneath label */	n = 0;	XtSetArg(args[n],XmNtopAttachment,XmATTACH_WIDGET); n++;	XtSetArg(args[n],XmNtopWidget,label); n++;	XtSetArg(args[n],XmNbottomAttachment,XmATTACH_FORM); n++;	XtSetArg(args[n],XmNbottomOffset,2); n++;	XtSetArg(args[n],XmNleftAttachment,XmATTACH_FORM); n++;	XtSetArg(args[n],XmNleftOffset,2); n++;	XtSetArg(args[n],XmNrightAttachment,XmATTACH_FORM); n++;	XtSetArg(args[n],XmNrightOffset,2); n++;	da = XmCreateDrawingArea(form,"samples",args,n);	XtManageChild(da);		/* determine width and height of drawing area */	width = widgetWidth(da);	height = widgetHeight(da);		/* initialize */	s = (Samples*)malloc(sizeof(Samples));	s->frame = frame;	s->da = da;	s->n = 16;	s->data = (float*)malloc(s->n*sizeof(float));	s->origin = 0;	s->plotValue = 1.0;	s->width = (float)width/(float)(s->n+1);	s->base = 0.5*height;	s->scale = -0.25*height/s->plotValue;	s->radius = 0.40*s->width;	if (s->radius>0.1*height) s->radius = 0.1*height;	s->editMode = DRAW;	s->editDone = editDone;		/* initialize data */	for (i=0; i<s->n; ++i)		s->data[i] = 0.0;	s->data[1] = 1.0;		/* add callbacks */	XtAddCallback(da,XmNexposeCallback,samplesDrawCB,s);	XtAddCallback(da,XmNresizeCallback,samplesResizeCB,s);		/* add event handlers */	XtAddEventHandler(da,ButtonPressMask,FALSE,mouseDown,s);	XtAddEventHandler(da,ButtonMotionMask,FALSE,mouseEdit,s);	XtAddEventHandler(da,ButtonReleaseMask,FALSE,mouseUp,s);	XtAddEventHandler(da,StructureNotifyMask,FALSE,windowMapped,s);		/* return pointer to Samples */	return s;}	void samplesSetN (Samples *s, int n){	Dimension width,height;		/* set number of samples */	s->n = n;		/* update size of sample lollypops */	width = widgetWidth(s->da);	height = widgetHeight(s->da);	s->width = (float)width/(float)(s->n+1);	s->radius = 0.40*s->width;	if (s->radius>0.1*height) s->radius = 0.1*height;}void samplesSetData (Samples *s, float *d){	s->data = d;}void samplesSetPlotValue (Samples *s, float pv){	s->plotValue = (pv!=0.0)?pv:1.0;	s->scale = -0.25*widgetHeight(s->da)/s->plotValue;}void samplesSetEditMode (Samples *s, EditMode m){	s->editMode = m;}void samplesSetOrigin (Samples *s, int i){	s->origin = i;}void samplesDraw (Samples *s){	int i;	/* erase window */	XClearWindow(XtDisplay(s->da),XtWindow(s->da));		/* draw samples */	for (i=0; i<s->n; ++i)		drawOneSample(1,s,i);}static void samplesDrawCB (Widget da, Samples *s, caddr_t call_data){	samplesDraw(s);}static void drawOneSample (int mode, Samples *s, int i){	int x,y,w,h,r;	Display *dpy=XtDisplay(s->da);	Window win=XtWindow(s->da);	GC gc;	gc = (mode ? s->gcDraw : s->gcErase);	x = (i+1)*s->width;	y = s->base;	w = s->width;	h = s->data[i]*s->scale;	r = s->radius;	XDrawLine(dpy,win,gc,x-w/2,y,x+w/2,y);	XDrawLine(dpy,win,gc,x,y,x,y+h);	if (i!=s->origin)		XFillArc(dpy,win,gc,x-r,y+h-r,2*r,2*r,0,360*64);	else		XDrawArc(dpy,win,gc,x-r,y+h-r,2*r,2*r,0,360*64);}static void samplesResizeCB (Widget da, Samples *s, caddr_t call_data){	Dimension width,height;		width = widgetWidth(da);	height = widgetHeight(da);	s->width = (float)width/(float)(s->n+1);	s->base = 0.5*height;	s->scale = -0.25*height/s->plotValue;	s->radius = 0.40*s->width;	if (s->radius>0.1*height) s->radius = 0.1*height;}static Dimension widgetWidth (Widget w){	Dimension width;	Arg arg;	arg.name = XmNwidth;	arg.value = (XtArgVal)(&width);	XtGetValues(w,&arg,1);	return width;}static Dimension widgetHeight (Widget w){	Dimension height;	Arg arg;	arg.name = XmNheight;	arg.value = (XtArgVal)(&height);	XtGetValues(w,&arg,1);	return height;}static void mouseDown (Widget w, Samples *s, XEvent *event){		/* if editing not permitted, simply return */	if (s->editMode==NONE) return;		/* begin editing */	mouseEdit(w,s,event);}static void mouseEdit (Widget w, Samples *s, XEvent *event){	int x,y,i;		/* if editing not permitted, simply return */	if (s->editMode==NONE) return;		/* get mouse coordinates */	x = event->xbutton.x;	y = event->xbutton.y;		/* determine index of nearest sample */	i = x/s->width-0.5;	if (i<0) i = 0;	if (i>s->n-1) i = s->n-1;		/* erase sample */	drawOneSample(0,s,i);		/* modify nearest sample value */	if (s->editMode==ZERO)		s->data[i] = 0.0;	else if (s->editMode==NEGATE)		s->data[i] = -s->data[i];	else		s->data[i] = (y-s->base)/s->scale;		/* draw new sample in foreground color */	drawOneSample(1,s,i);		/* if editDone function exists, call it for continuous editing */	/* if (s->editDone!=NULL) s->editDone(s); */}static void mouseUp (Widget w, Samples *s, XEvent *event){		/* if editing not permitted, simply return */	if (s->editMode==NONE) return;		/* if editDone function exists, call it */	if (s->editDone!=NULL) s->editDone(s);}static void windowMapped (Widget w, Samples *s, XEvent *event){	int n;	Arg args[20];	XGCValues gcv;		/* drawing area has been mapped */	if (event->type==MapNotify) {			/* passive grab of mouse button */		XGrabButton(XtDisplay(w),AnyButton,AnyModifier,			XtWindow(w),TRUE,			ButtonPressMask|ButtonMotionMask|ButtonReleaseMask,			GrabModeAsync,GrabModeAsync,			XtWindow(w),			XCreateFontCursor(XtDisplay(w),XC_crosshair));		/* initialize graphics contexts for drawing and erasing */		n = 0;		XtSetArg(args[n],XmNforeground,&gcv.foreground); n++;		XtSetArg(args[n],XmNbackground,&gcv.background); n++;		XtGetValues(w,args,n);		s->gcDraw = XCreateGC(XtDisplay(w),XtWindow(w),0L,NULL);		XSetForeground(XtDisplay(w),s->gcDraw,gcv.foreground);		XSetBackground(XtDisplay(w),s->gcDraw,gcv.background);		s->gcErase = XCreateGC(XtDisplay(w),XtWindow(w),0L,NULL);		XSetForeground(XtDisplay(w),s->gcErase,gcv.background);		XSetBackground(XtDisplay(w),s->gcErase,gcv.foreground);	}}