From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 4 Apr 2004 22:44:58 +0000 (+0000)
Subject: * scm/output-ps.scm (define-fonts): fix scaling.
X-Git-Tag: release/2.3.0~96
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b4442b28706922a2c4b0929785ee1a7ae3b05da4;p=lilypond.git

* scm/output-ps.scm (define-fonts): fix scaling.

* lily/scaled-font-metric.cc (design_size): add function.

* lily/font-metric.cc (LY_DEFINE): opps ly:font-design-size is only
partial cut&paste of ly:font-magnification.
---

diff --git a/ChangeLog b/ChangeLog
index ce7154f832..f3373053a8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2004-04-05  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+	* scm/output-ps.scm (define-fonts): fix scaling.
+
+	* lily/scaled-font-metric.cc (design_size): add function.
+
+	* lily/font-metric.cc (LY_DEFINE): opps ly:font-design-size is only
+	partial cut&paste of ly:font-magnification.
+
 2004-04-05  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* scm/output-ps.scm (define-fonts):
@@ -7,7 +16,7 @@
 
 	* po/fr.po: update.
 
-	* po/nl.po: new po file.
+	* po/nl.po: update
 
 	* mf/feta-beugel.mf: document why design size is not fixed.
 
diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index f8083f5952..222bd5b240 100644
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -242,7 +242,7 @@ LY_DEFINE (ly_font_design_size,"ly:font-design-size", 1 , 0, 0,
 {
   Font_metric *fm = unsmob_metrics (font);
   SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "font-metric");
-  return gh_cdr (fm->description_);
+  return gh_double2scm  (fm->design_size ());
 }
 
 
diff --git a/lily/include/scaled-font-metric.hh b/lily/include/scaled-font-metric.hh
index 71c8276250..dc3f344a72 100644
--- a/lily/include/scaled-font-metric.hh
+++ b/lily/include/scaled-font-metric.hh
@@ -24,6 +24,7 @@ struct Scaled_font_metric : public Font_metric
   virtual Offset get_indexed_wxwy (int) const;
   virtual int name_to_index (String) const;
 protected:
+  virtual Real design_size () const;
   virtual Box get_indexed_char (int)const;
   virtual Box get_ascii_char (int)const;
   Font_metric *orig_;
diff --git a/lily/scaled-font-metric.cc b/lily/scaled-font-metric.cc
index b3a07b3270..f719592974 100644
--- a/lily/scaled-font-metric.cc
+++ b/lily/scaled-font-metric.cc
@@ -31,6 +31,12 @@ Scaled_font_metric::make_scaled_font_metric (Font_metric*m, Real s)
   return sfm->self_scm ();
 }
 
+Real
+Scaled_font_metric::design_size () const
+{
+  return orig_->design_size ();
+}
+
 Stencil
 Scaled_font_metric::find_by_name (String s) const
 {
diff --git a/lily/spring-smob.cc b/lily/spring-smob.cc
index d36db8c243..e27a72e93d 100644
--- a/lily/spring-smob.cc
+++ b/lily/spring-smob.cc
@@ -28,7 +28,6 @@ Spring_smob::mark_smob (SCM) { return SCM_UNSPECIFIED; }
 int
 Spring_smob::print_smob (SCM s, SCM p, scm_print_state *)
 {
-  Spring_smob *ss = unsmob_spring (s);
   scm_puts ("#<Spring smob>", p);
   return 1;
 }
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 942937e2dd..cb4836f146 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -208,35 +208,14 @@
      (else fontname)))
 			 
   (define (font-load-command paper font)
-
-;; fontname "feta20"
-;; command "magfontGNMWomXVo"
-;; mangled "GNU-LilyPond-feta-20"
-;; designsize 0.569055118110236
-;; foo-design 20
-;; magnification 0.569055118110236
-;; ops 1.75729901757299
-;; scaling 20.0
-
-;; fontname "cmr8"
-;; command "magfontUIJQomTVo"
-;; mangled "cmr8.pfb"
-;; designsize 0.564574183197548
-;; foo-design 8
-;; magnification 0.564574183197548
-;; ops 1.75729901757299
-;; scaling 7.87450656184296
-    
     (let* ((command (font-command font))
 	   (fontname (ly:font-name font))
 	   (mangled (possibly-mangle-fontname fontname))
 	   (encoding (assoc-get fontname font-encoding-alist))
 	   (designsize (ly:font-design-size font))
 	   (magnification (* (ly:font-magnification font)))
-	   (foo-design (fontname->designsize fontname))
 	   (ops (ly:paper-lookup paper 'outputscale))
-	   ;; FIXME this magic is about right ...
-	   (scaling (* ops ops magnification designsize foo-design)))
+	   (scaling (* ops magnification designsize)) )
 
       (if
        #f