(define-fonts): Always scale by designsize.

Fixes feta-nummer, feta-din scaling.

diff --git a/ChangeLog b/ChangeLog
index 7aedc96221ce21daa85e3bdae7fde3d20529e057..2b2bba0b1f5e1ced2184162aef4c050f555d7acc 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
 2004-03-19  Jan Nieuwenhuizen  <janneke@gnu.org>
 
-       * scm/output-ps.scm (define-fonts): Always scale by 12.  Fixes
-       feta-nummer, feta-din scaling.
+       * scm/output-ps.scm (define-fonts): Always scale by designsize.
+       Fixes feta-nummer, feta-din scaling.
 
 2004-03-19  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 41e01a61c14f3d45a7cdcb6321dc7ce96f63999f..4ad9a06802cfcf9857607f323b700a97a53231dc 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -207,13 +207,9 @@
           (fontname (car value-name-size))
           (mangled (possibly-mangle-fontname fontname))
           (encoding (assoc-get fontname font-encoding-alist))
-          (designsize (if #t ;;(tex-font? fontname)
-                          (/ 12 (fontname->designsize fontname))
-                          ;; This is about 12/20 :-)
-                          (cdr key-name-size)))
+          (designsize (fontname->designsize fontname))
           (fontsize (cdr value-name-size))
-          (scaling (* 12 (/ fontsize designsize)))
-          (scaling (/ fontsize (/ designsize 12))))
+          (scaling (* fontsize designsize)))
 
       (if
        #f