Changeset 44 for trunk/UGeometric.pas

Timestamp:

Nov 19, 2017, 10:59:54 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Removed compilation warnings.
• Modified: Preparation for 1.0.0 version release.

File:

• trunk/UGeometric.pas (modified) (2 diffs)

trunk/UGeometric.pas

@@ -53 +53 @@
 var
   l2, t: Double;
-  projection, tt: TPoint;
+  tt: TPoint;
 begin
   // Return minimum distance between line segment vw and point p
@@ -74 +74 @@
     Exit;
   end;
-  //projection := v + t * (w - v);  // Projection falls on the segment
   TT.X := Trunc(V.X + T * (W.X - V.X));
   TT.Y := Trunc(V.Y + T * (W.Y - V.Y));