Update of /cvsroot/win32forth/win32forth/apps/Chess
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11469/apps/Chess
Modified Files:
fcp3d.f
Log Message:
Fixed a bug in: init-3Dfont (thank's Andrew for the bug report).
Index: fcp3d.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/fcp3d.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** fcp3d.f 13 Dec 2005 21:45:08 -0000 1.2
--- fcp3d.f 29 May 2006 16:20:46 -0000 1.3
***************
*** 217,221 ****
: init-3Dfont ( - )
s" Comic Sans MS" SetFaceName: vFont
! Create: vFont drop
Handle: vFont ghdc call SelectObject drop
ghdc 1 255 1 .0200e .0880e WGL_FONT_POLYGONS lpgmf_buffer wglUseFontOutlines
--- 217,221 ----
: init-3Dfont ( - )
s" Comic Sans MS" SetFaceName: vFont
! Create: vFont ( drop ) \ removed the invalid DROP Montag, Mai 29 2006 dbu
Handle: vFont ghdc call SelectObject drop
ghdc 1 255 1 .0200e .0880e WGL_FONT_POLYGONS lpgmf_buffer wglUseFontOutlines
|
