
#include <osbind.h>

extern double sin(), cos();
int contrl[12], intin[256], ptsin[256], intout[256], ptsout[256];
int evwhich,dummy,rand,handle;
int xstart,ystart,xwidth,ywidth,xcen,ycen;

main()
{
  int l_intin[20], l_ptsin[20], l_out[100], pxy[2], ptemp[1];
  int i, j, k, l;
  int gr_1,gr_2,gr_3,gr_4;
  int wi_1,wi_2,wi_3,wi_4;
  int w_handle;
  int clip[4];
  int mgbuf[8];
  int wind_type;
  int dflag,xt;

/* 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);

  /* Open the workstation. */

  l_intin[0] = 1;
  l_intin[1] = 1;
  l_intin[2] = 1;
  l_intin[3] = 1;
  l_intin[4] = 1;
  l_intin[5] = 1;
  l_intin[6] = 1;
  l_intin[7] = 1;
  l_intin[8] = 1;
  l_intin[9] = 1;
  l_intin[10] = 2;

  v_opnvwk(l_intin, &handle, l_out);

  graf_mouse(0,i);
  wind_type=0x002b;
  wind_get(0,4,&wi_1,&wi_2,&wi_3,&wi_4); /* request size of desktop window */
  wind_calc(1,wind_type,wi_1,wi_2,wi_3,wi_4,
	    &i,&j,&k,&l);		 /* calculate size of work area */
  w_handle=wind_create(wind_type,
		       wi_1,wi_2,wi_3,wi_4);/* make window of the max size */
  wind_set(w_handle,2,"Cosine Color Show",0,0);
  wind_open(w_handle,wi_1,wi_2,wi_3,wi_4);
  xstart=i;
  ystart=j;
  xwidth=k;
  ywidth=l;  
  mgbuf[0]=0;

 do
{ if (!((mgbuf[0]==20)&&(evwhich==0x0010))) /* ignore redraw */
 { v_hide_c(handle);
    wind_update(1);
    draw_sample();
    wind_update(0);
  v_show_c(handle);
 }   evwhich=
	evnt_multi(0x0030,
	0,0,0,
	0,0,0,0,0,
	0,0,0,0,0,
	&mgbuf,
	10000,0,
	&dummy,&dummy,&dummy,
	&dummy,&dummy,&dummy);
  if (evwhich&0x10)
  if (mgbuf[0]==28||mgbuf[0]==27)
	 { wind_calc(1,wind_type,mgbuf[4],mgbuf[5],
				mgbuf[6],mgbuf[7],
				&xstart,&ystart,
				&xwidth,&ywidth);
	  if ((xt=xwidth)<gr_3) {xwidth=gr_3; mgbuf[6]+=gr_3-xt;} 
	  if ((xt=ywidth)<gr_4) {ywidth=gr_4; mgbuf[7]+=gr_4-xt;} 
	  dflag=0;
	  wind_set(w_handle,5,mgbuf[4],mgbuf[5],
			      mgbuf[6],mgbuf[7]);
	 }	
}
while (mgbuf[0]!=22);

    /* Close the workstation. */
 
  v_clsvwk(handle);
 
  wind_close(w_handle);
  wind_delete(w_handle);

 /* Release GEM calls */

  appl_exit();

_exit(0);

}

draw_sample()
{
int temp[4], rgb_in[4], iter, loop, amp[4], per[4];
double number, y1, y2;

	vsf_interior(handle,2);
	vsf_style(handle,8);
	vsf_color(handle,0);
	temp[0]=xstart;
	temp[1]=ystart;
	temp[2]=xstart+xwidth-1;
	temp[3]=ystart+ywidth-1;
	vs_clip(handle,1,temp);
	v_bar(handle,temp);		/* blank the interior */
	amp[0]=3; amp[1]=2+(Random()&7); amp[2]=3+(Random()&3);
	per[0]=40+(Random()&31); per[1]=50; per[2]=20+(Random()&63);

	for(loop=0; loop<3; loop++)
	{
		vsl_color(handle, loop+2);

		for(iter=0; iter<xwidth; iter=iter+3)
		{
			number=iter;
			ptsin[0]=xstart+iter;
			y1=sin(number/per[loop]);
			y1=(y1*(ywidth/amp[loop]));
			ptsin[1]=ystart+y1+(ywidth/2);

			ptsin[2]=(xstart+xwidth-iter)-1;
			y2=cos(number/per[loop]);
			y2=(y2*(ywidth/amp[loop]));
			ptsin[3]=ystart+y2+(ywidth/2);

			v_pline( handle, 2, ptsin );
		}
	}		
}        яяяяяа          яяяяяа     x    яяяяяа  