-Paper_outputter*
-Paper_def::paper_outputter_p ()
-{
- String outname = outname_str ();
- progress_indication (_f ("paper output to `%s'...",
- outname == "-" ? String ("<stdout>") : outname));
-
- target_str_global_array.push (outname);
- Paper_outputter * po = new Paper_outputter (outname);
- Path p = split_path (outname);
- p.ext = "";
- po->basename_ = p.str ();
- return po;
-}
+ SCM table = get_pango_font_table (layout);
+ SCM sizes = scm_hash_ref (table, descr, SCM_EOL);
+ SCM size_key = scm_from_double (factor);
+ SCM handle = scm_assoc (size_key, sizes);
+ if (scm_is_pair (handle))
+ return unsmob_metrics (scm_cdr (handle));