contrl[0] = 11;

contrl[1] = 4;

contrl[3] = contrl[5] = 2;

contrl[6] = handle;



intin[0] = startangle;

intin[1] = endangle;



ptsin[0] = x;

ptsin[1] = y;

ptsin[2] = ptsin[3] = ptsin[4] = ptsin[5] = 0;

ptsin[6] = radius;

ptsin[7] = 0;



vdi();

contrl[0] = 11;

contrl[1] = 2;

contrl[3] = 0;

contrl[5] = 1;

contrl[6] = handle;



ptsin[0] = pxy[0];

ptsin[1] = pxy[1];

ptsin[2] = pxy[2];

ptsin[3] = pxy[3];



vdi();

(0x01)

BEZ_POLYLINE

(0x00)

(0x02)

WORD i;



contrl[0] = 6;

contrl[1] = count;

contrl[3] = (count + 1)/2;

contrl[5] = 13;

contrl[6] = handle;



for(i = 0;i < count; i++)

{

 intin[i] = (WORD)bezarr[i];

 ptsin[ i*2 ] = pxy[ i*2 ];

 ptsin[ (i*2) + 1 ] = pxy[ (i*2) + 1];

}



vdi();



*totpts = intin[0];

*totmoves = intin[1];



for(i = 0; i < 4; i++)

 extent[i] = ptsout[i];

WORD i;



contrl[0] = 9;

contrl[1] = count;

contrl[3] = (count + 1)/2;

contrl[5] = 13;

contrl[6] = handle;



for(i = 0;i < count * 2; i++)

 ptsin[i] = pxy[i]; 

for(i = 0;i < count; i++)

 intin[i] = (WORD)bezarr[i];



vdi();



*totpts = intin[0];

*totmoves = intin[1];



for(i = 0; i < 4; i++)

 extent[i] = ptsout[i];

contrl[0] = 11;

contrl[1] = 0;

contrl[3] = 0;

contrl[5] = 13;

contrl[6] = handle;



vdi();

contrl[0] = 11;

contrl[1] = 0;

contrl[3] = 0;

contrl[5] = 13;

contrl[6] = handle;



vdi();



return intout[0];

contrl[0] = 5;

contrl[1] = 0;

contrl[3] = 3;

contrl[5] = 99;

contrl[6] = handle;



intin[0] = 32;

intin[1] = 1;

intin[2] = percent;



vdi();



*actual = intout[0];

WORD tmp = 5;



intin[0] = ratio;

intin[1] = xscale;

intin[2] = yscale;

intin[3] = halign;

intin[4] = valign;

while(intin[tmp++] = (WORD)*fname++);



contrl[0] = 5;

contrl[1] = 2;

contrl[3] = --tmp;

contrl[5] = 23;

contrl[6] = handle;



ptsin[0] = pxy[0];

ptsin[1] = pxy[1];

ptsin[2] = pxy[2];

ptsin[3] = pxy[3];



vdi();

WORD i;

intin[i] = colarray[i]

contrl[0] = 10;

contrl[1] = 2;

contrl[3] = num_rows * elements;

contrl[6] = handle;

contrl[7] = rowlen;

contrl[8] = elements;

contrl[9] = num_rows;

contrl[10] = wrt_mode;



for(i = 0;i < (num_rows * elements);i++)

 intin[i] = colarray;



ptsin[0] = pxy[0];

ptsin[1] = pxy[1];

ptsin[2] = pxy[2];

ptsin[3] = pxy[3];



vdi();

contrl[0] = 11;

contrl[1] = 3;

contrl[3] = 0;

contrl[5] = 4;

contrl[6] = handle;



ptsin[0] = x;

ptsin[1] = y;

ptsin[2] = ptsin[3] = 0;

ptsin[4] = radius;

ptsin[5] = 0;



vdi();

contrl[0] = 5;

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

contrl[5] = 22;

contrl[6] = handle;



vdi();

contrl[0] = 3;

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

contrl[6] = handle;



vdi();

