rl={{.5,"a"},{1.5,"b"},{2.5 ,"c"},{3.5,"d"},{4.5,"e"},{5.5, "f"},{6.5,"g"},{7.5,"h"}};
cl={{.5,"\[WhiteKing]"},{1.5,"\[WhiteQueen]"},
{2.5 ,"\[WhiteRook]"},{3.5,"\[WhiteBishop]"},
{4.5,"\[WhiteKnight]"},{5.5,"\[WhitePawn]"},
{6.5,"\[BlackKing]"},{7.5,"\[BlackQueen]"},
{8.5,"\[BlackRook]"},{9.5,"\[BlackBishop]"},
{10.5,"\[BlackKnight]"},{11.5,"\[BlackPawn]"}};
Show[MatrixPlot[m,ColorFunction->(Darker[Hue[2#]]&)],
Table[Graphics[{White,Text[m[[j]][[i]],{i-.45,8.45-j}]}],{i,12},{j,8}],
FrameTicks->{cl,rl},FrameTicksStyle->Medium,ImageSize->700]
No comments:
Post a Comment