---

Spindle.hh

Go to the documentation of this file.

#ifndef __SPINDLE__H__
#define __SPINDLE__H__

#include <unistd.h>             // usleep

#include <Xm/Xm.h>
#include <Xm/Frame.h>
#include <Xm/Form.h>
#include <Xm/PushB.h>
#include <Xm/PushBP.h>
#include <Xm/Separator.h>
#include <X11/xpm.h>

#include <stdio.h>              // sprintf

#ifdef DEBUG                    /* Allow cout */
#include <iostream.h>
#endif

#ifndef INITIAL_SPINDLE_SPEED
#define INITIAL_SPINDLE_SPEED (3000.00)
#endif

#ifdef SPINDLE
#include "GuiStrings.hh"
#include "r_arrow.xpm"
#include "r_arrow_in.xpm"
#include "l_arrow.xpm"
#include "l_arrow_in.xpm"
#include "right_arrows.xpm"
#include "right_arrows_in.xpm"
#include "left_arrows.xpm"
#include "left_arrows_in.xpm"

// The following could be defined in the Makefile

#ifndef FAST_CHANGE
#define FAST_CHANGE (10.00)
#endif

#ifndef SLOW_CHANGE
#define SLOW_CHANGE (.01)
#endif

static double theSpeed = INITIAL_SPINDLE_SPEED;

static Widget arrowFrame = NULL;
static Widget arrowForm = NULL;
static Widget arrowB1 = { NULL };
static Widget arrowB2 = { NULL };
static Widget label = { NULL };
static Widget arrowB3 = { NULL };
static Widget arrowB4 = { NULL };
static Widget spindleButton = NULL;
static Widget separator = NULL;
static Widget forwardButton = NULL;
static Widget reverseButton = NULL;

static bool wasForward = true;  // Direction of spindle movement
static bool isSpindleOn = false;

static Pixmap r_pixmap;
static Pixmap r_pixmap_in;
static Pixmap l_pixmap;
static Pixmap l_pixmap_in;

static Pixmap rr_pixmap;
static Pixmap rr_pixmap_in;
static Pixmap ll_pixmap;
static Pixmap ll_pixmap_in;

static Pixel original_tsc;      // topShadowColor
static Pixel original_bsc;      // bottomShadowColor
static Pixel original_ac;       // armColor
static Pixel original_bg;       // background

static void buttonCB (Widget mw, XtPointer cd, XtPointer cb);
static void unbuttonCB (Widget mw, XtPointer cd, XtPointer cb);
static void change_spindle (int type);
static void stop_changing_spindle (int type);
static double get_speed (void);
static void checkSpindleReversal (void);
static void turnSpindleOn (void);
static void turnSpindleOff (void);

enum
{
  ARROW_LEFT_FAST,
  ARROW_LEFT,
  ARROW_RIGHT,
  ARROW_RIGHT_FAST,
  SPINDLE_FORWARD,
  SPINDLE_REVERSE,
  SPINDLE_ON_OFF,
};

// Code sniplets

#define CREATE_PIXMAP(xpm_name, pixmap_name) \
  do { \
  XpmCreatePixmapFromData (XtDisplay (arrowFrame), \
                           DefaultRootWindow (XtDisplay (arrowFrame)), \
                           xpm_name, &pixmap_name, 0, 0); \
  } while (0)

#define SPINDLE_AXIS(arrow_widget, left_attach_type, left_attach_widget, \
    left_offset, arrow_pixmap, arrow_type) \
  do { \
   arrow_widget = \
    XtVaCreateManagedWidget ("arrowB", xmPushButtonWidgetClass, arrowForm, \
                             XmNtopAttachment, XmATTACH_WIDGET, \
                             XmNtopWidget, separator, XmNtopOffset, 5, \
                             XmNbottomAttachment, XmATTACH_NONE, \
                             XmNleftAttachment, left_attach_type, \
                             XmNleftWidget, left_attach_widget, \
                             XmNleftOffset, left_offset, \
                             XmNrightAttachment, XmATTACH_NONE, \
                             XmNwidth, 50, XmNheight, 50, \
                             XmNlabelPixmap, arrow_pixmap, XmNlabelType, \
                             XmPIXMAP, XmNmarginWidth, 0, XmNmarginHeight, \
                                 0, XmNshadowThickness, 0, NULL); \
      XtAddCallback (arrow_widget, XmNarmCallback, buttonCB, \
                     (XtPointer) arrow_type); \
      XtAddCallback (arrow_widget, XmNdisarmCallback, unbuttonCB, \
                     (XtPointer) arrow_type); \
  } while (0)

