Re: Notation d'un barré pour une seule note ou accord

[Simon Martineau]

Merci beaucoup Pierre !

Voilà donc ma fonction qui me convient très bien, je me demande juste si il n’y a pas moyen d’utiliser (let (barre-markup (...))), je trouve ça un peu dommage de réécrire les mêmes lignes avec les \tweak à l’identique. Je vais faire quelques essais !

startB = 
#(define-event-function (partial fretnum) 
   ((string? "") number? )
   (if (not (string-null? partial)) 
   #{
      \tweak bound-details.left.text
        \markup 
          \fontsize #-1 \normal-text \bold \concat { 
          #(format #f "~@r" fretnum)
             \lower #.3 \fontsize #-4.2 #partial
             \hspace #.1 }
      \tweak style #'line
      \tweak thickness #1.5
      \tweak bound-details.left.stencil-align-dir-y #0
      \tweak bound-details.left.padding 0
      \tweak bound-details.left.attach-dir -1
      \tweak bound-details.left-broken.text ##f
      \tweak bound-details.left-broken.attach-dir -1
      \tweak bound-details.right.padding 0
      \tweak bound-details.right.attach-dir 1
      \tweak bound-details.right-broken.text ##f
      \tweak bound-details.right.text
        \markup
          \with-dimensions #'(0 . 0) #'(-.3 . 0) 
          \draw-line #'(0 . -0.4)
      \startTextSpan 
   #}
    #{
      \tweak bound-details.left.text
        \markup 
          \fontsize #-1 \normal-text \bold \concat { 
          #(format #f "~@r" fretnum)
          \hspace #.1
        }
      \tweak style #'line
      \tweak thickness #1.5
      \tweak bound-details.left.stencil-align-dir-y #-0.25
      \tweak bound-details.left.padding 0
      \tweak bound-details.left.attach-dir -1
      \tweak bound-details.left-broken.text ##f
      \tweak bound-details.left-broken.attach-dir -1
      \tweak bound-details.right.padding 0
      \tweak bound-details.right.attach-dir 1
      \tweak bound-details.right-broken.text ##f
      \tweak bound-details.right.text
        \markup
          \with-dimensions #'(0 . 0) #'(-.3 . 0) 
          \draw-line #'(0 . -0.4)
      \startTextSpan 
   #})
)

Pour le facteur scale et \magnifyStaff, je garde l’idée sous le coude !

Merci beaucoup !

Simon