Permalink
Cannot retrieve contributors at this time
Join GitHub today
GitHub is home to over 28 million developers working together to host and review code, manage projects, and build software together.
Sign up
Fetching contributors…
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" |