User:Akkordeonnoten/layout.ly

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search
\layout {
  \context {
    \Voice
    beamExceptions = #'()
    %autoBeaming = ##f
    \override BreathingSign.text =
    \markup { \musicglyph #"scripts.lvarcomma" }
    \override Stem.neutral-direction = #down
    \override Script.outside-staff-priority = #'()
    \override Script.padding = #1
  }

  \context {
    \Staff
    \RemoveEmptyStaves
  }

  \context {
    \Staff
    \name BarNumberStaff
    \alias Staff
    \consists "Bar_number_engraver"
    \override BarNumber.color = #(rgb-color 0.7 0.7 0.7)
    \override BarNumber.layer = #-200
    \override BarNumber.outside-staff-priority =#'()
    \override BarNumber.padding = #1
    \override BarNumber.font-size = #-1.9
    \override BarNumber.font-series = #'bold
    \override BarNumber.self-alignment-X = #0
    \override BarNumber.break-visibility = #end-of-line-invisible
  }

  \context {
    \ChordNames
    chordNameLowercaseMinor = ##t
    chordNameExceptions = #chExBasses
    \remove Staff_performer
    chordRootNamer = #germanChords
    \override ChordName.font-name = #"Orator10 BT"
    \override ChordName.font-size = #-0.2
    chordNoteNamer = #germanChords
    \override ChordName.X-offset =
    #ly:self-alignment-interface::aligned-on-x-parent
    \override ChordName.self-alignment-X = #CENTER
    \override ChordName.font-size = #0
    \override ChordName.font-name = #"Arial Narrow"
    \override ChordName.layer = #2
    \override ChordName.extra-spacing-width = #'(-0.07 . 0.07)
    noChordSymbol = ##f % \markup \fontsize #-2 { \musicglyph #"rests.2" }
  }

  \context {
    \ChordNames
    \name UpperChords
    \override ChordName.self-alignment-X = #LEFT
    chordNameLowercaseMinor = ##f
    \alias ChordNames
    \override Rest.stencil = ##f
    chordChanges = ##f
    chordNameLowercaseMinor = ##f
    chordNameExceptions = #chExceptions
    \override ChordName.font-name = #"Orator10 BT"
    \override ChordName.font-size = #-0.2
    noChordSymbol = ##f % \markup { \musicglyph #"rests.2" } % ##f
    alignAboveContext = #"melodie"
  }

  \context {
    \Score
    \accepts UpperChords
    \accepts MyFingers
    \override VerticalAxisGroup.remove-first = ##t
    \remove "Bar_number_engraver"
    \override MetronomeMark.font-size = #1
    \override MetronomeMark.font-shape = #'caps
    \override BarLine.thick-thickness = 5
    barNumberVisibility = #all-bar-numbers-visible
    \override Timing.beamExceptions = #'()
    \override Timing.baseMoment = #(ly:make-moment 1/4)
  }

  \context {
    \Dynamics
    \override Hairpin.to-barline = ##f
    alignBelowContext = melodie
    \override TextSpanner.outside-staff-priority = ##f
    \override TextSpanner.padding = #'()
    \override DynamicText.outside-staff-priority = ##f
    \override DynamicText.padding = #4
  }

  \context {
    \RhythmicStaff
    \accepts MyFingers
    \override StaffSymbol.line-count = #1
    \override SustainPedal.font-family = #'emm
    printPartCombineTexts = ##f
    fontSize = #-1
    \override StaffSymbol.staff-space = #(magstep -1)
    \remove Ledger_line_engraver
    \override NoteColumn.before-line-breaking =
    #(lambda (grob)
       (let* ((pap-col (ly:grob-parent grob X))
              (pap-col-elts (ly:grob-object pap-col 'elements))
              (chord-names
               (if (ly:grob-array? pap-col-elts)
                   (filter
                    (lambda (elt)
                      (grob::has-interface elt 'chord-name-interface))
                    (ly:grob-array->list pap-col-elts))
                   '())))
         (for-each
          (lambda (chrd)
            (ly:grob-set-parent! chrd X grob))
          chord-names)))
  }

  \context {
    \type "Engraver_group"
    \name MyFingers
    \consists Fingering_engraver
    \consists Fingering_column_engraver
    \consists Parenthesis_engraver
    \consists Text_engraver
    \override Fingering.direction = #UP
    \override Fingering.self-alignment-X = #0.5
    \override TextScript.direction = #UP
    \override Fingering.font-family = #'emm
    \override Fingering.outside-staff-priority = #100
    \override TextScript.self-alignment-X = #-0.5
  }

  \context {
    \StaffGroup
    \accepts UpperChords
    \accepts BarNumberStaff
  }
}