view xaim/xreview.c @ 0:5242703e91d3 tip

Initial checkin for AIM92 aimR8.2 (last updated May 1997).

/*
    Copyright (c) Applied Psychology Unit, Medical Research Council. 1993
    ===========================================================================

    Permission to use, copy, modify, and distribute this software without fee 
    is hereby granted for research purposes, provided that this copyright 
    notice appears in all copies and in all supporting documentation, and that 
    the software is not redistributed for any fee (except for a nominal 
    shipping charge). Anyone wanting to incorporate all or part of this 
    software in a commercial product must obtain a license from the Medical 
    Research Council.

    The MRC makes no representations about the suitability of this 
    software for any purpose.  It is provided "as is" without express or 
    implied warranty.
 
    THE MRC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
    ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL 
    THE A.P.U. 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.
*/

/*
*     xreview
*    ----------
* 
* A program for animating an AIM 'cartoon bitmap'.
* Requires X windows, but most varieties, r4, r5, Sun OpenWindows
* (but see also the makefile)
*
* The underlying algorithm is:
*   1. load the entire cartoon into memory, as one contiguos block.
*   2. compute, and save, the memory locations of each frame's start.
*   3. Set the memory pointer of an XImage structure to the first one, and draw
*   4. Reset the pointer to the next frame, and redraw ...
*   5. Continue for however many frames there are.
*
*
*
* A large proportion of this was inspired by the "basic window" 
* program of the O'Reilly X manuals, vol 1. More inspiritaion came from
* John Holdsworth's code.
*
*
* M.Akeroyd  July 1993.  version 1.00
*  
* revisions: MAA: Christmas 1993. rewrites for public release, also some
*                                 bug fixes.
*                                 Includes the linux hacks.
*/


#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xos.h>
#include <X11/Xatom.h>
#include <X11/Xmu/Xmu.h>
#include <X11/keysym.h>
#include <X11/cursorfont.h>

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>

#include "xreview.h"
#include "./stipple_a"               /* for the Control Window background */




/* Function declarations */
/*-------------------------------------------------------------------------*/

void parsecommandline (int argc, char *argv[], char inputfn[], char titlestring[], char fontname[]);
int readheader(FILE *inputfp, char filefn[]); 
FILE *open_file (char filefn[], FILE *dir_default, int streamtype);
void close_files (FILE *fp);


void initialise_control_window(char *inputfn, char *titlestring, FILE *inputfp, char *argv[], int argc);
void initialise_axes_window(char *inputfn, char *titlestring, FILE *inputfp, char *argv[], int argc);
void initialise_buttons();
void initialise_image();


void drawimage(int frame);
void drawtext(Window win, GC gc, XFontStruct *font_info, unsigned int width, \
	      unsigned int height, char *text);
void drawbutton(Window control_win, Window button_local, GC *button_local_gc,\
		int width, int height, char *text, int fill_ground, \
		int text_ground);
void flashbutton(Window top_win, Window button_local, GC *button_local_gc, \
		 int width, int height, char *text);

void initialise_X_screen();
void load_font();



/* Data arrays: global */
/*-------------------------------------------------------------------------*/

char *data_pointer;
char *data_pointer_sideways;
long location[MAX_FRAMES];             /* frames: a reasonably big number */
int frame = 1;                         /* start frame */
FILE *inputfp;		
char inputfn[MAX_STRING_LENGTH];

/* .ctn header */
/*-------------------------------------------------------------------------*/

char header[MAX_LINES_HEADER][MAX_LINE_LENGTH];
int header_lines;

int no_frames;
int frameheight;                       /* number of channels */
int framewidth_samples;                /* pwidth + nwidth * samplerate */
int frameshift_samples;                /* frstep_aid * samplerate */
double frstep_aid;                     /* msecs */
double pwidth;                         /* msecs */
double nwidth;                         /* msecs: NEGATIVE */
int width_ctn;                         /* pixels */
int height_ctn;                        /* pixels */
int x_ctn;                             /* pixels */
int y_ctn;                             /* pixels */
long samplerate;                       /* samples per sec */
int mincf;                             /* Hz */
int maxcf;                             /* Hz */


/* misc */
/*-------------------------------------------------------------------------*/

char progname[MAX_STRING_LENGTH];
char fontname[MAX_STRING_LENGTH];
char display_name[MAX_STRING_LENGTH];

