let text_size () ?name ~size text =
    set_text_size size;
    begin match name with
      None -> ()
    | Some name' -> set_font name'
    end;
    text_size text