Up \Display

{@abstract(TMapBox class)
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, uArrays, classes, controls, Graphics,
  uTensors;

type

  TMapBox = class(TPlotBox2D)
  public
    procedure InitData(const aZ: IMatrix; const aX, aY: IVector);
    procedure SetLevels(const Levels: IVector); 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


end.

Up \Display