diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-09 19:49:28 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-09 19:49:28 +0000 |
| commit | be8d1f265179826c6d189019298e88675b12210f (patch) | |
| tree | 2de43aa4281d4e54f2b608b1a968c01b1a1489b5 | |
| parent | 912d54923bd0180374b353688fed6ad4ddf41168 (diff) | |
| download | usdx-be8d1f265179826c6d189019298e88675b12210f.tar.gz usdx-be8d1f265179826c6d189019298e88675b12210f.tar.xz usdx-be8d1f265179826c6d189019298e88675b12210f.zip | |
lyric fix
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1513 b956fd51-792f-4845-bead-9b4dfca2ff2c
| -rw-r--r-- | src/base/TextGL.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/base/TextGL.pas b/src/base/TextGL.pas index 11bbd52b..bd505f51 100644 --- a/src/base/TextGL.pas +++ b/src/base/TextGL.pas @@ -212,7 +212,7 @@ begin Result := 0; Font := @Fonts[ActFont]; - for i := 0 to Length(text) -1 do + for i := 1 to Length(text) do begin Letter := Text[i]; Result := Result + Font.Width[Ord(Letter)] * Font.Tex.H / 30 * Font.AspectW; |