146 lines
3.5 KiB
Plaintext
146 lines
3.5 KiB
Plaintext
_window = 1
|
|
begin enum 1
|
|
_view
|
|
_label
|
|
end enum
|
|
|
|
void local fn BuildWindow
|
|
window _window, @"Generate random chess position", (0,0,360,400), NSWindowStyleMaskTitled
|
|
subclass view _view, (20,60,320,320)
|
|
textlabel _label,, (20,20,320,16)
|
|
ControlSetSize( _label, NSControlSizeSmall )
|
|
end fn
|
|
|
|
void local fn ToFen
|
|
short ch, r, c, countEmpty = 0
|
|
CFStringRef pieceStr = NULL, fen = @""
|
|
long x = 0, y = 280
|
|
|
|
for r = 1 to 8
|
|
for c = 1 to 8
|
|
ch = mda(r,c)
|
|
select (ch)
|
|
case _"k" : pieceStr = @"♚" // Black King
|
|
case _"K" : pieceStr = @"♔" // White King
|
|
|
|
case _"p" : pieceStr = @"♟" // Black Pawn
|
|
case _"P" : pieceStr = @"♙" // White Pawn
|
|
|
|
case _"r" : pieceStr = @"♜" // Black Rook
|
|
case _"R" : pieceStr = @"♖" // White Rook
|
|
|
|
case _"n" : pieceStr = @"♞" // Black Knight
|
|
case _"N" : pieceStr = @"♘" // White Knight
|
|
|
|
case _"b" : pieceStr = @"♝" // Black Bishop
|
|
case _"B" : pieceStr = @"♗" // White Bishop
|
|
|
|
case _"q" : pieceStr = @"♛" // Black Queen
|
|
case _"Q" : pieceStr = @"♕" // White Queen
|
|
end select
|
|
|
|
if ( ch )
|
|
x = (c-1) * 40
|
|
y = 280 - ((r-1) * 40)
|
|
CFMutableAttributedStringRef aString = fn MutableAttributedStringWithString( pieceStr )
|
|
MutableAttributedStringSetFontWithName( aString, @"Menlo", 36 )
|
|
MutableAttributedStringSetAlignment( aString, NSTextAlignmentCenter )
|
|
AttributedStringDrawInRect( aString, fn CGRectMake(x,y,40,40) )
|
|
end if
|
|
|
|
if ( ch == 0 )
|
|
countEmpty++
|
|
else
|
|
if ( countEmpty > 0 )
|
|
fen = concat( fen, @(countEmpty) )
|
|
|
|
countEmpty = 0
|
|
end if
|
|
fen = concat( fen, ucs(ch) )
|
|
end if
|
|
next
|
|
|
|
if ( countEmpty > 0 )
|
|
fen = concat( fen, @(countEmpty) )
|
|
countEmpty = 0
|
|
end if
|
|
fen = concat( fen, @"/" )
|
|
next
|
|
|
|
fen = concat( fen, @" w - - 0 1" )
|
|
textlabel _label, fen
|
|
end fn
|
|
|
|
void local fn DrawBoard( tag as long )
|
|
CGRect r = fn ViewBounds(tag)
|
|
BezierPathFillRect( r, fn ColorWhite )
|
|
CGFloat x = 0, y = 0
|
|
long i, j
|
|
for j = 1 to 8
|
|
for i = 1 to 8 step 2
|
|
BezierPathFillRect( fn CGRectMake( x, y, 40, 40 ), fn ColorLightGray )
|
|
x += 80
|
|
next
|
|
y += 40
|
|
if ( j % 2 == 0 )
|
|
x = 0
|
|
else
|
|
x = 40
|
|
end if
|
|
next
|
|
BezierPathStrokeRect( r, 3.0, fn ColorGray )
|
|
fn ToFen
|
|
end fn
|
|
|
|
void local fn PlaceKings
|
|
short r1, r2, c1, c2
|
|
while (YES)
|
|
r1 = rnd(8)
|
|
c1 = rnd(8)
|
|
r2 = rnd(8)
|
|
c2 = rnd(8)
|
|
if ( abs( r1 - r2 ) > 1 || abs( c1 - c2) > 1 )
|
|
mda(r1,c2) = _"K"
|
|
mda(r2,c2) = _"k"
|
|
return
|
|
end if
|
|
wend
|
|
end fn
|
|
|
|
void local fn PlacePieces( pieces as CFStringRef, isPawn as BOOL )
|
|
short n, r, c, numToPlace
|
|
numToPlace = rnd( len(pieces) )
|
|
for n = 1 to numToPlace
|
|
do
|
|
r = rnd(8)
|
|
c = rnd(8)
|
|
if ( isPawn == YES && fn StringIsEqual( mid(pieces,n-1,1), @"p" ) && r == 8 ) then return
|
|
if ( isPawn == YES && fn StringIsEqual( mid(pieces,n-1,1), @"P" ) && r == 1 ) then return
|
|
until !( ( mda(r,c) != 0 ) || ( isPawn && ( r == 8 || r == 1 ) ) )
|
|
mda(r,c) = ucc( mid(pieces,n-1,1) )
|
|
next
|
|
end fn
|
|
|
|
void local fn CreateFen
|
|
fn PlaceKings
|
|
fn PlacePieces( @"PPPPPPPP", YES )
|
|
fn PlacePieces( @"pppppppp", YES )
|
|
fn PlacePieces( @"RNBQBNR", NO )
|
|
fn PlacePieces( @"rnbqbnr", NO )
|
|
end fn
|
|
|
|
void local fn DoDialog( ev as long, tag as long )
|
|
select ( ev )
|
|
case _viewDrawRect : fn DrawBoard( tag )
|
|
end select
|
|
end fn
|
|
|
|
randomize
|
|
|
|
fn BuildWindow
|
|
fn CreateFen
|
|
|
|
on dialog fn DoDialog
|
|
|
|
HandleEvents
|