type Window is new GLOBE_3D.Window with private;
type Window_view is access all Window'Class;
type Smoothing_method is (None, Software, Hardware);
procedure Initialize;
procedure Define
( | Self | : in out Window); |
procedure Destroy
( | Self | : in out Window); |
procedure Name_is
( | Self | : in out Window; |
Now | : String); |
function Name
( | Self | : Window) return String; |
overriding procedure Enable
( | Self | : in out Window); |
overriding procedure Freshen
( | Self | : in out Window; |
time_Step | : GLOBE_3D.Real; | |
Extras | : GLOBE_3D.Visual_array := GLOBE_3D.null_Visuals); |
function is_Closed
( | Self | : Window) return Boolean; |
procedure Add
( | Self | : in out Window; |
the_Object | : GLOBE_3D.p_Visual); |
procedure Rid
( | Self | : in out Window; |
the_Object | : GLOBE_3D.p_Visual); |
function object_Count
( | Self | : Window) return Natural; |
function Smoothing
( | Self | : Window) return Smoothing_method; |
procedure Smoothing_is
( | Self | : in out Window; |
Now | : Smoothing_method); |
function Show_Status
( | Self | : Window) return Boolean; |
procedure Show_Status
( | Self | : in out Window; |
Show | : Boolean := True); |
procedure Display_status
( | Self | : in out Window; |
sec | : GLOBE_3D.Real); |
function Frames_per_second
( | Self | : Window) return Float; |
function Keyboard
( | Self | : access Window'Class) return Devices.p_Keyboard; |
function Mouse
( | Self | : access Window'Class) return Devices.p_Mouse; |