This call will generate a form feed on page-oriented devices.Using this command on a virtual workstation will clear the underlying physical workstation. This is generally not recommended because it will effect all virtual workstations not simply your own.

contrl[0] = 101;

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

contrl[6] = handle;



vdi();

contrl[0] = 2;

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

contrl[6] = handle;



vdi();

contrl[0] = 103;

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

contrl[6] = handle;



intin[0] = color;



ptsin[0] = x;

ptsin[1] = y;



vdi();

contrl[0] = 5;

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

contrl[5] = 5;

contrl[6] = handle;



vdi();

contrl[0] = 5;

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

contrl[5] = 8;

contrl[6] = handle;



vdi();

contrl[0] = 5;

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

contrl[5] = 7;

contrl[6] = handle;



vdi();

contrl[0] = 5;

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

contrl[5] = 6;

contrl[6] = handle;



vdi();

WORD i = 0;



while(intin[i++] = (WORD)*str++);



intin[i] = 0;

contrl[0] = 5;

contrl[1] = 0;

contrl[3] = --i;

contrl[5] = 12;

contrl[6] = handle;



vdi();

contrl[0] = 5;

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

contrl[5] = 4;

contrl[6] = handle;



vdi();

contrl[0] = 5;

contrl[1] = 1

contrl[3] = 0;

contrl[5] = 18;

contrl[6] = handle;



ptsin[0] = x;

ptsin[1] = y;



vdi();

contrl[0] = 5;

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

contrl[5] = 10;

contrl[6] = handle;



vdi();

contrl[0] = 5;

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

contrl[5] = 9;

contrl[6] = handle;



vdi();

contrl[0] = 11;

contrl[1] = contrl[3] = 2;

contrl[5] = 6;

contrl[6] = handle;



intin[0] = startangle;

intin[1] = endangle;



ptsin[0] = x;

ptsin[1] = y;

ptsin[2] = xradius;

ptsin[3] = yradius;



vdi();

contrl[0] = 11;

contrl[1] = 2;

contrl[3] = 0;

contrl[5] = 5;

contrl[6] = handle;



ptsin[0] = x;

ptsin[1] = y;

ptsin[2] = xradius;

ptsin[3] = yradius;



vdi();

contrl[0] = 11;

contrl[1] = contrl[3] = 2;

contrl[5] = 7;

contrl[6] = handle;



intin[0] = startangle;

intin[1] = endangle;



ptsin[0] = x;

ptsin[1] = y;

ptsin[2] = xradius;

ptsin[3] = yradius;



vdi();

contrl[0] = 5;

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

contrl[5] = 3;

contrl[6] = handle;



vdi();

contrl[0] = 5;

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

contrl[5] = 2;

contrl[6] = handle;



vdi();

WORD i;



contrl[0] = 9;

contrl[1] = count;

contrl[3] = 0;

contrl[6] = handle;



for(i = 0;i < count*2;i++)

 ptsin[i] = pxy[i];



vdi();

contrl[0] = 251;

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

contrl[6] = handle;



vdi();

contrl[0] = 5;

contrl[1] = 0;

contrl[3] = 2;

contrl[5] = 102;

contrl[6] = handle;



intin[0] = fptr_high;

intin[1] = fptr_low;



vdi();

contrl[0] = 5;

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

contrl[5] = 20;

contrl[6] = handle;



vdi();

WORD i = 0;



while(intin[i++] = (WORD)*str++);



contrl[0] = 241;

contrl[1] = 1;

contrl[3] = --i;

contrl[6] = handle;



ptsin[0] = x;

ptsin[1] = y;



vdi();

WORD i;



for( i = 0; i < wstrlen; i++)

 intin[i] = wstr[i];



contrl[0] = 241;

contrl[1] = 1;

contrl[3] = wstrlen;

contrl[6] = handle;



ptsin[0] = x;

ptsin[1] = y;



vdi();

WORD i = 0;



while(intin[i++] = (WORD)*str++);

--i;



ptsin[0] = x;

ptsin[1] = y;



