aintern.inc

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

const
  _AL_RAND_MAX  = $FFFF;

var
  _al_srand: procedure(seed: sint32); cdecl;
  _al_rand: function: sint32; cdecl;
{$ENDIF ALLEGRO_INTERFACE}
{$IFDEF ALLEGRO_IMPLEMENTATION}
procedure _grow_scratch_mem(size: sint32);
begin
   if (size > _scratch_mem_size^) then
   begin
      size := (size+1023) and $FFFFFC00;
      _scratch_mem^ := _al_realloc(_scratch_mem, size);
      _scratch_mem_size^ := size;
   end;
end;

function BYTES_PER_PIXEL(bpp: sint32): sint32;
begin
  Result := (((bpp) + 7) div 8);
end;

{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
  _allegro_count                        := LoadDLL('_allegro_count');
  _allegro_in_exit                      := LoadDLL('_allegro_in_exit');
  _screensaver_policy                   := LoadDLL('_screensaver_policy');
  _scratch_mem                          := LoadDLL('_scratch_mem');
  _scratch_mem_size                     := LoadDLL('_scratch_mem_size');
  _al_malloc                            := LoadDLL('_al_malloc');
  _al_realloc                           := LoadDLL('_al_realloc');
  _add_exit_func                        := LoadDLL('_add_exit_func');
  _remove_exit_func                     := LoadDLL('_remove_exit_func');
  _find_utype                           := LoadDLL('_find_utype');
  _al_file_isok                         := LoadDLL('_al_file_isok');
  _al_file_size                         := LoadDLL('_al_file_size');
  _al_file_time                         := LoadDLL('_al_file_time');
  _al_drive_exists                      := LoadDLL('_al_drive_exists');
  _al_getdrive                          := LoadDLL('_al_getdrive');
  _al_getdcwd                           := LoadDLL('_al_getdcwd');
  _packfile_filesize                    := LoadDLL('_packfile_filesize');
  _packfile_datasize                    := LoadDLL('_packfile_datasize');
  _packfile_type                        := LoadDLL('_packfile_type');
  _pack_fdopen                          := LoadDLL('_pack_fdopen');
  _handle_mouse_input                   := LoadDLL('_handle_mouse_input');
  _mouse_x                              := LoadDLL('_mouse_x');
  _mouse_y                              := LoadDLL('_mouse_y');
  _mouse_z                              := LoadDLL('_mouse_z');
  _mouse_b                              := LoadDLL('_mouse_b');
  _mouse_on                             := LoadDLL('_mouse_on');
  _mouse_installed                      := LoadDLL('_mouse_installed');
  _mouse_type                           := LoadDLL('_mouse_type');
  _mouse_screen                         := LoadDLL('_mouse_screen');
  _mouse_pointer                        := LoadDLL('_mouse_pointer');
  _handle_timer_tick                    := LoadDLL('_handle_timer_tick');
  _timer_queue                          := LoadDLL('_timer_queue');
  _timer_installed                      := LoadDLL('_timer_installed');
  _timer_use_retrace                    := LoadDLL('_timer_use_retrace');
  _retrace_hpp_value                    := LoadDLL('_retrace_hpp_value');
  _vsync_speed                          := LoadDLL('_vsync_speed');
  _handle_key_press                     := LoadDLL('_handle_key_press');
  _handle_key_release                   := LoadDLL('_handle_key_release');
  _keyboard_installed                   := LoadDLL('_keyboard_installed');
  _keyboard_common_names                := LoadDLL('_keyboard_common_names');
  _key                                  := LoadDLL('_key');
  _key_shifts                           := LoadDLL('_key_shifts');
  _joy_type                             := LoadDLL('_joy_type');
  _joystick_installed                   := LoadDLL('_joystick_installed');
  _gui_shadow_box_proc                  := LoadDLL('_gui_shadow_box_proc');
  _gui_ctext_proc                       := LoadDLL('_gui_ctext_proc');
  _gui_button_proc                      := LoadDLL('_gui_button_proc');
  _gui_edit_proc                        := LoadDLL('_gui_edit_proc');
  _gui_list_proc                        := LoadDLL('_gui_list_proc');
  _gui_text_list_proc                   := LoadDLL('_gui_text_list_proc');
  _handle_scrollable_scroll_click       := LoadDLL('_handle_scrollable_scroll_click');
  _handle_scrollable_scroll             := LoadDLL('_handle_scrollable_scroll');
  _handle_listbox_click                 := LoadDLL('_handle_listbox_click');
  _draw_scrollable_frame                := LoadDLL('_draw_scrollable_frame');
  _draw_listbox                         := LoadDLL('_draw_listbox');
  _draw_textbox                         := LoadDLL('_draw_textbox');
  _font_vtable_mono                     := LoadDLL('_font_vtable_mono');
  font_vtable_mono                      := LoadDLL('font_vtable_mono');
  _font_vtable_color                    := LoadDLL('_font_vtable_color');
  font_vtable_color                     := LoadDLL('font_vtable_color');
  _mono_find_glyph                      := LoadDLL('_mono_find_glyph');
  _color_find_glyph                     := LoadDLL('_color_find_glyph');
  _last_bank_1                          := LoadDLL('_last_bank_1');
  _last_bank_2                          := LoadDLL('_last_bank_2');
  _gfx_bank                             := LoadDLL('_gfx_bank');
  _stub_bank_switch                     := LoadDLL('_stub_bank_switch');
  _stub_unbank_switch                   := LoadDLL('_stub_unbank_switch');
  _stub_bank_switch_end                 := LoadDLL('_stub_bank_switch_end');
  _make_bitmap                          := LoadDLL('_make_bitmap');
  _sort_out_virtual_width               := LoadDLL('_sort_out_virtual_width');
  _get_vtable                           := LoadDLL('_get_vtable');
  _screen_vtable                        := LoadDLL('_screen_vtable');
  _gfx_mode_set_count                   := LoadDLL('_gfx_mode_set_count');
  _refresh_rate_request                 := LoadDLL('_refresh_rate_request');
  _wait_for_vsync                       := LoadDLL('_wait_for_vsync');
  _sub_bitmap_id_count                  := LoadDLL('_sub_bitmap_id_count');
  _screen_split_position                := LoadDLL('_screen_split_position');
  _safe_gfx_mode_change                 := LoadDLL('_safe_gfx_mode_change');
  _color_load_depth                     := LoadDLL('_color_load_depth');
  _color_conv                           := LoadDLL('_color_conv');
  _fixup_loaded_bitmap                  := LoadDLL('_fixup_loaded_bitmap');
  _switch_in                            := LoadDLL('_switch_in');
  _switch_out                           := LoadDLL('_switch_out');
  _register_switch_bitmap               := LoadDLL('_register_switch_bitmap');
  _unregister_switch_bitmap             := LoadDLL('_unregister_switch_bitmap');
  _save_switch_state                    := LoadDLL('_save_switch_state');
  _restore_switch_state                 := LoadDLL('_restore_switch_state');
  _dispsw_status                        := LoadDLL('_dispsw_status');
  _drawing_mode                         := LoadDLL('_drawing_mode');
  _drawing_pattern                      := LoadDLL('_drawing_pattern');
  _drawing_x_anchor                     := LoadDLL('_drawing_x_anchor');
  _drawing_y_anchor                     := LoadDLL('_drawing_y_anchor');
  _drawing_x_mask                       := LoadDLL('_drawing_x_mask');
  _drawing_y_mask                       := LoadDLL('_drawing_y_mask');
  _palette_expansion_table              := LoadDLL('_palette_expansion_table');
  _color_depth                          := LoadDLL('_color_depth');
  _current_palette_changed              := LoadDLL('_current_palette_changed');
  _prev_current_palette                 := LoadDLL('_prev_current_palette');
  _got_prev_current_palette             := LoadDLL('_got_prev_current_palette');
  _palette_color8                       := LoadDLL('_palette_color8');
  _palette_color15                      := LoadDLL('_palette_color15');
  _palette_color16                      := LoadDLL('_palette_color16');
  _palette_color24                      := LoadDLL('_palette_color24');
  _palette_color32                      := LoadDLL('_palette_color32');
  _blender_func15                       := LoadDLL('_blender_func15');
  _blender_func16                       := LoadDLL('_blender_func16');
  _blender_func24                       := LoadDLL('_blender_func24');
  _blender_func32                       := LoadDLL('_blender_func32');
  _blender_func15x                      := LoadDLL('_blender_func15x');
  _blender_func16x                      := LoadDLL('_blender_func16x');
  _blender_func24x                      := LoadDLL('_blender_func24x');
  _blender_col_15                       := LoadDLL('_blender_col_15');
  _blender_col_16                       := LoadDLL('_blender_col_16');
  _blender_col_24                       := LoadDLL('_blender_col_24');
  _blender_col_32                       := LoadDLL('_blender_col_32');
  _blender_alpha                        := LoadDLL('_blender_alpha');
  _blender_black                        := LoadDLL('_blender_black');
  _blender_trans15                      := LoadDLL('_blender_trans15');
  _blender_add15                        := LoadDLL('_blender_add15');
  _blender_burn15                       := LoadDLL('_blender_burn15');
  _blender_color15                      := LoadDLL('_blender_color15');
  _blender_difference15                 := LoadDLL('_blender_difference15');
  _blender_dissolve15                   := LoadDLL('_blender_dissolve15');
  _blender_dodge15                      := LoadDLL('_blender_dodge15');
  _blender_hue15                        := LoadDLL('_blender_hue15');
  _blender_invert15                     := LoadDLL('_blender_invert15');
  _blender_luminance15                  := LoadDLL('_blender_luminance15');
  _blender_multiply15                   := LoadDLL('_blender_multiply15');
  _blender_saturation15                 := LoadDLL('_blender_saturation15');
  _blender_screen15                     := LoadDLL('_blender_screen15');
  _blender_trans16                      := LoadDLL('_blender_trans16');
  _blender_add16                        := LoadDLL('_blender_add16');
  _blender_burn16                       := LoadDLL('_blender_burn16');
  _blender_color16                      := LoadDLL('_blender_color16');
  _blender_difference16                 := LoadDLL('_blender_difference16');
  _blender_dissolve16                   := LoadDLL('_blender_dissolve16');
  _blender_dodge16                      := LoadDLL('_blender_dodge16');
  _blender_hue16                        := LoadDLL('_blender_hue16');
  _blender_invert16                     := LoadDLL('_blender_invert16');
  _blender_luminance16                  := LoadDLL('_blender_luminance16');
  _blender_multiply16                   := LoadDLL('_blender_multiply16');
  _blender_saturation16                 := LoadDLL('_blender_saturation16');
  _blender_screen16                     := LoadDLL('_blender_screen16');
  _blender_trans24                      := LoadDLL('_blender_trans24');
  _blender_add24                        := LoadDLL('_blender_add24');
  _blender_burn24                       := LoadDLL('_blender_burn24');
  _blender_color24                      := LoadDLL('_blender_color24');
  _blender_difference24                 := LoadDLL('_blender_difference24');
  _blender_dissolve24                   := LoadDLL('_blender_dissolve24');
  _blender_dodge24                      := LoadDLL('_blender_dodge24');
  _blender_hue24                        := LoadDLL('_blender_hue24');
  _blender_invert24                     := LoadDLL('_blender_invert24');
  _blender_luminance24                  := LoadDLL('_blender_luminance24');
  _blender_multiply24                   := LoadDLL('_blender_multiply24');
  _blender_saturation24                 := LoadDLL('_blender_saturation24');
  _blender_screen24                     := LoadDLL('_blender_screen24');
  _blender_alpha15                      := LoadDLL('_blender_alpha15');
  _blender_alpha16                      := LoadDLL('_blender_alpha16');
  _blender_alpha24                      := LoadDLL('_blender_alpha24');
  _blender_alpha32                      := LoadDLL('_blender_alpha32');
  _blender_write_alpha                  := LoadDLL('_blender_write_alpha');
  _normal_line                          := LoadDLL('_normal_line');
  _fast_line                            := LoadDLL('_fast_line');
  _normal_rectfill                      := LoadDLL('_normal_rectfill');
  _linear_getpixel8                     := LoadDLL('_linear_getpixel8');
  _linear_putpixel8                     := LoadDLL('_linear_putpixel8');
  _linear_vline8                        := LoadDLL('_linear_vline8');
  _linear_hline8                        := LoadDLL('_linear_hline8');
  _linear_draw_sprite8                  := LoadDLL('_linear_draw_sprite8');
  _linear_draw_sprite_v_flip8           := LoadDLL('_linear_draw_sprite_v_flip8');
  _linear_draw_sprite_h_flip8           := LoadDLL('_linear_draw_sprite_h_flip8');
  _linear_draw_sprite_vh_flip8          := LoadDLL('_linear_draw_sprite_vh_flip8');
  _linear_draw_trans_sprite8            := LoadDLL('_linear_draw_trans_sprite8');
  _linear_draw_lit_sprite8              := LoadDLL('_linear_draw_lit_sprite8');
  _linear_draw_rle_sprite8              := LoadDLL('_linear_draw_rle_sprite8');
  _linear_draw_trans_rle_sprite8        := LoadDLL('_linear_draw_trans_rle_sprite8');
  _linear_draw_lit_rle_sprite8          := LoadDLL('_linear_draw_lit_rle_sprite8');
  _linear_draw_character8               := LoadDLL('_linear_draw_character8');
  _linear_draw_glyph8                   := LoadDLL('_linear_draw_glyph8');
  _linear_blit8                         := LoadDLL('_linear_blit8');
  _linear_blit_backward8                := LoadDLL('_linear_blit_backward8');
  _linear_masked_blit8                  := LoadDLL('_linear_masked_blit8');
  _linear_clear_to_color8               := LoadDLL('_linear_clear_to_color8');
  _linear_putpixel15                    := LoadDLL('_linear_putpixel15');
  _linear_vline15                       := LoadDLL('_linear_vline15');
  _linear_hline15                       := LoadDLL('_linear_hline15');
  _linear_draw_trans_sprite15           := LoadDLL('_linear_draw_trans_sprite15');
  _linear_draw_trans_rgba_sprite15      := LoadDLL('_linear_draw_trans_rgba_sprite15');
  _linear_draw_lit_sprite15             := LoadDLL('_linear_draw_lit_sprite15');
  _linear_draw_rle_sprite15             := LoadDLL('_linear_draw_rle_sprite15');
  _linear_draw_trans_rle_sprite15       := LoadDLL('_linear_draw_trans_rle_sprite15');
  _linear_draw_trans_rgba_rle_sprite15  := LoadDLL('_linear_draw_trans_rgba_rle_sprite15');
  _linear_draw_lit_rle_sprite15         := LoadDLL('_linear_draw_lit_rle_sprite15');
  _linear_putpixel16                    := LoadDLL('_linear_putpixel16');
  _linear_vline16                       := LoadDLL('_linear_vline16');
  _linear_hline16                       := LoadDLL('_linear_hline16');
  _linear_draw_sprite16                 := LoadDLL('_linear_draw_sprite16');
  _linear_draw_256_sprite16             := LoadDLL('_linear_draw_256_sprite16');
  _linear_draw_sprite_v_flip16          := LoadDLL('_linear_draw_sprite_v_flip16');
  _linear_draw_sprite_h_flip16          := LoadDLL('_linear_draw_sprite_h_flip16');
  _linear_draw_sprite_vh_flip16         := LoadDLL('_linear_draw_sprite_vh_flip16');
  _linear_draw_trans_sprite16           := LoadDLL('_linear_draw_trans_sprite16');
  _linear_draw_trans_rgba_sprite16      := LoadDLL('_linear_draw_trans_rgba_sprite16');
  _linear_draw_lit_sprite16             := LoadDLL('_linear_draw_lit_sprite16');
  _linear_draw_rle_sprite16             := LoadDLL('_linear_draw_rle_sprite16');
  _linear_draw_trans_rle_sprite16       := LoadDLL('_linear_draw_trans_rle_sprite16');
  _linear_draw_trans_rgba_rle_sprite16  := LoadDLL('_linear_draw_trans_rgba_