- ;; FIXME this magic is about right ...
- (scaling (* ops ops magnification designsize foo-design)))
-
- (if
- #f
- (begin
- (newline)
- (format (current-error-port) "fontname ~S\n" fontname)
- (format (current-error-port) "command ~S\n" command)
- (format (current-error-port) "mangled ~S\n" mangled)
- (format (current-error-port) "designsize ~S\n" designsize)
- (format (current-error-port) "foo-design ~S\n" foo-design)
- (format (current-error-port) "magnification ~S\n" magnification)
- (format (current-error-port) "ops ~S\n" ops)
- (format (current-error-port) "scaling ~S\n" scaling)))
-
- (if encoding
- ;; FIXME: should rather tag encoded font
- (let ((raw (string-append command "-raw")))
- (string-append
- (define-font raw mangled scaling)
- (reencode-font raw encoding command)))
- (define-font command mangled scaling))))
+ (scaling (* ops magnification designsize)))
+
+ (string-append
+ (define-font plain fontname scaling)
+ (if (or (equal? input-encoding font-encoding)
+ ;; guh
+ (equal? font-encoding "fetaBraces")
+ (equal? font-encoding "fetaNumber")
+ (equal? font-encoding "fetaMusic")
+ (equal? font-encoding "parmesanMusic"))
+ ""
+ (reencode-font plain input-encoding command)))))