Re: grille d'accords 100% Lilypond

[NOreply]

Bonjour,
J'ai fait un code plus compact et plus simple. Je procède d'une manière
assez différente pour obtenir un résultat similaire. Pour l'utilisateur, je
pense que cela sera beaucoup plus facile. 
Mode d'emploi: Il faut écrire \/ avant 2 accords en blanches et \v avant 2
accords avec le rythme blanche pointée noire. Mon code n'est satisfaisant
qu' avec une mise en page de 4 mesures par ligne. Je ne me rends pas compte
de la place qu'il faut pour écrire les accords, je n'ai pas l'habitude
d'écrire ce genre de chose, donc il faudra peut-être adapter les 2 variables
"coinPath" et "gridPath".
Lien lilybin (complètement bidon sur le plan musicale):
http://lilybin.com/hdaqgz/1

%%%%%%%%%% le code:
\version "2.18.2"
\paper {
  system-system-spacing.basic-distance = #20
}

gridPath =
\markup
\with-dimensions #'(0 . 0) #'(-4.3 . 2)
\path #0.1
#'((moveto    0   -15.1)
   (rlineto    26.5   9.9)
   
   )
coinPath =
\markup
\with-dimensions #'(0 . 0) #'(-4.3 . 2)
\path #0.1
#'((moveto    12.5   -10)
   (rlineto    14.5   -5.1)
   (moveto    12.5   -10) ; on peut remplacer par lineto pour ajuster les
largeurs de cellules
   (rlineto    14.4   4.8)
   )

%%%%%%%%%%%%%%%%%%%%%%%%%%


"\\/" = #(define-music-function
          (parser location  mus1 mus2)
          ( ly:music? ly:music?  )
          #{
            \mark \markup { \gridPath }
            \once \override ChordName.extra-offset = #'(1 . .5 )
            $mus1 
            \once \override ChordName.extra-offset = #'(3 . -3 ) 
            $mus2
    
          #})

v = #(define-music-function
      (parser location  mus1 mus2 )
      ( ly:music? ly:music?  )
      #{
        \mark \markup { \coinPath }
        \once \override ChordName.extra-offset = #'(2 . -1 )
        $mus1 
        \once \override ChordName.extra-offset = #'(-2 . -1 )
        $mus2 

    
      #})

%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\new ChordNames \with {
  \override BarLine.bar-extent = #'(-5 . 5)
  \consists "Bar_engraver"
  \consists "Staff_symbol_engraver"
  \consists "Percent_repeat_engraver"
}

\chordmode { 
  \omit BarNumber
  \override ChordNames.ChordName.extra-offset = #'(10 . -1 )         
  \override ChordNames.StaffSymbol.line-positions = #'( -10 10 )
 
  \bar ".|:"  bes1:7 
  \/  c2 d 
  e1 
  \v f2.   c4    \break
  \repeat percent 2  {e1} 
  \v c2. d4  \noBreak  
  c1 
  f1:maj7  
  f:7 c e
  \bar ":|."
} 

\layout {
  indent = 0
  ragged-right = ##f
  ragged-last = ##f

  \context {
    \Score
    \omit BarNumber             
    \override SpacingSpanner.strict-note-spacing = ##t
    proportionalNotationDuration = #(ly:make-moment 1/16)
  }
}

% ; = )



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