DGL • Thema anzeigen - RTCW Font Format

RTCW Font Format

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Stucuk

Betreff des Beitrags: RTCW Font Format

Verfasst: Do Nov 04, 2004 04:40

DGL Member

Registriert: Mi Jul 21, 2004 22:39
Beiträge: 360
Wohnort: UK, Scotland

RTCW fonts have a .dat file and a TGA of the font(with the font in the alpha channel).

My problem is that i don't know why there is so much data for each letter (and why they seem to all be the same for most letters). For the name of the image there is 32Bytes, for the "header" there is 48.(see below for the Hex of a .dat)

Attached is a unit with the font files and below is some images.

Dateianhänge:

Dateikommentar: Delphi's values of the loaded file

delphivalues.jpg [217.9 KiB]
56-mal heruntergeladen
Dateikommentar: Hex of the fonts .dat

fonthex.jpg [204.03 KiB]
56-mal heruntergeladen
Dateikommentar: Includes: Helios_Font.pas(Incompleate), and a tga font and its dat file.

fonts.zip [14.39 KiB]
319-mal heruntergeladen

_________________
Free Map Editor - Game Requirements - Stucuk.Net
-Stu

Nach oben

Stucuk

Betreff des Beitrags:

Verfasst: Sa Nov 06, 2004 08:12

DGL Member

Registriert: Mi Jul 21, 2004 22:39
Beiträge: 360
Wohnort: UK, Scotland

Below is an image of each 48 bytes of the first 2 glyphs(which are the same looks wise on the tga) and a jpg of font 17.

The first 2 glyphs are 9x14, there is a gap of 3 horazontaly. between the two. I still don't see the need for 48 bytes when you just need 4 bytes(since its dimentions are 255x255 you don't need larger numbers). The numbers still seem pritty random to me.

EDIT:

Found the following in the q3 source. Time to try n use it...

Code:

 
// font support 
 
#define GLYPH_START 0
#define GLYPH_END 255
#define GLYPH_CHARSTART 32
#define GLYPH_CHAREND 127
#define GLYPHS_PER_FONT GLYPH_END - GLYPH_START + 1
typedef struct {
  int height;       // number of scan lines
  int top;          // top of glyph in buffer
  int bottom;       // bottom of glyph in buffer
  int pitch;        // width for copying
  int xSkip;        // x adjustment
  int imageWidth;   // width of actual image
  int imageHeight;  // height of actual image
  float s;          // x offset in image where glyph starts
  float t;          // y offset in image where glyph starts
  float s2;
  float t2;
  qhandle_t glyph;  // handle to the shader with the glyph
    char shaderName[32];
} glyphInfo_t;
 
typedef struct {
  glyphInfo_t glyphs [GLYPHS_PER_FONT];
    float glyphScale;
    char name[MAX_QPATH];
} fontInfo_t;
 

Dateianhänge:

unknownbytes.jpg [27.3 KiB]
38-mal heruntergeladen

rtcwfont17.jpg [ 49.1 KiB | 4007-mal betrachtet ]

_________________
Free Map Editor - Game Requirements - Stucuk.Net
-Stu

Nach oben

Stucuk

Betreff des Beitrags:

Verfasst: Sa Nov 06, 2004 10:08

DGL Member

Registriert: Mi Jul 21, 2004 22:39
Beiträge: 360
Wohnort: UK, Scotland

Now i seem to b able to load it, problem is that when the glyphs are drawn there plain white. Dispite the fact iv used the blendfunc.

Code:

 
unit Helios_Font;
 
{$I Global_Conditionals.INC}
 
interface
 
// font support
Const
GLYPH_START     =  0;
GLYPH_END       = 255;
GLYPH_CHARSTART = 32;
GLYPH_CHAREND   = 127;
GLYPHS_PER_FONT = GLYPH_END - GLYPH_START;
 
Type
TGlyphInfo = Packed Record
  height,       // number of scan lines
  top,          // top of glyph in buffer
  bottom,       // bottom of glyph in buffer
  pitch,        // width for copying
  xSkip,        // x adjustment
  imageWidth,   // width of actual image
  imageHeight : integer;  // height of actual image
  s,          // x offset in image where glyph starts
  t,          // y offset in image where glyph starts
  s2,
  t2 : single;
  glyph : integer; // handle to the shader with the glyph
  ShaderName : Array [1..32] of Char;
