{uMapBox)
author: Eugene B. Krissinel http://www.fh.huji.ac.il/~krissinel/)
author: Nikolai Shokhirev  )
created: (June 06, 2002)
last modified: August 08, 2003)
©Original algorithm: Eugene B. Krissinel, 1991
©Windows version: Nikolai V. Shokhirev, 2002-2003  }
unit uMapBox;

interface

uses
  uMatTypes, uGraph2D, extctrls, uDynArrays, classes, controls, Graphics;

type

  TMapBox = class(TPlotBox2D)
  private
    fX, fY: IFArr1D;
    fZ: IFArr2D;
    fNx, fNy: integer;
    fnFunc: TInt;
    Bzx, Bzy: IBArr2D;
    fLevels: IFArr1D;
    fMinZ, fMaxZ: TFloat;
    fMinX, fMaxX, fMinY, fMaxY: TFloat;
    fMapColor: TColor;
  public
    procedure InitData(const aZ: IFArr2D; const aX, aY: IFArr1D);
    procedure SetLevels(const Levels: IFArr1D); overload;
    procedure SetLevels(NLevels: TInt); overload;
    procedure DrawLevel(Height: TFloat);
    procedure DrawMap;
    procedure BoxDrawMap(Sender: TObject);
    property MapColor: TColor read fMapColor write fMapColor;
    property nFunc: TInt read fnFunc write fnFunc;
  end;

implementation

uses
  sysutils, math, uColorMap;


end.

Back

Generated by Lore's Source to HTML Converter(http://www.newty.de/lsc/index.html)