\version "2.18.2"

#(set-global-staff-size 16)

%% swap commentings to see English names:
% targettag = #'eng
targettag = #'ukr

#(define (get-langdata param defval)
   (ly:assoc-get param
     (ly:assoc-get targettag langdata '())
     defval))

langdata =
#'(
    (eng .
      ((french . "French clef")
       (treble . "Treble clefs")
       (ottava . "(all'ottava)")
       (quindicesima . "(quindicesima)")
       (soprano . "Soprano clef")
       (mezzo . "Mezzo soprano clef")
       (alto . "Alto clef")
       (tenor . "Tenor clef")
       (baritone . "Baritone C-clef")
       (baritonefa . "Baritone F-clef")
       (ottavabassa . "(all'ottava bassa)")
       (bass . "Bass clef")
       (subbas . "Sub-bass clef")
       (tab . "Tab staff clefs")
       (perc . "Neutral clef")
       ;
       (gclefs . "G-clefs")
       (cclefs . "C-clefs")
       (fclefs . "F-clefs")))
    ;; You can add other languages here in the same way.
    ;; Default is Ukrainian, see langdata calls below.
    )


#(define-markup-command (putC layout props) ()
   (interpret-markup layout props
     #{\markup { \concat { "c" \super\smaller\smaller "1"} }#}))

#(define-markup-command (putG layout props) ()
   (interpret-markup layout props
     #{\markup { \concat { "g" \super\smaller\smaller "1"} }#}))

#(define-markup-command (putGtwo layout props) ()
   (interpret-markup layout props
     #{\markup { \concat { "g" \super\smaller\smaller "2"} }#}))

#(define-markup-command (putGfour layout props) ()
   (interpret-markup layout props
     #{\markup { \concat { "g" \super\smaller\smaller "4"} }#}))

\score {
  \new StaffGroup \with {
    \override VerticalAxisGroup.staff-staff-spacing = #'((basic-distance . 14))
    systemStartDelimiter = #'SystemStartBar
  } <<
    \new StaffGroup <<
      \set StaffGroup.instrumentName = \markup \bold\larger #(get-langdata 'gclefs "Ключі Соль")
      \new Staff \with {
        \override TextScript.staff-padding = #3
      } {
        \clef "treble"
        \mark #(get-langdata 'treble "Скрипкові")
        g'1-\markup\putG
        s2
        %
        \clef "treble^8"
        \mark #(get-langdata 'ottava "октавні")
        g''1-\markup\putGtwo
        %
        \clef "treble^15"
        \mark #(get-langdata 'quindicesima "")  % "двооктавний (?)")
        g'''1-\markup\putGfour
        %
        \clef "treble_8"
        \mark #(get-langdata 'ottavabassa "")
        g1-"g"
        %
        \bar "|."
      }
      \new Staff {
        \clef "french"
        \mark #(get-langdata 'french "Старофранцузький")
        g'1-\markup\putG
        s2 s1*3
      }
    >>
    \new StaffGroup <<
      \set StaffGroup.instrumentName = \markup \bold\larger #(get-langdata 'cclefs "Ключі До")
      \new Staff {
        \clef "soprano" 
        \mark #(get-langdata 'soprano "Сопрановий (дискантовий)")
        c'1-\markup\putC 
        s2 s1*3 
      }
      \new Staff {
        \clef "mezzosoprano"
        \mark #(get-langdata 'mezzo "Мецо-сопрановий")
        c'1-\markup\putC
        s2 s1*3
      }
      \new Staff {
        \clef "alto" 
        \mark #(get-langdata 'alto "Альтовий")
        c'1-\markup\putC  
        s2 s1*3 
      }
      \new Staff {
        \clef "tenor"
        \mark #(get-langdata 'tenor "Теноровий")
        c'1-\markup\putC
        s2 s1*3
      }
      \new Staff {
        \clef "baritone" 
        \mark #(get-langdata 'baritone "Баритоновий «до»")
        c'1-\markup\putC 
        s2 s1*3
      }
    >>
    \new StaffGroup <<
      \set StaffGroup.instrumentName = \markup \bold\larger #(get-langdata 'fclefs "Ключі Фа")
      \new Staff {
        \clef "varbaritone"
        \mark #(get-langdata 'baritonefa "Баритоновий «фа»")
        f1-"f"
        s2 s1*3
      }
      \new Staff {
        \clef "bass"
        \mark #(get-langdata 'bass "Басовий")
        f1-"f"
        s2 s1*3
      }
      \new Staff {
        \clef "subbass"
        \mark #(get-langdata 'subbas "Басопрофундовий")
        f1-"f"
        s2 s1*3
      }
    >>
    \new TabStaff {
      \clef "tab"
      \mark #(get-langdata 'tab "Табулатурні")
      c'1-\markup\putC s2 s1
      \clef "moderntab"
      c'1-\markup\putC s1
    }
    \new PetrucciStaff {
      \clef "percussion"
      \mark #(get-langdata 'perc "Перкусійний")
      c'1-\markup\putC s2 s1
      s1*2
    }
  >>
  
  \layout {
    \context {
      \Score
      \remove "Mark_engraver"
    }
    \context {
      \StaffGroup
      \remove "Span_bar_engraver"
    }
    
    \context {
      \Staff
      \remove "Time_signature_engraver"
      \consists "Mark_engraver"
      \override RehearsalMark.self-alignment-X = #LEFT
      \override BarLine.break-visibility = #end-of-line-visible
    }
    
    \context {
      \TabStaff
      \consists "Mark_engraver"
      \override RehearsalMark.self-alignment-X = #LEFT
      \revert TextScript.stencil
      \override BarLine.break-visibility = #end-of-line-visible
    }
    
    \context {
      \PetrucciStaff
      \consists "Mark_engraver"
      \override RehearsalMark.self-alignment-X = #LEFT
      \remove "Time_signature_engraver"
      \override BarLine.break-visibility = #end-of-line-visible
    }
  }
}

\header {
  tagline = #""
}

\paper {
  ragged-last = ##f
  indent = 2.3\cm
  paper-width = 14\cm
  paper-height = 25\cm
}