File: gtk-extra-plot_ps.ads

package info (click to toggle)
libgtkada2 2.8.1-6lenny3
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 13,496 kB
  • ctags: 3,886
  • sloc: ada: 103,189; ansic: 45,411; perl: 5,500; sh: 2,812; makefile: 1,169; xml: 19
file content (113 lines) | stat: -rw-r--r-- 4,930 bytes parent folder | download | duplicates (2)
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;