end;
 
THelios_Font = record
Size : Integer;
Glyphs : array [0..255] of TGlyphInfo;
DisplayList : Integer;
end;
 
THelios_Fonts = record
Font : array of THelios_Font;
Font_No : Integer;
end;
 
Var
Fonts : THelios_Fonts;
 
//Function LoadAFont(Filename : String; Size : Integer) : Boolean;
//Procedure BuildFont(Var Font : THelios_Font);
Procedure BuildFonts;
Procedure LoadFonts;
Procedure WriteTextHN(X,Y : Single; S : Pchar; Font : THelios_Font);
 
implementation
 
Uses SysUtils,Dialogs,Helios_Filesystem, OpenGL15, Textures;
 
Function LoadFont(Filename : String; Size : Integer; Var Font : THelios_Font) : Boolean;
var
F : file;
X : Integer;
begin
Result := False;
 
If not Fileexists(Filename) then exit;
 
AssignFile(f, filename);
Reset(f,1);
 
Font.Size := Size;
Font.DisplayList := -1;
 
For x := 0 to 255 do
BlockRead(F,Font.Glyphs[x],SizeOf(TGlyphInfo));
 
CloseFile(f);
 
Result := True;
end;
 
Function LoadAFont(Filename : String; Size : Integer) : Boolean;
var
X : integer;
begin
 
Result := False;
 
For x := 0 to Fonts.Font_No-1 do
if Fonts.Font[x].Size = Size then
begin
Result := True;
exit;
end;
 
Inc(Fonts.Font_No);
SetLength(Fonts.Font,Fonts.Font_No);
 
Result := LoadFont(Filename,Size,Fonts.Font[Fonts.Font_No-1]);
If Not Result then
begin
Dec(Fonts.Font_No);
SetLength(Fonts.Font,Fonts.Font_No);
end;
 
end;
 
Procedure LoadFonts;
begin
 
Fonts.Font_No := 0;
SetLength(Fonts.Font,Fonts.Font_No);
 
LoadAFont(DoesFileExist('fonts\fontimage_12.dat'),12);
LoadAFont(DoesFileExist('fonts\fontimage_16.dat'),16);
LoadAFont(DoesFileExist('fonts\fontimage_17.dat'),17);
LoadAFont(DoesFileExist('fonts\fontimage_24.dat'),24);
 
BuildFonts;
 
end;
 
Function CharArrayToStr(Chars : Array of Char; Ammount : Integer) : String;
var
x : integer;
begin
 
Result := '';
 
For x := 0 to Ammount-1 do
If Chars[x] <> #0 then
Result := Result + Chars[x]
else
Exit;
 
end;
 
Procedure BuildFont(Var Font : THelios_Font);
Var
I : Integer;
S : Cardinal;
CurTex,CurTex2 : String;
begin
  glLoadIdentity;
  CurTex := '';
  CurTex2 := '';
 
  Font.DisplayList := glGenLists(256);
  for I := 0 to 255 do
  begin
    glNewList(Font.DisplayList+I, GL_COMPILE);       // Start Building A List
    glBegin(GL_QUADS);
    If String(Font.Glyphs[I].ShaderName) <> CurTex2 then
    begin
    CurTex2 := String(Font.Glyphs[I].ShaderName);
    CurTex := CharArrayToStr(Font.Glyphs[I].ShaderName,32);
    LoadTexture(DoesFileExist(CurTex),S,False,False,False);
    end;
 
     glEnable(GL_BLEND);
     glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
     glEnable(GL_ALPHA_TEST);
 
     glBindTexture(GL_TEXTURE_2D, S);
 
       glTexCoord2f(Font.Glyphs[I].s,Font.Glyphs[I].t);
      glVertex2i(0, 0);
      glTexCoord2f(Font.Glyphs[I].s2, Font.Glyphs[I].t);
      glVertex2i( Font.Glyphs[I].imageWidth, 0);
      glTexCoord2f(Font.Glyphs[I].s2, Font.Glyphs[I].t2);
      glVertex2i( Font.Glyphs[I].imageWidth, Font.Glyphs[I].imageHeight);
      glTexCoord2f(Font.Glyphs[I].s,Font.Glyphs[I].t2);
      glVertex2i(0, Font.Glyphs[I].imageHeight);
    glEnd();
    glTranslatef(Font.Glyphs[I].imageWidth+1, 0, 0);
    glEndList();
  end;
 
  glDisable(GL_BLEND);
