22 lines
371 B
Ada
22 lines
371 B
Ada
package openGL.Model.hexagon_Column
|
|
--
|
|
-- Models a column with six sides.
|
|
--
|
|
is
|
|
|
|
type Item is abstract new Model.item with private;
|
|
|
|
|
|
|
|
private
|
|
|
|
type Item is abstract new Model.item with
|
|
record
|
|
Radius : Real := 1.0;
|
|
Height : Real := 1.0;
|
|
end record;
|
|
|
|
Normal : constant Vector_3 := [0.0, 0.0, 1.0];
|
|
|
|
end openGL.Model.hexagon_Column;
|