int alloc_image_;

Fl_Image * image_;

Fl_Tiled_Image(Fl_Image *i, int W=0, int H=0);

function Create
       (From : in out Image'Class;
        W, H : in     Integer := 0)
    return Tiled_Image;

virtual void color_average(Fl_Color c, float i);

procedure Color_Average
       (This   : in out Tiled_Image;
        Hue    : in     Color;
        Amount : in     Blend);

Fl_Image * copy();

function Copy
       (This : in Tiled_Image)
    return Tiled_Image'Class;

virtual Fl_Image * copy(int W, int H);

function Copy
       (This          : in Tiled_Image;
        Width, Height : in Natural)
    return Tiled_Image'Class;

virtual void desaturate();

procedure Desaturate
       (This : in out Tiled_Image);

void draw(int X, int Y);

procedure Draw
       (This : in Tiled_Image;
        X, Y : in Integer);

virtual void draw(int X, int Y, int W, int H, int cx, int cy);

procedure Draw
       (This       : in Tiled_Image;
        X, Y, W, H : in Integer;
        CX, CY     : in Integer);

Fl_Image * image();

function Tile
       (This : in out Tiled_Image)
    return Image_Reference;