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
|
(*
Window positioning demo.
*)
open Plplot
(*--------------------------------------------------------------------------*\
* Demonstrates absolute positioning of graphs on a page.
\*--------------------------------------------------------------------------*)
let () =
(* Parse and process command line arguments *)
plparseopts Sys.argv [PL_PARSE_FULL];
(* Initialize plplot *)
plinit ();
pladv 0;
plvpor 0.0 1.0 0.0 1.0;
plwind 0.0 1.0 0.0 1.0;
plbox "bc" 0.0 0 "bc" 0.0 0;
plsvpa 50.0 150.0 50.0 100.0;
plwind 0.0 1.0 0.0 1.0;
plbox "bc" 0.0 0 "bc" 0.0 0;
plptex 0.5 0.5 1.0 0.0 0.5 "BOX at (50,150,50,100)";
plend ();
()
|
