macro seeBoard
*
set xval 100
set yval 100
set xtic 0.001
set ytic 0.001
op utit
set bcol 1


*
2d 100 'Board' 8 0 8 8 0 8
*
* Here is the color scheme:
* -1    = BLACK (filled black)
* -0.5  = black (unoccupied black)
* +0.5  = red   (unoccupied red)
* +1.0  = RED   (filled red)
*
min 100 -1.
max 100 1.
color 10  0 0 0        | black
color 11  0.6 0.6 0.6  | grey
color 12  1 0.6 0.6    | light red
color 13  1.0 0   0    | red
set ncol 4
palette 1 4 10 11 12 13
set hcol 0.1   

* here setting values for Black-filled (BF) and Black-empty (be), sim red
BF = -1.0
be = -0.4
re = 0.4
RF = 1.0


wait -10
*  here is an empty board
vec/cre c(8,8) r _
 [be] [re] [be] [re] [be] [re] [be] [re] _
 [re] [be] [re] [be] [re] [be] [re] [be] _
 [be] [re] [be] [re] [be] [re] [be] [re] _
 [re] [be] [re] [be] [re] [be] [re] [be] _
 [be] [re] [be] [re] [be] [re] [be] [re] _
 [re] [be] [re] [be] [re] [be] [re] [be] _
 [be] [re] [be] [re] [be] [re] [be] [re] _
 [re] [be] [re] [be] [re] [be] [re] [be] 
hi/put/con 100 c
lego 100 90 0 2 

wait -10
*  here is a full board
vec/cre c(8,8) r _  
 [BF] [RF] [BF] [RF] [BF] [RF] [BF] [RF] _
 [RF] [BF] [RF] [BF] [RF] [BF] [RF] [BF] _
 [BF] [RF] [BF] [RF] [BF] [RF] [BF] [RF] _
 [RF] [BF] [RF] [BF] [RF] [BF] [RF] [BF] _
 [BF] [RF] [BF] [RF] [BF] [RF] [BF] [RF] _
 [RF] [BF] [RF] [BF] [RF] [BF] [RF] [BF] _
 [BF] [RF] [BF] [RF] [BF] [RF] [BF] [RF] _
 [RF] [BF] [RF] [BF] [RF] [BF] [RF] [BF] 
hi/put/con 100 c
lego 100 90 0 2 

wait -10
*  here is an empty board  with a few filled squares
vec/cre c(8,8) r _
 [be] [re] [be] [re] [BF] [re] [be] [re] _
 [re] [be] [re] [be] [RF] [be] [re] [be] _
 [be] [re] [be] [re] [BF] [RF] [be] [re] _
 [re] [be] [re] [be] [re] [BF] [RF] [be] _
 [be] [re] [be] [re] [be] [RF] [BF] [re] _
 [re] [be] [re] [be] [re] [be] [re] [be] _
 [be] [re] [be] [re] [be] [re] [be] [re] _
 [re] [be] [re] [be] [re] [be] [re] [be] 
hi/put/con 100 c
lego 100 90 0 2