* lily/open-type-font.cc (load_scheme_table): new function

[lilypond.git] / scm / output-gnome.scm

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index aef6b645d6040d77f1b20129b3c9ef149ae814e4..217640a0da171009279507934c5a1cda130f0425 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -285,19 +285,6 @@ lilypond -fgnome input/simple-song.ly
   (filledbox (- x1) (- x2 x1) (* .5 thickness) (* .5 thickness)))
 
 (define (placebox x y expr)
-
-  (debugf "x,y: ~S,~S\n" x y)
-  ;; FIXME: dimensions with bigcheese are broken
-  ;;;       help hello-world of bigcheese a bit to figure out what's
-  ;;;       wrong
-  (set! x (+ 10 (/ x 50)))
-  (if (< y -800)
-      (set! y (+ y 700)))
-  (if (< y -250)
-      (set! y (+ y 250)))
-  
-  (debugf "item: ~S\n" expr)
-  (debugf "x,y: ~S,~S\n" x y)
   (let ((item expr))
     ;;(if item
     ;; FIXME ugly hack to skip #unspecified ...
@@ -377,7 +364,7 @@ lilypond -fgnome input/simple-song.ly
       ;; Hmm, family is bigcheese20?
       (if (string=? family "bigcheese20")
          (begin (debugf "BIGCHEESE\n")
-         "LilyPond")
+         "LilyPond, 20")
          family)))
   
   (define (pango-font-size font)
@@ -411,11 +398,10 @@ lilypond -fgnome input/simple-song.ly
       ;; ugh, experimental placement corections
       ;; #:x 0.0 #:y 0.0
       #:x 0.0 #:y (if (memq encoding '(fetaMusic fetaBraces)) 0.15 0.69)
-
       #:anchor (if (memq encoding '(fetaMusic fetaBraces)) 'west 'south-west)
       #:font (pango-font-name font)
       #:size-points (pango-font-size font)
       #:size-set #t
       #:text (if (char? s)
                 (char->utf8-string font s)
-                (string->utf8-string font s)))))
+                (string->utf8-string font s)))))
\ No newline at end of file