DGL • Thema anzeigen - BitmapFont Manager zeigt falsche zeichen an !?

BitmapFont Manager zeigt falsche zeichen an !?

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Seth

Betreff des Beitrags: BitmapFont Manager zeigt falsche zeichen an !?

Verfasst: Do Jun 15, 2006 13:13

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

basierend auf dem bomberman tutorial habe ich mir einen bitmapfont manager geschrieben:

Code:

 
unit UBitmapFont;
 
interface
 
uses sysutils, inifiles, graphics, dglOpenGL, glBitmap, UConst, UVectors, UColors;
 
const
 FontCoords: array[0..16, 0..16, 0..1] of Single = (
    ((0.00000, 1.00000), (0.00000, 0.93750), (0.00000, 0.87500), (0.00000, 0.81250), (0.00000, 0.75000), (0.00000, 0.68750), (0.00000, 0.62500), (0.00000, 0.56250), (0.00000, 0.50000), (0.00000, 0.43750), (0.00000, 0.37500), (0.00000, 0.31250), (0.00000, 0.25000), (0.00000, 0.18750), (0.00000, 0.12500), (0.00000, 0.06250), (0.00000, 0.00000)),
    ((0.06250, 1.00000), (0.06250, 0.93750), (0.06250, 0.87500), (0.06250, 0.81250), (0.06250, 0.75000), (0.06250, 0.68750), (0.06250, 0.62500), (0.06250, 0.56250), (0.06250, 0.50000), (0.06250, 0.43750), (0.06250, 0.37500), (0.06250, 0.31250), (0.06250, 0.25000), (0.06250, 0.18750), (0.06250, 0.12500), (0.06250, 0.06250), (0.06250, 0.00000)),
    ((0.12500, 1.00000), (0.12500, 0.93750), (0.12500, 0.87500), (0.12500, 0.81250), (0.12500, 0.75000), (0.12500, 0.68750), (0.12500, 0.62500), (0.12500, 0.56250), (0.12500, 0.50000), (0.12500, 0.43750), (0.12500, 0.37500), (0.12500, 0.31250), (0.12500, 0.25000), (0.12500, 0.18750), (0.12500, 0.12500), (0.12500, 0.06250), (0.12500, 0.00000)),
    ((0.18750, 1.00000), (0.18750, 0.93750), (0.18750, 0.87500), (0.18750, 0.81250), (0.18750, 0.75000), (0.18750, 0.68750), (0.18750, 0.62500), (0.18750, 0.56250), (0.18750, 0.50000), (0.18750, 0.43750), (0.18750, 0.37500), (0.18750, 0.31250), (0.18750, 0.25000), (0.18750, 0.18750), (0.18750, 0.12500), (0.18750, 0.06250), (0.18750, 0.00000)),
    ((0.25000, 1.00000), (0.25000, 0.93750), (0.25000, 0.87500), (0.25000, 0.81250), (0.25000, 0.75000), (0.25000, 0.68750), (0.25000, 0.62500), (0.25000, 0.56250), (0.25000, 0.50000), (0.25000, 0.43750), (0.25000, 0.37500), (0.25000, 0.31250), (0.25000, 0.25000), (0.25000, 0.18750), (0.25000, 0.12500), (0.25000, 0.06250), (0.25000, 0.00000)),
    ((0.31250, 1.00000), (0.31250, 0.93750), (0.31250, 0.87500), (0.31250, 0.81250), (0.31250, 0.75000), (0.31250, 0.68750), (0.31250, 0.62500), (0.31250, 0.56250), (0.31250, 0.50000), (0.31250, 0.43750), (0.31250, 0.37500), (0.31250, 0.31250), (0.31250, 0.25000), (0.31250, 0.18750), (0.31250, 0.12500), (0.31250, 0.06250), (0.31250, 0.00000)),
    ((0.37500, 1.00000), (0.37500, 0.93750), (0.37500, 0.87500), (0.37500, 0.81250), (0.37500, 0.75000), (0.37500, 0.68750), (0.37500, 0.62500), (0.37500, 0.56250), (0.37500, 0.50000), (0.37500, 0.43750), (0.37500, 0.37500), (0.37500, 0.31250), (0.37500, 0.25000), (0.37500, 0.18750), (0.37500, 0.12500), (0.37500, 0.06250), (0.37500, 0.00000)),
    ((0.43750, 1.00000), (0.43750, 0.93750), (0.43750, 0.87500), (0.43750, 0.81250), (0.43750, 0.75000), (0.43750, 0.68750), (0.43750, 0.62500), (0.43750, 0.56250), (0.43750, 0.50000), (0.43750, 0.43750), (0.43750, 0.37500), (0.43750, 0.31250), (0.43750, 0.25000), (0.43750, 0.18750), (0.43750, 0.12500), (0.43750, 0.06250), (0.43750, 0.00000)),
    ((0.50000, 1.00000), (0.50000, 0.93750), (0.50000, 0.87500), (0.50000, 0.81250), (0.50000, 0.75000), (0.50000, 0.68750), (0.50000, 0.62500), (0.50000, 0.56250), (0.50000, 0.50000), (0.50000, 0.43750), (0.50000, 0.37500), (0.50000, 0.31250), (0.50000, 0.25000), (0.50000, 0.18750), (0.50000, 0.12500), (0.50000, 0.06250), (0.50000, 0.00000)),
    ((0.56250, 1.00000), (0.56250, 0.93750), (0.56250, 0.87500), (0.56250, 0.81250), (0.56250, 0.75000), (0.56250, 0.68750), (0.56250, 0.62500), (0.56250, 0.56250), (0.56250, 0.50000), (0.56250, 0.43750), (0.56250, 0.37500), (0.56250, 0.31250), (0.56250, 0.25000), (0.56250, 0.18750), (0.56250, 0.12500), (0.56250, 0.06250), (0.56250, 0.00000)),
    ((0.62500, 1.00000), (0.62500, 0.93750), (0.62500, 0.87500), (0.62500, 0.81250), (0.62500, 0.75000), (0.62500, 0.68750), (0.62500, 0.62500), (0.62500, 0.56250), (0.62500, 0.50000), (0.62500, 0.43750), (0.62500, 0.37500), (0.62500, 0.31250), (0.62500, 0.25000), (0.62500, 0.18750), (0.62500, 0.12500), (0.62500, 0.06250), (0.62500, 0.00000)),
    ((0.68750, 1.00000), (0.68750, 0.93750), (0.68750, 0.87500), (0.68750, 0.81250), (0.68750, 0.75000), (0.68750, 0.68750), (0.68750, 0.62500), (0.68750, 0.56250), (0.68750, 0.50000), (0.68750, 0.43750), (0.68750, 0.37500), (0.68750, 0.31250), (0.68750, 0.25000), (0.68750, 0.18750), (0.68750, 0.12500), (0.68750, 0.06250), (0.68750, 0.00000)),
    ((0.75000, 1.00000), (0.75000, 0.93750), (0.75000, 0.87500), (0.75000, 0.81250), (0.75000, 0.75000), (0.75000, 0.68750), (0.75000, 0.62500), (0.75000, 0.56250), (0.75000, 0.50000), (0.75000, 0.43750), (0.75000, 0.37500), (0.75000, 0.31250), (0.75000, 0.25000), (0.75000, 0.18750), (0.75000, 0.12500), (0.75000, 0.06250), (0.75000, 0.00000)),
    ((0.81250, 1.00000), (0.81250, 0.93750), (0.81250, 0.87500), (0.81250, 0.81250), (0.81250, 0.75000), (0.81250, 0.68750), (0.81250, 0.62500), (0.81250, 0.56250), (0.81250, 0.50000), (0.81250, 0.43750), (0.81250, 0.37500), (0.81250, 0.31250), (0.81250, 0.25000), (0.81250, 0.18750), (0.81250, 0.12500), (0.81250, 0.06250), (0.81250, 0.00000)),
    ((0.87500, 1.00000), (0.87500, 0.93750), (0.87500, 0.87500), (0.87500, 0.81250), (0.87500, 0.75000), (0.87500, 0.68750), (0.87500, 0.62500), (0.87500, 0.56250), (0.87500, 0.50000), (0.87500, 0.43750), (0.87500, 0.37500), (0.87500, 0.31250), (0.87500, 0.25000), (0.87500, 0.18750), (0.87500, 0.12500), (0.87500, 0.06250), (0.87500, 0.00000)),
    ((0.93750, 1.00000), (0.93750, 0.93750), (0.93750, 0.87500), (0.93750, 0.81250), (0.93750, 0.75000), (0.93750, 0.68750), (0.93750, 0.62500), (0.93750, 0.56250), (0.93750, 0.50000), (0.93750, 0.43750), (0.93750, 0.37500), (0.93750, 0.31250), (0.93750, 0.25000), (0.93750, 0.18750), (0.93750, 0.12500), (0.93750, 0.06250), (0.93750, 0.00000)),
    ((1.00000, 1.00000), (1.00000, 0.93750), (1.00000, 0.87500), (1.00000, 0.81250), (1.00000, 0.75000), (1.00000, 0.68750), (1.00000, 0.62500), (1.00000, 0.56250), (1.00000, 0.50000), (1.00000, 0.43750), (1.00000, 0.37500), (1.00000, 0.31250), (1.00000, 0.25000), (1.00000, 0.18750), (1.00000, 0.12500), (1.00000, 0.06250), (1.00000, 0.00000)));
 
