let create ?rotation center radius height =
  let s = create' center radius height in
    (match rotation with Some r -> set_rotation s r | _ -> ());
    to_shape s