static const int ERR_FILE_ACCESS = -2;

static const int ERR_FORMAT = -3;

static const int ERR_NO_IMAGE = -1;

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

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

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;

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;

int d() const;

function Get_D
       (This : in Image)
    return Natural;

const char * const * data() const;

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;
        Clip_X, Clip_Y : in Integer := 0);

void draw(int X, int Y);

procedure Draw
       (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_Size
       (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;

static void labeltype(const Fl_Label *lo, int lx, int ly,
    int lw, int lh, Fl_Align la);

static void measure(const Fl_Label *lo, int &lw, int &lh);

void d(int D);

void data(const char *const *p, int c);

void draw_empty(int X, int Y);

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

void h(int H);

void ld(int LD);

void w(int W);