/*----------------------------------------------------------------*/
/*			          	 Demo zur UNFILL-Routine    					        */
/*			             		  								   					            */
/* Originalroutine in GFA-BASIC von Dirk Haun											*/
/* C-Konvertierung: Thomas Werner																	*/
/* (c) 1992 Maxon Computer GmbH																		*/
/*----------------------------------------------------------------*/

#include	<stdio.h>
#include	<stdlib.h>
#include	<math.h>
#include	<tos.h>
#include	<aes.h>
#include	<vdi.h>
#include	"unfill.h"


extern	int	handle, work_out[];


void gem_prg(void)
{
	void Zeichne_Bild(void);
	
	
	graf_mouse(ARROW,0);	
	
	Zeichne_Bild();
	form_alert(0,"[0][Demo zur Unfill-Routine ][ weiter ]");
	Unfill();
	
	Crawcin();
}


void Zeichne_Bild(void)
{
	int		i, x, y, r, xy[4];

	
	graf_mouse(M_OFF, 0);
	
	xy[0] = 0;
	xy[1] = 0;
	xy[2] = work_out[0];
	xy[3] = work_out[1];
	vs_clip(handle, 1, xy);
	
	v_clrwk(handle);
  vswr_mode(handle, 1);
  
  for (i=0; i<10; i++)
  {
  	x = abs(work_out[0]*(Random()/pow(2,24)));
  	y = abs(work_out[1]*(Random()/pow(2,24)));
  	r = 20 + abs(100*(Random()/pow(2,24)));
  	v_circle(handle, x, y, r);
  }
  
	vs_clip(handle, 0, xy);
	
	graf_mouse(M_ON, 0);
}