*** empty log message ***

[lilypond.git] / scm / sketch.scm

diff --git a/scm/sketch.scm b/scm/sketch.scm
index afd94cbb03b5b90813fb894e8a9524103a38eee1..f877bd56f4b9ca466586664414d1f737480b6183 100644 (file)
--- a/scm/sketch.scm
+++ b/scm/sketch.scm
@@ -154,7 +154,7 @@
 ;; old scheme
 ;;(define font-alist '(("feta13" . ("feta13" . "13"))
 ;;                  ("feta20" . ("feta20" . "20"))))
-(define font-alist '(("feta13" . ("LilyPond-Feta-13" . "13"))
+(define font-alist '(("feta13" . ("LilyPond-Feta13" . "13"))
 ;;                  ("feta20" . ("LilyPond-Feta-20" . "20")
                     ("feta20" . ("GNU-LilyPond-feta-20" . "20")
                      )))
@@ -184,6 +184,8 @@
 (define (roundfilledbox x y dx dy w h b)
   (sketch-filled-rectangle w 0 0 h x y))
 
+(define (polygon points blotdiameter) "") ;; TODO
+
 (define (select-font name-mag-pair)
   ;; name-mag-pair: (quote ("feta20" . 0.569055118110236))"feta20"(quote ("feta20" . 0.569055118110236))
   (let ((f (assoc (caadr name-mag-pair) font-alist)))
@@ -217,10 +219,8 @@
    ;; how to get zero-left padding with ``Guile's fprintf'' ?
    ;;(format #f "txt('\\x~2x',(" i)
    ;;(format #f "txt('\\x~02x',(" i)
-   ;; ugh uhg
-   (if (< i 16)
-       (format #f "txt('\\x0~x',(" i)
-       (format #f "txt('\\x~x',(" i))
+   ;; ugh: python's '%02x' % i
+   (format #f "&#x~2,'0x;" i)
    (sketch-numbers->string (map mul-scale (list x y)))
    "))\n"))