1. bergsoe
  2. papl

Commits

bergsoe  committed ac6f324

Trivial forwarding removed.

  • Participants
  • Parent commits e54fbee
  • Branches master

Comments (0)

Files changed (2)

File src/PaplQTime.ml

View file
 type t = PaplQ.t PaplTime.t
 
 let interpolate = PaplTime.interpolate PaplQ.interpolate
-
-let intermediary_steps eps =
-  PaplInterpolate.intermediary_steps
-    interpolate (PaplTime.Metric.time, eps)
-
-(* These three modules could perhaps by added by a functor.
-
-   All we are doing is forwarding.
-*)
-
-module EdgeConstraint = struct
-  let constrain_by_subdivision qt_constr dt =
-    PaplTime.EdgeConstraint.constrain_by_subdivision
-      qt_constr interpolate dt
-end
-
-module PlannerConstraint = struct
-  let constrain_by_subdivision qt_constr dt =
-    PaplTime.PlannerConstraint.constrain_by_subdivision
-      qt_constr interpolate dt
-end

File src/PaplQTime.mli

View file
 (**
    Linear interpolation of time configurations.
 *)
-
-(** {2 Constraints} *)
-
-module EdgeConstraint : sig
-  val constrain_by_subdivision :
-    t PaplConstraint.t ->
-    float ->
-    t PaplEdgeConstraint.t
-end
-
-module PlannerConstraint : sig
-  val constrain_by_subdivision :
-    t PaplConstraint.t ->
-    float ->
-    t PaplPlannerConstraint.t
-end