for(j = 0; j < i * 2;j++)

 ptsin[j + 2] = offset[j]; 



contrl[0] = 241;

contrl[1] = i + 1;

contrl[3] = i;

contrl[6] = handle;



vdi();

WORD i;



for( i = 0;i < wstrlen; i++)

 intin[i] = wstr[i];



ptsin[0] = x;

ptsin[1] = y;



for(j = 0; j < i * 2;j++)

 ptsin[j + 2] = offset[j]; 



contrl[0] = 241;

contrl[1] = wstrlen + 1;

contrl[3] = wstrlen;

contrl[6] = handle;



vdi();

contrl[0] = 239;

contrl[1] = 0;

contrl[3] = 1;

contrl[6] = handle;



intin[0] = ch;



vdi();



*width = intout[0];

*height = intout[1];

*advx = *(fix31 *)&intout[2];

*advy = *(fix31 *)&intout[4];

*xoff = *(fix31 *)&intout[6];

*yoff = *(fix31 *)&intout[8];

*bitmap = *(void *)&intout[10];

contrl[0] = 243;

contrl[1] = 0;

contrl[3] = 6;

contrl[6] = handle;



intin[0] = ch;

intin[1] = maxverts;

*(WORD *)&intin[2] = xyarray;

*(WORD *)&intin[4] = bezarray;



vdi();



*numverts = intout[0];

contrl[0] = 105;

contrl[1] = 1;

contrl[3] = 0;

contrl[6] = handle;



ptsin[0] = x;

ptsin[1] = y;



vdi();



*pindex = intout[0];

*vindex = intout[1];

WORD i = 0;



while(intin[i++] = (WORD)*str++);



contrl[0] = 8;

contrl[1] = 1;

contrl[3] = --i;

contrl[6] = handle;



ptsin[0] = x;

ptsin[1] = y;



vdi();

contrl[0] = 5;

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

contrl[5] = 17;

contrl[6] = handle;



vdi();

contrl[0] = 123;

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

contrl[6] = handle;



vdi();

WORD i = 0;



while(intin[i++] = (WORD)*str++);



contrl[0] = 11;

contrl[1] = 2;

contrl[3] = --i;

contrl[5] = 10;

contrl[6] = handle;



intin[0] = wflag;

intin[1] = cflag;



ptsin[0] = x;

ptsin[1] = y;

ptsin[2] = length;

ptsin[3] = 0;



vdi();

WORD i = 1;



intin[0] = mode;

while(intin[i++] = (WORD)*fname++);



contrl[0] = 250;

contrl[1] = 0;

contrl[3] = i;

contrl[6] = handle;



vdi();



return intout[0];

contrl[0] = 5;

contrl[1] = 2;

contrl[3] = 0;

contrl[5] = 98;

contrl[6] = handle;



ptsin[0] = xmin;

ptsin[1] = ymin;

ptsin[2] = xmax;

ptsin[3] = ymax;



vdi();                                                        

1 = Device not capable of producing a precisely scaled image (film recorder, etc...)

2 = Arc

3 = Pie Slice

4 = Circle

5 = Ellipse

6 = Elliptical Arc

7 = Elliptical Pie

8 = Rounded Rectangle

9 = Filled Rounded Rectangle

10 = Justified Graphics Text

2 = Polymarker (vsm_...)

3 = Text (vst_...)

4 = Fill Area (vsf_...)

5 = None

1 = Yes

1 = Yes

1 = Yes

1 = Yes

2 = Monochrome

>2 = Color

2 = Keyboard and other.

2 = Keyboard and other.

2 = Function keys + keypad.

1 = Input only

2 = Input/Output

3 = Metafile

WORD i;



contrl[0] = 100;

contrl[1] = 0;

contrl[3] = 11;

contrl[6] = *handle;



for(i = 0;i < 11;i++)

 intin[i] = work_in[i];



vdi();



*handle = contrl[6];



for(i = 0;i < 45;i++)

 work_out[i] = intout[i];



