DGL • Thema anzeigen - Charactor Size

Charactor Size

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Stucuk

Betreff des Beitrags: Charactor Size

Verfasst: Sa Jul 24, 2004 01:43

DGL Member

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

Im working on creating a Text system, one like Half-Life has, where text can fade in and out etc. But since id like to be able to make the system "write" the text and have the option of per Charactor fade and/or colour change i need to draw the charactors seperatly. The problem is i don't know how to work out the size each charactor would take up. (thus it looks a bit stupid)

Code:

 
procedure MakeRasterFont(var TextSystem : TTextSystem);
var fnt : HFONT;
begin
  TextSystem.Font.ID := glGenLists (128);             // generate 128 display lists
  fnt := CreateFont(TextSystem.Font.Height, TextSystem.Font.Width,0,0, FW_NORMAL, 0, 0, 0, OEM_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY    , FF_DONTCARE + DEFAULT_PITCH, Pchar(TextSystem.Font.Name));
  SelectObject(h_DC, fnt);
  wglUseFontBitmaps(h_DC, 0, 127, TextSystem.Font.ID);
end;
 
procedure PrintChar(TextChar : TTextChar; Font : TTextFont);
var
S : string;
begin
 
  if not TextChar.Draw then
  exit;
 
  glLoadIdentity;
  with TextChar do
  begin
  glColor4f(Colour.X,Colour.Y,Colour.Z,Alpha);
  glRasterPos2f(Position.X, SCREEN_HEIGHT-Position.Y);                        // Set the position for the text to be rendered
  glPushAttrib (GL_LIST_BIT);
    glListBase(Font.ID);
    S := Charactor;
    glCallLists(length(S), GL_UNSIGNED_BYTE,  PChar(S));
  glPopAttrib();
  end;
 
end;
 

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

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Sa Jul 24, 2004 09:46

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Since you're working with wglUseFontBitmaps, you can use GetCharWidth32 (for more infos, look at the Windows SDK help) to get the size of a specific character.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Stucuk

Betreff des Beitrags:

Verfasst: Sa Jul 24, 2004 14:38

DGL Member

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

fnt moved to the TextFont so can b called later:

Code:

 
procedure MakeRasterFont(var TextSystem : TTextSystem);
begin
  TextSystem.Font.ID := glGenLists (128);             // generate 128 display lists
  TextSystem.Font.fnt := CreateFont(TextSystem.Font.Height, TextSystem.Font.Width,0,0, FW_NORMAL, 0, 0, 0, OEM_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY    , FF_DONTCARE + DEFAULT_PITCH, Pchar(TextSystem.Font.Name));
  SelectObject(h_DC, TextSystem.Font.fnt);
  wglUseFontBitmaps(h_DC, 0, 127, TextSystem.Font.ID);
end;
 

Modifyed bit that sets up the charactors in the TextSystem:

Code:

 
MakeRasterFont(TextSystem);
 
SelectObject(h_DC, TextSystem.Font.fnt);
L := 0;
 
for x := 0 to TextSystem.Charactor_No-1 do
begin
if not GetCharWidth32(h_DC,Ord(S[x+1]),Ord(S[x+1]),TextSystem.Charactors[x].Width) then
messagebox(0,'Error: Couldn`t get Width','Text Error',0);
TextSystem.Charactors[x].Charactor := S[x+1];
TextSystem.Charactors[x].Alpha := 1;
TextSystem.Charactors[x].Colour := SetVector(1,1,1);
TextSystem.Charactors[x].Draw := true;
L := L + TextSystem.Charactors[x].Width;
TextSystem.Charactors[x].Position.X := 50 + L;//X*TextSystem.Font.Width;
TextSystem.Charactors[x].Position.Y := 50;
end;
 

Going by This the untyped varible is a integer.

Attachment shows x and M overlap with other charactors.

EDIT: nm stupid error on my part

Code:

 
L := L + TextSystem.Charactors[x].Width;
TextSystem.Charactors[x].Position.X := 50 + L;//X*TextSystem.Font.Width;

should have been

Code:

 
TextSystem.Charactors[x].Position.X := 50 + L;//X*TextSystem.Font.Width;
L := L + TextSystem.Charactors[x].Width;

Thx for ur help SOS.

Dateianhänge:

Dateikommentar: Text not right, X and M overlapp.

notrighttext.JPG [ 1.36 KiB | 3260-mal betrachtet ]

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

Nach oben

Stucuk

Betreff des Beitrags:

Verfasst: Di Jul 27, 2004 15:41

DGL Member

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

Is there a thing to work out font height? The font Papyrus at size 72 is about 51 pixels in height. The reason i ask is cos id like the text system to work with 0,0 at the top left rather than the opengl bottom left.

Iv seen a few ways some ppl have worked it out. Tho these are wrong.

Code:

 
Abs(-Font.Height);
Trunc(-FontDialog1.Font.Height * Font.PixelsPerInch / 72);

_________________
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 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.