global.pas

灰度图象处理的小例子,例子中包括图象的一些处理,很有用的!

unit global;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls,Buttons, ExtCtrls;

type
  pArrayOfDouble=^Tt1;
  Tt1=array [0..0] of double;
  pArrayOfint=^Tt2;
  Tt2=array [0..0] of longint;

var
  mingray,maxgray:integer;
  //sourcemap,TransMap:TBitMap;
  endi,endj,endk,endl,endx:integer;
  sump,initp:array[0..255] of double;
  pMap,afterpmap:Tbitmap;
  tempfile:string;
  transbegin:boolean;
  databasefile,databasedir:string;
  TRANSBEGIN_FFT:bool;
  frq_r,frq_i:pArrayOfDouble;
  FFT_Width,FFT_Height:integer;
implementation

end.