/* $Header:_movdrw.c 12.0$ */
/* $ACIS:_movdrw.c 12.0$ */
/* $Source: /ibm/acis/usr/src/usr.lib/libaed/RCS/_movdrw.c,v $ */

#ifndef lint
static char *rcsid = "$Header:_movdrw.c 12.0$";
#endif

#include "whim.h"
VI_AMove(x,y)
  INT16 x,y;			     /* position */
  begin
#include "whimdcl.h"
    if (saving) { JOURNL(V_AMOVE);
		  JOURNL(x);
		  JOURNL(y);}

    clear(3);	  /* 3-word order */
    x = max(0,min(x,1023));
    y = max(0,min(y,799));
    vikint[vikoff++] = 5;	    /* MoveA order */
    vikint[vikoff++] = x;	    /* x position */
    vikint[vikoff++] = y;	    /* y position */
  end

VI_RMove(x,y)
  INT16 x,y;			     /* displacement */
  begin
#include "whimdcl.h"

    if (saving) { JOURNL(V_RMOVE);
		  JOURNL(x);
		  JOURNL(y);}

    clear(3);	  /* 3-word order */
    vikint[vikoff++] = 6;	    /* MoveR order */
    vikint[vikoff++] = x;	    /* x displacement */
    vikint[vikoff++] = y;	    /* y displacement */
  end

VI_ALine(x,y)
  INT16 x,y;			     /* position */
  begin
#include "whimdcl.h"
    if (saving) { JOURNL(V_ALINE);
		  JOURNL(x);
		  JOURNL(y);}

    clear(3);	  /* 3-word order */
    x = max(0,min(x,1023));
    y = max(0,min(y,799));
    vikint[vikoff++] = 7;	    /* LineA order */
    vikint[vikoff++] = x;	    /* x position */
    vikint[vikoff++] = y;	    /* y position */
  end

VI_RLine(x,y)
  INT16 x,y;			     /* displacement */
  begin
#include "whimdcl.h"

    if (saving) { JOURNL(V_RLINE);
		  JOURNL(x);
		  JOURNL(y);}

    clear(3);	  /* 3-word order */
    vikint[vikoff++] = 8;	    /* LineR order */
    vikint[vikoff++] = x;	    /* x displacement */
    vikint[vikoff++] = y;	    /* y displacement */
  end

VI_Circle(radius)
  INT16 radius; 		     /* circle radius */
  begin
#include "whimdcl.h"

    if (saving) { JOURNL(V_CIRC);
		  JOURNL(radius);}

    clear(2);	  /* 2-word order */
    radius = max(0,min(radius,1023));
    vikint[vikoff++] = 14;	/* Circle Order */
    vikint[vikoff++] = radius;	/* radius */
  end
