Umbenennung: gExtended -> gDouble; Einfuegung: gExtended

1 files changed, 8 insertions, 2 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 8708768..feeea4d 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -5,7 +5,7 @@ unit lowlevelunit;
 interface
 
 uses
-  math, Classes, SysUtils, gmp, RegExpr, process, agg_2D, FPimage, agg_basics;
+  math, Classes, SysUtils, gmp, RegExpr, process, FPimage, agg_basics;
 
 type
   generic tArray<T> = array of T;
@@ -21,6 +21,7 @@ type
   pTExtPointArray = ^tExtPointArray;
   tExtendedArray = specialize tArray<extended>;
   pTExtendedArray = ^tExtendedArray;
+  tDoubleArray = specialize tArray<single>;
   tInt32Array = specialize tArray<int32>;
   tByteArray = specialize tArray<byte>;
   tStringArray = specialize tArray<string>;
@@ -33,7 +34,7 @@ type
   tRgbArray = specialize tArray<tRGB>;
   tKodierung = (kUnbekannt,k32BitSignedInteger);
   tWarnstufe = (wsStreng,wsLasch);
-  tGenauigkeit = (gSingle,gExtended);
+  tGenauigkeit = (gSingle,gDouble,gExtended);
 
 function signSqr(x: extended): extended; inline;
 function mpfToStr(f: mpf_t): string;
@@ -425,6 +426,11 @@ begin
     gen:=gSingle;
     exit;
    end;
+  if s='double' then
+   begin
+    gen:=gDouble;
+    exit;
+   end;
   if s='extended' then
    begin
     gen:=gExtended;