ss=0;aa=Range[8];zz={};
bb=Permutations[aa];
For[i=1,i<=8!,i++,cc=bb[[i]]-aa;dd=bb[[i]]+aa;
  If[Length[DeleteDuplicates[cc]]==8&&
    Length[DeleteDuplicates[dd]]==8,
   ss++;zz=AppendTo[zz,bb[[i]]]]];
cc12=ImagePartition[Import["g:/figures.png"],45];

cFc={{cc12[[1,1]],cc12[[1,2]],cc12[[1,3]],cc12[[1,4]],
    cc12[[1,5]],cc12[[1,6]],cc12[[1,7]]},{cc12[[2,1]],
    cc12[[2,2]],cc12[[2,3]],cc12[[2,4]],cc12[[2,5]],
    cc12[[2,6]],cc12[[2,7]]}};
chessFigureShow[figure_,color_,{i_,j_},background_: 
    Transparent]:=Inset[cFc[[If[color===White,1,2],figure/.
      {ладья->1,конь->2,слон->3,ферзь->4,король->5,
       пешка->6,метка->7}]],
   {i,j}-{1/2,1/2},Scaled[{1/2,1/2}],1];

nn=1;
sa={};
For[j=1,j<=ss,j++,aa={};bb=zz[[j]];
  For[k=1,k<=8,k++,
   aa=AppendTo[aa,chessFigureShow[4,White,{k,bb[[k]]}]]];
  sa=AppendTo[sa,Framed[Panel[ArrayPlot[Table[If[OddQ[ii+jj],
         RGBColor[.6,.63,.32,.8],
         RGBColor[.8,.8,.52,.2]],
        {ii,1,8},{jj,1,8}],Mesh->All,
       MeshStyle->{{White,Thickness[0.005]},
         White,Thickness[0.005]},
       Epilog->aa,Frame->True,FrameStyle->Thick,
       FrameTicks->{{{{1,8},{2,7},
           {3,6},{4,5},{5,4},{6,3},
           {7,2},{8,1}},{{1,8},{2,7},{3,6},{4,5},{5,4},
           {6,3},{7,2},{8,1}}},
         {{{1.0,"a"},{2,"b"},{3,"c"},{4,"d"},{5,"e"},
           {6,"f"},{7,"g"},{8,"h"}},
          {{1.0,"a"},{2,"b"},{3,"c"},{4,"d"},{5,"e"},
           {6,"f"},{7,"g"},{8,"h"}}}},
       FrameLabel->{"",Framed[Style[nn++,16,Bold,Red]]},
       FrameTicksStyle->Directive[Bold,Darker[Gray,0.4],11,
         FontFamily->"Georgia"]],ImageSize->240]]]];
sa