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
40
41
42
43
44
45
|
(*
Copyright 2008, 2009 Hezekiah M. Carty
This file is part of PLplot.
PLplot is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
the Free Software Foundation, either version 2 of the License, or
(at your option) any later version.
PLplot is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License
along with PLplot. If not, see <http://www.gnu.org/licenses/>.
*)
(* Test for multiple plot pages. *)
open Plplot
let () =
(* Initialize PLplot with the extcairo device and create a new plot stream. *)
let plcairo =
Plcairo.init_cairo ~clear:true ~width:400 ~height:400 ~filename:"test.pdf"
Plcairo.pdfcairo
in
(* Plcairo.init_cairo restores the current active plot stream, so we need to
make the plcairo stream active in order to plot on it. *)
Plcairo.make_active plcairo;
plenv 0.0 1.0 0.0 1.0 1 0;
pljoin 0.0 0.0 1.0 1.0;
(* The extcairo device does not automatically advance pages. This must be
done "by hand". The following function call is equivalent to:
Cairo.show_page plcairo.context;
*)
Plcairo.new_page plcairo;
plenv 0.0 1.0 0.0 1.0 1 0;
pljoin 0.0 1.0 1.0 0.0;
plend ();
(* Save the [plcairo] plot to its associated filename ("test.pdf"). *)
Plcairo.save_to_file plcairo;
()
|
