#use "Crayon.ml";;

let carre r=for i=1 to 4 do avance r;tourne 90. done;;

let centrage=
moveto (round zéro_x) (round zéro_y);
    crayon.X <- zéro_x;
    crayon.Y <- zéro_y;
    crayon.Visée <- 0.0;;

(* test de la commande carre *)
(* for k=0 to 10 do carre ((float_of_int k)*.10.) done;; *)

(*let deplace l 1=carre l;;*)
let rec deplace l p=
	if p=1
	then carre l
	else  let petit =l/.4. and diag=l/.sqrt(8.) in
	for k=1 to 4
	do begin
		avance petit; tourne (-45.); 
			deplace diag (p-1);
		tourne (45.); avance (3.*.petit);tourne (90.) end;
	done;;
	    
deplace 200. 5;;