204 lines
7.4 KiB
Ada
204 lines
7.4 KiB
Ada
with
|
|
openGL.Geometry.textured,
|
|
openGL.Primitive.indexed;
|
|
|
|
|
|
package body openGL.Model.box.textured
|
|
is
|
|
---------
|
|
--- Forge
|
|
--
|
|
|
|
function new_Box (Size : in Vector_3;
|
|
Faces : in textured.Faces;
|
|
texture_Details : in texture_Set.Details;
|
|
is_Skybox : in Boolean := False) return View
|
|
is
|
|
Self : constant View := new Item;
|
|
begin
|
|
Self.Faces := Faces;
|
|
Self.is_Skybox := is_Skybox;
|
|
Self.Size := Size;
|
|
|
|
Self.texture_Details_is (texture_Details);
|
|
|
|
return Self;
|
|
end new_Box;
|
|
|
|
|
|
--------------
|
|
--- Attributes
|
|
--
|
|
|
|
overriding
|
|
function to_GL_Geometries (Self : access Item; Textures : access Texture.name_Map_of_texture'Class;
|
|
Fonts : in Font.font_id_Map_of_font) return Geometry.views
|
|
is
|
|
pragma unreferenced (Fonts);
|
|
|
|
use Geometry.textured,
|
|
Texture;
|
|
|
|
the_Sites : constant box.Sites := Self.vertex_Sites;
|
|
the_Indices : aliased Indices := [1, 2, 3, 4];
|
|
|
|
|
|
function new_Face (Vertices : in Geometry.textured.Vertex_array) return Geometry.textured.view
|
|
is
|
|
use Primitive;
|
|
|
|
the_Geometry : constant Geometry.textured.view := Geometry.textured.new_Geometry;
|
|
the_Primitive : constant Primitive.view := Primitive.indexed.new_Primitive (triangle_Fan,
|
|
the_Indices).all'Access;
|
|
begin
|
|
the_Geometry.Vertices_are (Vertices);
|
|
the_Geometry.add (the_Primitive);
|
|
|
|
return the_Geometry;
|
|
end new_Face;
|
|
|
|
|
|
front_Face : Geometry.textured.view;
|
|
rear_Face : Geometry.textured.view;
|
|
upper_Face : Geometry.textured.view;
|
|
lower_Face : Geometry.textured.view;
|
|
left_Face : Geometry.textured.view;
|
|
right_Face : Geometry.textured.view;
|
|
|
|
begin
|
|
if Self.is_Skybox
|
|
then
|
|
the_Indices := [4, 3, 2, 1];
|
|
end if;
|
|
|
|
-- Front
|
|
--
|
|
declare
|
|
the_Vertices : constant Geometry.textured.Vertex_array
|
|
:= [1 => (Site => the_Sites ( left_lower_front), Coords => (0.0, 0.0)),
|
|
2 => (Site => the_Sites (right_lower_front), Coords => (1.0, 0.0)),
|
|
3 => (Site => the_Sites (right_upper_front), Coords => (1.0, 1.0)),
|
|
4 => (Site => the_Sites ( left_upper_front), Coords => (0.0, 1.0))];
|
|
begin
|
|
front_Face := new_Face (Vertices => the_Vertices);
|
|
|
|
if Self.Faces (Front).texture_Name /= null_Asset
|
|
then
|
|
front_Face.Texture_is (Textures.fetch (Self.Faces (Front).texture_Name));
|
|
front_Face.is_Transparent (now => front_Face.Texture.is_Transparent);
|
|
front_Face.Model_is (Self.all'unchecked_Access);
|
|
end if;
|
|
end;
|
|
|
|
|
|
-- Rear
|
|
--
|
|
declare
|
|
the_Vertices : constant Geometry.textured.Vertex_array
|
|
:= [1 => (Site => the_Sites (Right_Lower_Rear), Coords => (0.0, 0.0)),
|
|
2 => (Site => the_Sites ( Left_Lower_Rear), Coords => (1.0, 0.0)),
|
|
3 => (Site => the_Sites ( Left_Upper_Rear), Coords => (1.0, 1.0)),
|
|
4 => (Site => the_Sites (Right_Upper_Rear), Coords => (0.0, 1.0))];
|
|
begin
|
|
rear_Face := new_Face (Vertices => the_Vertices);
|
|
|
|
if Self.Faces (Rear).texture_Name /= null_Asset
|
|
then
|
|
rear_Face.Texture_is (Textures.fetch (Self.Faces (Front).texture_Name));
|
|
rear_Face.is_Transparent (now => rear_Face.Texture.is_Transparent);
|
|
rear_Face.Model_is (Self.all'unchecked_Access);
|
|
end if;
|
|
end;
|
|
|
|
|
|
-- Upper
|
|
--
|
|
declare
|
|
the_Vertices : constant Geometry.textured.Vertex_array
|
|
:= [1 => (Site => the_Sites ( Left_Upper_Front), Coords => (0.0, 0.0)),
|
|
2 => (Site => the_Sites (Right_Upper_Front), Coords => (1.0, 0.0)),
|
|
3 => (Site => the_Sites (Right_Upper_Rear), Coords => (1.0, 1.0)),
|
|
4 => (Site => the_Sites ( Left_Upper_Rear), Coords => (0.0, 1.0))];
|
|
begin
|
|
upper_Face := new_Face (Vertices => the_Vertices);
|
|
|
|
if Self.Faces (Upper).texture_Name /= null_Asset
|
|
then
|
|
upper_Face.Texture_is (Textures.fetch (Self.Faces (Front).texture_Name));
|
|
upper_Face.is_Transparent (now => upper_Face.Texture.is_Transparent);
|
|
upper_Face.Model_is (Self.all'unchecked_Access);
|
|
end if;
|
|
end;
|
|
|
|
|
|
-- Lower
|
|
--
|
|
declare
|
|
the_Vertices : constant Geometry.textured.Vertex_array
|
|
:= [1 => (Site => the_Sites (Right_Lower_Front), Coords => (0.0, 0.0)),
|
|
2 => (Site => the_Sites ( Left_Lower_Front), Coords => (1.0, 0.0)),
|
|
3 => (Site => the_Sites ( Left_Lower_Rear), Coords => (1.0, 1.0)),
|
|
4 => (Site => the_Sites (Right_Lower_Rear), Coords => (0.0, 1.0))];
|
|
begin
|
|
lower_Face := new_Face (Vertices => the_Vertices);
|
|
|
|
if Self.Faces (Lower).texture_Name /= null_Asset
|
|
then
|
|
lower_Face.Texture_is (Textures.fetch (Self.Faces (Front).texture_Name));
|
|
lower_Face.is_Transparent (now => lower_Face.Texture.is_Transparent);
|
|
lower_Face.Model_is (Self.all'unchecked_Access);
|
|
end if;
|
|
end;
|
|
|
|
|
|
-- Left
|
|
--
|
|
declare
|
|
the_Vertices : constant Geometry.textured.Vertex_array
|
|
:= [1 => (Site => the_Sites (Left_Lower_Rear), Coords => (0.0, 0.0)),
|
|
2 => (Site => the_Sites (Left_Lower_Front), Coords => (1.0, 0.0)),
|
|
3 => (Site => the_Sites (Left_Upper_Front), Coords => (1.0, 1.0)),
|
|
4 => (Site => the_Sites (Left_Upper_Rear), Coords => (0.0, 1.0))];
|
|
begin
|
|
left_Face := new_Face (Vertices => the_Vertices);
|
|
|
|
if Self.Faces (Left).texture_Name /= null_Asset
|
|
then
|
|
left_Face.Texture_is (Textures.fetch (Self.Faces (Front).texture_Name));
|
|
left_Face.is_Transparent (now => left_Face.Texture.is_Transparent);
|
|
left_Face.Model_is (Self.all'unchecked_Access);
|
|
end if;
|
|
end;
|
|
|
|
|
|
-- Right
|
|
--
|
|
declare
|
|
the_Vertices : constant Geometry.textured.Vertex_array
|
|
:= [1 => (Site => the_Sites (Right_Lower_Front), Coords => (0.0, 0.0)),
|
|
2 => (Site => the_Sites (Right_Lower_Rear), Coords => (1.0, 0.0)),
|
|
3 => (Site => the_Sites (Right_Upper_Rear), Coords => (1.0, 1.0)),
|
|
4 => (Site => the_Sites (Right_Upper_Front), Coords => (0.0, 1.0))];
|
|
begin
|
|
right_Face := new_Face (Vertices => the_Vertices);
|
|
|
|
if Self.Faces (Right).texture_Name /= null_Asset
|
|
then
|
|
right_Face.Texture_is (Textures.fetch (Self.Faces (Front).texture_Name));
|
|
right_Face.is_Transparent (now => right_Face.Texture.is_Transparent);
|
|
right_Face.Model_is (Self.all'unchecked_Access);
|
|
end if;
|
|
end;
|
|
|
|
|
|
return [1 => front_Face.all'Access,
|
|
2 => rear_Face.all'Access,
|
|
3 => upper_Face.all'Access,
|
|
4 => lower_Face.all'Access,
|
|
5 => left_Face.all'Access,
|
|
6 => right_Face.all'Access];
|
|
end to_GL_Geometries;
|
|
|
|
|
|
end openGL.Model.box.textured;
|