On 2012-08-02 18:46, Thomas Morley wrote:
fN =
#(define-music-function (parser location fretp) (string?)
(let ((m (make-music 'TextScriptEvent 'text fretp)))
(set! (ly:music-property m 'tweaks)
(acons 'staff-padding 4 (ly:music-property m 'tweaks)))
m))
Hello Thomas,
You almost nailed it! I wanted a box around the fretnumber. changed your
function to this which I'm happy with!
fN =
#(define-music-function (parser location fretp) (string?)
(let ((m (make-music 'TextScriptEvent 'text (markup #:line (#:box
fretp)))))
(set! (ly:music-property m 'tweaks)
(acons 'staff-padding 5 (ly:music-property m 'tweaks)))
m))
Thank you very much for all your help!
// Anders
--
English isn't my first language.
So any error or strangeness is due to the translation.
Please correct my English so that I may become better.
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
