opengl: Cosmetics.
This commit is contained in:
@@ -1,5 +1,5 @@
|
|||||||
with
|
with
|
||||||
openGL.texture_Set;
|
openGL.texture_Set;
|
||||||
|
|
||||||
|
|
||||||
private
|
private
|
||||||
@@ -9,7 +9,7 @@ with
|
|||||||
|
|
||||||
package openGL.Geometry.colored_textured
|
package openGL.Geometry.colored_textured
|
||||||
--
|
--
|
||||||
-- Supports per-vertex site, color and texture.
|
-- Supports 'per-vertex' site, color and texture.
|
||||||
--
|
--
|
||||||
is
|
is
|
||||||
type Item is new openGL.Geometry.item with private;
|
type Item is new openGL.Geometry.item with private;
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ with
|
|||||||
|
|
||||||
package openGL.Geometry.lit_colored_textured
|
package openGL.Geometry.lit_colored_textured
|
||||||
--
|
--
|
||||||
-- Supports per-vertex site color, texture and lighting.
|
-- Supports 'per-vertex' site, color, texture and lighting.
|
||||||
--
|
--
|
||||||
is
|
is
|
||||||
type Item is new openGL.Geometry.item with private;
|
type Item is new openGL.Geometry.item with private;
|
||||||
|
|||||||
@@ -11,7 +11,7 @@ with
|
|||||||
|
|
||||||
package openGL.Geometry.lit_colored_textured_skinned
|
package openGL.Geometry.lit_colored_textured_skinned
|
||||||
--
|
--
|
||||||
-- Supports per-vertex site color, texture, lighting and skinning.
|
-- Supports 'per-vertex' site, color, texture, lighting and skinning.
|
||||||
--
|
--
|
||||||
is
|
is
|
||||||
type Item is new openGL.Geometry.item with private;
|
type Item is new openGL.Geometry.item with private;
|
||||||
@@ -36,6 +36,7 @@ is
|
|||||||
bone_Ids : Vector_4;
|
bone_Ids : Vector_4;
|
||||||
bone_Weights : Vector_4;
|
bone_Weights : Vector_4;
|
||||||
end record;
|
end record;
|
||||||
|
|
||||||
pragma Convention (C, Vertex);
|
pragma Convention (C, Vertex);
|
||||||
|
|
||||||
type Vertex_array is array (long_Index_t range <>) of aliased Vertex;
|
type Vertex_array is array (long_Index_t range <>) of aliased Vertex;
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ with
|
|||||||
|
|
||||||
package openGL.Geometry.lit_textured
|
package openGL.Geometry.lit_textured
|
||||||
--
|
--
|
||||||
-- Supports per-vertex site texture and lighting.
|
-- Supports 'per-vertex' site, texture and lighting.
|
||||||
--
|
--
|
||||||
is
|
is
|
||||||
type Item is new openGL.Geometry.item with private;
|
type Item is new openGL.Geometry.item with private;
|
||||||
|
|||||||
@@ -9,11 +9,12 @@ with
|
|||||||
|
|
||||||
package openGL.Geometry.lit_textured_skinned
|
package openGL.Geometry.lit_textured_skinned
|
||||||
--
|
--
|
||||||
-- Supports per-vertex site, texture, lighting and skinning.
|
-- Supports 'per-vertex' site, texture, lighting and skinning.
|
||||||
--
|
--
|
||||||
is
|
is
|
||||||
type Item is new openGL.Geometry.item with private;
|
type Item is new openGL.Geometry.item with private;
|
||||||
|
|
||||||
|
|
||||||
function new_Geometry return access Geometry.lit_textured_skinned.item'Class;
|
function new_Geometry return access Geometry.lit_textured_skinned.item'Class;
|
||||||
|
|
||||||
procedure define_Program;
|
procedure define_Program;
|
||||||
@@ -33,6 +34,7 @@ is
|
|||||||
bone_Ids : Vector_4;
|
bone_Ids : Vector_4;
|
||||||
bone_Weights : Vector_4;
|
bone_Weights : Vector_4;
|
||||||
end record;
|
end record;
|
||||||
|
|
||||||
pragma Convention (C, Vertex);
|
pragma Convention (C, Vertex);
|
||||||
|
|
||||||
type Vertex_array is array (long_Index_t range <>) of aliased Vertex;
|
type Vertex_array is array (long_Index_t range <>) of aliased Vertex;
|
||||||
|
|||||||
@@ -9,12 +9,13 @@ with
|
|||||||
|
|
||||||
package openGL.Geometry.textured
|
package openGL.Geometry.textured
|
||||||
--
|
--
|
||||||
-- Supports per-vertex site and texture.
|
-- Supports 'per-vertex' site and texture.
|
||||||
--
|
--
|
||||||
is
|
is
|
||||||
type Item is new openGL.Geometry.item with private;
|
type Item is new openGL.Geometry.item with private;
|
||||||
type View is access all Item'Class;
|
type View is access all Item'Class;
|
||||||
|
|
||||||
|
|
||||||
function new_Geometry return View;
|
function new_Geometry return View;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user