[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Guitar Barre'
From: |
Maurizio Monge |
Subject: |
Re: Guitar Barre' |
Date: |
Wed, 27 Apr 2005 21:28:57 +0200 |
Thanx, i am now triying to write a macro to realize barre
comfortably. I also found the following code in an older
port, but i doesn't compile (2.5.20). What's wrong?
I really would like to end up with a function like:
\barre #"IV" { c d e }
or at least
\barre #"IV" c \startTextSpan d e \stopTextSpan
Any suggestion?
Thanks
------------------------------------------------------------
#(use-modules (ice-9 optargs)
(srfi srfi-13)
(lilypond music))
#(define (barre str)
(ly:export
(mus:seq
(mus:context-override Voice TextSpanner edge-text
(cons (string-concatenate (list "C " str)) "") #:once #t)
(mus:context-override Voice TextSpanner direction 1 #:once #t)
(mus:context-override Voice TextSpanner style 'line #:once #t)
(mus:context-override Voice TextSpanner edge-height '(0 . 0.5)
#:once #t)
(mus:context-override Voice TextSpanner padding 1 #:once #t)
(mus:context-override Voice TextSpanner enclose-bounds #t
#:once #t))))
\score { \notes {
c' c'#(barre "II") c'\startTextSpan c'\stopTextSpan
c' c'#(barre "IV") c'\startTextSpan c'\stopTextSpan }}
------------------------------------------------------------