type
  TBitmapFont = class
    Fonts: array of Tgluint;
    FontBases: array of Tgluint;
    FontName: THashedStringList;
    constructor Create;
    destructor Destroy; override;    
    procedure Free;
  public
    procedure AddFont(pFileName, pFontName: String);
    procedure AddFontsInDir(pDirName, pFileMask: String; psubdirs: boolean);
    procedure PrintText(pFontName: String; pposition: TVector2D; pscalefactor: single; pColor: TColor; pAlpha: integer; ptext: string);
  end;
 
implementation
 
constructor TBitmapFont.Create;
begin
  inherited Create;
  setlength(Fonts, 0);
  setlength(FontBases, 0);
  FontName := THashedStringList.Create;
end;
 
destructor TBitmapFont.Destroy;
begin
  FontName.Free;
  inherited Destroy;
end;
 
procedure TBitmapFont.Free;
begin
  if Self <> nil then
    Destroy;
end;
 
procedure TBitmapFont.AddFont(pFileName, pFontName: String);
var
  x, y: Byte;
begin
  if (fileexists(pFilename)) and (FontName.IndexOf(pFontname) = -1) then
  begin
    setlength(Fonts, length(Fonts) + 1);
    setlength(FontBases, length(FontBases) + 1);
    LoadTexture(pFilename, Fonts[high(Fonts)], False);
    FontBases[High(FontBases)] := glGenLists(256);
    for x := 0 to 15 do
      for y := 0 to 15 do
      begin
        glNewList(FontBases[High(FontBases)] + x + y * 16, GL_COMPILE);
        glEnable(GL_ALPHA_TEST);
        glAlphaFunc(GL_GREATER, 0.1);
        glBindTexture(GL_TEXTURE_2D, Fonts[high(fonts)]);
        glBegin(GL_QUADS);
          glTexCoord2fv(@FontCoords[x,   y]);    glVertex3f( 0,  0, 0);
          glTexCoord2fv(@FontCoords[x+1, y]);    glVertex3f(16,  0, 0);
          glTexCoord2fv(@FontCoords[x+1, y+1]);  glVertex3f(16, 16, 0);
          glTexCoord2fv(@FontCoords[x,   y+1]);  glVertex3f( 0, 16, 0);
        glEnd;
        glDisable(GL_ALPHA_TEST);
        glTranslatef(12, 0, 0);
        glEndList;
      end;
    FontName.add(pFontName);
  end;
