static void RGB_scaling(Fl_RGB_Scaling);

procedure Set_Copy_Algorithm
       (To : in Scaling_Kind);

static Fl_RGB_Scaling RGB_scaling();

function Get_Copy_Algorithm
    return Scaling_Kind;

Fl_Image(int W, int H, int D);

function Create
       (Width, Height, Depth : in Natural)
    return Image;

virtual void color_average(Fl_Color c, float i);

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

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

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

Fl_Image * copy();

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

int count() const;

function Get_Data_Count
       (This : in Image)
    return Natural;

function Get_Data_Size
       (This : in Image)
    return Natural;

int d() const;

function Get_D
       (This : in Image)
    return Natural;

const char * const * data() const;

function Get_Datum
       (This     : in Image;
        Data     : in Positive;
        Position : in Positive)
    return Color_Component
with Pre =>
        Data <= Get_Data_Count (This) and
        Position <= Get_Data_Size (This);

procedure Set_Datum
       (This     : in out Image;
        Data     : in     Positive;
        Position : in     Positive;
        Value    : in     Color_Component)
with Pre =>
        Data <= Get_Data_Count (This) and
        Position <= Get_Data_Size (This);

function Get_Data
       (This     : in Image;
        Data     : in Positive;
        Position : in Positive;
        Count    : in Natural)
    return Color_Component_Array
with Pre =>
        Data <= Get_Data_Count (This) and
        Position <= Get_Data_Size (This) and
        Count <= Get_Data_Size (This) - Position + 1;

function All_Data
       (This : in Image;
        Data : in Positive)
    return Color_Component_Array
with Pre =>
        Data <= Get_Data_Count (This);

procedure Update_Data
       (This     : in out Image;
        Data     : in     Positive;
        Position : in     Positive;
        Values   : in     Color_Component_Array)
with Pre =>
        Data <= Get_Data_Count (This) and
        Position <= Get_Data_Size (This) and
        Values'Length <= Get_Data_Size (This) - Position + 1;

virtual void desaturate();

procedure Desaturate
       (This : in out Image);

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

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

void draw(int X, int Y);

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

void draw_empty(int X, int Y);

procedure Draw_Empty
       (This : in Image;
        X, Y : in Integer);

int fail();

function Is_Empty
       (This : in Image)
    return Boolean;

int h() const;

function Get_H
       (This : in Image)
    return Natural;

void inactive();

procedure Inactive
       (This : in out Image);

virtual void label(Fl_Widget *w);

virtual void label(Fl_Menu_Item *m);

int ld() const;

function Get_Line_Data
       (This : in Image)
    return Natural;

virtual void uncache();

procedure Uncache
       (This : in out Image);

int w() const;

function Get_W
       (This : in Image)
    return Natural;