/*----------------------------------------------------------------*/
/*					Demo zur Verschiebe- und Kopier-Routine								*/
/*			             		  								   					            */
/* Originalroutine in GFA-BASIC von Hans-H. Ackermann							*/
/* 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 "movecopy.h"

extern	int	handle, work_out[];


void gem_prg(void)
{
	void Zeichne_Bild(void);

	graf_mouse(ARROW, 0);
	Zeichne_Bild();
	form_alert(0,"[0][1. Demo zu MoveCopy  |-> Nur Verschieben][ weiter ]");
	Verschieben(0);
	Zeichne_Bild();
	form_alert(0,"[0][2. Demo zu MoveCopy  |-> Kopieren][ weiter ]");
	Verschieben(1);
	form_alert(1,"[0][Demo-Ende  ][ Ok ]");
}


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);
}