Update of /cvsroot/win32forth/win32forth/apps/Chess
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32653/apps/Chess
Modified Files:
BMPDOT.F Oglwin.f TOOLSET.F _fcp3D.f fcp3d.f fcp_inputwin.f
Added Files:
FCP.F FCP131.F
Log Message:
Jos Updates for the new version of Fcp3D. There are some minor changes in the OpenGl part.
--- NEW FILE: FCP131.F ---
\ FCP.F, version 1.3 by Ian Osgood ia...@qu...
\ A simple chess program written in ANS Forth.
\ Uses Core Extension words:
\ .( .R U.R <> U> ?DO ERASE FALSE NIP TO TRUE TUCK VALUE WITHIN \
\ Uses Exception words: CATCH THROW ABORT"
\ Uses Tools Extension words: [IF] [ELSE] [THEN]
\ Uses String words: TOLOWER /STRING
\ Uses Win32Forth utilities: ms@ CELL CELL- DEFER IS [DEFINED] [UNDEFINED]
\ Will use DEFER and IS if available for board iterator and vectors.
\ Uses defacto-standard HEX constant specifier: $FF
\ (I would use decimal #99, but it isn't supported by Win32Forth.
\ Thus, BASE 10 is assumed. Use the next line if this is not the case.)
\ BASE @ DECIMAL
UNUSED
\ Assumes 32-bit cells
\ Recursive: assumes a data stack larger than MAX_PLY
\ and a return stack larger than 3*MAX_PLY.
[...1954 lines suppressed...]
[UNDEFINED] WINBOARD-ENGINE [IF]
\ *** EXECUTE WHEN LOADING ***
CR .( FCP 1.3 loaded. )
INCLUDE fcp-book.f \ opening book (lots of line:s)
CR UNUSED - . .( total bytes used. )
.( Type "fcp-help" for instructions. )
newGame
[ELSE]
INCLUDE fcp-book.f
UNUSED - DROP
[THEN]
\ BASE !
Index: fcp3d.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/fcp3d.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** fcp3d.f 21 Dec 2004 00:18:44 -0000 1.1
--- fcp3d.f 13 Dec 2005 21:45:08 -0000 1.2
***************
*** 73,76 ****
--- 73,78 ----
CREATE 3D-board 64 ALLOT
+ : dark? dark and ;
+
: piece>3dBoard ( n p - n1 p )
dup>r ?rotate bd@
***************
*** 215,219 ****
: init-3Dfont ( - )
s" Comic Sans MS" SetFaceName: vFont
! Create: vFont
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
Handle: vFont ghdc call SelectObject drop
ghdc 1 255 1 .0200e .0880e WGL_FONT_POLYGONS lpgmf_buffer wglUseFontOutlines
Index: fcp_inputwin.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/fcp_inputwin.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** fcp_inputwin.f 21 Dec 2004 00:18:44 -0000 1.1
--- fcp_inputwin.f 13 Dec 2005 21:45:08 -0000 1.2
***************
*** 3,7 ****
needs struct.f \ For the use of C-like structures.
needs toolset.f \ Anything I like
! needs fcp111.f \ The chess engine
needs multithr.f \ For threads and events
needs oglevts.f \ Defines the threads and events
--- 3,8 ----
needs struct.f \ For the use of C-like structures.
needs toolset.f \ Anything I like
! all-warnings-off
! needs fcp131.f \ The chess engine
needs multithr.f \ For threads and events
needs oglevts.f \ Defines the threads and events
Index: TOOLSET.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** TOOLSET.F 20 Jun 2005 07:40:43 -0000 1.6
--- TOOLSET.F 13 Dec 2005 21:45:08 -0000 1.7
***************
*** 1518,1524 ****
: context>current ( - ) context @ current ! ;
! all-warnings-on
\s
! |
