(* 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 . *) (* 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; ()