PRED NearMid(a, b, c) IS 
  (a, b) PARA (a, c) AND 
  Geometry.Dist(a, b) = 
    0.45 * Geometry.Dist(a, c) 
END;

UI PointTool(NearMid);

PROC Cmd0() IS 
  IF 
    VAR 
      a = (-9.529282, 42.890625), b ~ (-32.252953, 115.3125), 
      c ~ (16, -48), d = (90.894684, 115.3125), 
      e ~ (-132.26968, -45.625004) 
    IN 
      TRUE OR NearMid(b, a, c) AND NearMid(d, a, e) -> 
        PS.MoveTo(b); PS.LineTo(c); PS.MoveTo(d); PS.LineTo(e) 
    END 
  FI 
END;