nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

opengl.model: Add basic texturing subprograms.

Browse Source
This commit is contained in:
Rod Kay
2023-05-31 15:22:25 +10:00
parent ce41c9afef
commit 4861f54232
19 changed files with 547 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
3-mid/opengl/source/demo/opengl-demo.adb
View File

@@ -118,6 +118,8 @@ is
end destroy;
function Models return openGL.Model.views
is
use Model,
@@ -260,37 +262,39 @@ is
the_segment_line_Model.add_Segment (end_Site => [2.0, 2.0, 0.0]);
the_segment_line_Model.add_Segment (end_Site => [0.0, 2.0, 0.0]);
return [ the_ground_Model.all'Access,
the_polygon_Model.all'Access,
the_text_Model.all'Access,
the_arrow_Model.all'Access,
the_ball_1_Model.all'Access,
the_ball_2_Model.all'Access,
the_ball_3_Model.all'Access,
return [ the_ground_Model.all'Access,
the_polygon_Model.all'Access,
the_text_Model.all'Access,
the_arrow_Model.all'Access,
the_ball_1_Model.all'Access,
the_ball_2_Model.all'Access,
the_ball_3_Model.all'Access,
the_billboard_Model.all'Access,
the_colored_billboard_Model.all'Access,
the_box_1_Model.all'Access,
the_box_2_Model.all'Access,
the_box_3_Model.all'Access,
the_billboard_Model.all'Access,
the_colored_billboard_Model.all'Access,
the_box_1_Model.all'Access,
the_box_2_Model.all'Access,
the_box_3_Model.all'Access,
the_capsule_Model.all'Access,
the_grid_Model.all'Access,
the_capsule_Model.all'Access,
the_grid_Model.all'Access,
the_hexagon_Model.all'Access,
the_textured_hexagon_Model.all'Access,
the_hexagon_Model.all'Access,
the_textured_hexagon_Model.all'Access,
the_faceted_hexagon_column_Model.all'Access,
the_rounded_hexagon_column_Model.all'Access,
the_faceted_hexagon_column_Model.all'Access,
the_rounded_hexagon_column_Model.all'Access,
the_line_Model.all'Access,
the_collada_Model.all'Access,
the_wavefront_Model.all'Access,
the_line_Model.all'Access,
the_collada_Model.all'Access,
the_wavefront_Model.all'Access,
the_segment_line_Model.all'Access];
the_segment_line_Model.all'Access];
end Models;
procedure layout (the_Visuals : in Visual.views)
is
initial_X : constant openGL.Real := -6.0;