\version "2.20.0"

%%%%%%%%%%%%%%%%%%%%%% Defs hirondelles %%%%%%%%%%%%%%%%%%%%%%%%%%%
unit = \markup\with-dimensions-from \null
\combine\stencil
 #(make-path-stencil
   '(M 202.563 88.449 
     C 202.563 99.43 193.656 108.336 182.676 108.336 
     C 171.691 108.336 162.789 99.43 162.789 88.449 
     C 162.789 77.465 171.691 68.563 182.676 68.563 
     C 193.656 68.563 202.563 77.465 202.563 88.449 Z
     M 153 126 L 267 126
     M 182.5 12 L 182.5 114
     M 156 88 L 231 88)
   0.2 .08 .08 #f)
 \combine\stencil
   #(make-path-stencil
     '(M 191.512 88.449 
       C 191.512 93.328 187.555 97.285 182.676 97.285 
       C 177.793 97.285 173.836 93.328 173.836 88.449 
       C 173.836 83.566 177.793 79.609 182.676 79.609 
       C 187.555 79.609 191.512 83.566 191.512 88.449 Z)
     0.2 .08 .08 #t)
 \with-color #white \stencil
   #(make-path-stencil
     '(M 191.5 88 L 174 88 M 182.5 79.5 L 182.5 97)
     0.2 .08 .08 #f)

hirondBD = \markup\with-dimensions-from \null {
  \combine 
  \rotate #-90 \unit 
  \scale #'(1 . -1) \unit
}
hirondHD = \markup\with-dimensions-from \null \rotate #90 \hirondBD
hirondHG = \markup\with-dimensions-from \null \rotate #180 \hirondBD
hirondBG = \markup\with-dimensions-from \null \rotate #270 \hirondBD
hirondelles = \markup\with-dimensions-from \null \concat {
  \override #'(baseline-skip . 0)
  \right-column {
    \translate #'(0 . -20.15)\concat { \hspace #-.6 \hirondHG }
    \vspace #16.07
    \hirondBG
  }
  \hspace #117.65
  \override #'(baseline-skip . 0)
  \right-column {
    \translate #'(0 . -20.15)\concat { \hspace #-.6 \hirondHD }
    \vspace #16.07
    \hirondBD
  }
}

gabarit = \markup\with-dimensions-from \null {
  \combine 
  \with-color #red
  \stencil #(make-path-stencil
     '(M 0 1 L 137.7 1 L 137.7 -67.3 L 0 -67.3 Z)
     .2 1 1 #t)
  \combine 
  \with-color #white
  \stencil #(make-path-stencil 
     '(M 2 -1 L 135.7 -1 L 135.7 -65.3 L 2 -65.3 Z) .2 1 1 #t)
  \with-color #red
    \stencil #(make-path-stencil '(M 69 .5 L 69 -67) .5 1 1 #f)
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Test livret CD :

%----- mes airs
andro = \relative c'{
  \time 4/4
  \clef "treble_8"
  \key  a \minor
  \repeat volta 2{
    a4 a4 a4. b8
    c8[ d] c b a4 c8 a
    b4 b b4. d8
    c4 b4 a2
  } %\break
  \repeat volta 2 {
    e'4 e e d8 c
    d4 d d2
    c4 c c b8 a
    b4 b4 b2 
    e4 e8 d b4. d8
    c4 b a2
  }
}

urmaligorn = \relative c {
  \time 4/4
  \clef "treble_8"
  \key  c \major
  \repeat volta 2{
    e4 e8 d c4. d8
    e4 f d2
    e4 e8 d c4. d8
    e4 f d2
  }%\break
  \repeat volta 2{
    c4 c8 e g4. a8
    f4 g e2
    c4 c8 e g2 f8 e8
    d8 d b4 c2
  }
}

cochinchine = \relative c' {
  \time 4/4
  \clef "treble_8"
  \key  g \major
  \repeat volta 2{
d4 d8 d b[ g] b d
b[ g] b d d[ c] a fis
d'4 d8 d  b[ g] b d
d8[ c] a fis g4 r
  }%\break
  \repeat volta 2{
b4 b8 b g4 g
c4 c a2
d4 d8 d b[ g] b d 
d8[ c] a fis g4 r
  }
}

