import random;
import simple_graphics;


define loop = fix \ f . \ x .
        f x ;



define min_value = \ x . \ x1 .
  if (x <f x1) then (x , x1) 
	else  (x1 , x)
;

define find_q = \ x . \ y . \ x1 . \ y1 .
  (x1 *f y -f x *f y1) /f (x1 -f x)
;

define find_m =  \ x . \ y . \ x1 . \ y1 .
  (y1 -f y) /f (x1 -f x)
;

define paint_line_ugly = fix \ f . \ x . \ m . \ q . \ colore . \ max_x .
	
	if ( x <f (max_x ^ 2)) then  begin 
		show_pixel (float_to_integer x) (float_to_integer (m *f x +f q)) colore ;
		f (x +f 1.00) m q colore max_x;
		end		 
	else skip ;


define paint_line_ugly_ = \ x . \ y . \ x1 . \ y1 . \ colore .
  paint_line_ugly x (find_m x y x1 y1 ) (find_q x y x1 y1 ) colore (min_value x x1)
;



define paint_line_ugly2 = fix \ f .  \ x . \ y . \ x1 . \ y1 . \ colore . 
	if (y <f y1) then begin
			show_pixel (float_to_integer x) (float_to_integer y) colore ;
			f x (y +f 1.00) x1 y1 colore;
	end
	else skip ; 

define paint_line_ugly2_ =  \ x . \ y . \ x1 . \ y1 . \ colore .
  if (y <f y1) then paint_line_ugly2 x y x1 y1 colore
  else  paint_line_ugly2 x1 y1 x y colore
;



define min_value_x =  \ x . \ y . \ x1 . \ y1 .

  if (x <f x1) then (x , y) 
	else  (x1 , y1)
;



define itof = \ x .
	integer_to_float x
;


define paint_line =  \ x . \ y . \ x1 . \ y1 . \ colore .
  if (x = x1) then paint_line_ugly2_  (itof x) (itof  y) (itof x1) (itof y1) colore

  else
     if (x < x1) then  paint_line_ugly_ (itof x) (itof  y) (itof x1) (itof y1) colore
     else  paint_line_ugly_ (itof x1) (itof y1) (itof x) (itof y) colore
;




define main = begin

  initialize_graphics 800 600;
  paint_line 100 0 100  300 (70 , 100 , 100);

	
  loop 1;

end;