include "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;;*)
(* ci-dessous l est une longueur et p=p fois *)
let rec deplace l p=
	if p=1
	then carre l
	else  let petit =l/.sqrt(2.) in
	for k=1 to 4
	do begin
		tourne(-45.); deplace petit (p-1);	tourne (45.); 		crayon.Levé<-true;avance (l);crayon.Levé<-false;
		 tourne (90.) end;
	done;;
	    
(* quand on entre interactivement :
deplace 150. 8;;
on obtient un pavage diagonal d'une partie du plan, ce n'est pas bien beau on repasse souvent sur des tracés anciens *)