foggydew = \relative c' {
  \time 4/4
  \clef "treble_8"
  \key  e \minor
  \partial 4 b8 d
  e4 d8 b e4 d8 b
  a4. b8 d,4 e8 fis
  g[ b] a g  e4 d
  e2 r4 g'8 fis %\break
  e4 d8 b e4 d8 b
  a4. b8 d,4 e8 fis
  g[ b] a g  e4 d
  e2 r4 e8 fis %\break
  g4. b8 d4 c8 b
  a4 g8 a b4 g8 a
  b8 d g fis e d b d 
  e2.  g8 fis %\break
  e4 d8 b e4 d8 b
  a4. b8 d,4 e8 fis 
  g8[ b] a g e4 d
  e2. r4

}

#(set! paper-alist (cons '("livret" . (cons (* 297 mm) (* 210 mm))) paper-alist))
\paper {
  #(set-paper-size "livret")
}
\pointAndClickOff
\markup {
  %% juste pour la mise en page :
  %\combine \translate #'(8 . -21.15) \gabarit
  \combine \translate #'(18 . -10) \hirondelles
  \combine\translate #'(18 . -30) \bold "Trad2rives"
  \combine\translate #'(18 . -35)
    \override #'(baseline-skip . 3)
    \left-column {
      "Track 1. Andro (Bretagne)"
      "Track 2. Ur Maligorn (Bretagne)"
      "Track 3. Cochinchine (Danemark)"
      "Track 4. Foggy Dew (Irlande)"
    }
  \combine\translate #'(22 . -80) "Musiques en Seine − Saint-Mammès (77)"
  \combine \translate #'(84 . -35)  
    \override #'(baseline-skip . 5)
    \center-column \bold {
      \fontsize #7 "Trad2rives"
      \fontsize #3 "atelier de musique traditionnelle"
      \vspace #5 "(ma couverture)"
    }
  \null
}
\pageBreak
\markup
  \combine\translate #'(18 . -10) % <= à ajuster !!
    \hirondelles
  %% juste pour la mise en page (à ajuster !!) :
  %\combine \translate #'(8 . -21.15) \gabarit
  \combine\translate #'(16 . -24) \bold "Andro"
  \combine\translate #'(16 . -26) \fontsize #-2 "Bretagne"
  \combine \translate #'(16 . -30) 
    \score {
      \andro
      \layout {
        indent = 8
        system-count = 2
        line-width = 90
        #(layout-set-staff-size 13) 
        \context {
          \Staff
          \override Clef.space-alist = #'((key-signature minimum-space . 0))  
          \override TimeSignature.space-alist = #'((first-note . (fixed-space . 0))) 
        }
      }
    }
  \combine\translate #'(16 . -54) \bold "Ur Maligorn"
  \combine\translate #'(16 . -56) \fontsize #-2 "Bretagne"
  \combine \translate #'(16 . -60) 
    \score {
      \urmaligorn
      \layout {
        indent = 8
        system-count = 2
        line-width = 90
        #(layout-set-staff-size 13) 
        \context {
          \Staff
          \override Clef.space-alist = #'((key-signature minimum-space . 0))  
          \override TimeSignature.space-alist = #'((first-note . (fixed-space . 0))) 
        }
      }
    }
  \combine\translate #'(85 . -24) \bold "Cochinchine"
  \combine\translate #'(85 . -26) \fontsize #-2 "Danemark"
  \combine \translate #'(85 . -30) 
    \score {
      \cochinchine
      \layout {
        indent = 8
        system-count = 2
        line-width = 90
        #(layout-set-staff-size 13) 
        \context {
          \Staff
          \override Clef.space-alist = #'((key-signature minimum-space . 0))  
          \override TimeSignature.space-alist = #'((first-note . (fixed-space . 0))) 
        }
      }
    }
  \combine\translate #'(85 . -48) \bold "Foggt Dew"
  \combine\translate #'(85 . -50) \fontsize #-2 "Irlande"
  \combine \translate #'(85 . -54) 
    \score {
      \foggydew
      \layout {
        indent = 8
        system-count = 4
        line-width = 90
        #(layout-set-staff-size 13) 
        \context {
          \Staff
          \override Clef.space-alist = #'((key-signature minimum-space . 0))  
          \override TimeSignature.space-alist = #'((first-note . (fixed-space . 0))) 
        }
      }
    }
  \null