Re: Notation carrée

[Éditions IN NOMINE]

Grande classe ;o) !
Merci pour ce beau snippet !

JMarc

Le Tue, 10 Feb 2015 11:01:15 +0100,
Pierre Perol-Schneider <address@hidden> a écrit :

> %% On définit deux nouvelles têtes de note
> #(define (ly:note-head::my-note-heads grob)
>   (let ((duration (ly:grob-property grob 'duration-log)))
>     (case duration
>       ((0) (grob-interpret-markup grob
>              #{
>                 \markup
>                 \scale #'(1 . 1.1)
>                 \with-dimensions #'(-.55 . .55) #'(.5 . .5)
>                 \concat {
>                   \lower #.6
>                   \override #'(thickness . 1.5)
>                   \draw-line #'(0 . 1.2)
>                   \hspace #-.1
>                   \rotate #90 \musicglyph #"noteheads.s2laFunk"
>                   \hspace #-.1
>                   \lower #.6
>                   \override #'(thickness . 1.5)
>                   \draw-line #'(0 . 1.2)
>                 }
>              #}))
>       ((1) (grob-interpret-markup grob
>              #{
>                 \markup
>                 \scale #'(1.1 . 1.7)
>                 \musicglyph #"noteheads.s2miFunk"
>              #}))
>        (else (ly:note-head::print grob)))))
> 
> %%%% Exemple %%%%%
> 
> \score {
>   \new Staff {
>     \clef "mensural-c4"
>     \tweak direction #DOWN
>     \tweak self-alignment-X #LEFT
>     \mark\markup\tiny "Kyrie secundus"
>     \cadenzaOn
>     %% on définit plusieurs voix pour aligner les carrées à volonté
>     << { \once\override NoteColumn.force-hshift = #-1.5 a1 } \\ { b }
> >> << { g } \\ { a } >>
>     << { g } \\ { a } >>
>     << { \once\override NoteColumn.force-hshift = #1 d } \\ { a } >>
>     \bar "|"
>     << { \once\override NoteColumn.force-hshift = #-1.55 f } \\ { g }
> \\ { \once\override NoteColumn.force-hshift = #.5 a } >>
>     \bar "|"
>     b a2 g f e d c1
>     %% on redéfinit le glyphe du point d'orgue
>     \once\override Script.stencil =
>       #(lambda (grob) (grob-interpret-markup grob
>           #{ \markup\concat { \hspace #-.8 \lower #2 \rotate #90
> \musicglyph #"timesig.mensural64" } #}))
>     d_\fermata
>     \bar "||"
>     s
>   }
>   \layout {
>     indent =20
>     \context {
>       \Staff
>       instrumentName = \markup\column { Secundus Chorus }
>       %% on impose les nouvelles têtes de note à la portée
>       \override NoteHead.stencil = #ly:note-head::my-note-heads
>     }
>     \context {
>       \Score
>       \omit TimeSignature
>       \omit Stem
>     }
>   }
> }


-- 
Jean-Marc LEGRAND
Éditions IN NOMINE