38 lines
1.4 KiB
Ada
38 lines
1.4 KiB
Ada
package body openGL.Model.box
|
|
is
|
|
--------------
|
|
--- Attributes
|
|
--
|
|
|
|
function vertex_Sites (Self : in Item'Class) return Sites
|
|
is
|
|
left_Offset : constant Real := -0.5;
|
|
right_Offset : constant Real := 0.5;
|
|
|
|
lower_Offset : constant Real := -0.5;
|
|
upper_Offset : constant Real := 0.5;
|
|
|
|
front_Offset : constant Real := 0.5;
|
|
rear_Offset : constant Real := -0.5;
|
|
begin
|
|
return [Left_Lower_Front => Scaled ([ left_Offset, lower_Offset, front_Offset], by => Self.Size),
|
|
Right_Lower_Front => Scaled ([right_Offset, lower_Offset, front_Offset], by => Self.Size),
|
|
Right_Upper_Front => Scaled ([right_Offset, upper_Offset, front_Offset], by => Self.Size),
|
|
Left_Upper_Front => Scaled ([ left_Offset, upper_Offset, front_Offset], by => Self.Size),
|
|
Right_Lower_Rear => Scaled ([right_Offset, lower_Offset, rear_Offset], by => Self.Size),
|
|
Left_Lower_Rear => Scaled ([ left_Offset, lower_Offset, rear_Offset], by => Self.Size),
|
|
Left_Upper_Rear => Scaled ([ left_Offset, upper_Offset, rear_Offset], by => Self.Size),
|
|
Right_Upper_Rear => Scaled ([right_Offset, upper_Offset, rear_Offset], by => Self.Size)];
|
|
end vertex_Sites;
|
|
|
|
|
|
|
|
function Size (Self : in Item) return Vector_3
|
|
is
|
|
begin
|
|
return Self.Size;
|
|
end Size;
|
|
|
|
|
|
end openGL.Model.box;
|