int verboseflag = OFF;                 /* -v option */
int axes_xflag = OFF;                  /* -image_x option */
int axes_yflag = OFF;                  /* -image_y option */
int controls_xflag = OFF;              /* -controls_x option */
int controls_yflag = OFF;              /* -controls_y option */
int titleflag = OFF;                   /* -title option */
int bytesflag = OFF;                   /* -lsb, -msb options */
int bitmap_pad_flag = OFF;             /* ditto */
int new_axes_x, new_axes_y;      
int new_control_x, new_control_y;
int controlwindowflag = OFF;           /* -controls option */
double scale = 1.0;

long waittime_millisecs = 1;           /* time to wait imbetween frames */
long waittime_microsecs ;

int animate_start = 1;              /* animation start frame */
int animate_stop = 9999;            /* animation end frame: gets set to EOF */
int animate_skip = 1;                /* animation skip */

int sidewaysflag = OFF;



/* X variables */
/*-------------------------------------------------------------------------*/
/* There are 3 classes of window:
*   "axes window": where the cartoon itself is. Called "axes" for historical
*                  reasons. Button presses cause (1) animations, or (2) mapping
*                  of the Controls Window, or (3) exit. This window CANNOT
*                  be resized.
*                  Used, reasonably interchangealby, with 'image' 
*   "controls window": where the Animation Control buttons are. Button presses
*                       --- if not on a 'button' --- do nothing. This window
*                      can't be resized either.
*   "buttons": there are lots of them. eg button_startf. These are subwindows
*              of the Controls Window. Pressing the left mouse button causes
*              something exciting to happen.
*              There are also 'information buttons', which say things
*              like the filename, number of frames, etc. Pressing one of these
*              doesn't do anything.
*/

Display *display;
int screen_num;
Screen *screen_ptr;
int depth = 1;
unsigned int display_width_X, display_height_X;
unsigned int display_width, display_height;

Pixmap stipple_pixmap;


/* Windows */

toplevelWindow axes;
toplevelWindow control;

buttonWindow button_quit, button_close;
buttonWindow button_animate;
buttonWindow button_startf, button_startb, button_stopf, button_stopb;
buttonWindow button_skipf, button_skipb, button_faster, button_slower;
buttonWindow button_firstframe, button_lastframe, button_middle;
buttonWindow button_stepb, button_stepbb;
buttonWindow button_stepf, button_stepff;
buttonWindow info_speed, info_start, info_stop, info_skip;
buttonWindow info_title, info_frame;
buttonWindow info_time, info_freq, info_frstep;

XFontStruct *font_info;
int pointsize = DEFAULT_POINTSIZE;
GC button_gc;
int button_borderwidth = 0;

XImage *reviewimage;
int reviewimage_bytesperline = BYTES_PER_LINE;
int reviewimage_bitmap_pad = BITMAP_PAD;

Cursor cursor;

XEvent report;
int depthflag = MONO;                       /* assume a monochrome screen */
int planemask = 0x1;                        /* works with my colour sparc */
int xsyncflag = OFF;
int reversevideoflag = OFF;                 /* gets set to ON if DECstation */
int byteorderflag = SERVER;                 /* ie, the physical screen */	





/* ......................         Main        ..............................*/
/* .........................................................................*/
/* .........................................................................*/




