Re: Signes spéciaux

[NOreply]

Pour encadrer, c'est beaucoup plus facile qu'une éllipse si on utilise  ce
code disponible sur lsr: 
http://lsr.di.unimi.it/LSR/Item?id=953

Ça donne ça:
http://lilybin.com/clpl04/1

% le code:
%%% Option No2:
#(define-markup-command (myBox layout props myWidth myHeight) (number?
number?)
  (interpret-markup layout props
    (markup #:line (#:with-dimensions (cons 0 0)(cons 0 0)
      (#:path 0.2
        (list (list (quote moveto) -1.7 1)
        (list (quote lineto) myWidth 1)
        (list (quote lineto) myWidth (* myHeight -1))
        (list (quote lineto) -1.7 (* myHeight -1))
        (list (quote closepath))))))))
   
    
    %%%%%%%%%%%%%
    \new PianoStaff <<
  \new Staff { % \override Staff.TextScript.extra-offset = #'(-0.5 . -18) 
    \override Score.SpacingSpanner.spacing-increment = #3
    <e' a' c''>4 
   \once    \override Staff.TextScript.extra-offset  = #'( 0 . 1 ) 
    <d' a' c''>   
   ^\markup\myBox #4 #17 %% #width #height
    < d' g' b'>  
  }
  \new Staff { f'' d'' e''  }
  
>>




--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/