anchor.diff:    pngWidth, pngHeight, newWidth, newHeight: Word;
     pngBase, pngShad, pngTeam, pngCrop, pngCropMask: TKMCardinalArray;
     X, Y, MinX, MinY, MaxX, MaxY: Integer;
  +  NoShadMinX, NoShadMinY, NoShadMaxX, NoShadMaxY: Integer;
     StrList: TStringList;
     dirBase, dirShad, dirTeam: string;
   begin
  
positive.code:           MinY := Min(MinY, Y);
            MaxX := Max(MaxX, X);
            MaxY := Max(MaxY, Y);
          end;
        end;
      end;
  
negative.code: begin
    picOffset := 9300;
    dir := dirE;
    for dir := dirN to dirNW do
      picOffset := picOffset + DoInterpUnit(utMilitia, uaWalk, dir, picOffset);
  end;
  
  