aintern.inc

著名的游戏开发库Allegro4.2.0 for DELPHI

  _fixup_loaded_bitmap: function(bmp: P_BITMAP; pal: PALETTE; bpp: sint32): P_BITMAP; cdecl;

const
// default truecolor pixel format
  DEFAULT_RGB_R_SHIFT_15 = 0;
  DEFAULT_RGB_G_SHIFT_15 = 5;
  DEFAULT_RGB_B_SHIFT_15 = 10;
  DEFAULT_RGB_R_SHIFT_16 = 0;
  DEFAULT_RGB_G_SHIFT_16 = 5;
  DEFAULT_RGB_B_SHIFT_16 = 11;
  DEFAULT_RGB_R_SHIFT_24 = 0;
  DEFAULT_RGB_G_SHIFT_24 = 8;
  DEFAULT_RGB_B_SHIFT_24 = 16;
  DEFAULT_RGB_R_SHIFT_32 = 0;
  DEFAULT_RGB_G_SHIFT_32 = 8;
  DEFAULT_RGB_B_SHIFT_32 = 16;
  DEFAULT_RGB_A_SHIFT_32 = 24;

var
  // display switching support
  _switch_in: procedure; cdecl;
  _switch_out: procedure; cdecl;

  _register_switch_bitmap: procedure(bmp, parent: P_BITMAP); cdecl;
  _unregister_switch_bitmap: procedure(bmp: P_BITMAP); cdecl;
  _save_switch_state: procedure(switch_mode: sint32); cdecl;
  _restore_switch_state: procedure; cdecl;

  _dispsw_status: p_sint32;

  // current drawing mode
  _drawing_mode: p_sint32;
  _drawing_pattern: ^P_BITMAP;
  _drawing_x_anchor: p_sint32;
  _drawing_y_anchor: p_sint32;
  _drawing_x_mask: p_uint32;
  _drawing_y_mask: p_uint32;

type
  _pet_ptr = function(bpp: sint32): p_sint32; cdecl;

