Added removing of unneeded scale (this only occurs on reverse transforms) when the scale (should) be 1 again.

Author: EMS90

TRA.Tool/TransformPanelBase.cs

@@ -150,6 +150,17 @@ private void TrassenTransform(TRATrasse trasse, TransformSetup transformSetup)
                 }
             }
             trasse.Elemente = trasse.Elemente.Where(x => !(x.GetGeometryType() == typeof(KSprung) && x.L == 0)).ToArray(); //Remove KSprung elements of length 0
+            //Try Removing unnecessary Scale.This can happen if previous scale was saved applied for saving, and inverted Transform was applied.
+            foreach (TrassenElementExt element in trasse.Elemente)
+            {
+                if (element.Successor != null)
+                {
+                    if (Math.Abs(element.S + element.L * element.Scale - element.Successor.S) < Trassierung.StationMismatchTolerance)
+                    {
+                        element.ApplyScale(); //Apply Scale
+                    }
+                }
+            }     
         }
         internal virtual TransformSetup GetTransformSetup() { return new TransformSetup(); }