1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(**************************************************************************)
(* Lablgtk - Examples *)
(* *)
(* This code is in the public domain. *)
(* You may freely copy parts of it in your application. *)
(* *)
(**************************************************************************)
(* $Id$ *)
open Cairo
let polygon =
[ 10,100; 35,35; 100,10; 165,35; 190,100;
165,165; 100,190; 35,165; 10,100 ]
let draw_polygon cr = function
[] -> ()
| (x,y)::tl ->
set_source_rgba cr 0. 0. 0. 1.;
move_to cr (float x) (float y);
List.iter (fun (x,y) -> line_to cr (float x) (float y)) tl;
set_source_rgba cr 0.5 0. 0. 0.5;
fill cr
let expose drawing_area cr =
draw_polygon cr polygon ;
true
let () =
GMain.init ();
let w = GWindow.window ~title:"Drawing demo" ~width:500 ~height:400 () in
ignore(w#connect#destroy ~callback:GMain.quit);
let d = GMisc.drawing_area ~packing:w#add () in
ignore(d#misc#connect#draw ~callback:(expose d));
w#show();
GMain.main ()
|