end;
 
Procedure BuildFonts;
var
x : Integer;
begin
 
if Fonts.Font_No > 0 then
for x := 0 to Fonts.Font_No-1 do
BuildFont(Fonts.Font[x]);
 
end;
 
Procedure WriteTextHN(X,Y : Single; S : Pchar; Font : THelios_Font);
begin
glPushMatrix();
    glTranslatef(x, y, 0.005);
 
    glPushAttrib(GL_LIST_BIT);
      glListBase(Font.DisplayList);
      glCallLists(length(S),GL_UNSIGNED_BYTE,S); // Write The Text To The Screen
    glpopattrib();
  glPopMatrix();
end;
 
end.
 

_________________
Free Map Editor - Game Requirements - Stucuk.Net
-Stu

Nach oben

Stucuk

Betreff des Beitrags:

Verfasst: Sa Nov 06, 2004 17:17

DGL Member

Registriert: Mi Jul 21, 2004 22:39
Beiträge: 360
Wohnort: UK, Scotland

Working Unit:

Code:

 
unit Helios_Font;
 
{$I Global_Conditionals.INC}
 
interface
 
// font support
Const
GLYPH_START     =  0;
GLYPH_END       = 255;
GLYPH_CHARSTART = 32;
GLYPH_CHAREND   = 127;
GLYPHS_PER_FONT = GLYPH_END - GLYPH_START;
 
Type
TGlyphInfo = Packed Record
  height,       // number of scan lines
  top,          // top of glyph in buffer
  bottom,       // bottom of glyph in buffer
  pitch,        // width for copying
  xSkip,        // x adjustment
  imageWidth,   // width of actual image
  imageHeight : integer;  // height of actual image
  s,          // x offset in image where glyph starts
  t,          // y offset in image where glyph starts
  s2,
  t2 : single;
  glyph : integer; // handle to the shader with the glyph
  ShaderName : Array [1..32] of Char;
end;
 
THelios_Font = record
Size : Integer;
Glyphs : array [0..255] of TGlyphInfo;
DisplayList : Integer;
Height : Integer;
end;
 
THelios_Fonts = record
Font : array of THelios_Font;
Font_No : Integer;
end;
 
Var
Fonts : THelios_Fonts;
 
//Function LoadAFont(Filename : String; Size : Integer) : Boolean;
//Procedure BuildFont(Var Font : THelios_Font);
Procedure BuildFonts;
Procedure LoadFonts;
Procedure WriteTextHN(X,Y : Single; S : Pchar; Font : THelios_Font);
 
implementation
 
Uses SysUtils,Helios_Filesystem, OpenGL15, Textures;
 
Function LoadFont(Filename : String; Size : Integer; Var Font : THelios_Font) : Boolean;
var
F : file;
X : Integer;
begin
Result := False;
 
If not Fileexists(Filename) then exit;
 
AssignFile(f, filename);
Reset(f,1);
 
Font.Size := Size;
Font.DisplayList := -1;
 
Font.Height := -1;
 
For x := 0 to 255 do
begin
BlockRead(F,Font.Glyphs[x],SizeOf(TGlyphInfo));
If Font.Glyphs[x].imageHeight > Font.Height then
Font.Height := Font.Glyphs[x].imageHeight;
end;
 
CloseFile(f);
 
Result := True;
end;
 
Function LoadAFont(Filename : String; Size : Integer) : Boolean;
var
X : integer;
begin
 
Result := False;
 
For x := 0 to Fonts.Font_No-1 do
if Fonts.Font[x].Size = Size then
begin
Result := True;
exit;
end;
 
Inc(Fonts.Font_No);
SetLength(Fonts.Font,Fonts.Font_No);
 
Result := LoadFont(Filename,Size,Fonts.Font[Fonts.Font_No-1]);
If Not Result then
begin
Dec(Fonts.Font_No);
SetLength(Fonts.Font,Fonts.Font_No);
end;
 
