/***************************************************************************
 *
 *                   MandelVroom Navigation Control
 *
 *                         Kevin L. Clague
 *
 *                        Copyright (C) 1987
 *
 **************************************************************************/

#include "mand.h"

extern struct RastPort *rp;

extern USHORT CmdMode;

LONG NavTop, NavBot, NavLeft, NavRight;

extern SHORT XScale, YScale;

SHORT BoxSizeX = 3, BoxSizeY = 3, DragSize = 3;

DrawBox( Left, Top, Right, Bottom)
  SHORT Top, Left, Bottom, Right;
{
  SetDrMd(rp, COMPLEMENT);
  /*
   * Draw the new box
   */
  Move(rp, Left,  Top   );
  Draw(rp, Right, Top   );
  Draw(rp, Right, Bottom);
  Draw(rp, Left,  Bottom);
  Draw(rp, Left,  Top+1 );

  SetDrMd(rp, JAM1);
} /* DrawBox */

DrawExtras( Left, Top, Right, Bottom)
  SHORT Top, Left, Bottom, Right;
{
  SetDrMd(rp, COMPLEMENT);
  /*
   * Draw Resize gadget
   */
  Move(rp, Right - 1,                    Bottom - (BoxSizeY << YScale));
  Draw(rp, Right - (BoxSizeX << XScale), Bottom - (BoxSizeY << YScale));

  Move(rp, Right - (BoxSizeX << XScale), Bottom + 1 - (BoxSizeY << YScale));
  Draw(rp, Right - (BoxSizeX << XScale), Bottom - 1);

  Move(rp, Left  + 1,                    Top + (DragSize << YScale));
  Draw(rp, Right - 1,                    Top + (DragSize << YScale));

  /*
   * Drag bar bar / close gadget separator
   */
  Move(rp, Left + (4 << XScale), Top + 1);
  Draw(rp, Left + (4 << XScale), Top + (DragSize << YScale) -1 );

  SetDrMd(rp, JAM1);
} /* DrawBox */