module type ANGLE = sig

end

module type GR = sig
  val open_graph: int -> int -> unit
  val draw_line: int -> int -> int -> int -> unit
end

module Turtle(A: ANGLE)(G: GR) = struct
  (* Programme 13 page 90
     en remplaçant Graphics par G *)
end

(* on peut réaliser le module GR avec Graphics *)

module G: GR = struct
  let open_graph w h =
    Graphics.open_graph (Printf.sprintf " %dx%d" w h)
  let draw_line x1 y1 x2 y2 =
    Graphics.moveto x1 y1;
    Graphics.lineto x2 y2
end

This document was generated using caml2html