with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded; with Sf.System.Vector2; package ZusatztextDiplomatieGrafik is pragma Elaborate_Body; function ZusatztextDiplomatie (ViewflächeExtern : in Sf.System.Vector2.sfVector2f; RealeViewbreiteExtern : in Float) return Sf.System.Vector2.sfVector2f with Pre => ( ViewflächeExtern.x >= 0.00 and ViewflächeExtern.y >= 0.00 and RealeViewbreiteExtern >= 0.00 ), Post => ( ZusatztextDiplomatie'Result.x >= 0.00 and ZusatztextDiplomatie'Result.y >= 0.00 ); private Zustandnummer : Positive; Textbreite : Float; Text : Unbounded_Wide_Wide_String; Rückgabewert : Sf.System.Vector2.sfVector2f; Textposition : Sf.System.Vector2.sfVector2f; function TextSetzen (TextnummerExtern : in Positive) return Wide_Wide_String; end ZusatztextDiplomatieGrafik;