- ;; (define (font-load-command name-mag command)
- (define (font-load-command fonts)
- (let* ((key-name-size (car lst))
- (value (cdr lst))
- (value-name-size (car value))
- (command (font-command font))
+ (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))