deux colonnes musique et texte

Bonjour tout le monde,

Est-il possible de réaliser facilement ce que l'image ci-joint montre à savoir un deux colonnes musique d'un côté et texte de l'autre ?

Je n'ai pas trouvé de pistes sur le LSR...

Merci et bien cordialement

Gérard

Par exemple :

%%%%%%%%%%%
\version "2.18.2"

\markup \line {
\column {
\score { \relative {c'2_"Intervalle ascendant" ( f)}}
\score {\relative {e''2_"Intervalle descendant" ( g,)}}

}
\column {
"mon texte..."
"bla bla fdfjsklfjdskfjdskfljsd"
"fdsjfkdsljf séfdks féldsk jf"
"fdljfsdfdkfsjflékdjs"
"fdsljfkdsfldsfkjdséf"
}
}
%%%%%%%%%%%

A+

···

Christophe Pochon

Avec quelques réglages optionnels :

\version "2.20.0"

\markup {
\override #'(line-width . 60) % <= à ajuster
\fill-line {
\override #'(baseline-skip . 13)
\left-column {
{
\score {
{ c'2(-"intervalle ascendant" f') }
\layout {
indent = 0
ragged-right = ##f
line-width = 60
}
}
\score {
{ e''2(-"intervalle descendant" g') }
\layout {
indent = 0
ragged-right = ##f
line-width = 60
}
}
}
}
\hspace #1 % <= à ajuster
\left-column {
\vspace #1 % % <= à ajuster
"mon texte..."
"bla bla bla bla bla bla"
"bla bla bla bla bla bla"
"bla bla bla bla bla bla"
"bla bla bla bla bla bla"
"bla bla bla bla bla bla"
}
}
}

Cordialement,
Pierre

···

Le mer. 13 mai 2020 à 11:39, Christophe Pochon <****@****> a écrit :

Par exemple :

%%%%%%%%%%%
\version "2.18.2"

\markup \line {
\column {
\score { \relative {c'2_"Intervalle ascendant" ( f)}}
\score {\relative {e''2_"Intervalle descendant" ( g,)}}

}
\column {
"mon texte..."
"bla bla fdfjsklfjdskfjdskfljsd"
"fdsjfkdsljf séfdks féldsk jf"
"fdljfsdfdkfsjflékdjs"
"fdsljfkdsfldsfkjdséf"
}
}
%%%%%%%%%%%

A+

Christophe Pochon

Le mer. 13 mai 2020 à 10:44, Gerard <****@****> a écrit :

Bonjour tout le monde,

Est-il possible de réaliser facilement ce que l'image ci-joint montre à
savoir un deux colonnes musique d'un côté et texte de l'autre ?

Je n'ai pas trouvé de pistes sur le LSR...

Merci et bien cordialement

Gérard

Merci à vous deux, c'est super !

Je garde la version de Pierre pour les réglages.

Ça peut être mis sur le LSR ? Je ne sais pas faire surtout si en plus ça doit être en anglais...

Cordialement

Gérard

···

Le 13/05/2020 à 11:43, Pierre Perol-Schneider a écrit :

version "2.20.0"

\markup {
\override #'(line-width . 60) % <= à ajuster
\fill-line {
\override #'(baseline-skip . 13)
\left-column {
{
\score {
{ c'2(-"intervalle ascendant" f') }
\layout {
indent = 0
ragged-right = ##f
line-width = 60
}
}
\score {
{ e''2(-"intervalle descendant" g') }
\layout {
indent = 0
ragged-right = ##f
line-width = 60
}
}
}
}
\hspace #1 % <= à ajuster
\left-column {
\vspace #1 % % <= à ajuster
"mon texte..."
"bla bla bla bla bla bla"
}
}
}

On peut même s’amuser à faire tout ça automatiquement :

%%%%

\version "2.19.81"

pageITexte = "Lorem ipsum dolor sit amet,
consectetur adipiscing elit, sed do eiusmod
tempor incididunt ut labore et dolore magna
aliqua. Ut enim ad minim veniam, quis nostrud
exercitation ullamco laboris nisi ut aliquip
ex ea commodo consequat. Duis aute irure
dolor in reprehenderit in voluptate velit
esse cillum dolore eu fugiat nulla pariatur.
Excepteur sint occaecat cupidatat non proident,
sunt in culpa qui officia deserunt mollit anim
id est laborum."

pageIa = { c'2( f') }
pageIaTexte = "intervalle ascendant"

pageIb = { e''2( g') }
pageIbTexte = "intervalle descendant"

%%%%

serie = #`(a b c d e f g h i j k l)

chercheMusique =
#(define-music-function (nom) (symbol?)
   (let ((mus (ly:parser-lookup nom)))
     (if (ly:music? mus) mus
         (make-music 'Music 'void #t))))

#(define (chercheTexte nom)
   (let ((mark (ly:parser-lookup nom)))
     (cond
      ((string? mark) (make-justify-string-markup mark))
      ((markup? mark) mark)
      (else (make-null-markup)))))

fabriquerPage =
#(define-music-function (nom) (symbol?)
   (let* ((text-suffix 'Texte)
          (suffix-list (ly:parser-lookup 'serie))
          (columns 2)
          (paper #{ \paper { } #})
          ;; LSR #1013.
          (landscape (ly:output-def-lookup paper 'landscape))
          (paper-width (ly:output-def-lookup paper 'paper-width))
          (paper-height (ly:output-def-lookup paper 'paper-height))
          (plain-line-width (ly:output-def-lookup paper 'line-width))
          (plain-left-margin (ly:output-def-lookup paper 'left-margin))
          (page-width (if landscape paper-height paper-width))
          (page-height (if landscape paper-width paper-height))
          (left-margin (if (null? plain-left-margin)
                           (if (null? plain-line-width)
                               10
                               (/ (- page-width plain-line-width) 2))
                           plain-left-margin))
          (total-width (if (null? plain-line-width)
                           (- page-width (* (* columns 2)
                                            left-margin))
                           plain-line-width))
          (line-width (/ total-width (1+ columns))))

     (define (symbol-append . args)
       (string->symbol
        (apply string-append
               (map symbol->string args))))

       (collect-scores-for-book
        (list #{
          \markup
          \fill-line {
            \override #(cons 'line-width line-width)
            \fill-line {
              \hspace #(* left-margin -1)
              \center-column {
                $(map
                  (lambda (n)
                    (let* ((name (symbol-append nom n))
                           (lookup (ly:parser-lookup name)))
                      (if (null? lookup)
                          ""
                          #{
                            \markup
                            \center-column {
                              \vspace #2
                              \score {
                                \chercheMusique $name
                              }
                              $(chercheTexte
                                (symbol-append name text-suffix))
                          } #}))) suffix-list)
              }
              ""
            }
            \line {
              \hspace #(* left-margin -1.5)
              \column {\vspace #8 \draw-line #'(0 . 20)}
            }
            \override #(cons 'line-width line-width)
            \center-column {
              $(chercheTexte (symbol-append nom text-suffix))
            }
              } #}))
       #{ \pageBreak
       #}))

\fabriquerPage #'pageI

%%%%

V.

···

On 5/13/20, Gerard <****@****> wrote:

Est-il possible de réaliser facilement ce que l'image ci-joint montre à
savoir un deux colonnes musique d'un côté et texte de l'autre ?