(************************************************************
   g.ml			Created      : Wed Mar 13 01:56:15 2002
  			Last modified: Wed Mar 13 02:16:10 2002
  Compile: make #
************************************************************)

let _ =
  Graphics.open_graph " 100x100+0-0";
  Graphics.set_color 0x990099;
  Graphics.fill_poly [| (0,0); (30,0); (10,50) |];
  while true do () done;;