#define LABEL_SPEED(speed) \
  do { \
      XmStringCharSet cs = (char *) XmSTRING_DEFAULT_CHARSET; \
      XFontStruct *newfont = NULL; \
      XmFontList fontlist = NULL; \
      if ((newfont = XLoadQueryFont (XtDisplay (arrowFrame), \
                                     "-adobe-courier-bold-r-normal--48-*-*-*-*-*-*-1")) \
          == NULL) \
        { \
          newfont = XLoadQueryFont (XtDisplay (arrowFrame), "fixed"); \
        } \
      fontlist = XmFontListCreate (newfont, cs); \
      char speedChar[12]; \
      sprintf (speedChar, "%7.2f", speed); \
      XmString speedLabel = \
        XmStringCreateLtoR ((char *) speedChar, XmSTRING_DEFAULT_CHARSET); \
      label = \
        XtVaCreateManagedWidget ("label", xmLabelWidgetClass, arrowForm, \
                                 XmNtopAttachment, XmATTACH_WIDGET, \
                                 XmNtopWidget, separator, XmNtopOffset, 5, \
                                 XmNbottomAttachment, XmATTACH_NONE, \
                                 XmNrightAttachment, XmATTACH_WIDGET, \
                                 XmNrightWidget, arrowB3, \
                                 XmNleftAttachment, XmATTACH_NONE, \
                                 XmNwidth, 225, \
                                 XmNheight, 50, \
                                 XmNfontList, fontlist, \
                                 XmNlabelString, speedLabel, NULL); \
      XmFontListFree (fontlist); \
      XUnloadFont (XtDisplay (arrowFrame), newfont->fid); \
      /* XFreeFont (XtDisplay (arrowFrame), newfont);  This produces BadFont error */ \
      XmStringFree (speedLabel); \
  } while (0)

#define LABEL_SPEED_UPDATE(speed) \
  do { \
    char speedChar[12]; \
    if (label) \
      { \
        sprintf (speedChar, "%7.2f", speed); \
        XmString speedLabel = \
          XmStringCreateLtoR ((char *) speedChar, XmSTRING_DEFAULT_CHARSET); \
        XtVaSetValues (label, \
                       XmNlabelString, speedLabel, NULL); \
        XmStringFree (speedLabel); \
    } \
  } while (0)

#define SEPARATOR() \
  do { \
    separator = \
      XtVaCreateManagedWidget ("separator", xmSeparatorWidgetClass, arrowForm, \
                               XmNtopAttachment, XmATTACH_WIDGET, \
                               XmNtopWidget, forwardButton, \
                               XmNtopOffset, 5, \
                               XmNbottomAttachment, XmATTACH_NONE, \
                               XmNleftAttachment, XmATTACH_FORM, \
                               XmNrightAttachment, XmATTACH_FORM, \
                               XmNmarginWidth, 5, XmNmarginHeight, 5, NULL); \
  } while (0)

#define LOCK(button) \
   do \
   { \
      XtVaSetValues(button, XmNsensitive, False, NULL);              \
   } while (0)

#define UNLOCK(button) \
   do \
   { \
      XtVaSetValues(button, XmNsensitive, True, NULL);              \
   } while (0)


#define TOGGLE(button) \
   do \
   { \
      Pixel tsc; \
      Pixel bsc; \
      Pixel ac;  \
      Pixel bg;  \
      XmPushButtonWidget pb; \
      XtVaGetValues(button, XmNtopShadowColor, &tsc, \
                            XmNbottomShadowColor, &bsc, \
                            XmNarmColor, &ac, \
                            XmNbackground, &bg, \
                            NULL); \
      XtVaSetValues(button, XmNtopShadowColor, bsc, \
                            XmNbottomShadowColor, tsc, \
                            XmNarmColor, bg, \
                            XmNbackground, ac, \
                            NULL); \
      pb = (XmPushButtonWidget) button ; \
      pb->pushbutton.armed = false; \
   } while (0)

#define UNPRESS(button) \
   do \
   { \
      XtVaSetValues(button, XmNbottomShadowColor, original_bsc, \
                            XmNtopShadowColor, original_tsc, \
                            XmNarmColor, original_ac, \
                            XmNbackground, original_bg, \
                            NULL);              \
   } while (0)

#define PRESS(button) \
   do \
   { \
      UNPRESS(button); \
      TOGGLE(button); \
   } while (0)

#endif // SPINDLE

// External interfaces

extern void updateSpindleSpeed ();

extern void setSpindleSpeed (double);

extern void showSpindle (void);

extern void hideSpindle (void);

extern void changeDirection (void);

extern void stopSpindle (void);

extern Widget
SpindleControl (Dimension x0, Dimension x1, Dimension y1, Dimension y2,
                Dimension boxMarginWidth, Dimension boxMarginHeight,
                Widget parent);

#endif //  __SPINDLE__H__

---