31 lines
650 B
Ada
31 lines
650 B
Ada
package openGL.Renderer
|
|
--
|
|
-- Provides a base class for all renderers.
|
|
--
|
|
is
|
|
|
|
type Item is abstract tagged limited private;
|
|
type View is access all Item'Class;
|
|
|
|
|
|
-- Attributes
|
|
--
|
|
procedure Background_is (Self : in out Item; Now : in openGL.lucid_Color);
|
|
procedure Background_is (Self : in out Item; Now : in openGL.Color;
|
|
Opacity : in Opaqueness := 1.0);
|
|
|
|
-- Operations
|
|
--
|
|
procedure clear_Frame (Self : in Item);
|
|
|
|
|
|
|
|
private
|
|
|
|
type Item is abstract tagged limited
|
|
record
|
|
Background : openGL.rgba_Color;
|
|
end record;
|
|
|
|
end openGL.Renderer;
|