compiled.inc

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

{*         ______   ___    ___
 *        /\  _  \ /\_ \  /\_ \
 *        \ \ \L\ \\//\ \ \//\ \      __     __   _ __   ___
 *         \ \  __ \ \ \ \  \ \ \   /'__`\ /'_ `\/\`'__\/ __`\
 *          \ \ \/\ \ \_\ \_ \_\ \_/\  __//\ \L\ \ \ \//\ \L\ \
 *           \ \_\ \_\/\____\/\____\ \____\ \____ \ \_\\ \____/
 *            \/_/\/_/\/____/\/____/\/____/\/___L\ \/_/ \/___/
 *                                           /\____/
 *                                           \_/__/
 *
 *      Compiled sprites.
 *
 *      By Shawn Hargreaves.
 *
 *      See readme.txt for copyright information.
 *}
{$IFDEF ALLEGRO_INTERFACE}
type
  P_COMPILED_SPRITE = ^COMPILED_SPRITE;
  COMPILED_SPRITE = record
    planar        : sint16;         // set if it's a planar (mode-X) sprite
    color_depth   : sint16;         // color depth of the image
    w, h          : sint16;         // size of the sprite
    proc          : array[0..3] of record
      draw        : Pointer;        // routines to draw the image
      len         : sint32;         // length of the drawing functions
    end;
  end;

var
  get_compiled_sprite: function(bitmap: P_BITMAP; planar: sint32): P_COMPILED_SPRITE; cdecl;
  destroy_compiled_sprite: procedure(sprite: P_COMPILED_SPRITE); cdecl;
  draw_compiled_sprite: procedure(bmp: P_BITMAP; const sprite: P_COMPILED_SPRITE; x, y: sint32); cdecl;

{$ENDIF ALLEGRO_INTERFACE}
{$IFDEF ALLEGRO_IMPLEMENTATION}
{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
  get_compiled_sprite     := LoadDLL('get_compiled_sprite');
  destroy_compiled_sprite := LoadDLL('destroy_compiled_sprite');
  draw_compiled_sprite    := LoadDLL('draw_compiled_sprite');
{$ENDIF ALLEGRO_LOADVARIABLE}