type Gtk_Plot_Data_Record is new Gtk.Widget.Gtk_Widget_Record with private;
type Plot_Label_Style is (Label_Float, Label_Exp, Label_Pow);
type Plot_Scale is (Scale_Linear, Scale_Log10);
type Gtk_Plot_Data is access all Gtk_Plot_Data_Record'Class;
type Gtk_Plot_Marker is new Gdk.C_Proxy;
type No_Range_Gdouble_Array is array (Natural) of Gdouble;
type No_Range_Gdouble_Array_Access is access all No_Range_Gdouble_Array;
type Gdouble_Array_Access is access all Glib.Gdouble_Array;
type Points_Array is record Points : No_Range_Gdouble_Array_Access; Num_Points : Gint := 0; end record;
type Plot_Connector is (Connect_None, -- No connection Connect_Straight, -- straight line Connect_Spline, -- spline or Bezier curve Connect_Hv_Step, -- Horizontal then vertical Connect_Vh_Step, -- Vertical then horizontal Connect_Middle_Step -- Split in the middle );
type Plot_Gradient is new Integer;
type Plot_Symbol_Type is (Symbol_None, Symbol_Square, Symbol_Circle, Symbol_Up_Triangle, Symbol_Down_Triangle, Symbol_Right_Triangle, Symbol_Left_Triangle, Symbol_Diamond, Symbol_Plus, Symbol_Cross, Symbol_Star, Symbol_Dot, Symbol_Impulse);
type Plot_Symbol_Style is (Symbol_Empty, Symbol_Filled, Symbol_Opaque);
type Plot_Line_Style is (Line_None, Line_Solid, Line_Dotted, Line_Dashed, Line_Dot_Dash, Line_Dot_Dot_Dash, Line_Dot_Dash_Dash);
type Plot_Angle is (Angle_0, Angle_90, Angle_180, Angle_270);
type Plot_Function is access function (Plot : System.Address; Set : Gtk_Plot_Data; X : Gdouble; Error : access Gboolean) return Gdouble;
Gradient_H : constant Plot_Gradient;
function Convert is new Unchecked_Conversion
| ( | Gtk_Plot_Data, System.Address); |
procedure Gtk_New
| ( | Data | : out Gtk_Plot_Data; |
| Func | : Plot_Function := null); |
procedure Initialize
| ( | Data | : access Gtk_Plot_Data_Record'Class; |
| Func | : Plot_Function := null); |
function Get_Type return Gtk.Gtk_Type;
procedure Set_Name
| ( | Data | : access Gtk_Plot_Data_Record; |
| Name | : String); |
procedure Clone
| ( | Data | : access Gtk_Plot_Data_Record; |
| Copy | : access Gtk_Plot_Data_Record'Class); |
procedure Paint
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Update
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Draw_Points
| ( | Data | : access Gtk_Plot_Data_Record; |
| N | : Gint); |
procedure Draw_Symbol
| ( | Data | : access Gtk_Plot_Data_Record; |
| X, Y | : Gdouble); |
procedure Dimension_Set_Points
| ( | Data | : access Gtk_Plot_Data_Record; |
| Name | : String; | |
| Points | : Gdouble_Array_Access); |
procedure Set_Numpoints
| ( | Data | : access Gtk_Plot_Data_Record; |
| Num | : Gint); |
function Get_Numpoints
| ( | Data | : access Gtk_Plot_Data_Record) return Gint; |
procedure Set_Points
| ( | Data | : access Gtk_Plot_Data_Record; |
| X, Y, Dx, Dy | : Gdouble_Array_Access); |
procedure Get_Points
| ( | Data | : access Gtk_Plot_Data_Record; |
| X | : out Points_Array; | |
| Y | : out Points_Array; | |
| Dx | : out Points_Array; | |
| Dy | : out Points_Array); |
procedure Set_X
| ( | Data | : access Gtk_Plot_Data_Record; |
| X | : Gdouble_Array_Access); |
procedure Set_Y
| ( | Data | : access Gtk_Plot_Data_Record; |
| Y | : Gdouble_Array_Access); |
procedure Set_Z
| ( | Data | : access Gtk_Plot_Data_Record; |
| Z | : Gdouble_Array_Access); |
procedure Set_A
| ( | Data | : access Gtk_Plot_Data_Record; |
| A | : Gdouble_Array_Access); |
procedure Set_A_Scale
| ( | Data | : access Gtk_Plot_Data_Record; |
| A_Scale | : Gdouble); |
function Get_A_Scale
| ( | Data | : access Gtk_Plot_Data_Record) return Gdouble; |
procedure Set_Dx
| ( | Data | : access Gtk_Plot_Data_Record; |
| Dx | : Gdouble_Array_Access); |
procedure Set_Dy
| ( | Data | : access Gtk_Plot_Data_Record; |
| Dy | : Gdouble_Array_Access); |
procedure Set_Dz
| ( | Data | : access Gtk_Plot_Data_Record; |
| Dz | : Gdouble_Array_Access); |
procedure Set_Da
| ( | Data | : access Gtk_Plot_Data_Record; |
| Da | : Gdouble_Array_Access); |
function Get_X
| ( | Data | : access Gtk_Plot_Data_Record) return Points_Array; |
function Get_Y
| ( | Data | : access Gtk_Plot_Data_Record) return Points_Array; |
function Get_Z
| ( | Data | : access Gtk_Plot_Data_Record) return Points_Array; |
function Get_A
| ( | Data | : access Gtk_Plot_Data_Record) return Points_Array; |
function Get_Dx
| ( | Data | : access Gtk_Plot_Data_Record) return Points_Array; |
function Get_Dy
| ( | Data | : access Gtk_Plot_Data_Record) return Points_Array; |
function Get_Dz
| ( | Data | : access Gtk_Plot_Data_Record) return Points_Array; |
function Get_Da
| ( | Data | : access Gtk_Plot_Data_Record) return Points_Array; |
procedure Set_Labels
| ( | Data | : access Gtk_Plot_Data_Record; |
| Labels | : Gtkada.Types.Chars_Ptr_Array); |
function Get_Labels
| ( | Data | : access Gtk_Plot_Data_Record) return Gtkada.Types.Chars_Ptr_Array; |
procedure Show_Labels
| ( | Data | : access Gtk_Plot_Data_Record; |
| Show | : Boolean); |
procedure Labels_Set_Attributes
| ( | Data | : access Gtk_Plot_Data_Record; |
| Font | : String; | |
| Height | : Gint; | |
| Angle | : Plot_Angle; | |
| Foreground | : Gdk.Color.Gdk_Color; | |
| Background | : Gdk.Color.Gdk_Color); |
procedure Set_Symbol
| ( | Data | : access Gtk_Plot_Data_Record; |
| The_Type | : Plot_Symbol_Type; | |
| Style | : Plot_Symbol_Style; | |
| Size | : Gint; | |
| Line_Width | : Gfloat; | |
| Color | : Gdk.Color.Gdk_Color; | |
| Border_Color | : Gdk.Color.Gdk_Color); |
procedure Get_Symbol
| ( | Data | : access Gtk_Plot_Data_Record; |
| The_Type | : out Plot_Symbol_Type; | |
| Style | : out Plot_Symbol_Style; | |
| Size | : out Gint; | |
| Line_Width | : out Gint; | |
| Color | : out Gdk.Color.Gdk_Color; | |
| Border_Color | : out Gdk.Color.Gdk_Color); |
procedure Set_Connector
| ( | Data | : access Gtk_Plot_Data_Record; |
| Connector | : Plot_Connector); |
function Get_Connector
| ( | Data | : access Gtk_Plot_Data_Record) return Plot_Connector; |
procedure Set_Line_Attributes
| ( | Data | : access Gtk_Plot_Data_Record; |
| Style | : Plot_Line_Style; | |
| Cap_Style | : Gdk.GC.Gdk_Cap_Style; | |
| Join_Style | : Gdk.GC.Gdk_Join_Style; | |
| Width | : Gfloat; | |
| Color | : Gdk.Color.Gdk_Color); |
procedure Get_Line_Attributes
| ( | Data | : access Gtk_Plot_Data_Record; |
| Style | : out Plot_Line_Style; | |
| Cap_Style | : out Gdk.GC.Gdk_Cap_Style; | |
| Join_Style | : out Gdk.GC.Gdk_Join_Style; | |
| Width | : out Gfloat; | |
| Color | : out Gdk.Color.Gdk_Color); |
procedure Set_X_Attributes
| ( | Data | : access Gtk_Plot_Data_Record; |
| Style | : Plot_Line_Style; | |
| Cap_Style | : Gdk.GC.Gdk_Cap_Style; | |
| Join_Style | : Gdk.GC.Gdk_Join_Style; | |
| Width | : Gfloat; | |
| Color | : Gdk.Color.Gdk_Color); |
procedure Set_Y_Attributes
| ( | Data | : access Gtk_Plot_Data_Record; |
| Style | : Plot_Line_Style; | |
| Cap_Style | : Gdk.GC.Gdk_Cap_Style; | |
| Join_Style | : Gdk.GC.Gdk_Join_Style; | |
| Width | : Gfloat; | |
| Color | : Gdk.Color.Gdk_Color); |
procedure Set_Z_Attributes
| ( | Data | : access Gtk_Plot_Data_Record; |
| Style | : Plot_Line_Style; | |
| Cap_Style | : Gdk.GC.Gdk_Cap_Style; | |
| Join_Style | : Gdk.GC.Gdk_Join_Style; | |
| Width | : Gfloat; | |
| Color | : Gdk.Color.Gdk_Color); |
procedure Show_Xerrbars
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Show_Yerrbars
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Show_Zerrbars
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Hide_Xerrbars
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Hide_Yerrbars
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Hide_Zerrbars
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Fill_Area
| ( | Data | : access Gtk_Plot_Data_Record; |
| Fill | : Boolean); |
function Area_Is_Filled
| ( | Data | : access Gtk_Plot_Data_Record) return Boolean; |
procedure Set_Legend
| ( | Data | : access Gtk_Plot_Data_Record; |
| Legend | : String); |
procedure Show_Legend
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Hide_Legend
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Set_Legend_Precision
| ( | Data | : access Gtk_Plot_Data_Record; |
| Precision | : Gint); |
function Get_Legend_Precision
| ( | Data | : access Gtk_Plot_Data_Record) return Gint; |
procedure Move_Gradient
| ( | Data | : access Gtk_Plot_Data_Record; |
| X, Y | : Gdouble); |
procedure Set_Gradient_Size
| ( | Data | : access Gtk_Plot_Data_Record; |
| Size | : Gint); |
procedure Reset_Gradient
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Reset_Gradient_Colors
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Gradient_Use_Custom_Colors
| ( | Data | : access Gtk_Plot_Data_Record; |
| Custom | : Boolean); |
function Gradient_Custom_Colors
| ( | Data | : access Gtk_Plot_Data_Record) return Boolean; |
procedure Set_Gradient_Mask
| ( | Data | : access Gtk_Plot_Data_Record; |
| Mask | : Plot_Gradient); |
function Get_Gradient_Mask
| ( | Data | : access Gtk_Plot_Data_Record) return Plot_Gradient; |
procedure Gradient_Set_Visible
| ( | Data | : access Gtk_Plot_Data_Record; |
| Visible | : Boolean); |
function Gradient_Visible
| ( | Data | : access Gtk_Plot_Data_Record) return Boolean; |
procedure Gradient_Autoscale_A
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Gradient_Autoscale_Da
| ( | Data | : access Gtk_Plot_Data_Record); |
procedure Set_Gradient_Colors
| ( | Data | : access Gtk_Plot_Data_Record; |
| Min, Max | : Gdk.Color.Gdk_Color); |
procedure Get_Gradient_Colors
| ( | Data | : access Gtk_Plot_Data_Record; |
| Min, Max | : out Gdk.Color.Gdk_Color); |
procedure Set_Gradient_Nth_Color
| ( | Data | : access Gtk_Plot_Data_Record; |
| Level | : Guint; | |
| Color | : Gdk.Color.Gdk_Color); |
function Get_Gradient_Nth_Color
| ( | Data | : access Gtk_Plot_Data_Record; |
| Level | : Guint) return Gdk.Color.Gdk_Color; |
procedure Set_Gradient_Outer_Colors
| ( | Data | : access Gtk_Plot_Data_Record; |
| Min, Max | : Gdk.Color.Gdk_Color); |
procedure Get_Gradient_Outer_Colors
| ( | Data | : access Gtk_Plot_Data_Record; |
| Min, Max | : out Gdk.Color.Gdk_Color); |
procedure Set_Gradient
| ( | Data | : access Gtk_Plot_Data_Record; |
| Min, Max | : Gdouble; | |
| Nlevels | : Gint; | |
| Nsublevels | : Gint); |
procedure Get_Gradient
| ( | Data | : access Gtk_Plot_Data_Record; |
| Min, Max | : out Gdouble; | |
| Nlevels | : out Gint; | |
| Nsublevels | : out Gint); |
procedure Get_Gradient_Level
| ( | Data | : access Gtk_Plot_Data_Record; |
| Level | : Gdouble; | |
| Color | : out Gdk.Color.Gdk_Color); |
procedure Gradient_Set_Style
| ( | Data | : access Gtk_Plot_Data_Record; |
| Style | : Plot_Label_Style; | |
| Precision | : Gint); |
procedure Gradient_Set_Scale
| ( | Data | : access Gtk_Plot_Data_Record; |
| Scale | : Plot_Scale); |
function Add_Marker
| ( | Data | : access Gtk_Plot_Data_Record; |
| Point | : Guint) return Gtk_Plot_Marker; |
procedure Remove_Marker
| ( | Data | : access Gtk_Plot_Data_Record; |
| Marker | : Gtk_Plot_Marker); |
procedure Show_Markers
| ( | Data | : access Gtk_Plot_Data_Record; |
| Show | : Boolean); |
function Markers_Visible
| ( | Data | : access Gtk_Plot_Data_Record) return Boolean; |
procedure Set_Link
| ( | Data | : access Gtk_Plot_Data_Record; |
| Link | : System.Address); |
function Get_Link
| ( | Data | : access Gtk_Plot_Data_Record) return System.Address; |
procedure Remove_Link
| ( | Data | : access Gtk_Plot_Data_Record); |
function To_Double_Array is new Unchecked_Conversion
| ( | System.Address, No_Range_Gdouble_Array_Access); |
Binding from C File version gtkextra 2.1.1
<testgtk>create_plot_realtime.adb</testgtk>