-
Notifications
You must be signed in to change notification settings - Fork 0
/
demoboards.ml
74 lines (57 loc) · 2.26 KB
/
demoboards.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
open Chesstypes
open Chessmodel
(*
Provide stock board setups suitable for testing of various modules
-- DO NOT MODIFY THESE BOARDS--
they are used in testing routines. If you want a custom board, create
a new one, or use an existing one.
*)
(*
demo_board_simple_1
------- Black ---------
a b c d e f g h
8 -- -- -- -- -- -- -- --
7 -- -- B1 -- -- -- -- --
6 -- -- -- -- -- -- -- --
5 Q1 -- P1 -- -- -- -- --
4 -- -- -- -- -- -- -- --
3 -- -- -- -- -- -- -- --
2 -- -- -- -- -- -- -- --
1 -- -- R1 -- -- -- -- --
------- White ---------
*)
let brdsimple1 = make_empty_board()
(* black pieces *)
let _ = add_piece_to_board (brdsimple1) ("5", "c") ("P1") (Black) ("Pawn") (Pawn)
(* white pieces *)
let _ = add_piece_to_board (brdsimple1) ("7", "c") ("B1") (White) ("Bishop") (Bishop)
let _ = add_piece_to_board (brdsimple1) ("5", "a") ("Q") (White) ("Queen") (Queen)
let _ = add_piece_to_board (brdsimple1) ("1", "c") ("R1") (White) ("Rook") (Rook)
let demo_board_simple_1 () = brdsimple1
(*
demo_board_dense_1
------- Black ---------
a b c d e f g h
8 -- -- R1 -- -- K1 -- -- <-- all black pieces
7 -- -- B1 -- P1 -- -- -- <-- all black pieces
6 -- -- -- -- -- -- -- --
5 -- -- -- -- -- -- -- --
4 -- -- P1 -- -- -- -- -- <-- all white pieces
3 Q1 -- -- -- R2 -- P4 -- <-- all white pieces
2 -- -- -- R1 -- -- -- -- <-- all white pieces
1 -- -- -- -- -- -- -- --
------- White ---------
*)
let brddense1 = make_empty_board()
(* black pieces *)
let _ = add_piece_to_board (brddense1) ("8", "c") ("R1") (Black) ("Rook") (Rook)
let _ = add_piece_to_board (brddense1) ("7", "e") ("P1") (Black) ("Pawn") (Pawn)
let _ = add_piece_to_board (brddense1) ("8", "f") ("K1") (Black) ("Knight") (Knight)
(* white pieces *)
let _ = add_piece_to_board (brddense1) ("7", "c") ("B1") (White) ("Bishop") (Bishop)
let _ = add_piece_to_board (brddense1) ("3", "a") ("Q") (White) ("Queen") (Queen)
let _ = add_piece_to_board (brddense1) ("2", "d") ("R1") (White) ("Rook") (Rook)
let _ = add_piece_to_board (brddense1) ("3", "e") ("R2") (White) ("Rook") (Rook)
let _ = add_piece_to_board (brddense1) ("4", "c") ("P1") (White) ("Pawn") (Pawn)
let _ = add_piece_to_board (brddense1) ("3", "g") ("P4") (White) ("Pawn") (Pawn)
let demo_board_dense_1 () = brddense1