for(i = 0;i < 13;i++)

 work_out[45+i] = intout[i];

typedef struct

{

 WORD handle, dev_id;

 WORD wchar, hchar, wbox, hbox;

 WORD xres, yres;

 WORD noscale;

 WORD wpixel, hpixel;

 WORD cheights;

 WORD linetypes, linewidths;

 WORD markertypes, markersizes;

 WORD faces, patterns, hatches, colors;

 WORD ngdps;

 WORD cangdps[10];

 WORD gdpattr[10];

 WORD cancolor, cantextrot;

 WORD canfillarea, cancellarray;

 WORD palette;

 WORD locators, valuators;

 WORD choicedevs, stringdevs;

 WORD wstype;

 WORD minwchar, minhchar;

 WORD maxwchar, maxwchar;

 WORD minwline;

 WORD zero5;

 WORD maxwline;

 WORD zero7;

 WORD minwmark, minhmark;

 WORD maxwmark, maxhmark;

 WORD screentype;

 WORD bgcolors, textfx;

 WORD canscale;

 WORD planes, lut;

 WORD rops;

 WORD cancontourfill, textrot;

 WORD writemodes;

 WORD inputmodes;

 WORD textalign, inking, rubberbanding;

 WORD maxvertices, maxintin;

 WORD mousebuttons;

 WORD widestyles, widemodes;

 WORD reserved[38];

} VDI_Workstation;

WORD

V_Opnvwk( dev )

VDI_Workstation dev;

{

 WORD i, in[11];



 in[0] = Getrez() + 2;

 dev->dev_id = in[0];

 for(i = 1;i < 10; in[i++] = 1);

 in[10] = 2;

 i = graf_handle( &dev->wchar,

   &dev->hchar, &dev->wbox,

   &dev->hbox );



 v_opnvwk( in, &i, &dev->xres );

 dev->handle = i;



 if(i)

  vq_extnd( i, 1, &dev->screentype );



 return (i);

}

WORD i;



contrl[0] = 1;

contrl[1] = 0;

contrl[3] = 11;



for(i = 0;i < 11;i++)

 intin[i] = work_in[i];



vdi();



*handle = contrl[6];



for(i = 0;i < 45;i++)

 work_out[i] = intout[i];



for(i = 0;i < 13;I++)

 work_out[45+i] = ptsout[i];

21-30 = Printers

31-40 = Metafile Drivers

41-50 = Camera Drivers

51-60 = Tablet Drivers

61-70 = Memory Driversws is a VDI_Workstation structure as defined in V_Opnvwk().

WORD

V_Opnvwk( devno, dev )

WORD devno;

VDI_Workstation dev;

{

 WORD i, in[11];



 in[0] = dev->dev_id = devno;

 for(i = 1;i < 10; in[i++] = 1);

 in[10] = 2;

 i = devno;



 v_opnvwk( in, &i, &dev->xres );

 dev->handle = i;



 if(i)

  vq_extnd( i, 1, &dev->screentype );



 return (i);

}

contrl[0] = 5;

contrl[1] = 2;

contrl[3] = 0;

contrl[5] = 21;

contrl[6] = handle;



ptsin[0] = pxy[0];

ptsin[1] = pxy[1];

ptsin[2] = pxy[2];

ptsin[3] = pxy[3];



vdi();

contrl[0] = 5;

contrl[1] = 0;

contrl[3] = 1;

contrl[5] = 2000;

contrl[6] = handle;



intin[0] = numcopies;



vdi();

contrl[0] = 11;

contrl[1] = 4;

contrl[3] = 2;

contrl[5] = 3;

contrl[6] = handle;



ptsin[0] = x;

ptsin[1] = y;

ptsin[2] = ptsin[3] = ptsin[4] = ptsin[5] = 0

ptsin[6] = radius;



intin[0] = startangle;

intin[1] = endangle;



vdi();

WORD i;



contrl[0] = 6;

contrl[1] = count;

contrl[3] = 0;

contrl[6] = handle;