void main (int argc, char *argv[])
{
  int n; 
  int header_bytes = 0;
  int alreadydrawnflag = OFF;
  
  char titlestring[MAX_STRING_LENGTH];
  char tempstring[MAX_STRING_LENGTH];


  int required_bytes;
  long status;
  long starttime, localtime;
  long x;


/*-----------------------------*/
  
  strcpy(progname, argv[0]);
  strcpy(fontname, "");
  strcpy(inputfn, "");
  strcpy(titlestring, "");

  /* Machine specific defaults */
#ifdef HOST_SPARC
  byteorderflag = SUN;
  reversevideoflag = OFF;	
#endif
#ifdef HOST_DECSTATION
  byteorderflag = DEC;
  reversevideoflag = ON;
#endif
#ifdef HOST_LINUXPC
  byteorderflag = DEC;
  reversevideoflag = ON;
#endif

  parsecommandline(argc, argv, inputfn, titlestring, fontname);

/*-----------------------------*/

  /* Open Display: this also finds the screen size */
  initialise_X_screen();

/*-----------------------------*/


  if (xsyncflag == ON) {
    XSynchronize(display, True);
    fprintf(stderr, "XSynchronize on \n");}

  inputfp = open_file(inputfn, stdin, READ);
  header_bytes = readheader(inputfp, inputfn);

/*-----------------------------*/

  /*  define bytes_per_line of the XImage. This seems to be, at least on a 
   *  Colour SS-10, to be 
   *        (width-1)
   *     (  --------- +1 )  *4
   *            32  
   *  where the INTEGER part of the division is all that is needed.
   *
   *  Examples:
   *      width=100 to 128  bytes=16  (100 is the smallest AIM window allowed.-
   *            129 -- 160        20
   *            161 -- 192        24
   *            193 -- 224        28
   */

  reviewimage_bytesperline = (int) ((int) ((width_ctn -1) / 32) +1) *4;

/*-----------------------------*/

  /* Allocate lots of space:
   * no of frames by .ctn size 
   */

  if (depthflag == MONO)
    depth = 1;
  else 
    depth = DefaultDepth(display, screen_num);
  
  required_bytes = no_frames*height_ctn*reviewimage_bytesperline*depth;
  
  if (verboseflag == ON) {
    fprintf(stderr, "xreview : reserving %i * %i * %i = %i bytes.\n", no_frames, (height_ctn*reviewimage_bytesperline), depth, required_bytes); }

  data_pointer = (char *) malloc((size_t) required_bytes);
  if (data_pointer == NULL) {
    fprintf(stderr, "xreview : unable to allocate %i bytes for XImage.\n", required_bytes);
    fclose(inputfp);
    exit(-1);}

  /* sideways scroll */
  if (sidewaysflag == ON) {
    required_bytes = no_frames*height_ctn*reviewimage_bytesperline*depth;
    if (verboseflag == ON) {
      fprintf(stderr, "xreview : reserving %i * %i = %i bytes.\n", (no_frames*height_ctn*reviewimage_bytesperline), depth, required_bytes); }
    data_pointer_sideways = (char *) malloc((size_t) required_bytes);
    if (data_pointer_sideways == NULL) {
      fprintf(stderr, "xreview : unable to allocate %i bytes for XImage.\n", required_bytes);
      fclose(inputfp);
      exit(-1);}}

/*-----------------------------*/

  /* load .ctn data */
  loaddata(inputfp);
  close_files(inputfp);
  if (animate_stop == 9999)
    animate_stop = no_frames;

  if (sidewaysflag == ON) {
    for (x=location[0]; x<=location[0]+required_bytes-1; x++)
      data_pointer_sideways[x] = data_pointer[x];}

/*-----------------------------*/  

  /* Find a font, in this order:
   *   1. command-line
   *   2. Times family
   *   3. Lucida family.
   * If can't find any, should crash. 
   */

  font_info = NULL;

  if ((strcmp(fontname, "") == 0 ) ||
      ((font_info = XLoadQueryFont(display, fontname)) == NULL)) {
    sprintf(fontname, "-adobe-times-medium-r-normal--%i-*-*-*-*-*-*-*", pointsize);
    if ((font_info = XLoadQueryFont(display, fontname)) == NULL) {
      sprintf(fontname, "-b&h-lucida-medium-r-normal-sans-%i-*-*-*-*-*-*-*", pointsize);
      if ((font_info = XLoadQueryFont(display, fontname)) == NULL) {
	fprintf(stderr, "xreview : unable to find fonts.\n");
	exit(-1); }}}

/*-----------------------------*/

  /* define a cursor */
  cursor = XCreateFontCursor(display, XC_top_left_arrow);

/*-----------------------------*/
  
  initialise_axes_window(inputfn, titlestring, inputfp, argv, argc);
  XMapWindow(display, axes.win);

  /* define the background pixmap */
  stipple_pixmap = XCreatePixmapFromBitmapData(display, \
			   RootWindow(display, screen_num), stipple_a_bits, \
			   stipple_a_width, stipple_a_height, \
			   BlackPixel(display, screen_num), \
                           WhitePixel(display, screen_num), \
			   DefaultDepth(display, screen_num));

  initialise_control_window(inputfn, titlestring, inputfp, argv, argc); 
  if (controlwindowflag == ON)
    XMapWindow(display, control.win);

  initialise_buttons();

  initialise_image();

/*------------------------------*/

  

/*-----------------------------
 * EVENT LOOP 
 *-----------------------------
 */



  while (1) {
    XNextEvent(display, &report);

    if (report.xany.window == axes.win) 
      switch_axes();
    else if (report.xany.window == control.win) 
      switch_control();
    else 
      switch_buttons();

  } /* while */


  /*---------------------------------------------------------*/

    
} /* main */
      
      



/*......................................................................*/
/*......................................................................*/





