Make midpoint a method

Author: d-torrance

M2/Macaulay2/d/actors4.d

@@ -1506,7 +1506,7 @@ midpoint0(e:Expr):Expr := (
         is x:RRicell do toExpr(midpointRR(x.v))
 	is x:CCicell do toExpr(toCC(midpointRR(realPart(x.v)),midpointRR(imaginaryPart(x.v))))
         else WrongArg("an interval or ball"));
-setupfun("midpoint",midpoint0);
+setupfun("midpoint0",midpoint0);
 
 isEmptyRRi(e:Expr):Expr := (
      when e

M2/Macaulay2/m2/intervals.m2

@@ -120,5 +120,9 @@ CC  ? CCi := (x, y) -> toCCi x ? y
 isEmpty RRi := Boolean => isEmptyRRi
 isEmpty CCi := x -> isEmptyRRi realPart x or isEmptyRRi imaginaryPart x
 
+midpoint = method()
+midpoint Number := identity
+midpoint RRi := midpoint CCi := midpoint0
+
 toExternalString RRi := x -> "interval" | toExternalString (left x, right x)
 toExternalString CCi := x -> "interval" | toExternalString (left realPart x+(left imaginaryPart x)*ii,right realPart x+(right imaginaryPart x)*ii)

M2/Macaulay2/packages/Macaulay2Doc/doc_intervals.m2

@@ -44,7 +44,10 @@ SeeAlso
 
 doc ///
 Key
-    midpoint
+     midpoint
+    (midpoint, CCi)
+    (midpoint, Number)
+    (midpoint, RRi)
 Headline
     midpoint of an interval
 Usage