unit sprite1;

interface

uses
    sdl2, sdl2_image, graphics1;

type
    sprite = class
    public
        constructor sprite(filepath:string; sourcex:integer; sourcey:integer; width:integer; height:integer; ren:psdl_renderer);
        destructor sprite();

        procedure draw(graphics:graphics; x:integer; y:integer);

    private
        renderer_: psdl_renderer;
        texture_: psdl_texture;
        sourcerect_: tsdl_rect;
    end;

implementation

constructor sprite.sprite(filepath:string; sourcex:integer; sourcey:integer; width:integer; height:integer; ren:psdl_renderer);
begin
    inherited;
    renderer_ := ren;
    texture_ := img_loadtexture(renderer_, pchar(filepath));
    sourcerect_.x := sourcex;
    sourcerect_.y := sourcey;
    sourcerect_.w := width;
    sourcerect_.h := height;
end;

procedure sprite.draw(graphics:graphics; x:integer; y:integer);
begin
    graphics.rendertexture(renderer_, texture_, x, y, @sourcerect_);
end;

destructor sprite.sprite;
begin
    sdl_destroytexture(texture_);
    inherited;
end;

end.