- glNewList(ListsgLyrics + cnt, GL_COMPILE);
- if (gLyrics[cnt].translatex < 0.0) then
- glTranslated(gLyrics[cnt].translatex, gLyrics[cnt].translatey, 0);
- for charcnt := 0 to Length(s) -1 do
- begin
- temp := copy(s, charcnt + 1, 1);
- tempc := Ord(temp[1]);
- lineWidth := lineWidth + gmfLyrics[tempc].gmfCellIncX;
- glCallList(ListsLyricsFont + tempc);
- end;
- glEndList;