lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Notation carrée


From: Pierre Perol-Schneider
Subject: Re: Notation carrée
Date: Tue, 10 Feb 2015 11:01:15 +0100

Bonjour Bernard, bonjour à Tous,

Je pense que, si tu souhaites te rapprocher au mieux du fac-similé, tu n'a d'autre choix que de te bidouiller des nouvelles têtes de note.

Par exemple :

\version "2.18.2"

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


Cordialement,
Pierre

Le 10 février 2015 08:47, Bernard Meylan <address@hidden> a écrit :
Bonjour à tous,

savez-vous comment générer une notation telle que celle-ci:

<http://lilypond-french-users.1298960.n2.nabble.com/file/n7582202/notes_carr%C3%A9es.jpg>

Les notes ressemblent -mais noircies- avec le style Petrucci, aux brèves
(\breve).


Bernard



-----
Cordialement

Bernard
--
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/Notation-carree-tp7582202.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.

_______________________________________________
liste de diffusion lilypond-user-fr
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr

Attachment: BernardKyrie.png
Description: PNG image


reply via email to

[Prev in Thread] Current Thread [Next in Thread]