Re: polymétries et mise en page

[Valentin Villenave]

On 4/21/20, Christian Lalune <address@hidden> wrote:
> Il n’y a plus aucune barre de mesure, mais je peux les ajouter sans problème
> à la fin de chacune des mesures de chaque structure. C’est beaucoup plus
> efficace que de les ajouter à chaque noire.

Triple buse que je suis, j’aurais dû remarquer que ça écrasait toutes
les barres de mesures…

C’est en fait beaucoup plus facile que ça, même pas besoin d’ajouter
une music-function :

%%%%

fStructure =
#(define-music-function
  (parser location string) (string?)
  #{ ^\markup { \ellipse { \abs-fontsize #16 \bold #string } } #}
  )

respiration = \markup { \bold \abs-fontsize #24 "◊" }

\paper {
  #(set-paper-size "a4")
  left-margin = 20\mm
  right-margin = 20\mm
  bottom-margin = 20\mm
}

structureDeuxVoice = {
  c4 ^\fStructure "2" r c r
  c4 r r2
  c4 r c r
  c4 r r2
}

structureTroisVoice = {
  c16 ^\fStructure "3" c c c c8 c16 c c4 r8 c16 c
  c4 r8 c16 c c8 c16 c c8 r
}

structureQuatreAVoice ={
  \tuplet 3/2 4 {
    c8 ^\fStructure "4a" c c c c c c c c c c c
    c8 c c c c c
  } \tuplet 3/2 { c4 c c }
}

structureQuatreBVoice = {
  \textLengthOn
  \tuplet 3/2 4 { c8 ^\fStructure "4b" c c c c c } r4 r ^\respiration
  \tuplet 3/2 4 { c8 c c c c c } r4 r ^\respiration
}

structureQuatreVoice = {
  \structureQuatreAVoice
  \structureQuatreBVoice
}

structureHuitVoice = {
  \time 3/4
  c8 ^\fStructure "8" \tuplet 3/2 { c16 c c } c8 \tuplet 3/2 { c16 c c } c8 c
  %\bar "" \break
  c8 \tuplet 3/2 { c16 c c } c8 \tuplet 3/2 8 { c16 c c c c c c c c }
  %\bar "" \break
  c8 \tuplet 3/2 { c16 c c } c8 \tuplet 3/2 { c16 c c } c8 c
  %\bar "" \break
  c8 \tuplet 3/2 { c16 c c } c8 \tuplet 3/2 8 { c16 c c c c c c c c }
  \time 4/4
  c4 r r c
}

voixUn = \structureQuatreVoice

voixDeux = \structureDeuxVoice

voixTrois = \structureTroisVoice

voixQuatre = \structureHuitVoice

\score {
  \new ChoirStaff \transpose c g' <<
    \new Staff \voixUn
    \new Staff \voixDeux
    \new Staff \voixTrois
    \new Staff \voixQuatre
  >>
  \layout {
    % pour obtenir des métriques différentes et mesures de longueur inégale
    \context {
      \Score
      \remove "Timing_translator"
      \remove "Default_bar_line_engraver"
    }
    \context {
      \Staff
      \consists "Timing_translator"
      \consists "Default_bar_line_engraver"
      \consists #(lambda (ctx)
                   `((process-music
                      . ,(lambda (trans)
                           (or (not (null?
                                     (ly:context-property ctx 'whichBar)))
                               (ly:context-set-property! ctx 'whichBar "")))
                      )))
    }
  }
  \midi { }
}

%%%%

Cordialement,
V. V.