7.6 Inquire functions

void vqf_attributes (int16_t handle, int16_t *attrib)
{
   contrl[0] = 37;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();

   attrib[0..4] = intout[0..4];
}

int32_t vqf_bg_color( int16_t handle, COLOR_ENTRY *bg_color )
{
   contrl[0] = 203;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 1;
   contrl[6] = handle;

   vdi ();

   bg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

int32_t vqf_fg_color( int16_t handle, COLOR_ENTRY *fg_color )
{
   contrl[0] = 202;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 1;
   contrl[6] = handle;

   vdi ();

   fg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

void vqin_mode (int16_t handle, int16_t dev_type,
                int16_t *input_mode)
{
   intin[0] = dev_type;

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

   vdi ();

   *input_mode = intout[0];
}

void vql_attributes (int16_t handle, int16_t *attrib)
{
   contrl[0] = 35;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();

   attrib[0..2] = intout[0..2];
   attrib[3]    = ptsout[0];
   attrib[4..5] = intout[3..4];
}

int32_t vql_bg_color( int16_t handle, COLOR_ENTRY *bg_color )
{
   contrl[0] = 203;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 2;
   contrl[6] = handle;

   vdi ();

   bg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

int32_t vql_fg_color( int16_t handle, COLOR_ENTRY *fg_color )
{
   contrl[0] = 202;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 2;
   contrl[6] = handle;

   vdi ();

   fg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

void vqm_attributes (int16_t handle, int16_t *attrib)
{
   contrl[0] = 36;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();

   attrib[0..2] = intout[0..2];
   attrib[3]    = ptsout[1];
   attrib[4]    = ptsout[0];
}

int32_t vqm_bg_color( int16_t handle, COLOR_ENTRY *bg_color )
{
   contrl[0] = 203;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 3;
   contrl[6] = handle;

   vdi ();

   bg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

int32_t vqm_fg_color( int16_t handle, COLOR_ENTRY *fg_color )
{
   contrl[0] = 202;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 3;
   contrl[6] = handle;

   vdi ();

   fg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

int32_t vqr_bg_color( int16_t handle, COLOR_ENTRY *bg_color )
{
   contrl[0] = 203;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 4;
   contrl[6] = handle;

   vdi ();

   bg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

int32_t vqr_fg_color( int16_t handle, COLOR_ENTRY *fg_color )
{
   contrl[0] = 202;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 4;
   contrl[6] = handle;

   vdi ();

   fg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

void vqt_advance ( int16_t handle, int16_t ch,
                   int16_t *x_advance, int16_t *y_advance,
                   int16_t *remx, int16_t *remy );
{
   intin[0] = ch;

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

   vdi ();

   x_advance = ptsout[0];
   y_advance = ptsout[1];
   remx      = ptsout[2];
   remy      = ptsout[3];
}

void vqt_advance32 (int16_t handle, int16_t ch,
                   fix31 *x_advance, fix31 *y_advance)
{
   intin[0] = ch;

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

   vdi ();

   *x_advance = ptsout[4..5];
   *y_advance = ptsout[6..7];
}

void vqt_attributes (int16_t handle, int16_t *attrib)
{
   contrl[0] = 38;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();

   attrib[0..5] = intout[0..5];
   attrib[6..9] = ptsout[0..3];
}

int32_t vqt_bg_color( int16_t handle, COLOR_ENTRY *bg_color )
{
   contrl[0] = 203;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 0;
   contrl[6] = handle;

   vdi ();

   bg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

void vqt_cachesize ( int16_t handle, int16_t which_cache,
                     int32_t *size );
{
   intin[0] = which_cache;

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

   vdi ();

   *size = intout[0..1];
}

int16_t is_char_available (int16_t handle, uint16_t unicode)
{
   uint16_t dindex;

   /* Translate unicode into a direct index */
   dindex = vqt_char_index (handle, unicode, 2, 0);

   if (dindex == 0xffff)
      return (FALSE);        /* Character is available */
   else
      return (TRUE);         /* Not available */
}

uint16_t vqt_char_index ( int16_t handle, uint16_t scr_index,
                          int16_t scr_mode, int16_t dst_mode )
{
   intin[0] = scr_index;
   intin[1] = src_mode;
   intin[2] = dst_mode;

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

   vdi ();

   return ( intout[0] );
}

void vqt_devinfo ( int16_t handle, int16_t device,
                   int16_t *devexits, int8_t *devname )
{
   intin[0] = device;

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

   vdi ();

   *devexits = ptsout[0];
   p = contrl[4];
   dev_name[0..p-1]    = intout[0..p-1];
}

void vqt_extent (int16_t handle, int8_t *string,
                 int16_t *extent)
{
   int16_t *tmp;

   tmp = intin;
   while (*tmp++ = *string++)
      ;

   contrl[0] = 116;
   contrl[1] = 0;
   contrl[3] = (int16_t) ((tmp-intin)-1);
   contrl[6] = handle;

   vdi ();

   extent[0..7] = ptsout[0..7];
}

int16_t vqt_ext_name (int16_t handle, int16_t index,
                      int8_t *name, uint16_t *font_format,
                      uint16_t *flags)
{
   intin[0] = index;
   intin[1] = 0;         /* Reserved */

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

   vdi ();

   name[0..31]  = intout[1..32];
   name[32]     = intout[33];
   *flags       = (intout[34] >> 8) & 0xff;
   *font_format = intout[34] & 0xff;

   return ( intout[0] );
}

int32_t vqt_fg_color( int16_t handle, COLOR_ENTRY *fg_color )
{
   contrl[0] = 202;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[5] = 0;
   contrl[6] = handle;

   vdi ();

   fg_color = intout [2..5];
   return ( int32_t intout [0]  );
}

void vqt_fontheader (int16_t handle, int8_t *buffer,
                     int8_t *tdf_name)
{
   intin[0..1] = buffer;

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

   vdi ();

   tdf_name[0..n-1] = intout[0..n-1];
}

void vqt_fontinfo (int16_t handle, int16_t *minADE,
                   int16_t *maxADE, int16_t *distances,
                   int16_t *maxwidth, int16_t *effects)
{
   contrl[0] = 131;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();

   *minADE    = intout[0];
   *maxADE    = intout[1];
   *max_width = ptsout[0];

   distances[0] = ptsout[1];
   distances[1] = ptsout[3];
   distances[2] = ptsout[5];
   distances[3] = ptsout[7];
   distances[4] = ptsout[9];

   effects[0] = ptsout[2];
   effects[1] = ptsout[4];
   effects[2] = ptsout[6];
}

void vqt_f_extent (int16_t handle, int8_t *string,
                   int16_t *extent)
{
   intin[0..n-1] = string[0..n-1];

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

   vdi ();

   extent[0..7] = ptsout[0..7];
}

void vqt_get_table ( int16_t handle, int32_t *map )
{
   contrl[0] = 254;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();

   map = intout[0..1];
}

void vqt_justified (int16_t handle, int16_t x, int16_t y,
                    int8_t *string, int16_t length,
                    int16_t word_space, int16_t char_space,
                    int16_t *offsets)
{
   int16_t i;

   intin[0] = word_space;
   intin[1] = char_space;

   ptsin[0] = x;
   ptsin[1] = y;
   ptsin[2] = length;
   ptsin[3] = 0;

   i = 0;
   while (string[i++])
      ;

   contrl[0] = 132;
   contrl[1] = 2;
   contrl[3] = i;
   contrl[6] = handle;
   pooff = offsets;

   vdi ();

   pooff = ptsout;
}

int16_t vqt_name (int16_t handle, int16_t element_num,
                  int8_t *name)
{
   int16_t tmp;

   intin[0] = element_num;

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

   vdi ();

   for (tmp = 0; tmp < 32; tmp++)
      name[tmp] = intout[tmp+1];

   return ( intout[0] );
}

int16_t vqt_name_and_id (int16_t handle, int16_t font_format,
                         int8_t *font_name, int8_t *ret_name)
{
   intin[0] = font_format;
   intin[1..n] = font_name[0..n-1];

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

   vdi ();

   ret_name[0..m-1] = intout[1..m];
   return ( intout[0] );
}

void vqt_pairkern (int16_t handle, int16_t ch1, int16_t ch2,
                   fix31 *x, fix31 *y)
{
   intin[0] = ch1;
   intin[1] = ch2;

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

   vdi ();

   *x = intout[0..1];
   *y = intout[2..3];
}

void vqt_real_extent (int16_t handle, int16_t x, int16_t y,
                      int8_t *string, int16_t *extent)
{
   intin[0..n-1] = string[0..n-1];
   ptsin[0] = x;
   ptsin[1] = y;

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

   vdi ();

   extent[0..7] = ptsout[0..7];
}

void vqt_trackkern (int16_t handle, fix31 *x, fix31 *y)
{
   contrl[0] = 234;
   contrl[1] = 0;
   contrl[3] = 0;
   contrl[6] = handle;

   vdi ();

   *x = intout[0..1];
   *y = intout[2..3];
}

int16_t vqt_width (int16_t handle, int8_t character,
                   int16_t *cell_width, int16_t *left_delta,
                   int16_t *right_delta)
{
   intin[0] = character;

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

   vdi ();

   *cell_width  = ptsout[0];
   *left_delta  = ptsout[2];
   *right_delta = ptsout[4];

   return ( intout[0] );
}

int16_t vqt_xfntinfo (int16_t handle, int16_t flags,
                      int16_t id, int16_t index,
                      XFNT_INFO *info)
{
   intin[0] = flags;
   intin[1] = id;
   intin[2] = index;
   intin[3..4] = info;

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

   vdi ();

   return ( intout[1] );
}

void vq_cellarray (int16_t handle, int16_t *pxyarray,
                   int16_t row_length, int16_t num_rows,
                   int16_t *el_used, int16_t *rows_used,
                   int16_t *status, int16_t *colarray)
{
   ptsin[0..3] = pxarray[0..3];

   contrl[0] = 27;
   contrl[1] = 2;
   contrl[3] = 0;
   contrl[6] = handle;
   contrl[7] = row_length;
   contrl[8] = num_rows;

   vdi ();

   *el_used   = contrl[9];
   *rows_used = contrl[10];
   *status    = contrl[11];

   colarray[0..n-1] = intout[0..n-1];
}

• Call vq_color with set_flag value of 0 and save the return
• Call vs_color to modify that colour index by a significant value
• Call vq_color with set_flag value of 0 and then compare it with what you set
• Restore old value
• If equivalent values are returned, you can modify each colour index

int16_t vq_color (int16_t handle, int16_t color_index,
               int16_t set_flag, int16_t *rgb)
{
   intin[0] = color_index;
   intin[1] = set_flag;

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

   vdi ();

   rgb[0] = intout[1];
   rgb[1] = intout[2];
   rgb[2] = intout[3];

   return ( intout[0] );
}

void vq_devinfo (int16_t handle, int16_t device,
                 int16_t *dev_open, int8_t *file_name,
                 int8_t *device_name)
{
   intin[0] = device;

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

   vdi ();

   *dev_open = ptsout[0];
   dev_name[0..p]    = ptsout[1..p-1];
   file_name[0..i-1] = intout[0..i-1]
}

void vq_extnd (int16_t handle, int16_t owflag,
               int16_t *work_out)
{
   intin[0] = owflag;

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

   vdi ();

   work_out[0..44]  = intout[0..44];
   work_out[45..56] = ptsout[0..11];
}

int16_t vq_ext_devinfo (int16_t handle, int16_t device,
                        int16_t *dev_exists,
                        int8_t *file_path,
                        int8_t *file_name, int8_t *name)
{
   intin[0] = device;
   intin[1..2] = file_path;
   intin[3..4] = file_name;
   intin[5..6] = name;

   contrl[0] = 248;
   contrl[1] = 0;
   contrl[3] = 7;
   contrl[5] = 4242;
   contrl[6] = handle;

   vdi ();

   *dev_exists = intout[0];
   return ( intout[1] );
}

• Build rasters (also in TrueColor) and want to copy them with vro_cpyfm to the screen
• Save rasters (e.g. XIMGs)
• Support genlock (overlay)

void vq_scrninfo (int16_t handle, int16_t *work_out)
{
   intin[0] = 2;

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

   vdi ();

   work_out[0..272] = intout[0..272];
}