46 lines
884 B
Ada
46 lines
884 B
Ada
package openGL.Primitive.non_indexed
|
|
--
|
|
-- Provides a class for non-indexed openGL primitives.
|
|
--
|
|
is
|
|
type Item is limited new Primitive.item with private;
|
|
subtype Class is Item'Class;
|
|
|
|
type View is access all Item'Class;
|
|
type Views is array (Index_t range <>) of View;
|
|
|
|
|
|
|
|
---------
|
|
-- Forge
|
|
--
|
|
|
|
overriding
|
|
procedure define (Self : in out Item; Kind : in facet_Kind);
|
|
|
|
overriding
|
|
procedure destroy (Self : in out Item);
|
|
|
|
function new_Primitive (Kind : in facet_Kind;
|
|
vertex_Count : in Natural) return Primitive.non_indexed.view;
|
|
|
|
|
|
--------------
|
|
-- Operations
|
|
--
|
|
|
|
overriding
|
|
procedure render (Self : in out Item);
|
|
|
|
|
|
|
|
private
|
|
|
|
type Item is limited new Primitive.item with
|
|
record
|
|
vertex_Count : Natural := 0;
|
|
end record;
|
|
|
|
|
|
end openGL.Primitive.non_indexed;
|