From be8d1f265179826c6d189019298e88675b12210f Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 9 Nov 2008 19:49:28 +0000
Subject: lyric fix

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1513 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/TextGL.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.3