for(i = 0;i < (count*2);i++)

 ptsin[i] = count[i];



vdi();

WORD i;



contrl[0] = 7;

contrl[1] = count;

contrl[3] = 0;

contrl[6] = handle;



for(i = 0;i < (count * 2); i++)

 ptsin[i] = pxy[i];



vdi();

contrl[0] = 11;

contrl[1] = 2;

contrl[3] = 0;

contrl[5] = 8;

contrl[6] = handle;



ptsin[0] = pxy[0];

ptsin[1] = pxy[1];

ptsin[2] = pxy[2];

ptsin[3] = pxy[3];



vdi();

contrl[0] = 11;

contrl[1] = 2;

contrl[3] = 0;

contrl[5] = 9;

contrl[6] = handle;



ptsin[0] = pxy[0];

ptsin[1] = pxy[1];

ptsin[2] = pxy[2];

ptsin[3] = pxy[3];



vdi();

contrl[0] = 5;

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

contrl[5] = 19;

contrl[6] = handle;



vdi();

contrl[0] = 5;

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

contrl[5] = 14;

contrl[6] = handle;



vdi();

contrl[0] = 5;

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

contrl[5] = 13;

contrl[6] = handle;



vdi();

WORD i = 0;



while(intin[i++] = (WORD)*fname++);



contrl[0] = 249;

contrl[1] = 0;

contrl[3] = --i;

contrl[6] = handle;



vdi();



return intout[0];

contrl[0] = -1;

contrl[1] = 0;

contrl[3] = 3;

contrl[5] = 6;



*(VOID *)&intin[0] = buf;

intin[2] = nparagraphs;



vdi();

contrl[0] = 122;

contrl[1] = 0;

contrl[3] = 1;

contrl[6] = handle;



intin[0] = reset;



vdi();

contrl[0] = 4;

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

contrl[6] = handle;



vdi();

WORD i;



contrl[0] = 5;

contrl[1] = ptsin_len;

contrl[3] = intin_len;

contrl[5] = 99;

contrl[6] = handle;



for(i = 0;i < intin_len; i++)

 intin[i] = m_intin[i];

for(i = 0;i < ptsin_len; i++)

 ptsin[i] = m_ptsin[i];



vdi();

contrl[0] = 125;

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

contrl[6] = handle;

contrl[7] = (WORD)((LONG)butv >> 16);

contrl[8] = (WORD)((LONG)butv);



vdi();



*(LONG *)old_butv = (LONG)(((LONG)contrl[9] << 16) | (LONG)contrl[10]); 

contrl[0] = 127;

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

contrl[6] = handle;

contrl[7] = (WORD)((LONG)curv >> 16);

contrl[8] = (WORD)((LONG)curv);



vdi();



*(LONG *)old_curv = (LONG)(((LONG)contrl[9] << 16) | (LONG)contrl[10]); 

contrl[0] = 126;

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

contrl[6] = handle;

contrl[7] = (WORD)((LONG)motv >> 16);

contrl[8] = (WORD)((LONG)motv);



vdi();



*(LONG *)old_motv = (LONG)(((LONG)contrl[9] << 16) | (LONG)contrl[10]); 

contrl[0] = 118;

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

contrl[6] = handle;

contrl[7] = (WORD)((LONG)timv >> 16);

contrl[8] = (WORD)((LONG)timv);



vdi();

*mpt = inout[0]



*(LONG *)old_timv = (LONG)(((LONG)contrl[9] << 16) | (LONG)contrl[10]); 

contrl[0] = 5;

contrl[1] = 0;

contrl[3] = 5;

contrl[5] = 99;

contrl[6] = handle;



intin[0] = 1;

intin[1] = xmin;

intin[2] = ymin;

intin[3] = xmax;

intin[4] = ymax;



vdi();

WORD i = 0;



while(intin[i++] = (WORD)*fname++);



contrl[0] = 5;

contrl[1] = 0;

contrl[3] = --i;

contrl[5] = 100;

contrl[6] = handle;



vdi();

