sig

  val room_margin : int

  val scale_int : int -> int

  val set_text_font : string -> unit

  val set_label_font : string -> unit

  val set_scale : float -> unit

  val set_integer_scale : bool -> unit

  val find_share : string -> string -> string option

end