var
  _palette_expansion_table: ^_pet_ptr;

  _color_depth: p_sint32;

  _current_palette_changed: p_sint32;
  _prev_current_palette: P_PALETTE;
  _got_prev_current_palette: p_sint32;

  _palette_color8: ^p_sint32s;
  _palette_color15: ^p_sint32s;
  _palette_color16: ^p_sint32s;
  _palette_color24: ^p_sint32s;
  _palette_color32: ^p_sint32s;

  // truecolor blending functions
  _blender_func15: ^BLENDER_FUNC;
  _blender_func16: ^BLENDER_FUNC;
  _blender_func24: ^BLENDER_FUNC;
  _blender_func32: ^BLENDER_FUNC;

  _blender_func15x: ^BLENDER_FUNC;
  _blender_func16x: ^BLENDER_FUNC;
  _blender_func24x: ^BLENDER_FUNC;

  _blender_col_15: p_sint32;
  _blender_col_16: p_sint32;
  _blender_col_24: p_sint32;
  _blender_col_32: p_sint32;

  _blender_alpha: p_sint32;

  _blender_black: function(x, y, n: uint32): uint32; cdecl;

  _blender_trans15: function(x, y, n: uint32): uint32; cdecl;
  _blender_add15: function(x, y, n: uint32): uint32; cdecl;
  _blender_burn15: function(x, y, n: uint32): uint32; cdecl;
  _blender_color15: function(x, y, n: uint32): uint32; cdecl;
  _blender_difference15: function(x, y, n: uint32): uint32; cdecl;
  _blender_dissolve15: function(x, y, n: uint32): uint32; cdecl;
  _blender_dodge15: function(x, y, n: uint32): uint32; cdecl;
  _blender_hue15: function(x, y, n: uint32): uint32; cdecl;
  _blender_invert15: function(x, y, n: uint32): uint32; cdecl;
  _blender_luminance15: function(x, y, n: uint32): uint32; cdecl;
  _blender_multiply15: function(x, y, n: uint32): uint32; cdecl;
  _blender_saturation15: function(x, y, n: uint32): uint32; cdecl;
  _blender_screen15: function(x, y, n: uint32): uint32; cdecl;

  _blender_trans16: function(x, y, n: uint32): uint32; cdecl;
  _blender_add16: function(x, y, n: uint32): uint32; cdecl;
  _blender_burn16: function(x, y, n: uint32): uint32; cdecl;
  _blender_color16: function(x, y, n: uint32): uint32; cdecl;
  _blender_difference16: function(x, y, n: uint32): uint32; cdecl;
  _blender_dissolve16: function(x, y, n: uint32): uint32; cdecl;
  _blender_dodge16: function(x, y, n: uint32): uint32; cdecl;
  _blender_hue16: function(x, y, n: uint32): uint32; cdecl;
  _blender_invert16: function(x, y, n: uint32): uint32; cdecl;
  _blender_luminance16: function(x, y, n: uint32): uint32; cdecl;
  _blender_multiply16: function(x, y, n: uint32): uint32; cdecl;
  _blender_saturation16: function(x, y, n: uint32): uint32; cdecl;
  _blender_screen16: function(x, y, n: uint32): uint32; cdecl;

  _blender_trans24: function(x, y, n: uint32): uint32; cdecl;
  _blender_add24: function(x, y, n: uint32): uint32; cdecl;
  _blender_burn24: function(x, y, n: uint32): uint32; cdecl;
  _blender_color24: function(x, y, n: uint32): uint32; cdecl;
  _blender_difference24: function(x, y, n: uint32): uint32; cdecl;
  _blender_dissolve24: function(x, y, n: uint32): uint32; cdecl;
  _blender_dodge24: function(x, y, n: uint32): uint32; cdecl;
  _blender_hue24: function(x, y, n: uint32): uint32; cdecl;
  _blender_invert24: function(x, y, n: uint32): uint32; cdecl;
  _blender_luminance24: function(x, y, n: uint32): uint32; cdecl;
  _blender_multiply24: function(x, y, n: uint32): uint32; cdecl;
  _blender_saturation24: function(x, y, n: uint32): uint32; cdecl;
  _blender_screen24: function(x, y, n: uint32): uint32; cdecl;

  _blender_alpha15: function(x, y, n: uint32): uint32; cdecl;
  _blender_alpha16: function(x, y, n: uint32): uint32; cdecl;
  _blender_alpha24: function(x, y, n: uint32): uint32; cdecl;
  _blender_alpha32: function(x, y, n: uint32): uint32; cdecl;

  _blender_write_alpha: function(x, y, n: uint32): uint32; cdecl;

  // graphics drawing routines
  _normal_line: procedure(bmp: P_BITMAP; x1, y1, x2, y2, color: sint32); cdecl;
  _fast_line: procedure(bmp: P_BITMAP; x1, y1, x2, y2, color: sint32); cdecl;
  _normal_rectfill: procedure(bmp: P_BITMAP; x1, y1, x2, y2, color: sint32); cdecl;

  _linear_getpixel8: function(bmp: P_BITMAP; x, y: sint32): sint32; cdecl;
  _linear_putpixel8: procedure(bmp: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_vline8: procedure(bmp: P_BITMAP; x, y1, y2, color: sint32); cdecl;
  _linear_hline8: procedure(bmp: P_BITMAP; x1, y, x2, color: sint32); cdecl;
  _linear_draw_sprite8: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_v_flip8: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_h_flip8: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_vh_flip8: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_trans_sprite8: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_lit_sprite8: procedure(bmp, sprite: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_draw_rle_sprite8: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_trans_rle_sprite8: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_lit_rle_sprite8: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y, color: sint32); cdecl;
  _linear_draw_character8: procedure(bmp, sprite: P_BITMAP; x, y, color, bg: sint32); cdecl;
  _linear_draw_glyph8: procedure(bmp: P_BITMAP; const glyph: P_FONT_GLYPH; x, y, color, bg: sint32); cdecl;
  _linear_blit8: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_blit_backward8: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_masked_blit8: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_clear_to_color8: procedure(bitmap: P_BITMAP; color: sint32); cdecl;

  _linear_putpixel15: procedure(bmp: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_vline15: procedure(bmp: P_BITMAP; x, y1, y2, color: sint32); cdecl;
  _linear_hline15: procedure(bmp: P_BITMAP; x1, y, x2, color: sint32); cdecl;
  _linear_draw_trans_sprite15: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_trans_rgba_sprite15: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_lit_sprite15: procedure(bmp, sprite: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_draw_rle_sprite15: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_trans_rle_sprite15: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_trans_rgba_rle_sprite15: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_lit_rle_sprite15: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y, color: sint32); cdecl;

  _linear_getpixel16: function(bmp: P_BITMAP; x, y: sint32): sint32; cdecl;
  _linear_putpixel16: procedure(bmp: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_vline16: procedure(bmp: P_BITMAP; x, y1, y2, color: sint32); cdecl;
  _linear_hline16: procedure(bmp: P_BITMAP; x1, y, x2, color: sint32); cdecl;
  _linear_draw_sprite16: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_256_sprite16: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_v_flip16: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_h_flip16: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_vh_flip16: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_trans_sprite16: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_trans_rgba_sprite16: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_lit_sprite16: procedure(bmp, sprite: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_draw_rle_sprite16: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_trans_rle_sprite16: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_trans_rgba_rle_sprite16: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_lit_rle_sprite16: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y, color: sint32); cdecl;
  _linear_draw_character16: procedure(bmp, sprite: P_BITMAP; x, y, color, bg: sint32); cdecl;
  _linear_draw_glyph16: procedure(bmp: P_BITMAP; const glyph: P_FONT_GLYPH; x, y, color, bg: sint32); cdecl;
  _linear_blit16: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_blit_backward16: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_masked_blit16: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_clear_to_color16: procedure(bitmap: P_BITMAP; color: sint32); cdecl;

  _linear_getpixel24: function(bmp: P_BITMAP; x, y: sint32): sint32; cdecl;
  _linear_putpixel24: procedure(bmp: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_vline24: procedure(bmp: P_BITMAP; x, y1, y2, color: sint32); cdecl;
  _linear_hline24: procedure(bmp: P_BITMAP; x1, y, x2, color: sint32); cdecl;
  _linear_draw_sprite24: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_256_sprite24: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_v_flip24: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_h_flip24: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_vh_flip24: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_trans_sprite24: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_trans_rgba_sprite24: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_lit_sprite24: procedure(bmp, sprite: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_draw_rle_sprite24: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_trans_rle_sprite24: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_trans_rgba_rle_sprite24: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_lit_rle_sprite24: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y, color: sint32); cdecl;
  _linear_draw_character24: procedure(bmp, sprite: P_BITMAP; x, y, color, bg: sint32); cdecl;
  _linear_draw_glyph24: procedure(bmp: P_BITMAP; const glyph: P_FONT_GLYPH; x, y, color, bg: sint32); cdecl;
  _linear_blit24: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_blit_backward24: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_masked_blit24: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_clear_to_color24: procedure(bitmap: P_BITMAP; color: sint32); cdecl;

  _linear_getpixel32: function(bmp: P_BITMAP; x, y: sint32): sint32; cdecl;
  _linear_putpixel32: procedure(bmp: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_vline32: procedure(bmp: P_BITMAP; x, y1, y2, color: sint32); cdecl;
  _linear_hline32: procedure(bmp: P_BITMAP; x1, y, x2, color: sint32); cdecl;
  _linear_draw_sprite32: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_256_sprite32: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_v_flip32: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_h_flip32: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_sprite_vh_flip32: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_trans_sprite32: procedure(bmp, sprite: P_BITMAP; x, y: sint32); cdecl;
  _linear_draw_lit_sprite32: procedure(bmp, sprite: P_BITMAP; x, y, color: sint32); cdecl;
  _linear_draw_rle_sprite32: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_trans_rle_sprite32: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y: sint32); cdecl;
  _linear_draw_lit_rle_sprite32: procedure(bmp: P_BITMAP; const sprite: P_RLE_SPRITE; x, y, color: sint32); cdecl;
  _linear_draw_character32: procedure(bmp, sprite: P_BITMAP; x, y, color, bg: sint32); cdecl;
  _linear_draw_glyph32: procedure(bmp: P_BITMAP; const glyph: P_FONT_GLYPH; x, y, color, bg: sint32); cdecl;
  _linear_blit32: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_blit_backward32: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_masked_blit32: procedure(source, dest: P_BITMAP; source_x, source_y, dest_x, dest_y, width, height: sint32); cdecl;
  _linear_clear_to_color32: procedure(bitmap: P_BITMAP; color: sint32); cdecl;

type
  // color conversion routines
  P_GRAPHICS_RECT = ^GRAPHICS_RECT;
  GRAPHICS_RECT = record
    width       : sint32;