/*----------------------------------------------------------------*/ /* Demo of the LASSO-FUNCTION */ /* */ /* Original routine in OMIKRON.BASIC: L. Canisius */ /* C-Convertion: Thomas Werner */ /* (c) 1992 Maxon Computer GmbH */ /*----------------------------------------------------------------*/ #include #include #include #include #include #include "lasso.h" externint handle, work_out[]; void gem_prg() { void Draw_Pic(void); graf_mouse(ARROW ,0); Draw_Pic(); form_alert(0,"[0][Demo for the Lasso-Routine ][ continue ]"); Lasso(1, 7); form_alert(1,"[0][ End-Demo ][ continue ]"); } void Draw_Pic(void) { inti, 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);