(* exemples niveau 0 de graphisme *)
#load "graphics.cmo";;
open Graphics;;

open_graph "";; (* commande d'ouverture *)

moveto 0 0;lineto 0 50; lineto 50 0;lineto 0 0;; (* un triangle que l'on voit mal *)

let triangle a b c=
moveto a b;lineto a (b+c); lineto (a+c) b;lineto a b;;

triangle 100 60 25;;