[Win32forth-cvs] win32forth/apps/Chess FCP.F,NONE,1.1 FCP131.F,NONE,1.1 BMPDOT.F,1.1,1.2 Oglwin.f,1.2,1.3 TOOLSET.F,1.6,1.7 _fcp3D.f,1.1,1.2 fcp3d.f,1.1,1.2 fcp_inputwin.f,1.1,1.2

[Jos v.d.V. <jo...@us...>]

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
  
!