(LY_DEFINE): show file name when loading PFB.

diff --git a/ChangeLog b/ChangeLog
index b14a8e22ff7409f16499e10647fe40fbb6cdda56..0c0b4a556b58a4452215f7267f09a3ec5d0448e8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-05-31  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * lily/pfb.cc (LY_DEFINE): show file name when loading PFB. 
+
        * input/regression/alignment-order.ly: add Staff example.
 
 2005-05-31  John Mandereau   <john.mandereau@free.fr>

diff --git a/lily/pfb.cc b/lily/pfb.cc
index 88f368aa0cf54a1da68516bdd7183e6c1bd7309b..449953b94c212df831b61e72ddda610668cc4091 100644 (file)
--- a/lily/pfb.cc
+++ b/lily/pfb.cc
@@ -81,12 +81,19 @@ LY_DEFINE (ly_pfb_to_pfa, "ly:pfb->pfa",
 
   String file_name = ly_scm2string (pfb_file_name);
   int len;
+
+  if (be_verbose_global)
+    progress_indication ("[" + file_name);
+
   char *str = gulp_file (file_name, &len);
   char *pfa = pfb2pfa ((Byte *)str, len);
 
   SCM pfa_scm = scm_makfrom0str (pfa);
   free (pfa);
   delete str;
+  if (be_verbose_global)
+    progress_indication ("]");
+  
   return pfa_scm;
 }
 

diff --git a/scm/font.scm b/scm/font.scm
index 90cfcceeef6e0a97e60635200f6c75f9c8f7592d..d1ffe9a9136ed58361e9c941b66b19a30828276f 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -353,7 +353,7 @@
   (let ((n (make-font-tree-node 'font-encoding 'fetaMusic)))
     (add-music-fonts n factor)
     (add-pango-fonts n 'roman "Century Schoolbook L" factor)
-    (add-pango-fonts n 'sans "Luxi Sans" factor)
+    (add-pango-fonts n 'sans "Sans" factor)
     n))
 
 (define-public (magstep x)

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 7a6584ba0bbd9ffd14e6639490161a480fc533df..c341d6f4a7c1531d5064489a8cdf3e79f5aa0d07 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -261,6 +261,7 @@
           (bare-file-name (ly:find-file file-name))
           )
 
+      (display (list font name file-name bare-file-name "\n"))
       (cons
        (munge-lily-font-name name)
        (cond