with
     openGL.Geometry,
     openGL.Texture,
     openGL.Model.texturing;


package openGL.Model.billboard.textured
--
--  Models a textured billboard.
--
is
   package textured_Model is new texturing.Mixin (openGL.Model.billboard.item);

   type Item (Lucid : Boolean) is new textured_Model.textured_item with private;
   --  type Item (Lucid : Boolean) is new Model.billboard.item with private;
   type View                   is access all Item'Class;

   type       Image_view  is access       Image;
   type lucid_Image_view  is access lucid_Image;


   ---------
   --- Forge
   --

   package Forge
   is
      function new_Billboard (Size    : in Size_t         := default_Size;
                              Plane   : in billboard.Plane;
                              Texture : in asset_Name;
                              texture_Details : in texture_Set.Details;
                              Lucid   : in Boolean        := False) return View;
   end Forge;


   --------------
   --- Attributes
   --

   overriding
   function  to_GL_Geometries   (Self : access Item;   Textures : access Texture.name_Map_of_texture'Class;
                                                       Fonts    : in     Font.font_id_Map_of_font) return Geometry.views;

   procedure Texture_is         (Self : in out Item;   Now : in Texture.Object);
   function  Texture            (Self : in     Item)     return Texture.Object;

   procedure Texture_Coords_are (Self : in out Item;   Now : in Coordinates);
   procedure Size_is            (Self : in out Item;   Now : in Size_t);

   procedure Image_is           (Self : in out Item;   Now : in       Image);
   procedure Image_is           (Self : in out Item;   Now : in lucid_Image);


   ------------
   -- Texturing
   --

   --  overriding
   --  function  Fade       (Self : in     Item;   Which : in texture_Set.texture_Id) return texture_Set.fade_Level;
   --
   --  overriding
   --  procedure Fade_is    (Self : in out Item;   Which : in texture_Set.texture_Id;
   --                                              Now   : in texture_Set.fade_Level);
   --
   --  procedure Texture_is (Self : in out Item;   Which : in texture_Set.texture_Id;
   --                                              Now   : in asset_Name);
   --
   --  overriding
   --  function  texture_Count (Self : in Item) return Natural;



private

   --  type Item (Lucid : Boolean) is new Model.billboard.item with
   type Item (Lucid : Boolean) is new textured_Model.textured_item with
      record
         texture_Name   : asset_Name            := null_Asset;
         Texture        : openGL.Texture.Object := openGL.Texture.null_Object;      -- The texture to be applied to the billboard face.
         texture_Coords : Coordinates           := [(0.0, 0.0), (1.0, 0.0), (1.0, 1.0), (0.0, 1.0)];     -- TODO: Should be constant/static ?

         case Lucid is
            when True  => lucid_Image : lucid_Image_view;
            when False =>       Image :       Image_view;
         end case;
      end record;

end openGL.Model.billboard.textured;