anchor.diff:        INITIAL_BUFFER_SIZE = 32768;
     strict private
       FBuffer: packed array of byte; //indexed bitmap
  +    FDefBuffer: packed array of byte;
  +
       palette: TRGBAPalette;
       procedure IncreaseBuffer(ANewSize: SizeInt);
  +    procedure IncreaseDefBuffer(ANewSize: SizeInt);
     private
       FCurrentDef: TDef;
       FMode: TGraphicsLoadMode;
  
positive.code:     LeToNInPlase(TopMargin);
    end;
  
    RightMargin := h.FullWidth - h.SpriteWidth - h.LeftMargin;
    BottomMargin := h.FullHeight - h.SpriteHeight - h.TopMargin;
  
  
negative.code:   end;
  end;
  
  procedure TDefFormatLoader.IncreaseDefBuffer(ANewSize: SizeInt);
  begin
    if ANewSize > Length(FDefBuffer) then
    begin
  
      ANewSize := (ANewSize div INITIAL_BUFFER_SIZE + 1)*INITIAL_BUFFER_SIZE;
  
      SetLength(FDefBuffer, ANewSize);
    end;
  end;
  
  procedure TDefFormatLoader.LoadSprite(AStream: TStream; const SpriteIndex: UInt8;
    ATextureID: GLuint; offset: Uint32);
  var
  