// 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;
    y = p.y;
  }
}