25 lines
530 B
Ada
25 lines
530 B
Ada
package body openGL.Model.hexagon
|
|
is
|
|
|
|
function vertex_Sites (Radius : in Real) return Sites
|
|
is
|
|
use linear_Algebra_3d;
|
|
|
|
the_Site : Vector_3 := [Radius, 0.0, 0.0];
|
|
Rotation : constant Matrix_3x3 := z_Rotation_from (to_Radians (60.0));
|
|
|
|
the_Sites : Sites;
|
|
|
|
begin
|
|
for i in the_Sites'Range
|
|
loop
|
|
the_Sites (i) := the_Site;
|
|
the_Site := Rotation * the_Site;
|
|
end loop;
|
|
|
|
return the_Sites;
|
|
end vertex_Sites;
|
|
|
|
|
|
end openGL.Model.hexagon;
|