33 lines
725 B
Ada
33 lines
725 B
Ada
with
|
|
openGL.Font;
|
|
|
|
|
|
package openGL.Model.text
|
|
--
|
|
-- Provides an abstract model for rendering text.
|
|
--
|
|
is
|
|
type Item is abstract new Model.item with private;
|
|
type View is access all Item'Class;
|
|
|
|
|
|
procedure Text_is (Self : in out Item; Now : in String) is abstract;
|
|
function Text (Self : in Item) return String is abstract;
|
|
|
|
function Font (Self : in Item) return Font.view is abstract;
|
|
|
|
no_such_Font : exception;
|
|
|
|
overriding
|
|
function texture_Applied (Self : in Item; Which : in texture_Set.texture_Id) return Boolean
|
|
is (True);
|
|
|
|
|
|
private
|
|
|
|
type Item is abstract new Model.item with null record;
|
|
|
|
type String_view is access String;
|
|
|
|
end openGL.Model.text;
|