let cart_of_pol d t =
  let x = d *. cos(t) and y = d *. sin(t) in
    (x, y)