anchor.diff:      MinY := MaxInt;
       MaxX := -1;
       MaxY := -1;
  +    NoShadMinX := MaxInt;
  +    NoShadMinY := MaxInt;
  +    NoShadMaxX := -1;
  +    NoShadMaxY := -1;
       for Y := 0 to pngHeight-1 do
       begin
         for X := 0 to pngWidth-1 do
  
positive.code: begin
    picOffset := 9300;
    dir := dirE;
    //for dir := dirN to dirNW do
      picOffset := picOffset + DoInterpUnit(utMilitia, uaWalk, dir, picOffset);
  end;
  
  
negative.code:   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
  