]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/sketch.scm
release: 1.5.23
[lilypond.git] / scm / sketch.scm
index 6a7660dbb7cf7a2474dae326f98818a9c9acc473..c5417abeabe99a810a3f7f7e0105af51e5fc9f29 100644 (file)
    "Fs(20)\n"
    ;; chars > 128 don't work yet
    (format #f "txt('\\~o',(" (modulo i 128))
-;;   (format #f "txt('\\~o',(" i)
-;;   "txt('" (ascii->string i) "',("
-;;         "char(" ,(number->string i)  ",("
+   ;;      "char(" ,(number->string i)  ",("
    (sketch-numbers->string (map mul-scale (list x y)))
    "))\n"))