end;
 
procedure TBitmapFont.AddFontsInDir(pDirName, pFileMask: String; psubdirs: boolean);
  procedure ScanDir(const Directory: String);
    function CutExt(astr: string): string;
    var
      i: integer;
    begin
      result := astr;
      for i := length(astr) downto 1 do
        if astr[i] = '.' then
        begin
          result := copy(astr, 1, i - 1);
          exit;
        end;
    end;
  var
    SR: TSearchRec;
  begin
    if FindFirst(Directory + pFileMask, faAnyFile - faDirectory, SR) = 0 then
    try
      repeat
        AddFont(Directory + SR.Name, CutExt(SR.Name));
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
    if pSubDirs then
    begin
      if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then
      try
        repeat
          if ((SR.attr and faDirectory) = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') then
            ScanDir(Directory + SR.Name + '');
        until FindNext(SR) <> 0;
      finally
        FindClose(SR);
      end;
    end;
  end;
var
  aDir: string;
begin
  aDir := pDirName;
  if aDir = '' then
    Exit;
  if aDir[Length(aDir)] <> '' then
    aDir := aDir + '';
  ScanDir(aDir);
end;
 
procedure TBitmapFont.PrintText(pFontName: String; pposition: TVector2D; pscalefactor: single; pColor: TColor; pAlpha: integer; ptext: string);
var
  aindex: integer;
begin
  aindex := Fontname.IndexOf(pFontName);
  glDisable(GL_DEPTH_TEST);
  glBindTexture(GL_TEXTURE_2D, Fonts[aindex]);
  RGBAf(pcolor, palpha);
  glPushMatrix;
    glTranslatef(pPosition.x, pPosition.y, 0);
    glScalef(pScaleFactor, pScaleFactor , pScaleFactor);
    glListBase(FontBases[aindex]);
    glCallLists(Length(pText), GL_BYTE, Pointer(pText));
  glPopMatrix;
  RGBAf(clwhite, 255);
  glEnable(GL_DEPTH_TEST);
end;
 
end.
 

angenommen ich schreibe als testtext die zeichen von a-z dann sind die zeichen anscheinend 3 spalten zu weite unten (ok kann man ja noch korrigieren, obwohl das schon merkwürdig ist), aber dann kommen auf einmal nur noch großbuchstaben, ziemlich komisch, dabei ist der hauptcode so ziemlich der gleiche.

aufruf erfolgt so:

Code:

 
BitmapFont.PrintText('verdana', to_v2d(10, 10), 2, clblue, 255, 'abcdefghijklmnopqrstuvwxyz');
 

RGBAf ist das ungefähr das gleiche wie glColor4ub (heißt das so ?)

vielen dank schonmal, mfg

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Sa Jun 17, 2006 21:12

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

das problem besteht immernoch, und ich habe keinen blassesn schimmer warum das nicht funktioniert.

der code aus dem tutorial ist identisch. was ist denn hier großartig anders ?

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.