[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-user
Subject:    Re: Guitar Barre'
From:       Maurizio Monge <maurizio.monge () gmail ! com>
Date:       2005-04-27 19:28:57
Message-ID: e4c51935050427122840fe0f89 () mail ! gmail ! com
[Download RAW message or body]

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 }}
------------------------------------------------------------



[prev in list] [next in list] [prev in thread] [next in thread] 

Configure | About | News | Add a list | Sponsored by KoreLogic