|
|
@@ -0,0 +1,270 @@
|
|
|
+{
|
|
|
+ $Id$
|
|
|
+
|
|
|
+ Imlib library
|
|
|
+
|
|
|
+ Copyright (C) 1998 By The Rasterman (Carsten Haitzler)
|
|
|
+
|
|
|
+ This library is free software; you can redistribute it and/or
|
|
|
+ modify it under the terms of the GNU Library General Public
|
|
|
+ License as published by the Free Software Foundation; either
|
|
|
+ version 2 of the License, or (at your option) any later version.
|
|
|
+
|
|
|
+ This library is distributed in the hope that it will be useful,
|
|
|
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
+ Library General Public License for more details.
|
|
|
+
|
|
|
+ You should have received a copy of the GNU Library General Public
|
|
|
+ License along with this library; if not, write to the
|
|
|
+ Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
+ Boston, MA 02111-1307, USA.
|
|
|
+
|
|
|
+ **********************************************************************}
|
|
|
+unit Imlib;
|
|
|
+
|
|
|
+interface
|
|
|
+
|
|
|
+{$PACKRECORDS C}
|
|
|
+{$mode objfpc}
|
|
|
+
|
|
|
+Uses X, Xlib, XUtil;
|
|
|
+
|
|
|
+const
|
|
|
+ Imlibdll='Imlib';
|
|
|
+
|
|
|
+Type
|
|
|
+ PImlibBorder = ^TImlibBorder;
|
|
|
+ TImlibBorder = record
|
|
|
+ left : longint;
|
|
|
+ right : longint;
|
|
|
+ top : longint;
|
|
|
+ bottom : longint;
|
|
|
+ end;
|
|
|
+
|
|
|
+ PImlibColor = ^TImlibColor;
|
|
|
+ TImlibColor = record
|
|
|
+ r : longint;
|
|
|
+ g : longint;
|
|
|
+ b : longint;
|
|
|
+ pixel : longint;
|
|
|
+ end;
|
|
|
+
|
|
|
+ PImlibColorModifier = ^TImlibColorModifier;
|
|
|
+ TImlibColorModifier = record
|
|
|
+ gamma : longint;
|
|
|
+ brightness : longint;
|
|
|
+ contrast : longint;
|
|
|
+ end;
|
|
|
+
|
|
|
+ PImlibImage = ^TImlibImage;
|
|
|
+ TImlibImage = record
|
|
|
+ rgb_width : longint;
|
|
|
+ rgb_height : longint;
|
|
|
+ rgb_data : Pbyte;
|
|
|
+ alpha_data : Pbyte;
|
|
|
+ filename : PChar;
|
|
|
+ width : longint;
|
|
|
+ height : longint;
|
|
|
+ shape_color : TImlibColor;
|
|
|
+ border : TImlibBorder;
|
|
|
+ pixmap : TPixmap;
|
|
|
+ shape_mask : TPixmap;
|
|
|
+ cache : char;
|
|
|
+ mods : TImlibColorModifier;
|
|
|
+ rmod : TImlibColorModifier;
|
|
|
+ gmod : TImlibColorModifier;
|
|
|
+ bmod : TImlibColorModifier;
|
|
|
+ rmap : array[0..255] of byte;
|
|
|
+ gmap : array[0..255] of byte;
|
|
|
+ bmap : array[0..255] of byte;
|
|
|
+ end;
|
|
|
+
|
|
|
+ Pxdata = ^Txdata;
|
|
|
+ Txdata = record
|
|
|
+ disp : PDisplay;
|
|
|
+ screen : longint;
|
|
|
+ root : TWindow;
|
|
|
+ visual : PVisual;
|
|
|
+ depth : longint;
|
|
|
+ render_depth : longint;
|
|
|
+ root_cmap : TColormap;
|
|
|
+ shm : char;
|
|
|
+ shmp : char;
|
|
|
+ shm_event : longint;
|
|
|
+ last_xim : PXImage;
|
|
|
+ last_sxim : PXImage;
|
|
|
+ last_shminfo : Pointer;//XShmSegmentInfo;
|
|
|
+ last_sshminfo :Pointer;//XShmSegmentInfo;
|
|
|
+ base_window : TWindow;
|
|
|
+ byte_order : longint;
|
|
|
+ bit_order : longint;
|
|
|
+ end;
|
|
|
+
|
|
|
+ PImlibData = ^TImlibData;
|
|
|
+ TImlibData = record
|
|
|
+ num_colors : longint;
|
|
|
+ palette : PImlibColor;
|
|
|
+ palette_orig : PImlibColor;
|
|
|
+ fast_rgb : Pbyte;
|
|
|
+ fast_err : Plongint;
|
|
|
+ fast_erg : Plongint;
|
|
|
+ fast_erb : Plongint;
|
|
|
+ render_type : longint;
|
|
|
+ max_shm : longint;
|
|
|
+ x : TXdata;
|
|
|
+ byte_order : longint;
|
|
|
+ cache : record
|
|
|
+ on_image : char;
|
|
|
+ size_image : longint;
|
|
|
+ num_image : longint;
|
|
|
+ used_image : longint;
|
|
|
+ image : Pointer;//image_cache;
|
|
|
+ on_pixmap : char;
|
|
|
+ size_pixmap : longint;
|
|
|
+ num_pixmap : longint;
|
|
|
+ used_pixmap : longint;
|
|
|
+ pixmap : Pointer;//pixmap_cache;
|
|
|
+ end;
|
|
|
+ fastrend : char;
|
|
|
+ hiq : char;
|
|
|
+ mods : TImlibColorModifier;
|
|
|
+ rmod : TImlibColorModifier;
|
|
|
+ gmod : TImlibColorModifier;
|
|
|
+ bmod : TImlibColorModifier;
|
|
|
+ rmap : array[0..255] of byte;
|
|
|
+ gmap : array[0..255] of byte;
|
|
|
+ bmap : array[0..255] of byte;
|
|
|
+ fallback : char;
|
|
|
+ ordered_dither : char;
|
|
|
+ end;
|
|
|
+
|
|
|
+ PImlibSaveInfo = ^TImlibSaveInfo;
|
|
|
+ TImlibSaveInfo = record
|
|
|
+ quality : longint;
|
|
|
+ scaling : longint;
|
|
|
+ xjustification : longint;
|
|
|
+ yjustification : longint;
|
|
|
+ page_size : longint;
|
|
|
+ color : char;
|
|
|
+ end;
|
|
|
+
|
|
|
+ PImlibInitParams = ^TImlibInitParams;
|
|
|
+ TImlibInitParams = record
|
|
|
+ flags : longint;
|
|
|
+ visualid : longint;
|
|
|
+ palettefile : Pchar;
|
|
|
+ sharedmem : char;
|
|
|
+ sharedpixmaps : char;
|
|
|
+ paletteoverride : char;
|
|
|
+ remap : char;
|
|
|
+ fastrender : char;
|
|
|
+ hiquality : char;
|
|
|
+ dither : char;
|
|
|
+ imagecachesize : longint;
|
|
|
+ pixmapcachesize : longint;
|
|
|
+ cmap : TColormap;
|
|
|
+ end;
|
|
|
+
|
|
|
+const
|
|
|
+ PARAMS_VISUALID = 1 shl 0;
|
|
|
+ PARAMS_PALETTEFILE = 1 shl 1;
|
|
|
+ PARAMS_SHAREDMEM = 1 shl 2;
|
|
|
+ PARAMS_SHAREDPIXMAPS = 1 shl 3;
|
|
|
+ PARAMS_PALETTEOVERRIDE = 1 shl 4;
|
|
|
+ PARAMS_REMAP = 1 shl 5;
|
|
|
+ PARAMS_FASTRENDER = 1 shl 6;
|
|
|
+ PARAMS_HIQUALITY = 1 shl 7;
|
|
|
+ PARAMS_DITHER = 1 shl 8;
|
|
|
+ PARAMS_IMAGECACHESIZE = 1 shl 9;
|
|
|
+ PARAMS_PIXMAPCACHESIZE = 1 shl 10;
|
|
|
+
|
|
|
+ PAGE_SIZE_EXECUTIVE = 0;
|
|
|
+ PAGE_SIZE_LETTER = 1;
|
|
|
+ PAGE_SIZE_LEGAL = 2;
|
|
|
+ PAGE_SIZE_A4 = 3;
|
|
|
+ PAGE_SIZE_A3 = 4;
|
|
|
+ PAGE_SIZE_A5 = 5;
|
|
|
+ PAGE_SIZE_FOLIO = 6;
|
|
|
+
|
|
|
+ RT_PLAIN_PALETTE = 0;
|
|
|
+ RT_PLAIN_PALETTE_FAST = 1;
|
|
|
+ RT_DITHER_PALETTE = 2;
|
|
|
+ RT_DITHER_PALETTE_FAST = 3;
|
|
|
+ RT_PLAIN_TRUECOL = 4;
|
|
|
+ RT_DITHER_TRUECOL = 5;
|
|
|
+
|
|
|
+function Imlib_init(disp:PDisplay):PImlibData;cdecl;external imlibdll name 'Imlib_init';
|
|
|
+function Imlib_init_with_params(disp:PDisplay; p:PImlibInitParams):PImlibData;cdecl;external imlibdll name 'Imlib_init_with_params';
|
|
|
+function Imlib_get_render_type(id:PImlibData):longint;cdecl;external imlibdll name 'Imlib_get_render_type';
|
|
|
+procedure Imlib_set_render_type(id:PImlibData; rend_type:longint);cdecl;external imlibdll name 'Imlib_set_render_type';
|
|
|
+function Imlib_load_colors(id:PImlibData; thefile:Pchar):longint;cdecl;external imlibdll name 'Imlib_load_colors';
|
|
|
+function Imlib_load_image(id:PImlibData; thefile:Pchar):PImlibImage;cdecl;external imlibdll name 'Imlib_load_image';
|
|
|
+function Imlib_best_color_match(id:PImlibData; r:Plongint; g:Plongint; b:Plongint):longint;cdecl;external imlibdll name 'Imlib_best_color_match';
|
|
|
+function Imlib_render(id:PImlibData; image:PImlibImage; width:longint; height:longint):longint;cdecl;external imlibdll name 'Imlib_render';
|
|
|
+function Imlib_copy_image(id:PImlibData; image:PImlibImage):TPixmap;cdecl;external imlibdll name 'Imlib_copy_image';
|
|
|
+function Imlib_copy_mask(id:PImlibData; image:PImlibImage):TPixmap;cdecl;external imlibdll name 'Imlib_copy_mask';
|
|
|
+function Imlib_move_image(id:PImlibData; image:PImlibImage):TPixmap;cdecl;external imlibdll name 'Imlib_move_image';
|
|
|
+function Imlib_move_mask(id:PImlibData; image:PImlibImage):TPixmap;cdecl;external imlibdll name 'Imlib_move_mask';
|
|
|
+procedure Imlib_destroy_image(id:PImlibData; image:PImlibImage);cdecl;external imlibdll name 'Imlib_destroy_image';
|
|
|
+procedure Imlib_kill_image(id:PImlibData; image:PImlibImage);cdecl;external imlibdll name 'Imlib_kill_image';
|
|
|
+procedure Imlib_free_colors(id:PImlibData);cdecl;external imlibdll name 'Imlib_free_colors';
|
|
|
+procedure Imlib_free_pixmap(id:PImlibData; pixmap:TPixmap);cdecl;external imlibdll name 'Imlib_free_pixmap';
|
|
|
+procedure Imlib_get_image_border(id:PImlibData; image:PImlibImage; border:PImlibBorder);cdecl;external imlibdll name 'Imlib_get_image_border';
|
|
|
+procedure Imlib_set_image_border(id:PImlibData; image:PImlibImage; border:PImlibBorder);cdecl;external imlibdll name 'Imlib_set_image_border';
|
|
|
+procedure Imlib_get_image_shape(id:PImlibData; image:PImlibImage; color:PImlibColor);cdecl;external imlibdll name 'Imlib_get_image_shape';
|
|
|
+procedure Imlib_set_image_shape(id:PImlibData; image:PImlibImage; color:PImlibColor);cdecl;external imlibdll name 'Imlib_set_image_shape';
|
|
|
+function Imlib_save_image_to_eim(id:PImlibData; image:PImlibImage; thefile:Pchar):longint;cdecl;external imlibdll name 'Imlib_save_image_to_eim';
|
|
|
+function Imlib_add_image_to_eim(id:PImlibData; image:PImlibImage; thefile:Pchar):longint;cdecl;external imlibdll name 'Imlib_add_image_to_eim';
|
|
|
+function Imlib_save_image_to_ppm(id:PImlibData; image:PImlibImage; thefile:Pchar):longint;cdecl;external imlibdll name 'Imlib_save_image_to_ppm';
|
|
|
+function Imlib_load_file_to_pixmap(id:PImlibData; filename:Pchar; pmap:PPixmap; mask:PPixmap):longint;cdecl;external imlibdll name 'Imlib_load_file_to_pixmap';
|
|
|
+procedure Imlib_set_image_modifier(id:PImlibData; image:PImlibImage; mods:PImlibColorModifier);cdecl;external imlibdll name 'Imlib_set_image_modifier';
|
|
|
+procedure Imlib_set_image_red_modifier(id:PImlibData; image:PImlibImage; mods:PImlibColorModifier);cdecl;external imlibdll name 'Imlib_set_image_red_modifier';
|
|
|
+procedure Imlib_set_image_green_modifier(id:PImlibData; image:PImlibImage; mods:PImlibColorModifier);cdecl;external imlibdll name 'Imlib_set_image_green_modifier';
|
|
|
+procedure Imlib_set_image_blue_modifier(id:PImlibData; image:PImlibImage; mods:PImlibColorModifier);cdecl;external imlibdll name 'Imlib_set_image_blue_modifier';
|
|
|
+procedure Imlib_get_image_modifier(id:PImlibData; image:PImlibImage; mods:PImlibColorModifier);cdecl;external imlibdll name 'Imlib_get_image_modifier';
|
|
|
+procedure Imlib_get_image_red_modifier(id:PImlibData; image:PImlibImage; mods:PImlibColorModifier);cdecl;external imlibdll name 'Imlib_get_image_red_modifier';
|
|
|
+procedure Imlib_get_image_green_modifier(id:PImlibData; image:PImlibImage; mods:PImlibColorModifier);cdecl;external imlibdll name 'Imlib_get_image_green_modifier';
|
|
|
+procedure Imlib_get_image_blue_modifier(id:PImlibData; image:PImlibImage; mods:PImlibColorModifier);cdecl;external imlibdll name 'Imlib_get_image_blue_modifier';
|
|
|
+procedure Imlib_set_image_red_curve(id:PImlibData; image:PImlibImage; mods:Pbyte);cdecl;external imlibdll name 'Imlib_set_image_red_curve';
|
|
|
+procedure Imlib_set_image_green_curve(id:PImlibData; image:PImlibImage; mods:Pbyte);cdecl;external imlibdll name 'Imlib_set_image_green_curve';
|
|
|
+procedure Imlib_set_image_blue_curve(id:PImlibData; image:PImlibImage; mods:Pbyte);cdecl;external imlibdll name 'Imlib_set_image_blue_curve';
|
|
|
+procedure Imlib_get_image_red_curve(id:PImlibData; image:PImlibImage; mods:Pbyte);cdecl;external imlibdll name 'Imlib_get_image_red_curve';
|
|
|
+procedure Imlib_get_image_green_curve(id:PImlibData; image:PImlibImage; mods:Pbyte);cdecl;external imlibdll name 'Imlib_get_image_green_curve';
|
|
|
+procedure Imlib_get_image_blue_curve(id:PImlibData; image:PImlibImage; mods:Pbyte);cdecl;external imlibdll name 'Imlib_get_image_blue_curve';
|
|
|
+procedure Imlib_apply_modifiers_to_rgb(id:PImlibData; image:PImlibImage);cdecl;external imlibdll name 'Imlib_apply_modifiers_to_rgb';
|
|
|
+procedure Imlib_changed_image(id:PImlibData; image:PImlibImage);cdecl;external imlibdll name 'Imlib_changed_image';
|
|
|
+procedure Imlib_apply_image(id:PImlibData; image:PImlibImage; p:TWindow);cdecl;external imlibdll name 'Imlib_apply_image';
|
|
|
+procedure Imlib_paste_image(id:PImlibData; image:PImlibImage; p:TWindow; x:longint; y:longint;
|
|
|
+ w:longint; h:longint);cdecl;external imlibdll name 'Imlib_paste_image';
|
|
|
+procedure Imlib_paste_image_border(id:PImlibData; image:PImlibImage; p:TWindow; x:longint; y:longint;
|
|
|
+ w:longint; h:longint);cdecl;external imlibdll name 'Imlib_paste_image_border';
|
|
|
+procedure Imlib_bevel_image(id:PImlibData; image:PImlibImage; bord:PImlibBorder; up:byte);cdecl;external imlibdll name 'Imlib_bevel_image';
|
|
|
+procedure Imlib_bevel_pixmap(id:PImlibData; p:TPixmap; w:longint; h:longint; bord:PImlibBorder;
|
|
|
+ up:byte);cdecl;external imlibdll name 'Imlib_bevel_pixmap';
|
|
|
+procedure Imlib_flip_image_horizontal(id:PImlibData; image:PImlibImage);cdecl;external imlibdll name 'Imlib_flip_image_horizontal';
|
|
|
+procedure Imlib_flip_image_vertical(id:PImlibData; image:PImlibImage);cdecl;external imlibdll name 'Imlib_flip_image_vertical';
|
|
|
+procedure Imlib_rotate_image(id:PImlibData; image:PImlibImage; d:longint);cdecl;external imlibdll name 'Imlib_rotate_image';
|
|
|
+function Imlib_create_image_from_data(id:PImlibData; data:Pbyte; alpha:Pbyte; w:longint; h:longint):PImlibimage;cdecl;external imlibdll name 'Imlib_create_image_from_data';
|
|
|
+function Imlib_clone_image(id:PImlibData; image:PImlibImage):PImlibImage;cdecl;external imlibdll name 'Imlib_clone_image';
|
|
|
+function Imlib_clone_scaled_image(id:PImlibData; image:PImlibImage; w:longint; h:longint):PImlibImage;cdecl;external imlibdll name 'Imlib_clone_scaled_image';
|
|
|
+function Imlib_get_fallback(id:PImlibData):longint;cdecl;external imlibdll name 'Imlib_get_fallback';
|
|
|
+procedure Imlib_set_fallback(id:PImlibData; fallback:longint);cdecl;external imlibdll name 'Imlib_set_fallback';
|
|
|
+function Imlib_get_visual(id:PImlibData):PVisual;cdecl;external imlibdll name 'Imlib_get_visual';
|
|
|
+function Imlib_get_colormap(id:PImlibData):TColormap;cdecl;external imlibdll name 'Imlib_get_colormap';
|
|
|
+function Imlib_get_sysconfig(id:PImlibData):Pchar;cdecl;external imlibdll name 'Imlib_get_sysconfig';
|
|
|
+function Imlib_create_image_from_xpm_data(id:PImlibData; data:PPchar):PImlibImage;cdecl;external imlibdll name 'Imlib_create_image_from_xpm_data';
|
|
|
+function Imlib_data_to_pixmap(id:PImlibData; data:PPchar; pmap:PPixmap; mask:PPixmap):longint;cdecl;external imlibdll name 'Imlib_data_to_pixmap';
|
|
|
+procedure Imlib_crop_image(id:PImlibData; image:PImlibImage; x:longint; y:longint; w:longint;
|
|
|
+ h:longint);cdecl;external imlibdll name 'Imlib_crop_image';
|
|
|
+function Imlib_save_image(id:PImlibData; image:PImlibImage; thefile:Pchar; info:PImlibSaveInfo):longint;cdecl;external imlibdll name 'Imlib_save_image';
|
|
|
+function Imlib_crop_and_clone_image(id:PImlibData; image:PImlibImage; x:longint; y:longint; w:longint;
|
|
|
+ h:longint):PImlibImage;cdecl;external imlibdll name 'Imlib_crop_and_clone_image';
|
|
|
+function Imlib_create_image_from_drawable(id:PImlibData; win:TDrawable; mask:TPixmap; x:longint; y:longint;
|
|
|
+ width:longint; height:longint):PImlibImage;cdecl;external imlibdll name 'Imlib_create_image_from_drawable';
|
|
|
+function Imlib_inlined_png_to_image(id:PImlibData; data:Pbyte; data_size:longint):PImlibImage;cdecl;external imlibdll name 'Imlib_inlined_png_to_image';
|
|
|
+
|
|
|
+implementation
|
|
|
+
|
|
|
+
|
|
|
+end.
|
michael