// line that goes through x, y at specified angle
// angle is in radians
srecord LineThroughPoint(double x, double y, double angle) {
  *(IDoublePt p, double *angle) {
    x = p.x_double();
    y = p.y_double();
  }
}