Add initial prototype.

2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions
--- a/3-mid/opengl/source/lean/model/opengl-model-billboard.adb
+++ b/3-mid/opengl/source/lean/model/opengl-model-billboard.adb
@@ -0,0 +1,67 @@
+package body openGL.Model.billboard
+is
+
+   ---------
+   --- Forge
+   --
+
+   procedure define (Self : out Item;   Size : Size_t := default_Size)
+   is
+   begin
+      Self.Size := Size;
+   end define;
+
+
+
+   --------------
+   --- Attributes
+   --
+
+   function Size (Self : in Item) return Size_t
+   is
+   begin
+      return Self.Size;
+   end Size;
+
+
+
+   function Width (Self : in Item) return Real
+   is
+   begin
+      return Self.Size.Width;
+   end Width;
+
+
+
+   function Height (Self : in Item) return Real
+   is
+   begin
+      return Self.Size.Height;
+   end Height;
+
+
+
+   function vertex_Sites (for_Plane     : in Plane;
+                          Width, Height : in Real) return Sites
+   is
+      half_Width  : constant Real := Width  / 2.0;
+      half_Height : constant Real := Height / 2.0;
+
+      the_Sites   : constant array (Plane) of Sites := [xy => [[-half_Width, -half_Height,         0.0],
+                                                               [ half_Width, -half_Height,         0.0],
+                                                               [ half_Width,  half_Height,         0.0],
+                                                               [-half_Width,  half_Height,         0.0]],
+                                                        xz => [[-half_Width,          0.0,         1.0],
+                                                               [ half_Width,          0.0,         1.0],
+                                                               [ half_Width,          0.0,        -1.0],
+                                                               [-half_Width,          0.0,        -1.0]],
+                                                        yz => [[        0.0, -half_Height,  half_Width],
+                                                               [        0.0, -half_Height, -half_Width],
+                                                               [        0.0,  half_Height, -half_Width],
+                                                               [        0.0,  half_Height,  half_Width]]];
+   begin
+      return the_Sites (for_Plane);
+   end vertex_Sites;
+
+
+end openGL.Model.billboard;