/*----------------------------------------------------------------*/
/*			        	  Demo zur LASSO-FUNKTION  					            */
/*			             		  								   					            */
/* Originalroutine in OMIKRON.BASIC: L. Canisius									*/
/* C-Konvertierung: Thomas Werner																	*/
/* (c) 1992 Maxon Computer GmbH																		*/
/*----------------------------------------------------------------*/

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


extern	int handle, work_out[];


void gem_prg()
{
	void Zeichne_Bild(void);
	
	graf_mouse(ARROW ,0);	
	Zeichne_Bild();
	form_alert(0,"[0][Demo zur Lasso-Routine  ][ weiter ]");
	Lasso(1, 7);
	form_alert(1,"[0][Demo-Ende  ][ weiter ]");
}


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(640*(Random()/pow(2,24)));
  	y = abs(400*(Random()/pow(2,24)));
  	r = abs(100*(Random()/pow(2,24)));
  	v_circle(handle, x, y, r);
  }
  
	vs_clip(handle, 0, xy);
	
	graf_mouse(M_ON, 0);
}