91 lines
2.5 KiB
Ada
91 lines
2.5 KiB
Ada
with
|
|
openGL.Screen,
|
|
GLX;
|
|
|
|
package openGL.surface_Profile
|
|
--
|
|
-- Models an openGL surface profile.
|
|
--
|
|
is
|
|
type Item is tagged private;
|
|
type View is access all Item'Class;
|
|
|
|
type Items is array (Positive range <>) of Item;
|
|
type Views is array (Positive range <>) of View;
|
|
|
|
|
|
-------------------
|
|
-- Surface Quality
|
|
--
|
|
|
|
Irrelevant : constant Natural := Natural'Last;
|
|
|
|
type color_Buffer is
|
|
record
|
|
Bits_red : Natural := Irrelevant;
|
|
Bits_green : Natural := Irrelevant;
|
|
Bits_blue : Natural := Irrelevant;
|
|
|
|
Bits_luminence : Natural := Irrelevant;
|
|
|
|
Bits_alpha : Natural := Irrelevant;
|
|
Bits_alpha_mask : Natural := Irrelevant;
|
|
end record;
|
|
|
|
function Image (Self : in color_Buffer) return String;
|
|
|
|
|
|
type Qualities is
|
|
record
|
|
color_Buffer : surface_Profile.color_Buffer;
|
|
depth_buffer_Bits : Natural := Irrelevant;
|
|
stencil_buffer_Bits : Natural := Irrelevant;
|
|
end record;
|
|
|
|
default_Qualities : constant Qualities;
|
|
|
|
function Image (Self : in Qualities) return String;
|
|
|
|
|
|
---------
|
|
-- Forge
|
|
--
|
|
|
|
desired_Qualitites_unavailable : exception;
|
|
|
|
procedure define (Self : in out Item; Screen : access openGL.Screen.item'Class;
|
|
Desired : in Qualities := default_Qualities);
|
|
|
|
function fetch_All return surface_Profile.items;
|
|
|
|
|
|
--------------
|
|
-- Attributes
|
|
--
|
|
|
|
function Quality (Self : in Item) return Qualities;
|
|
function get_Visual (Self : in Item) return access glx.XVisualInfo;
|
|
|
|
|
|
|
|
private
|
|
|
|
type Item is tagged
|
|
record
|
|
glx_Config : glx.FBConfig;
|
|
Visual : access glx.XVisualInfo;
|
|
end record;
|
|
|
|
|
|
default_Qualities : constant Qualities := (color_Buffer => (Bits_red => 8,
|
|
Bits_green => 8,
|
|
Bits_blue => 8,
|
|
|
|
Bits_luminence => Irrelevant,
|
|
|
|
Bits_alpha => Irrelevant,
|
|
Bits_alpha_mask => Irrelevant),
|
|
depth_buffer_Bits => 24,
|
|
stencil_buffer_Bits => Irrelevant);
|
|
end openGL.surface_Profile;
|