* lily/pango-select.cc (select_pango_font): use ::find_pango_font,

so as to register the pango font.

* lily/main.cc: only look at one prefix directory, LILYPONDPREFIX
overrides all.

* scm/framework-ps.scm (dump-page): use output-units for landscape.

diff --git a/ChangeLog b/ChangeLog
index 9ec842e41600b9ce481945044d0490017d1dbcda..5ce25a2d5d3a29b17cd043c9b905cb161ffb993e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-03-06  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * lily/pango-select.cc (select_pango_font): use ::find_pango_font,
+       so as to register the pango font.
+
        * lily/font-config.cc (init_fontconfig): add
        prefix/{otf,type1,mf/out} to fontconfig path.
 

diff --git a/lily/main.cc b/lily/main.cc
index 2cc277b857dc76e24265ebede7b84151344b53ee..a843ca4f2442eb9bc7050f78856ebf29f8e4a111 100644 (file)
--- a/lily/main.cc
+++ b/lily/main.cc
@@ -354,7 +354,6 @@ main_with_guile (void *, int, char **)
   call_constructors ();
   init_global_tweak_registry ();
   init_fontconfig ();
-  test_pango();
   
   init_freetype ();
 

diff --git a/lily/pango-select.cc b/lily/pango-select.cc
index 489676373fe3c0fc66f5ccc1e0eb87e63cd68d36..ae3e86cdb58431d18a5a6e88bd39bac8fad1aca9 100644 (file)
--- a/lily/pango-select.cc
+++ b/lily/pango-select.cc
@@ -55,8 +55,12 @@ select_pango_font (Output_def *layout, SCM chain)
 {
   PangoFontDescription *pfd = properties_to_pango_description (chain,
                                                               point_constant * layout->get_dimension (ly_symbol2scm ("text-font-size")));
-  
-  return all_fonts_global->find_pango_font (pfd, 1.0, output_scale (layout));
+
+  char * str = pango_font_description_to_string (pfd);
+  SCM scm_str = scm_makfrom0str (str);
+  gfree (str);
+    
+  return find_pango_font (layout, scm_str, 1.0);
 }
 
 PangoStyle

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c5e973c17cafe6b958a76c03901ffd7a83192301..4019a3469d473e29a3c2913159479401794fe4c0 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -230,9 +230,15 @@
                           (a-file-name (ly:kpathsea-find-file aname))
                           (b-file-name (ly:kpathsea-find-file bname))
                           )
+                     (display  x )(newline)
                      (cond
                       ((and bare-file-name (string-match "\\.pfb" bare-file-name))
                        (ly:pfb->pfa bare-file-name))
+                      ((and bare-file-name
+                            (string-match "\\.otf" bare-file-name))
+
+                       (display "HOI\n")
+                       (cached-file-contents (string-regexp-substitute "otf" "cff.ps" bare-file-name)))
                       ((and bare-file-name (string-match "\\.ttf" bare-file-name))
                        (ly:ttf->pfa bare-file-name))
                       (bare-file-name (cached-file-contents bare-file-name))

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 7f32974b7f7093787f084e860b8b2084db24647b..b7dfacfd43b517db09ae7ce42b606169aea3721c 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -290,6 +290,10 @@ possibly turned off."
        (cons x  (cons between y))))
   (fold-right conc #f lst))
 
+
+(define-public (string-regexp-substitute a b str)
+  (regexp-substitute/global #f a str 'pre b 'post)) 
+
 ;;;;;;;;;;;;;;;;
 ; other
 (define (sign x)