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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
-----------------------------------------------------------------------
-- GtkAda - Ada95 binding for Gtk+/Gnome --
-- --
-- Copyright (C) 2000 E. Briot, J. Brobecker and A. Charlet --
-- Copyright (C) 2000-2006 AdaCore --
-- --
-- This library is free software; you can redistribute it and/or --
-- modify it under the terms of the GNU General Public --
-- License as published by the Free Software Foundation; either --
-- version 2 of the License, or (at your option) any later version. --
-- --
-- This library 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 --
-- General Public License for more details. --
-- --
-- You should have received a copy of the GNU General Public --
-- License along with this library; if not, write to the --
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330, --
-- Boston, MA 02111-1307, USA. --
-- --
-----------------------------------------------------------------------
-- <description>
-- This package does not implement any new widget.
-- Instead, if provides postscript support for Gtk_Plot widgets, and can
-- create a postscript file from any Gtk_Plot widget.
-- </description>
-- This is a binding to gtkplotprint.h
-- <c_version>gtkextra 2.1.1</c_version>
-- <group>Plotting Data</group>
with Gtk.Extra.Plot;
with Gtk.Extra.Plot_Canvas; use Gtk.Extra.Plot_Canvas;
package Gtk.Extra.Plot_Ps is
type Ps_Page_Size is
(Plot_Letter,
Plot_Legal,
Plot_A4,
Plot_Executive,
Plot_Custom);
-- The formats that can be used for paper sizes.
pragma Convention (C, Ps_Page_Size);
type Ps_Orientation is (Plot_Portrait, Plot_Landscape);
-- Portrait format means that the vertical size is longer than
-- the horizontal size. Landscape is the reverse.
pragma Convention (C, Ps_Orientation);
type Ps_Units is (Plot_Inches, Plot_Mm, Plot_Cm, Plot_Pspoints);
-- Units of measure for paper sizes.
pragma Convention (C, Ps_Units);
procedure Plot_Export_Ps
(Plot : access Gtk.Extra.Plot.Gtk_Plot_Record'Class;
Psfile : String;
Orientation : Ps_Orientation;
Epsflag : Boolean;
Page_Size : Ps_Page_Size);
-- Create a new postscript file PsFile with the content of Plot.
-- Epsflag should be true if the generated file should be in
-- Encapsulated Postscript format instead of simple Postscript.
procedure Plot_Export_Ps_With_Size
(Plot : access Gtk.Extra.Plot.Gtk_Plot_Record'Class;
Psfile : in String;
Orientation : in Ps_Orientation;
Epsflag : in Boolean;
Units : in Ps_Units;
Width : in Gint;
Height : in Gint);
-- Create a new postscript file PsFile with the content of Plot.
-- Epsflag should be true if the generated file should be in
-- Encapsulated Postscript format instead of simple Postscript.
-- The page has a custom size.
procedure Plot_Canvas_Export_Ps
(Canvas : access Gtk_Plot_Canvas_Record'Class;
File_Name : in String;
Orientation : in Ps_Orientation;
Epsflag : in Boolean;
Page_Size : in Ps_Page_Size);
-- Create a new postscript file PsFile with the content of Canvas.
-- Every plot on it is exported to the postscript file.
-- Epsflag should be true if the generated file should be in
-- Encapsulated Postscript format instead of simple Postscript.
procedure Plot_Canvas_Export_Ps_With_Size
(Canvas : access Gtk_Plot_Canvas_Record'Class;
File_Name : in String;
Orientation : in Ps_Orientation;
Epsflag : in Boolean;
Units : in Ps_Units;
Width : in Gint;
Height : in Gint);
-- Create a new postscript file PsFile with the content of Canvas.
-- Every plot on it is exported to the postscript file.
-- Epsflag should be true if the generated file should be in
-- Encapsulated Postscript format instead of simple Postscript.
-- The page has a custom size.
-- Unbound:
-- gtk_plot_ps_get_type
-- gtk_plot_ps_new
-- gtk_plot_ps_new_with_size
-- gtk_plot_ps_construct
-- gtk_plot_ps_construct_with_size
-- gtk_plot_ps_set_size
-- gtk_plot_ps_set_scale
end Gtk.Extra.Plot_Ps;
|
