Commits

bergsoe committed fd2ca35

Trivial forwarding removed.

Comments (0)

Files changed (2)

src/PaplTransform.ml

       let dp = V.dist2 p0 p1 in
       let dr = Misc.dist r0 r1 in
         Pervasives.max (wp *. dp) (wo *. dr)
-
-  module EdgeConstraint = struct
-    let constrain_by_subdivision q_constr threshold =
-      PaplEdgeConstraint.constrain_by_subdivision
-        q_constr interpolate threshold
-  end
-
-  module IncrEdgeConstraint = struct
-    let constrain_by_subdivision q_constr threshold =
-      PaplIncrEdgeConstraint.constrain_by_subdivision
-        q_constr interpolate threshold
-  end
-
-  module PlannerConstraint = struct
-    let constrain_by_subdivision q_constr threshold =
-      PaplPlannerConstraint.constrain_by_subdivision
-        q_constr interpolate threshold
-  end
 end
 
 module type SE_METRIC = sig

src/PaplTransform.mli

 
     val uniform_all : ?rng:rng_t -> box_t -> t PaplSampler.t
   end
-
-  module PlannerConstraint : sig
-    val constrain_by_subdivision :
-      t PaplConstraint.t ->
-      t PaplMetric.threshold_t ->
-      t PaplPlannerConstraint.t
-  end
-
-  module EdgeConstraint : sig
-    val constrain_by_subdivision :
-      t PaplConstraint.t ->
-      t PaplMetric.threshold_t ->
-      t PaplEdgeConstraint.t
-  end
-
-  module IncrEdgeConstraint : sig
-    val constrain_by_subdivision :
-      t PaplConstraint.t ->
-      t PaplMetric.threshold_t ->
-      t PaplIncrEdgeConstraint.create_t
-  end
 end
 
 (** 3D transformations *)