void parsecommandline(int argc, char *argv[], char inputfn[], char titlestring[], char fontname[])
{
  int x=1, helpflag = OFF;
  int control_width =0;
  char control_size[MAX_STRING_LENGTH];

  strcpy(control_size, "");

  while (x < argc){
    if      (!strcmp(argv[x], "-input")) {strcpy(inputfn, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-inp")) {strcpy(inputfn, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-i")) {strcpy(inputfn, argv[x+1]); x+=2;}

    else if (!strcmp(argv[x], "-help")) {helpflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-h")) {helpflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-verbose")) {verboseflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-ver")) {verboseflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-v")) {verboseflag = ON; x+=1;}

    else if (!strcmp(argv[x], "-side")) {sidewaysflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-sideways")) {sidewaysflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-controls")) {controlwindowflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-con")) {controlwindowflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-c")) {controlwindowflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-controls_x")) {controls_xflag = ON; new_control_x = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-cx")) {controls_xflag = ON; new_control_x = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-controls_y")) {controls_yflag = ON; new_control_y = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-cy")) {controls_yflag = ON; new_control_y = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-image_x")) {axes_xflag = ON; new_axes_x = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-ix")) {axes_xflag = ON; new_axes_x = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-image_y")) {axes_yflag = ON; new_axes_y = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-iy")) {axes_yflag = ON; new_axes_y = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-controls_scale")) {scale = atof(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-cscale")) {scale = atof(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-controls_width")) {control_width = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-cw")) {control_width = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-controls_size")) {strcpy(control_size, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-csize")) {strcpy(control_size, argv[x+1]); x+=2;}

    else if (!strcmp(argv[x], "-display")) {strcpy(display_name, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-d")) {strcpy(display_name, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-font")) {strcpy(fontname, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-fn")) {strcpy(fontname, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-point")) {pointsize = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-p")) {pointsize = atoi(argv[x+1]); x+=2;}

    else if (!strcmp(argv[x], "-wait")) {waittime_millisecs = atol(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-w")) {waittime_millisecs = atol(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-speed")) {waittime_millisecs = atol(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-start")) {animate_start = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-stop")) {animate_stop = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-skip")) {animate_skip = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-frame")) {frame = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-fra")) {frame = atoi(argv[x+1]); x+=2;}

    else if (!strcmp(argv[x], "-title")) {titleflag = ON; strcpy(titlestring, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-tit")) {titleflag = ON; strcpy(titlestring, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-t")) {titleflag = ON; strcpy(titlestring, argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-mono")) {depthflag = MONO;  x+=1;}
    else if (!strcmp(argv[x], "-colour")) {depthflag = COLOUR;  planemask = AllPlanes; x+=1; }
    else if (!strcmp(argv[x], "-planemask")) {planemask = atoi(argv[x+1]); x+=2;}
    else if (!strcmp(argv[x], "-xsync")) {xsyncflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-rv")) {if (reversevideoflag == ON) 
	                                  reversevideoflag = OFF;
                                       else
                                          reversevideoflag = ON;
                                       x+=1;}
    else if (!strcmp(argv[x], "-lsb")) {byteorderflag = DEC; x+=1;}
    else if (!strcmp(argv[x], "-msb")) {byteorderflag = SUN; x+=1;}
    else if (!strcmp(argv[x], "-dec")) {byteorderflag = DEC; reversevideoflag = ON; x+=1;}
    else if (!strcmp(argv[x], "-sun")) {byteorderflag = SUN; reversevideoflag = OFF; x+=1;}
    else if (x = (argc-1)) {strcpy(inputfn, argv[x]); x+=1;}

    else {fprintf(stderr, "xreview: unknown option %s\n", argv[x]);
          exit(-1);}

  }
  
  if (helpflag == ON)
    {
      fprintf(stderr, "\n");
      fprintf(stderr, "--------------------------------------------------------------------------------\n");
      fprintf(stderr, "                              xreview\n");
      fprintf(stderr, "--------------------------------------------------------------------------------\n\n");
      fprintf(stderr, " usage: xreview -input 'filename.ctn' <options> \n");
      fprintf(stderr, "  or    xreview <options> 'filename.ctn' \n");
      fprintf(stderr, "  or    cat 'filename.ctn' | xreview <options>  \n\n\n");
      fprintf(stderr, "                       Command line options                              Abbrev.\n");
      fprintf(stderr, "--------------------------------------------------------------------------------\n");
      fprintf(stderr, "-input <.ctn file>    Input file  (default = stdin).                     -i\n");
      fprintf(stderr, "\n");
      fprintf(stderr, "-controls             Map Controls window.                               -con\n");
      fprintf(stderr, "-controls_x <int>     Controls window position (pixels).                 -cx\n");
      fprintf(stderr, "-controls_y <int>     Controls window position (pixels).                 -cy\n");
      fprintf(stderr, "-controls_width <int> Controls window width (pixels).                    -cw\n");
      fprintf(stderr, "-controls_scale <flt> Scale factor for size of Controls Window.          -cscale\n");
      fprintf(stderr, "-controls_size        Controls Window size: 'tiny', 'small' or 'normal'. -csize\n");
      fprintf(stderr, "-image_x <int>        Image position (pixels).                           -ix\n");
      fprintf(stderr, "-image_y <int>        Image position (pixels).                           -iy\n");
      fprintf(stderr, "\n");
      fprintf(stderr, "-display <string>     X Display server to use.                           -d\n");
      fprintf(stderr, "-font <string>        Font.                                              -fn\n");
      fprintf(stderr, "-point <int>          Point-size of default font (Times, medium weight). -p\n");
      fprintf(stderr, "-title <string>       Title of Image window & icon.                      -t\n");
      fprintf(stderr, "-mono                 Assume Monochrome (single-plane) cartoons. (default)  \n");
      fprintf(stderr, "-colour               Assume Colour (multiplane) cartoons.                  \n");
      fprintf(stderr, "-planemask <int>      Value of PlaneMask for copying XImage (default=1)     \n");  
      fprintf(stderr, "-rv                   Reverse-video the cartoon window colours.             \n");
      fprintf(stderr, "-lsb                  Assume cartoon's bit & byte orders are LSBFirst (ie, DEC).\n");
      fprintf(stderr, "-msb                  Assume cartoon's bit & byte orders are MSBFirst (ie, Sun).\n");
      fprintf(stderr, "-dec                  Alias for -lsb -rv \n");
      fprintf(stderr, "-sun                  Alias for -msb \n");
      fprintf(stderr, "\n");
      fprintf(stderr, "-speed <int>          Wait-time between frames (msecs) (default = %i).    -speed\n", waittime_millisecs); 
      fprintf(stderr, "-start <int>          Animation start (frames) (default=1).              -start\n"); 
      fprintf(stderr, "-stop <int>           Animation stop (frames) (default=last frame).      -stop\n"); 
      fprintf(stderr, "-skip <int>           Animation skip (frames) (default=1).               -skip\n"); 
      fprintf(stderr, "-frame <int>          Initial display frame (default=1).                 -fra\n"); 
      fprintf(stderr, "-sideways             Scroll cartoon sideways (right->left)              -side\n");
      fprintf(stderr, "\n");
      fprintf(stderr, "-verbose              Print some running information (to stderr).        -v\n");
      fprintf(stderr, "-help                 Print this page (to stderr).                       -h\n");
      fprintf(stderr, "\n\n" );
      fprintf(stderr, "                       Image Window Controls \n");
      fprintf(stderr, "--------------------------------------------------------------------------------\n");
      fprintf(stderr, " Left button          Animate cartoon. \n");
      fprintf(stderr, " Middle button        Map Controls window. \n");
      fprintf(stderr, " Right button         Quit. \n\n");
      fprintf(stderr, " SPACE or RET         Animate cartoon. \n");
      fprintf(stderr, " F or f               Set speed faster by x2. \n");
      fprintf(stderr, " S or s               Set speed slower by x2. \n");
      fprintf(stderr, " N or n               Next frame. \n");
      fprintf(stderr, " P or p               Previous frame. \n");
      fprintf(stderr, " Q or q               Quit. \n");
      fprintf(stderr, "\n\n");
      exit(-1);}

  if (strcmp(control_size, "") != 0){
    if (strcmp(control_size, "normal") == 0) {
      scale=1.00;
      pointsize=18;}
    else if (strcmp(control_size, "small") == 0) {
      scale=0.80;
      pointsize=14;}
    else if (strcmp(control_size, "tiny") == 0) {
      scale=0.60;
      pointsize=10;}
    else {
      fprintf(stderr, "xreview : illegal control_size value.\n");
      exit(-1);}
  }

  if (control_width != 0)
    scale = (double) control_width /  CONTROL_WIDTH;


}  


/* The end.*/


/*-------------------------------------------------------------------------*/
/*-------------------------------------------------------------------------*/