typenunit.pas: style

1 files changed, 13 insertions, 9 deletions

diff --git a/typenunit.pas b/typenunit.pas
index bc3a52f..8c25fca 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -551,6 +551,10 @@ function dreheLagePositiv(l: tLage): tLage; inline;
 function stringToTHintergrundAbzugsArt(s: string; sT: boolean; kvs: tKnownValues; cbgv: tCallBackGetValue; out hintergrundAbzugsArt: tHintergrundAbzugsArt): boolean;
 function tHintergrundAbzugsArtToStr(hintergrundAbzugsArt: tHintergrundAbzugsArt): string;
 
+const
+  paralleleRichtung:  array[tLage] of char = ('y','x','y','x');
+  senkrechteRichtung: array[tLage] of char = ('x','y','x','y');
+
 implementation
 
 // tGenerischeInputDateiInfo ***************************************************
@@ -1869,8 +1873,8 @@ var
   p:   tExtPoint;
 begin
   // das generische Verhalten ist
-  c:=char(ord('y')-byte(l in [lOben,lUnten]));
-  d:=char(ord('x')+byte(l in [lOben,lUnten]));
+  c:=paralleleRichtung[l];
+  d:=senkrechteRichtung[l];
 
   // zuerst den Vorgänger nach der Position zu fragen
   p[c]:=vorgaenger[0].wertZuPositionAufAchse(l,x,auszerhalbIstFehler);
@@ -1893,8 +1897,8 @@ var
   p:   tExtPoint;
 begin
   // das generische Verhalten ist invers zu oben:
-  c:=char(ord('y')-byte(l in [lOben,lUnten]));
-  d:=char(ord('x')+byte(l in [lOben,lUnten]));
+  c:=paralleleRichtung[l];
+  d:=senkrechteRichtung[l];
 
   // Anteile setzen
   p[c]:=x;
@@ -1961,7 +1965,7 @@ begin
   if auszerhalbIstFehler then
     testeAuszerhalb(l,x);
   // ein Wert am Anfang ist einfach linear zu interpolieren
-  c:=char(ord('y')-byte(l in [lOben,lUnten]));
+  c:=paralleleRichtung[l];
   if x=outAchsen[c,'x'] then
     result:=0
   else
@@ -1975,7 +1979,7 @@ begin
   if auszerhalbIstFehler then
     testeAuszerhalb(l,x);
   // ein Wert am Anfang ist einfach linear zu interpolieren
-  c:=char(ord('y')-byte(l in [lOben,lUnten]));
+  c:=paralleleRichtung[l];
   if x=0 then
     result:=outAchsen[c,'x']
   else
@@ -2051,7 +2055,7 @@ begin
     result:=inherited wertZuPositionAufAchse(l,x,auszerhalbIstFehler)       // Vorfahren befragen
   else begin
     // egal, wie die Werte vor der FFT aussahen, wir setzen die Frequenzen danach linear
-    c:=char(ord('y')-byte(l in [lOben,lUnten]));
+    c:=paralleleRichtung[l];
     if x=outAchsen[c,'x'] then
     result:=0
     else
@@ -2072,7 +2076,7 @@ begin
     result:=inherited positionAufAchseZuWert(l,x,auszerhalbIstFehler)       // Vorfahren befragen
   else begin
     // egal, wie die Werte vor der FFT aussahen, wir setzen die Frequenzen danach linear
-    c:=char(ord('y')-byte(l in [lOben,lUnten]));
+    c:=paralleleRichtung[l];
     if x=0 then
       result:=outAchsen[c,'x']
     else
@@ -2711,7 +2715,7 @@ var
 begin
   // man muss zuerst herausfinden, welcher Vorfahr für den Wert verantwortlich ist:
   i:=0;
-  c:=char(ord('y')-byte(l in [lOben,lUnten]));
+  c:=paralleleRichtung[l];
   if horizontal xor not (l in [lOben,lUnten]) then begin  // aber nur, wenn der Wert auf einer Achse in Agglomerationsrichtung liegt
     x:=x+inAchsen[c,'x']-nullposition;
     if schritt<0 then                                     // Schrittlänge berechnen