#load "graphics.cma";;
#load "unix.cma";;

open Unix;;

let current_dir = getcwd();;
chdir "exemples/OCaml/inria/minilogo";;

let compile f =
  let cmd = if Sys.os_type = "Unix" then "ocamlrun ocamlc -c -pp \"ocamlrun camlp4o\" "
    else "ocamlc -c -pp camlp4o "
  in
    match Sys.command (cmd ^ f) with
      | 0 -> () | _ -> failwith ("Cannot compile " ^ f);;

compile "crayon.mli";;
compile "crayon.ml";;
#load "crayon.cmo";;
compile "langage.mli";;
compile "langage.ml";;
#load "langage.cmo";;
compile "alex.mli";;
compile "alex.ml";;
#load "alex.cmo";;
compile "asynt.mli";;
compile "asynt.ml";;
#load "asynt.cmo";;
compile "logo.ml";;
#load "logo.cmo";;
open Logo;;

chdir current_dir;;

print_string "l'instruction \"boucle\" suivante ayant lancé l'interpréteur
   minilogo, le programme minilogo suivant est exécuté;
   pour arrêter l'interpréteur, cliquer sur \"interrupt\"\n"
;;

boucle();;

pour spirala :d :a :i :n
  si :n >= 0
    [av :d td :a spirala :d (:a + :i) :i (:n - 1)] [stop].

ve spirala
      4 0.5 181.5 1500 .
