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
|
(* Example by Øyvind Kolås taken from http://cairographics.org/samples/ *)
open Cairo
let two_pi = 8. *. atan 1.
let () =
let cr = Cairo.create(Cairo.PDF.create "fill_style.pdf" ~w:400. ~h:300.) in
set_line_width cr 6.;
let figure fill_style r g b =
rectangle cr 12. 12. ~w:232. ~h:70.;
Path.sub cr; arc cr 64. 64. ~r:40. ~a1:0. ~a2:two_pi;
Path.sub cr; arc_negative cr 192. 64. ~r:40. ~a1:0. ~a2:(-. two_pi);
set_fill_rule cr fill_style;
set_source_rgb cr r g b; fill_preserve cr;
set_source_rgb cr 0. 0. 0.; stroke cr
in
figure EVEN_ODD 0. 0.7 0.;
translate cr 0. 128.;
figure WINDING 0. 0. 0.9;
Surface.finish(get_target cr)
|
