(* On a choisi ici une taille de fenêtre arbitraire, à savoir 800x800. *)

open Graphics

let () =
  open_graph " 800x800"

let xc = 400 and yc = 400
let radius = 100
let pi_3 = 4. *. atan 1. /. 3.

let () =
  draw_circle xc yc radius;
  for i = 0 to 5 do
    let th = float i *. pi_3 in
    let x  = xc + truncate (float radius *. cos th) in
    let y  = yc + truncate (float radius *. sin th) in
    draw_circle x y radius
  done;
  ignore (read_key ())

This document was generated using caml2html