srecord DoubleEdge(DoublePt a, DoublePt b) {
  *(double x1, double y1, double x2, double y2) {
    a = DoublePt(x1, y1);
    b = DoublePt(x2, y2);
  }
}