\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 }
}

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 :" } }
  }
}

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" << 
      \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
    >>
  >>
}