\version "2.12.2"

NoteNames = \relative c{
    s2-\markup { g }
    s-\markup { e }
    s-\markup { g }
    s-\markup { es }
    s-\markup { es }
    s-\markup { ges }
}

PIANO = \relative c{
  \override Score.RehearsalMark #'self-alignment-X = #'-.8
  \mark \markup { \bold \large { With accidental-style = piano : } }
}

PIANOone = \relative c{
  \override Score.RehearsalMark #'self-alignment-X = #'-.8
  \mark \markup { \bold \large { \column {
        "With accidental-style = modern-voice-cautionary,"
        "plus setting lazyness for Grandstaff, same and any octave = 1 :" } }
  }
}

PIANOmixedcode = \relative c{
  \override Score.RehearsalMark #'self-alignment-X = #'-.8
  \mark \markup { \bold \large { \column {
        "With code, mixed from accidental-function.scm"
        "about ''modern-voice-cautionary'', with 2 lines about GrandStaff,"
        "setting same and any octave's lazyness to 1 :" } }
  }
}

rechtsWanted = \relative c{
  \override Score.RehearsalMark #'self-alignment-X = #'-.8
  \mark \markup { \bold \large { Accidentals as they should be shown : } }
  \key bes \minor
  \clef bass
    g'2 e g es'!  \clef violin es ges!
}

linksWanted = \relative c{
  \key bes \minor
  \clef bass
    g'2 e g es'!  es ges!
}

rechts = \relative c{
  \key bes \minor
  \clef bass
    g'2 e g es' \clef violin es ges
}

links = \relative c{
  \key bes \minor
  \clef bass
    g'2 e g es' es ges
}

\score {
  \new PianoStaff
  <<
    \context Staff = "up" << 
      \clef violin
      \NoteNames
      \rechtsWanted
    >>
    \context Staff = "down" <<
      \clef bass
      \transpose c c, { \linksWanted }
      \NoteNames
    >>
  >>
}

\score {
  \new PianoStaff
  <<
    \context Staff = "up" << 
    #(set-accidental-style 'piano 'Score)
      \clef violin
      \PIANO
      \NoteNames
      { \rechts \bar "||" \rechts }
    >>
    \context Staff = "down" <<
      \clef bass
      \transpose c c, { \links \transpose c c, { \links } }
      \NoteNames
    >>
  >>
}

\score {
  \new PianoStaff
  <<
    \context Staff = "up" << 
  #(set-accidental-style 'modern-voice-cautionary 'Score)
  \set GrandStaff.autoAccidentals = #`(GrandStaff
                                     ,(make-accidental-rule 'any-octave 1)
                                     ,(make-accidental-rule 'same-octave 1))
      \clef violin
      \PIANOone
      \NoteNames
      \rechts
    >>
    \context Staff = "down" <<
      \clef bass
      \transpose c c, { \links }
      \NoteNames
    >>
  >>
}

\score {
  \new PianoStaff
  <<
    \context Staff = "up" << 
      \set GrandStaff.autoAccidentals = #`(Voice ,(make-accidental-rule 'same-octave 0))
      \set GrandStaff.autoAccidentals = #`(Voice ,(make-accidental-rule 'any-octave 0)
                                           ,(make-accidental-rule 'same-octave 1)
                                      Staff
                                           ,(make-accidental-rule 'same-octave 0)
                                           ,(make-accidental-rule 'any-octave 0)
                                           ,(make-accidental-rule 'same-octave 1)
                                      GrandStaff
                                           ,(make-accidental-rule 'any-octave 1)
                                           ,(make-accidental-rule 'same-octave 1))
      \clef violin
      \PIANOmixedcode
      \NoteNames
      \rechts
    >>
    \context Staff = "down" <<
      \clef bass
      \transpose c c, { \links }
      \NoteNames
    >>
  >>
}