let create
    ?detail_ratio
    () =
  let th = create' () in
    (match detail_ratio with Some dr -> set_detail_ratio th dr | _ -> ());
    th