Luxophia

1
unit LUX.Brep.Poin_3d;
2

3
interface //#################################################################### ■
4

5
uses LUX, LUX.Graph.Tree;
6

7
type //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【型】
8

9
     TPoin<_TPos_>             = class;
10
     TPoinModel<_TPoin_:class> = class;
11

12
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
13

14
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
15

16
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TPoin<_TPos_>
17

18
     TPoin<_TPos_> = class( TTreeNode<TPoin<_TPos_>> )
19
     private
20
     protected
21
       _Pos :_TPos_;
22
       ///// アクセス
23
       function GetPos :_TPos_; virtual;
24
       procedure SetPos( const Pos_:_TPos_ ); virtual;
25
     public
26
       constructor Create( const Pos_:_TPos_ ); overload;
27
       constructor Create( const Pos_:_TPos_; const Paren_:TTreeNode ); overload;
28
       ///// プロパティ
29
       property Pos :_TPos_ read GetPos write SetPos;
30
     end;
31

32
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TPoinModel<_TPos_,_TPoin_>
33

34
     TPoinModel<_TPoin_:class> = class( TTreeNode<_TPoin_> )
35
     private
36
     protected
37
     public
38
     end;
39

40
//const //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【定数】
41

42
//var //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【変数】
43

44
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
45

46
implementation //############################################################### ■
47

48
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
49

50
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
51

52
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TPoin<_TPos_>
53

54
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
55

56
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
57

58
/////////////////////////////////////////////////////////////////////// アクセス
59

60
function TPoin<_TPos_>.GetPos :_TPos_;
61
begin
62
     Result := _Pos;
63
end;
64

65
procedure TPoin<_TPos_>.SetPos( const Pos_:_TPos_ );
66
begin
67
     _Pos := Pos_;
68
end;
69

70
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
71

72
constructor TPoin<_TPos_>.Create( const Pos_:_TPos_ );
73
begin
74
     inherited Create;
75

76
     _Pos := Pos_;
77
end;
78

79
constructor TPoin<_TPos_>.Create( const Pos_:_TPos_; const Paren_:TTreeNode );
80
begin
81
     inherited Create( Paren_ );
82

83
     _Pos := Pos_;
84
end;
85

86
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TPoinModel<_TPos_,_TPoin_>
87

88
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
89

90
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
91

92
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
93

94
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
95

96
//############################################################################## □
97

98
initialization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 初期化
99

100
finalization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 最終化
101

102
end. //######################################################################### ■
103