Luxophia

1
unit LUX.Curve.D2;
2

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

5
uses LUX,
6
     LUX.D1,
7
     LUX.D2,
8
     LUX.Curve;
9

10
//type //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【型】
11

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

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

16
//const //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【定数】
17

18
//var //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【変数】
19

20
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
21

22
function Delta( const X_,Y_:Single ) :Single; overload;
23
function Delta( const X_,Y_:Double ) :Double; overload;
24

25
function Sinc( const X_,Y_:Single ) :Single; overload;
26
function Sinc( const X_,Y_:Double ) :Double; overload;
27

28
implementation //############################################################### ■
29

30
uses LUX.Curve.BSpline, LUX.Curve.Bezier;
31

32
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
33

34
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
35

36
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
37

38
function Delta( const X_,Y_:Single ) :Single;
39
begin
40
     Result := Delta( Y_ ) * Delta( X_ );
41
end;
42

43
function Delta( const X_,Y_:Double ) :Double;
44
begin
45
     Result := Delta( Y_ ) * Delta( X_ );
46
end;
47

48
//------------------------------------------------------------------------------
49

50
function Sinc( const X_,Y_:Single ) :Single;
51
begin
52
     Result := Sinc( Y_ ) * Sinc( X_ );
53
end;
54

55
function Sinc( const X_,Y_:Double ) :Double;
56
begin
57
     Result := Sinc( Y_ ) * Sinc( X_ );
58
end;
59

60
//############################################################################## □
61

62
initialization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 初期化
63

64
finalization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 最終化
65

66
end. //######################################################################### ■
67