#pas
unit HiAsmUnit;

interface

uses Windows,Messages,Kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private

   public
     _BitmapA:THI_Event;
     _BitmapB:THI_Event;
     DiffB2A:THI_Event;
     onTween:THI_Event;
     procedure doTween(var _Data:TData; Index:word);
 end;

implementation

function CreateTweenBitmap(Var   BitmapC:  PBitmap;
                           Const BitmapA:  PBitmap;
                           Const WeightA:  CARDINAL;
                           Const BitmapB:  PBitmap;
                           Const WeightB:  CARDINAL):  boolean;
  Const
    MaxPixelCount = 65536;

  Type
    TRGBArray = ARRAY[0..MaxPixelCount-1] OF TRGBTriple;
    pRGBArray = ^TRGBArray;

  var
    i         :  INTEGER;
    j         :  INTEGER;
    RowA      :  pRGBArray;
    RowB      :  pRGBArray;
    RowTween  :  pRGBArray;
    SumWeights:  CARDINAL;