7.10 Control functions

void v_bez_off (int16_t handle)
{
   contrl[0] = 11;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 13;
   contrl[6] = handle;

   vdi ();
}

int16_t v_bez_on (int16_t handle)
{
   contrl[0] = 11;
   contrl[1] = 1;
   contrl[3] = 0;
   contrl[5] = 13;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

void v_clrwk (int16_t handle)
{
   contrl[0] = 3;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();
}

void v_clsbm (int16_t handle)
{
   contrl[0] = 101;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 1;
   contrl[6] = handle;

   vdi ();
}

void v_clsvwk (int16_t handle)
{
   contrl[0] = 101;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();
}

void v_clswk (int16_t handle)
{
   contrl[0] = 2;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();
}

int16_t v_flushcache ( int16_t handle );
{
   contrl[0] = 251;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

void v_getoutline (int16_t handle, int16_t ch,
                   int16_t *xyarray, int8_t *bezarray,
                   int16_t maxpts, int16_t *count)
{
   intin[0] = ch;
   intin[1] = maxpts;
   intin[2..3] = xyarray;
   intin[4..5] = bezarray;

   contrl[0] = 243;
   contrl[1] = 0;
   contrl[3] = 6;
   contrl[6] = handle;

   vdi ();

   *count = intout[0];
}

• Works the same way for any font format
• Accepts offsets for X- and Y-coordinates
• Also works with rotation
• Respects vertical alignment
• Respects horizontal alignment

int16_t v_get_outline ( int16_t handle, uint16_t index,
                        uint16_t x_offset, uint16_t y_offset,
                        int16_t *xyarray, uint8_t *bezarayr,
                        int16_t max_pts )
{
   intin[0] = index;
   intin[1] = max_pts;
   intin[2..3] = xyarray;
   intin[4..5] = bezarray;
   intin[6] = x_offset;
   intin[7] = y_offset;

   contrl[0] = 243;
   contrl[1] = 0;
   contrl[3] = 8;
   contrl[5] = 1;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

int16_t v_loadcache ( int16_t handle, int8_t *filename,
                      int16_t mode )
{
   intin[0] = mode;
   intin[1..n] = filename;

   contrl[0] = 250;
   contrl[1] = 0;
   contrl[3] = 1+n;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

int16_t v_load_cache ( int16_t handle, int8_t *filename,
                      int16_t mode )
{
   intin[0] = mode;
   intin[1..n] = filename;

   contrl[0] = 226;
   contrl[1] = 0;
   contrl[3] = 1+n;
   contrl[5] = 7;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

int16_t v_open_bm ( int16_t base_handle, GCBITMAP *bitmap,
                    int16_t color_flags, int16_t unit_flags,
                    int16_t pixel_width, int16_t pixel_height )
{
   intin[0] = color_flags;
   intin[1] = unit_flags;
   intin[2] = pixel_width;
   intin[3] = pixel_height;

   contrl[0] = 100;
   contrl[1] = 0;
   contrl[3] = 4;
   contrl[5] = 3;
   contrl[6] = base_handle;
   contrl[7..8] = bitmap;

   vdi ();

   return ( contrl[6] );
}

work_in[15..16] = 256;  /* 256 colours           */
work_in[17] = 8;        /* 8 Planes              */
work_in[18] = 0;        /* Interleaved planes    */
work_in[19] = 1;        /* Normal bit order      */

void v_opnbm (int16_t *work_in, MFDB *bitmap, int16_t *handle,
              int16_t *work_out)
{
   intin[0..19] = work_in[0..19];

   contrl[0] = 100;
   contrl[1] = 0;
   contrl[3] = 20;
   contrl[5] = 1;
   contrl[6] = handle;
   contrl[7..8] = bitmap;

   vdi ();

   *handle = contrl[6];
   work_out[0..44]  = intout[0..44];
   work_out[45..56] = ptsout[0..11];
}

int16_t v_opnprn( int16_t base_handle, PRN_SETTINGS *settings,
                  int16_t *work_out )
{
  int16   work_in[16];
  int16   i;

  vdi_pb.intin = (int *) work_in;
  vdi_pb.intout = (int *) work_out;
  vdi_pb.ptsout = (int *) work_out + 45;

  /* Driver number             */
  work_in[0] = settings->driver_id;
  for ( i = 1; i < 10; i++ )
    work_in[i] = 1;
  /* Use raster coordinates    */
  work_in[10] = 2;
  /* Use page format from settings */
  work_in[11] = (int16) settings->size_id;
  /* Use output channel from settings */
  *(int8 **) &work_in[12] = settings->device;
  /* Printer settings          */
  *(PRN_SETTINGS **) &work_in[14] = settings;

  contrl[0] = 1;                   /* Function number */
  contrl[1] = 0;
  contrl[3] = 16;              /* Extended parameter number */
  contrl[6] = base_handle;

  vdi( &vdi_pb );                  /* Open driver */

  vdi_pb.intin = (int *) intin;    /* Reset pointer */
  vdi_pb.intout = (int *) intout;
  vdi_pb.ptsout = (int *) ptsout;

  return( contrl[6] );
}

void v_opnvwk (int16_t *work_in, int16_t *handle,
               int16_t *work_out)
{
   intin[0..10] = work_in[0..10]

   contrl[0] = 100;
   contrl[1] = 0;
   contrl[3] = 11;
   contrl[6] = *handle;

   vdi ();

   *handle = contrl[6];
   work_out[0..44]  = intout[0..44];
   work_out[45..56] = ptsout[0..11];
}

void v_opnwk (int16_t *work_in, int16_t *handle,
              int16_t *work_out)
{
   intin[0..15] = work_in[0..15];

   contrl[0] = 1;
   contrl[1] = 0;
   contrl[3] = 16;
   contrl[6] = 0;

   vdi ();

   *handle = contrl[6];
   work_out[0..44]  = intout[0..44];
   work_out[45..56] = ptsout[0..11];
}

void v_pat_rotate( int16_t handle, int16_t angle )
{
   intin[0] = angle;

   contrl[0] = 134;
   contrl[1] = 0;
   contrl[3] = 1;
   contrl[6] = handle;

   vdi ();
}

• The memory block must start on a 16-byte boundary.
   

• At least 16 bytes that belong to the caller must be free before and after the memory block, as, depending on the output scope, some graphics functions read and possibly even write a few bytes before or after the bitmap (actually, the contents of these memory blocks is not altered; just some masked data will be written back unchanged).
   

int16_t v_resize_bm( int16_t handle, int16_t width,
                     int16_t height, int32_t byte_width,
                     uint16_t *addr )
{
   intin[0] = width;
   intin[1] = height;
   intin[2..3] = byte_width;
   intin[4..5] = addr;

   contrl[0] = 100;
   contrl[1] = 0;
   contrl[3] = 6;
   contrl[5] = 2;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

int16_t v_savecache ( int16_t handle, int8_t *filename )
{
   intin[0..n] = filename;      /* In 16-bit words */

   contrl[0] = 249;
   contrl[1] = 0;
   contrl[3] = n;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

int16_t v_save_cache ( int16_t handle, int8_t *filename )
{
   intin[0..n] = filename;      /* In 16-bit words */

   contrl[0] = 226;
   contrl[1] = 0;
   contrl[3] = n;
   contrl[5] = 6;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

void v_set_app_buff ( int16_t handle, int16_t **address,
                      int16_t nparagraphs )
{
   intin[0..1] = address;
   intin[2] = nparagraphs;

   contrl[0] = -1;
   contrl[1] = 0;
   contrl[3] = 3;
   contrl[5] = 6;
   contrl[6] = handle;

   vdi ();
}

void v_updwk (int16_t handle)
{
   contrl[0] = 4;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();
}

intin[0]  = High word, (!U)and(!u)
intin[1]  = Low word of the buffer address
contrl[0] = 4;
contrl[1] = 1; /* Do not clear buffer */
contrl[3] = 2;
contrl[6] = handle;
vdi ();

void vs_clip (int16_t handle, int16_t clip_flag,
              int16_t *pxyarray)
{
   intin[0] = clip_flag;
   ptsin[0..3] = pxyarray[0..3];

   contrl[0] = 129;
   contrl[1] = 2;
   contrl[3] = 1;
   contrl[6] = handle;

   vdi ();
}

                  font_max     font_free
For screens:     5120 (80K)         0
For printers:      32767       640 (10K)

int16_t vst_ex_load_fonts ( int16_t handle, int16_t select,
                            int16_t font_max,
                            int16_t font_free )
{
   intin[0] = select;
   intin[1] = font_max;
   intin[2] = font_free;

   contrl[0] = 119;
   contrl[1] = 0;
   contrl[3] = 3;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

int16_t vst_load_fonts (int16_t handle, int16_t select)
{
   intin[0] = select;

   contrl[0] = 119;
   contrl[1] = 0;
   contrl[3] = 1;
   contrl[6] = handle;

   vdi ();

   return ( intout[0] );
}

void vst_unload_fonts (int16_t handle, int16_t select)
{
   intin[0] = select;

   contrl[0] = 120;
   contrl[1] = 0;
   contrl[3] = 1;
   contrl[6] = handle;

   vdi ();
}