
#include "portab.h"

int contrl[12], intin[256], ptsin[256], intout[256], ptsout[256];

main()
{
  int l_intin[20], l_ptsin[20], l_out[100], pxy[2], ptemp[1];
  int handle, i, j, k, l, x1, x2, xcen, xres, y1, y2, ycen, yres;
  int color, max_color;
  int gr_1,gr_2,gr_3,gr_4;
  int mxin,myin,mwin,mhin,mxout,myout,mbout,ksout;
  int aspect,planes;
  int filpat[65];

/* Set the system up to do GEM calls*/

  appl_init();

/* Get the handle of the desktop */

handle=graf_handle(&gr_1,&gr_2,&gr_3,&gr_4);


/* define multi plane pattern */
  filpat[0]=0x0000;
  filpat[1]=0x0000;
  filpat[2]=0x0000;
  filpat[3]=0x0000;
  filpat[4]=0x0000;
  filpat[5]=0x0000;
  filpat[6]=0x0000;
  filpat[7]=0x0000;
  filpat[8]=0xffff;
  filpat[9]=0xffff;
  filpat[10]=0xffff;
  filpat[11]=0xffff;
  filpat[12]=0xffff;
  filpat[13]=0xffff;
  filpat[14]=0xffff;
  filpat[15]=0xffff;

  filpat[16]=0x00ff;
  filpat[17]=0x00ff;
  filpat[18]=0x00ff;
  filpat[19]=0x00ff;
  filpat[20]=0x00ff;
  filpat[21]=0x00ff;
  filpat[22]=0x00ff;
  filpat[23]=0x00ff;
  filpat[24]=0xff00;
  filpat[25]=0xff00;
  filpat[26]=0xff00;
  filpat[27]=0xff00;
  filpat[28]=0xff00;
  filpat[29]=0xff00;
  filpat[30]=0xff00;
  filpat[31]=0xff00;

  filpat[32]=0x0000;
  filpat[33]=0x0000;
  filpat[34]=0x0000;
  filpat[35]=0x0000;
  filpat[36]=0xffff;
  filpat[37]=0xffff;
  filpat[38]=0xffff;
  filpat[39]=0xffff;
  filpat[40]=0x0000;
  filpat[41]=0x0000;
  filpat[42]=0x0000;
  filpat[43]=0x0000;
  filpat[44]=0xffff;
  filpat[45]=0xffff;
  filpat[46]=0xffff;
  filpat[47]=0xffff;

  filpat[48]=0xf0f0;
  filpat[49]=0xf0f0;
  filpat[50]=0xf0f0;
  filpat[51]=0xf0f0;
  filpat[52]=0xf0f0;
  filpat[53]=0xf0f0;
  filpat[54]=0xf0f0;
  filpat[55]=0xf0f0;
  filpat[56]=0xf0f0;
  filpat[57]=0xf0f0;
  filpat[58]=0xf0f0;
  filpat[59]=0xf0f0;
  filpat[60]=0xf0f0;
  filpat[61]=0xf0f0;
  filpat[62]=0xf0f0;
  filpat[63]=0xf0f0;

  /* Open the workstation. */

  for (i=1; i<10; ++i)  l_intin[i] = 1;
  l_intin[10] = 2;

  v_opnvwk(l_intin, &handle, l_out);
  xres=l_out[0];
  yres=l_out[1];
  aspect=l_out[4]/l_out[3];
  mxin=0; myin=0; mwin=xres; mhin=yres;
  vq_extnd(handle,1,l_out);
  planes=l_out[4];

  v_hide_c(handle);
  v_clrwk(handle);
  v_show_c(handle,1);
  evnt_keyb();
  vsf_udpat(handle,filpat,planes);
  vsf_interior(handle,4);
  v_hide_c(handle);
  v_circle(handle,xres/2,yres/2,yres/2*aspect);
  v_show_c(handle);
  evnt_keyb();
  v_hide_c(handle);
  vsf_interior(handle,2);
  vsf_style(handle,9);
  vsf_color(handle,1);
  v_circle(handle,xres/2,yres/2,yres/2*aspect);
  evnt_keyb();
  v_hide_c(handle);
  vsf_interior(handle,2);
  vsf_style(handle,12);
  v_circle(handle,xres/2,yres/2,yres/2*aspect);
  vsf_interior(handle,4);
  evnt_keyb();
  v_contourfill(handle,xres/2,yres/2,1);
  v_show_c(handle);

  graf_mouse(0,i);
  
  /* Close the workstation. */
 
  v_clsvwk(handle);
 
 /* Release GEM calls */

  appl_exit();

_exit(0);

}

09  ¢HÀü ? 09  æ