unit MyGlobal;

interface

uses IOGraphics, FFT;

const MaxImgWidth = 6000;
      ResDir = 'C:\Users\Honza\Documents\škola\VUT\Diplomka\práce\Images\Results\';
      NormDir = 'C:\Users\Honza\Documents\škola\VUT\Diplomka\práce\Images\Normalised\';

type
  TWLineColorArr = array[0..MaxImgWidth * 30, 0..100] of TWColor;
  TData = array[0..100] of Word;
  TBigData = array[0..MaxImgSize] of Word;
  THistogram = Array[0..65535] of Word;
  TWRealColor   = record
                    R,G,B : Real;
                  end; //record


var
  Info: TImgRec;          // info o obraze
  InImg: Pointer;         // obecny pointer na obraz, vstup do LoadImageFromFile
  TempImg: PWColorArr;    // pointer na barevny obraz, prirazuje se mu po nacteni pointer InputImage
  Img: TWColorArr;        // barevny obraz, pole recordu
  R, G, B: Word;          // pro prepocet na barevne slozky pri gamma korekci
  PixelStack: TWLineColorArr;  //pixelovy zasobnik, pole TWColor recordu pro kazdy pixel na radku
  DataR, DataG, DataB: TData;
  Histogram: THistogram;
  FFTImgR, FFTImgG, FFTImgB: FFTImage;
  BigFFTImgR, BigFFTImgG, BigFFTImgB: BigFFTImage;
  SpcR, SpcG, SpcB: Spectrum;
  BigSpc: BigSpectrum;
  BigData: TBigData;

implementation

end.
 