\version "2.22.1"

%---------------------------------------------------------------------
Compositeur = "franco Cesarini"  
Dates = "2000-2017"
Titre =  "Arizona"  
FromRecueil = "folk indien"  
InfoRecueil = "Version 1"
DateRecueil = "01-09-2022"
SousTitre = "Christian le Bars"

%%% Commandes markup pour la page de couverture
% Titre du recueil
#(define-markup-command (couv_recueil_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 36 #:medium name)))
#(define-markup-command (couv_recueil_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 36
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
% Info supplémentaire sur le recueil
#(define-markup-command (couv_infoRecueil_settings layout props name) (string?)
%       (interpret-markup layout props (markup #:abs-fontsize 16 #:medium name)))
#(define-markup-command (couv_infoRecueil_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 20
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
% Date du recueil
#(define-markup-command (couv_dateRecueil_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 16 #:medium name)))
#(define-markup-command (couv_dateRecueil_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 16
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
% From recueil
#(define-markup-command (couv_fromRecueil_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 20 #:medium name)))
#(define-markup-command ( couv_fromRecueil_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 20
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
 %Titre du morceau
#(define-markup-command (couv_title_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 36 #:medium #:caps name)))
#(define-markup-command ( couv_title_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 36
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
% Sous-titre du morceauhttp://lsr.di.unimi.it/LSR/Item?id=368
#(define-markup-command (couv_subtitle_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 16 #:italic #:medium name)))
#(define-markup-command ( couv_subtitle_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 16
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
 %Compositeur
#(define-markup-command (couv_compositeur_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 28 name)))
#(define-markup-command ( couv_compositeur_settings layout props name) (string?)
       (interpret-markup layout props (markup #:abs-fontsize 28
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
 %Dates du compositeur
#(define-markup-command (couv_datesCompositeur_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 20 name)))
#(define-markup-command ( couv_datesCompositeur_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 20
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
#(define-markup-command (couv_title_settings layout props name) (string?)
        (interpret-markup layout props (markup #:abs-fontsize 36
#:medium #:caps #:override '(font-name . "Lilyjazz-text") name)))
%-------------------------------------------------------
couvfromRecueil = \markup \couv_fromRecueil_settings #FromRecueil
couvinfoRecueil = \markup \couv_infoRecueil_settings #InfoRecueil
couvdateRecueil = \markup \couv_dateRecueil_settings #DateRecueil
couvTitre = \markup \couv_title_settings #Titre
couvSoustitre = \markup \couv_subtitle_settings #SousTitre
couvCompositeur = \markup \couv_compositeur_settings #Compositeur
couvDates = \markup \couv_datesCompositeur_settings #Dates
%-----------------------------------------------------------------
CouvSettings = 
\paper 
 {
   bookTitleMarkup =
   \markup
   {
     \column
      {
        \fill-line { \lower #25 \couvCompositeur }
        \fill-line { \lower #6 \couvDates }
        \fill-line { \lower #11 \draw-line #'(30 . 0) }
        \fill-line { \lower #18 \couvTitre }
                        \fill-line { \lower #10 \couvfromRecueil }
                       \fill-line { \lower #4 \couvinfoRecueil }
                       \fill-line { \lower #3 \draw-line #'(5 . 0) }
                       \fill-line { \lower #5 \couvdateRecueil }
                        \fill-line { \lower #14 \draw-line #'(30 . 0) }
                        \fill-line { \lower #20 \couvSoustitre }
       }
   }
}
%-----------------------------------
\book 
 {
  \markup { \null }
  \paper { \CouvSettings } \pageBreak
  \score 
   {
     c
    \layout {}  
   }
 }