static void max_size(size_t size);

procedure Set_Max_Size
       (Value : in Natural);

static size_t max_size();

function Get_Max_Size
    return Natural;

Fl_RGB_Image(const uchar *bits, int W, int H, int D=3, int LD=0);

function Create
       (Data          : in Color_Component_Array;
        Width, Height : in Natural;
        Depth         : in Natural := 3;
        Line_Data     : in Natural := 0)
    return RGB_Image;

Fl_RGB_Image(const Fl_Pixmap *pxm, Fl_Color bg=FL_GRAY);

function Create
       (Data       : in FLTK.Images.Pixmaps.Pixmap;
        Background : in Color := Background_Color)
    return RGB_Image;

virtual void color_average(Fl_Color c, float i);

procedure Color_Average
       (This   : in out RGB_Image;
        Col    : in     Color;
        Amount : in     Blend);

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

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

Fl_Image * copy();

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

virtual void desaturate();

procedure Desaturate
       (This : in out RGB_Image);

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

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

void draw(int X, int Y);

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

virtual void label(Fl_Widget *w);

virtual void label(Fl_Menu_Item *m);

virtual void uncache();

procedure Uncache
       (This : in out RGB_Image);