Release VECTO 1.2 [FIXED]

- Fixed error in FC interpolation (invalid extrapolation errors caused by rounding errors)
- Bugfix: Cycle was cut by one second (as usual in Vehicle Mode)

VECTO Changelog.txt

@@ -2,12 +2,12 @@ VECTO ?.? (future release)
 - Eco-Roll & Over-/Under-Speed
 - Gearbox Rules must be set when loading .gbx file to aviod invalid settings (e.g. AT with Skip Gears)
 
-VECTO 1.1 x (current source - next release)
-
+VECTO 1.2 x (current source - next release)
 
 VECTO 1.2
 - Bugfix: When opening the Gearbox Editor the Gear Shift Settings (e.g. Skip Gears) were not valid for MT
-
+- Fixed error in FC interpolation (invalid extrapolation errors caused by rounding errors)
+- Bugfix: Cycle was cut by one second (as usual in Vehicle Mode)
 
 VECTO 1.1 beta 4
 - Engine Start/Stop implemented

VECTO/MODcalc/cMOD.vb

@@ -270,7 +270,7 @@ Public Class cMOD
         Dim L As List(Of Double)
 
         'Zykluslänge definieren: Gleiche Länge wie Zyklus (nicht reduziert weil keine "Zwischensekunden") |@@| Define Cycle-length: Same length as Cycle (not reduced because no "interim seconds")
-        tDim = DRI.tDim - 1
+        tDim = DRI.tDim
 
         'Here the actual cycle is read:
         Vh.EngCylceInit()

VECTO/cDelaunayMap.vb

@@ -48,14 +48,17 @@ Public Class cDelaunayMap
 
 
 
-        '#If DEBUG Then
-        '        Debug.Print("x,y,z,x,y,z")
-        '        For Each tr In lDT
-        '            Debug.Print(tr.P1.X & "," & tr.P1.Y & "," & tr.P1.Z & "," & tr.P2.X & "," & tr.P2.Y & "," & tr.P2.Z)
-        '            Debug.Print(tr.P3.X & "," & tr.P3.Y & "," & tr.P3.Z & "," & tr.P2.X & "," & tr.P2.Y & "," & tr.P2.Z)
-        '            Debug.Print(tr.P1.X & "," & tr.P1.Y & "," & tr.P1.Z & "," & tr.P3.X & "," & tr.P3.Y & "," & tr.P3.Z)
-        '        Next
-        '#End If
+#If DEBUG Then
+        Dim i As Int16
+        Debug.Print("#,x1,y1,z1,x2,y2,z2")
+        i = -1
+        For Each tr In lDT
+            i += 1
+            Debug.Print(i & "," & tr.P1.X & "," & tr.P1.Y & "," & tr.P1.Z & "," & tr.P2.X & "," & tr.P2.Y & "," & tr.P2.Z)
+            Debug.Print(i & "," & tr.P3.X & "," & tr.P3.Y & "," & tr.P3.Z & "," & tr.P2.X & "," & tr.P2.Y & "," & tr.P2.Z)
+            Debug.Print(i & "," & tr.P1.X & "," & tr.P1.Y & "," & tr.P1.Z & "," & tr.P3.X & "," & tr.P3.Y & "," & tr.P3.Z)
+        Next
+#End If
 
 
 
@@ -216,7 +219,7 @@ Public Class cDelaunayMap
         v = (dot00 * dot12 - dot01 * dot02) * invDenom
 
         ' Check if point is in triangle
-        Return (u >= 0) And (v >= 0) And (u + v <= 1.00000000001)
+        Return (u >= -0.000001) And (v >= -0.000001) And (u + v <= 1.000001)
 
     End Function