Re: Un peu de couleur...

[Vincent Gay]

Le 12/12/2021 à 18:44, Christian LE BARS a écrit :

> bonjour
>       Vincent. Super ta partoche!!
>       
>       
>       Puis -je en avoir un exemplaire, moi aussi a des fin didactique.
>       
>       
>       
>     
    
    Code ci-dessous. Quelques commentaires :
    
    1) J'ai copié / collé le code fourni par Jean ( sans l'exemple de
    fin) dans un fichier que j'ai appelé staffColor.ly et que j'appelle
    par un \include. Attention : si on appelle le fichier sans
    autre modifications toutes les portées sont coloriées en noir.
    Commencez donc votre code par \staffColor white. (Jean, serait-il
    possible que le blanc soit la couleur par défaut si non définie ?)
    
    2) Comme je sais que Christian utilise Lilyjazz j'ai laissé
    jazzchords.ily et lilyjazz.ily dans les \include mais ce n'est pas
    indispensable et ceux qui n'ont pas Lilyjazz peuvent commenter les 2
    lignes sans problème
    
    3) la fonction showStartBar (intégrée dans le code) permet de
    démarrer par une barre de mesure, ici une barre de reprise. Cela
    permet aussi de laisser la clef et l'indication de mesure en blanc.
    J'ai essayé de commencer par un silence invisible (\partial 32 s32)
    ce qui rendrait cette fonction inutile et permettrait t'intégrer
    l'armure initiale à l'intérieur de la première mesure mais cela me
    génère un espace beaucoup trop grand avant la première barre de
    mesure. J'essaierai de résoudre ça ultérieurement. 
    
    4) Lilypond reconnaît les nom de couleurs selon la norme X11. Il y a
    une liste dans la doc mais sans nuancier. Une petite recherche dans
    le web permet de trouver un tableau plus facilement utilisable, par
    exemple ici : http://www.css-faciles.com/couleurs-css.php
    
    Bonne semaine.
    
    
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    
      \version "2.22.1"
      #(set-global-staff-size 18)
      \include "jazzchords.ily"
      \include "lilyjazz.ily"
      \include "staffColor.ly"
      
      
      \paper {
        indent = 0\mm
        ragged-last-bottom = ##t
        ragged-bottom = ##f
        ragged-last = ##f
        markup-system-spacing = #'((basic-distance . 23)
                                   (minimum-distance . 8)
                                   (padding . 1))
        score-system-spacing = #'((basic-distance . 23)
                                  (minimum-distance . 20)
                                  (padding . 5))
      }
      
      
      title = #"Les passantes"
      composer = #"Georges Brassens"
      meter = #"(Ballad)"
      
      realBookTitle = \markup {
        \score {
          {
            \override TextScript.extra-offset = #'(0 . -4.5)
            \staffColor white
            s4
            s^\markup {
              \fill-line {
                \fontsize #1 \lower #1 \rotate #7 \concat { " " #meter }
                \fontsize #4
                \override #'(offset . 9)
                \override #'(thickness . 6)
                \underline \larger \larger #title
                \fontsize #1 \lower #1 \concat { #composer " " }
              }
            }
            s
          }
          \layout {
            \omit Staff.Clef
            \omit Staff.TimeSignature
            \omit Staff.KeySignature
            ragged-right = ##f
          }
        }
      }
      
      voltaAdLib = \markup { 1. 2. 3… \italic \text "ad lib." }
      voltaOnCue = \markup \small \text "Last X"
      
      
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      % Start with a Barline
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      
      showStartBar = {
        \once \override Score.BreakAlignment.break-align-orders =
        #(make-vector 3 '(instrument-name
                          left-edge
                          ambitus
                          breathing-sign
                          clef
                          key-signature
                          time-signature
                          staff-bar
                          custos))
        \once \override Staff.TimeSignature.space-alist =
        #'((first-note . (fixed-space . 2.0))
           (right-edge . (extra-space . 0.5))
           ;; free up some space between time signature
           ;; and repeat bar line
           (staff-bar . (extra-space . 1)))
      }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      
      
      
      \header {
        pdftitle = #title
        pdfauthor = #composer
        title = \realBookTitle
        tagline = ##f
      }
      
      \layout {
        \context {
          \Score
          \omit BarNumber
          startRepeatType = #"[|:"
          endRepeatType = #":|]"
          doubleRepeatType = #":|][|:"
          \override Clef #'break-visibility = #'#(#f #f #f)
          \override KeySignature #'break-visibility = #'#(#f #t #t)
          \override SystemStartBar #'collapse-height = #1
        }
        \context { 
          \Staff
          printPartCombineTexts = ##f
          \consists "Merge_rests_engraver"
        }
        \context {
          \ChordNames
          \override ParenthesesItem.font-size = #2
        }
        \context { \Score markFormatter = #format-mark-box-alphabet }
      }
      
      
      
      accords = \chordmode {
        \set chordChanges = ##t
        f1:7+ e:7 a:7 d:7 d:m7 g:7 c:7+ e:7 
        f1:7+ e:7 a:7 d:7 a:m7 g:7 a:m7 g2:m7 c:7 a1:m 
      }
      
      theNotes =  \relative c''' {
        \clef "treble" \key f \major \time 4/4
        \staffColor white
        \showStartBar \bar "[|:"
        \set Staff.explicitKeySignatureVisibility = ##'#(#f #t #t)
        \override Staff.KeyCancellation.break-visibility =
      #all-invisible 
      
        \repeat volta 2
        {
          << 
            { \staffColor aqua a1 
              \key a \major \staffColor pink  gis 
              \key d \major \staffColor orange g! 
              \key g \major \staffColor yellow fis \break 
              \key c \major \staffColor Chartreuse f! f e 
              \key a \major \staffColor pink d \break
              \key f \major \staffColor aqua e 
              \key a \major \staffColor pink d 
              \key d \major \staffColor orange cis 
              \key g \major \staffColor yellow c! \break 
              \key c \major \staffColor Chartreuse c b c  } 
            \\ 
            { e d cis c 
              c b b gis
              a gis g! fis
              g f c 
            } 
          >>
          
        }
        \alternative {
          { 
            \overrideProperty Score.VoltaBracket.text \voltaAdLib
            << { \key f \major \staffColor aqua bes' } \\ { f2 e }
      >> }
          { 
            \overrideProperty Score.VoltaBracket.text \voltaOnCue
            << { \key c \major \staffColor Chartreuse c'1 } \\ {
      e,1 } >> \bar ".." }
        }
      }
      
      
      
      \book {
        \paper {
          #(set-paper-size "a4")
          page-count = #1
        }
        \bookpart {
          \score {
            <<
              \new ChordNames { \accords }
              \new Staff \theNotes
            >>
      } } }
    
-- 
Vincent Gay
Envoyé depuis mon saxo-phone :)
https://myrealbook.vintherine.org/ - http://photos.vintherine.org/

OpenPGP_signature
Description: OpenPGP digital signature