diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-04-25 09:07:50 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-04-25 09:07:50 +0000 |
| commit | 1b294eb6cf1faaea874d5521f1d93f8d870180e6 (patch) | |
| tree | 1140345abb83253da6323acd6b23963a246d5d2f | |
| parent | 27a354229f0522452d91b4e3c991659bbb46d32c (diff) | |
| download | usdx-1b294eb6cf1faaea874d5521f1d93f8d870180e6.tar.gz usdx-1b294eb6cf1faaea874d5521f1d93f8d870180e6.tar.xz usdx-1b294eb6cf1faaea874d5521f1d93f8d870180e6.zip | |
added Finalize3D finalization as opponent for Initialize3D and for a clean finalization
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2307 b956fd51-792f-4845-bead-9b4dfca2ff2c
| -rw-r--r-- | src/base/TextGL.pas | 14 | ||||
| -rw-r--r-- | src/base/UGraphic.pas | 16 | ||||
| -rw-r--r-- | src/base/UMain.pas | 22 |
3 files changed, 30 insertions, 22 deletions
diff --git a/src/base/TextGL.pas b/src/base/TextGL.pas index 7ee574c3..c354a500 100644 --- a/src/base/TextGL.pas +++ b/src/base/TextGL.pas @@ -61,8 +61,8 @@ var Fonts: array of TGLFont; ActFont: integer; -procedure BuildFont; // build our bitmap font -procedure KillFont; // delete the font +procedure BuildFonts; // builds all fonts +procedure KillFonts; // deletes all font function glTextWidth(const text: UTF8String): real; // returns text width procedure glPrint(const text: UTF8String); // custom GL "Print" routine procedure ResetFont(); // reset font settings of active font @@ -121,7 +121,7 @@ const 'Normal', 'Bold', 'Outline1', 'Outline2' ); -procedure BuildFont; +procedure BuildFonts; var I: integer; FontIni: TMemIniFile; @@ -183,10 +183,12 @@ end; // Deletes the font -procedure KillFont; +procedure KillFonts; +var + I: integer; begin - // delete all characters - //glDeleteLists(..., 256); + for I := 0 to High(Fonts) do + Fonts[I].Font.Free; end; function glTextWidth(const text: UTF8String): real; diff --git a/src/base/UGraphic.pas b/src/base/UGraphic.pas index 33e862f2..d22744db 100644 --- a/src/base/UGraphic.pas +++ b/src/base/UGraphic.pas @@ -265,6 +265,7 @@ const Skin_P2_ScoreL = 640; procedure Initialize3D (Title: string); +procedure Finalize3D; procedure Reinitialize3D; |