Luxophia

1
unit LUX.Brep.Poin;
2

3
interface
4

5
uses
6
  LUX,
7
  LUX.Graph.Tree;
8

9
type
10

11
  TPoin<_TPos_: record > = class;
12

13
  TPoin<_TPos_: record > = class(TTreeLeaf<TTreeNode>)
14
  private
15
  protected
16
    _Pos: _TPos_;
17
    function GetPos: _TPos_; virtual;
18
    procedure SetPos(const Pos_: _TPos_); virtual;
19
  public
20
    constructor Create(const Pos_: _TPos_); overload;
21
    constructor Create(const Pos_: _TPos_; const Paren_: TTreeNode); overload;
22
    property Pos: _TPos_ read GetPos write SetPos;
23
  end;
24

25
TPoinModel < _TPos_: record;
26
_TPoin_:
27
TPoin < _TPos_ >> = class(TTreeRoot<_TPoin_>)private protected public
28
end;
29

30
implementation //--------------------------------------------------------------
31

32
function TPoin<_TPos_>.GetPos: _TPos_;
33
begin
34
  Result := _Pos;
35
end;
36

37
procedure TPoin<_TPos_>.SetPos(const Pos_: _TPos_);
38
begin
39
  _Pos := Pos_;
40
end;
41

42
constructor TPoin<_TPos_>.Create(const Pos_: _TPos_);
43
begin
44
  inherited Create;
45

46
  _Pos := Pos_;
47
end;
48

49
constructor TPoin<_TPos_>.Create(const Pos_: _TPos_; const Paren_: TTreeNode);
50
begin
51
  inherited Create(Paren_);
52

53
  _Pos := Pos_;
54
end;
55

56
initialization //-------------------------------------------------------------
57

58
finalization
59

60
end.
61