sclass OnePathWithOrigin > OnePath {
  settable Pt origin = pt(0, 0);
  
  *() {}
  *(S path) { super(path); }
  *(Pt etc *origin, S path) { super(path); }
  *(Iterable<Pt> points, bool close) {
    var l = asList(points);
    origin = first(l);
    fromPoints(l, close);
  }
  
  toString {
    ret "Origin (" + origin + "), path: " + super.toString();
  }
}