\version "2.13.3"

% comment out the following line to see current behavior:
#(load "autochange_revised.scm")

uppersFirstShort = \relative {
  <b g>8 <c g> <c a> <d a>
  <d b> <e b> <e c> <f c>
  <f c> <e c> <e b> <d b> 
  <d a> <c a> <c g> <b g>
}
lowersFirstShort = \relative {
  <g b>8 <g c> <a c> <a d>
  <b d> <b e> <c e> <c f>
  <c f> <c e> <b e> <b d> 
  <a d> <a c> <g c> <g b>
}

uppersFirstLong = \relative {
  <b g>8 <c g> <c a> <d a>
  <d b> <e b> <e c> <f c>
  <f d> <g d> <g e> <a e>
  <a e> <g e> <g d> <f d>
  <f c> <e c> <e b> <d b> 
  <d a> <c a> <c g> <b g>
}

lowersFirstLong = \relative {
  <g b>8 <g c> <a c> <a d>
  <b d> <b e> <c e> <c f>
  <d f> <d g> <e g> <e a>
  <e a> <e g> <d g> <d f>
  <c f> <c e> <b e> <b d> 
  <a d> <a c> <g c> <g b>
}

\new PianoStaff \autochange \uppersFirstShort
\new PianoStaff \autochange \lowersFirstShort
\new PianoStaff \autochange \uppersFirstLong
\new PianoStaff \autochange \lowersFirstLong

\new PianoStaff \autochange \relative {
 <b, e'>8 <d' f> <b, e'> <d' f>
 <a d'> <g b> <a d'> <g b>
}

\new PianoStaff \autochange \relative {
 c8 d e f g f e d
 c b a g f g a b
 c d e f g f e d
}

\new PianoStaff \autochange \relative {
 <c, e>8 <d f> <e g> <f a>
 <g b> <a c> <b d> <c e>
 <d f> <e g> <f a> <g b>
 <g b> <f a> <e g> <d f>
 <c e> <b d> <a c> <g b>
 <f a> <e g> <d f> <c e>
}