end;
 
Procedure LoadFonts;
begin
 
Fonts.Font_No := 0;
SetLength(Fonts.Font,Fonts.Font_No);
 
LoadAFont(DoesFileExist('fonts\fontimage_12.dat'),12);
LoadAFont(DoesFileExist('fonts\fontimage_16.dat'),16);
LoadAFont(DoesFileExist('fonts\fontimage_17.dat'),17);
LoadAFont(DoesFileExist('fonts\fontimage_24.dat'),24);   
 
BuildFonts;
 
end;
 
Function CharArrayToStr(Chars : Array of Char; Ammount : Integer) : String;
var
x : integer;
begin
 
Result := '';
 
For x := 0 to Ammount-1 do
If Chars[x] <> #0 then
Result := Result + Chars[x]
else
Exit;
 
end;
 
Procedure BuildFont(Var Font : THelios_Font);
Var
I : Integer;
S : Cardinal;
CurTex,CurTex2 : String;
begin
  glLoadIdentity;
  CurTex := '';
  CurTex2 := '';
 
  s := 0;
 
  Font.DisplayList := glGenLists(256);
  for I := 0 to 255 do
  begin
 
    If (String(Font.Glyphs[I].ShaderName) <> CurTex2) then
    begin
    CurTex2 := String(Font.Glyphs[I].ShaderName);
    CurTex := DoesFileExist(StringReplace(CharArrayToStr(Font.Glyphs[I].ShaderName,32), '/', '', [rfReplaceAll]));
    If CurTex <> '' then
    LoadTexture(CurTex,S,False,False,False);
 
    end;
 
    glNewList(Font.DisplayList+I, GL_COMPILE);       // Start Building A List
    glBegin(GL_QUADS);
 
     glEnable(GL_TEXTURE_2D);
     glEnable(GL_BLEND);
     glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
 
      glBindTexture(GL_TEXTURE_2D, S);
 
      glTexCoord2f(Font.Glyphs[i].s,1-Font.Glyphs[i].t2);
      glVertex2i(0, Font.Glyphs[i].top - Font.Glyphs[i].height);
      glTexCoord2f(Font.Glyphs[i].s2, 1-Font.Glyphs[i].t2);
      glVertex2i( Font.Glyphs[i].imageWidth, Font.Glyphs[i].top - Font.Glyphs[i].height);
      glTexCoord2f(Font.Glyphs[i].s2, 1-Font.Glyphs[i].t);
      glVertex2i( Font.Glyphs[i].imageWidth, Font.Glyphs[i].top - Font.Glyphs[i].height + Font.Glyphs[i].imageHeight);
      glTexCoord2f(Font.Glyphs[i].s,1-Font.Glyphs[i].t);
      glVertex2i(0, Font.Glyphs[i].top - Font.Glyphs[i].height + Font.Glyphs[i].imageHeight);
    glEnd();
    
    If i = 32 then
    glTranslatef(6, 0, 0)
    else
    glTranslatef(Font.Glyphs[I].imageWidth, 0, 0);
    glEndList();
  end;
 
  glDisable(GL_BLEND);
end;
 
Procedure BuildFonts;
var
x : Integer;
begin
 
if Fonts.Font_No > 0 then
for x := 0 to Fonts.Font_No-1 do
BuildFont(Fonts.Font[x]);
 
end;
 
Procedure WriteTextHN(X,Y : Single; S : Pchar; Font : THelios_Font);
begin
 
  glLoadIdentity;
  glTranslatef(x,y,0);
 
{  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); }
 
  glColor4f(1,1,1,1);//Colour.X,Colour.Y,Colour.Z,Alpha);
//  glRasterPos2f(X, SCREEN_HEIGHT-Y);                        // Set the position for the text to be rendered
  glPushAttrib (GL_LIST_BIT);
    glListBase(Font.DisplayList);
      glCallLists(length(S),GL_UNSIGNED_BYTE,S); // Write The Text To The Screen
  glPopAttrib();
  glDisable(GL_BLEND);
end;
 
end.
 

_________________
Free Map Editor - Game Requirements - Stucuk.Net
-Stu

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » English » English Programming Forum

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 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.