fblend.inc

来自「著名的游戏开发库Allegro4.2.0 for DELPHI」· INC 代码 · 共 33 行

{***************************************************************
 * FBlend Library,
 *  Copyright (c) Robert J Ohannessian, 2001
 *
 * See the accompanying readme.txt and license.txt file for
 * details.
 *}
{$IFDEF ALLEGRO_INTERFACE}
const
  FBLEND_VERSION        = 0;        // Major version number
  FBLEND_MINOR_VERSION  = 4;        // Minor version number
  FBLEND_VERSION_STRING = '0.4';    // Version string

var
  fblend_add: procedure(src, dst: P_BITMAP; x, y, fact: sint32); cdecl;
  fblend_trans: procedure(src, dst: P_BITMAP; x, y, fact: sint32); cdecl;

  fblend_rect_add: procedure(dst: P_BITMAP; x, y, w, h, color, fact: sint32); cdecl;
  fblend_rect_trans: procedure(dst: P_BITMAP; x, y, w, h, color, fact: sint32); cdecl;

  fblend_2x_stretch: procedure(src, dst: P_BITMAP; sx, sy, dx, dy, w, h: sint32); cdecl;
{$ENDIF ALLEGRO_INTERFACE}
{$IFDEF ALLEGRO_IMPLEMENTATION}
{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
  fblend_add        := LoadDLL('fblend_add');
  fblend_trans      := LoadDLL('fblend_trans');
  fblend_rect_add   := LoadDLL('fblend_rect_add');
  fblend_rect_trans := LoadDLL('fblend_rect_trans');
  fblend_2x_stretch := LoadDLL('fblend_2x_stretch');
{$ENDIF ALLEGRO_LOADVARIABLE}