Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* CurveKappa, CurveKappaInv

Michaël Van Canneyt 1 year ago
parent
9a344568df
commit
b61a0fab97
1 changed files with 3 additions and 1 deletions
Unified View Show Diff Stats
  1. 3 1
      rtl/objpas/types.pp

+ 3 - 1
rtl/objpas/types.pp
View File 

@@ -38,7 +38,9 @@ const
 
 Const
 
 Const
 
   Epsilon: Single = 1E-40;
 
   Epsilon: Single = 1E-40;
 
   Epsilon2: Single = 1E-30;
 
   Epsilon2: Single = 1E-30;
 
-
 
+  
+  CurveKappa = 0.5522847498; 
+  CurveKappaInv = 1 - CurveKappa;
 
 
 
 type
 
 type
 
   TEndian =  Objpas.TEndian;
 
   TEndian =  Objpas.TEndian;