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