Permalink
Cannot retrieve contributors at this time
| (* This file is part of the tutorial | |
| http://cairo.forge.ocamlcore.org/tutorial/ | |
| *) | |
| let () = | |
| let surface = Cairo.Image.create Cairo.Image.ARGB32 ~w:120 ~h:120 in | |
| let cr = Cairo.create surface in | |
| (* Examples are in 1.0 x 1.0 coordinate space *) | |
| Cairo.scale cr 120. 120.; | |
| (* Drawing code goes here *) | |
| Cairo.set_line_width cr 0.1; | |
| Cairo.set_source_rgb cr 0. 0. 0.; | |
| Cairo.rectangle cr 0.25 0.25 ~w:0.5 ~h:0.5; | |
| Cairo.stroke cr; | |
| (* Write output *) | |
| Cairo.PNG.write surface "stroke.png" |