contrl[0] = 5;

contrl[1] = 0;

contrl[3] = 3;

contrl[5] = 99;

contrl[6] = handle;



intin[0] = 0;

intin[1] = pwidth;

intin[2] = pheight;



vdi();

WORD i;



contrl[0] = 27;

contrl[1] = 2;

contrl[3] = 0;

contrl[6] = handle;

contrl[7] = row_length;

contrl[8] = num_rows;



ptsin[0] = pxy[0];

ptsin[1] = pxy[1];

ptsin[2] = pxy[2];

ptsin[3] = pxy[3];



vdi();



*el_used = contrl[9];

*rows_used = contrl[10];

*status = contrl[11];



for(i = 0;i < contrl[4];i++)

 colarray[i] = intout[i];

contrl[0] = 5;

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

contrl[5] = 1;

contrl[6] = handle;



vdi();



*rows = intout[0];

*columns = intout[1];

contrl[0] = 26;

contrl[1] = 0;

contrl[3] = 2;

contrl[6] = handle;



intin[0] = index;

intin[1] = flag;



vdi();



rgb[0] = intout[1];

rgb[1] = intout[2];

rgb[2] = intout[3];



return intout[0];

Call vs_color() to modify that color index by a signifigant value.

Call vq_color() with a flag value of 0 and compare with what you set.

Restore the old value.

If equivalent values are returned, you may modify each color index.

contrl[0] = 5;

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

contrl[5] = 15;

contrl[6] = handle;



vdi();



*row = intout[0];

*column = intout[1];

2 = Separate alpha/ graphic controllers with common screen.

3 = Common alpha/ graphic controllers with separate image memory.

4 = Common alpha/ graphic controllers and image memory.(All known devices either return 0 or 4.)

1 = Can scale.

1 = Table supported.(True color modes return a value of 0 for lut and >2 for colors in v_opnvwk()).See the caveat listed below.

1 = Available.

1 = 90 degree increments.

2 = Any angle of rotation.

1 = Request.

2 = Sample.

1 = Available.

1 = Device can ink.

1 = Rubberbanded lines.

2 = Rubberbanded lines and rectangles.

1 = Yes

1 = Yes

WORD i;



contrl[0] = 102;

contrl[1] = 0;

contrl[3] = 1;

contrl[6] = handle;



intin[0] = mode;



vdi();



for(i = 0;i < 45;i++)

 work_out[i] = intout[i];



for(i = 0;i < 13;i++)

 work_out[45+i] = ptsout[i]; 

; Correct binding for vq_gdos. Some compilers

; use the name vq_vgdos for the new version

; and vq_gdos for the old version which

; looked like:

;    move.w  #-2,d0

;    trap   #2

;    cmp.w  #-2,d0

;    sne   d0

;    ext.w  d0 



_vq_gdos:



move.w   #-2,d0

trap   #2

rts

contrl[0] = 128;

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

contrl[6] = handle;



vdi();



*status = intout[0];

contrl[0] = 124;

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

contrl[6] = handle;



vdi();



*mb = intout[0];

*mx = ptsout[0];

*my = ptsout[1];

contrl[0] = 5;

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

contrl[5] = 24;

contrl[6] = handle;



vdi();



*grh = intout[0];

*passes = intout[1];

*alh = intout[2];

*apage = intout[3];

*div = intout[4];

contrl[0] = 5;

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

contrl[5] = 16;

contrl[6] = handle;



vdi();



return intout[0];

contrl[0] = 5;

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

contrl[5] = 84;

contrl[6] = handle;



vdi();



*xdim = intout[0];

*ydim = intout[1];

contrl[0] = 37;

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

contrl[6] = handle;



vdi();



attr[0] = intout[0];

attr[1] = intout[1];

attr[2] = intout[2];

attr[3] = intout[3];

attr[4] = intout[4];

contrl[0] = 115;

contrl[1] = 0

contrl[3] = 1;

contrl[6] = handle;



intin[0] = dev;



vdi();



*mode = intout[0];