- procedure BuildFont;
- var font: HFONT;
- gmf : array [0..255] of GLYPHMETRICSFLOAT;
- begin
- base := glGenLists(256);
- font := CreateFont(-12,
- 0,
- 0,
- 0,
- FW_BOLD,
- 0,
- 0,
- 0,
- ANSI_CHARSET,
- OUT_TT_PRECIS,
- CLIP_DEFAULT_PRECIS,
- ANTIALIASED_QUALITY,
- FF_DONTCARE or DEFAULT_PITCH,
- 'Comic Sans MS');
- SelectObject(DC, font);
- wglUseFontOutlines( DC,
- 0,
- 255,
- base,
- 0.0,
- 0.2,
- WGL_FONT_POLYGONS,
- @gmf);
- end;
- procedure KillFont;
- begin
- glDeleteLists(base, 256);
- end;
- procedure glPrint(text : pchar);
- begin
- if (text = '') then
- Exit;
- glPushAttrib(GL_LIST_BIT);
- glListBase(base);
- glCallLists(length(text), GL_UNSIGNED_BYTE, text);
- glPopAttrib();
- end;