* mf/merge.pe.in: Set font names, version, license GPL.

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

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index d427b2c9b784cf2b90400c0a96aa111911a7e803..331ad20caa28d30f7d3e08282b903e6376a4b278 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -287,6 +287,10 @@ lilypond -fgnome input/simple-song.ly
 (define (placebox x y expr)
   (debugf "item: ~S\n" expr)
   (debugf "x,y: ~S,~S\n" x y)
+  ;; symbols enter visual
+  (set! x 10)
+  ;;(set! y -10)
+  ;;(set! y (/ y 10))
   (let ((item expr))
     ;;(if item
     ;; FIXME ugly hack to skip #unspecified ...