Commits

bergsoe  committed da9d65e

Bug fix.

  • Participants
  • Parent commits feaae40

Comments (0)

Files changed (1)

File src/PaplTransform.ml

   let dist_inf wp wo = (); (* PaplMetric.Tuple2.dist_inf (mp wp) (mo wo) *)
     fun (p0, r0) (p1, r1) ->
       let dp = V.dist2 p0 p1 in
-      let dr = Misc.dist r0 r0 in
+      let dr = Misc.dist r0 r1 in
         Pervasives.max (wp *. dp) (wo *. dr)
 
   module EdgeConstraint = struct