MathgeomGLS

1
{
2
The project to visualize isosurfaces
3

4
Input Dataset:  SampleCube.vol
5
---------------
6
Binary Char Data Set
7
27x27x27
8
cube size 15x15x15, isovalue of 128
9

10
Processing steps
11
----------------
12
1. Enter size of data
13
2. Load data
14
3. Enter IsoValue
15
4. Extract IsoSurface
16
5. Display
17

18
implemented by Wolf Blecher 2004. (Blechwolf@myrealbox.com)
19
and updated for RAD Studio 10 by PW
20
}
21

22
program IsoSurfaced;
23

24
uses
25
  Forms,
26
  FMain in 'FMain.pas' {FrmMain};
27

28
{$R *.res}
29

30
begin
31
  Application.Initialize;
32
  Application.CreateForm(TFrmMain, FrmMain);
33
  Application.Run;
34
end.
35