\version "2.19.45"

\markup "Four note cluster, space at the top"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c d e f>2._\markup{dots limit 0: OK (probably want dot below C line} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c d e f>2._\markup{dots limit 1: OK} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c d e f>2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c d e f>2._\markup{dots limit 3: Unnecessary dot on A space} }
}


\markup "Four note cluster, space at the bottom"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <d e f g>2._\markup{dots limit 0: need dot above G line} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <d e f g>2._\markup{dots limit 1: need dot above G line and not on B space} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <d e f g>2._\markup{dots limit 2: need dot above G line and not on B space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <d e f g>2._\markup{dots limit 3: Unnecessary dot on B space} }
}


\markup "Triad with sixth, triad on lines"


\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c e g a>2._\markup{dots limit 0: should have dot on the space below C} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c e g a>2._\markup{dots limit 1: OK} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c e g a>2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c e g a>2._\markup{dots limit 3: OK } }
}


\markup "Triad with seventh, triad on lines"


\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <b c e g >2._\markup{dots limit 0: should have dot on the space above G} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <b c e g >2._\markup{dots limit 1: OK} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <b c e g >2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <b c e g>2._\markup{dots limit 3: OK } }
}


\markup "Triad with ninth, triad on lines"


\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c d e g >2._\markup{dots limit 0: should have dot on the space above G} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c d e g >2._\markup{dots limit 1: should have dot on the space above G} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c d e g >2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c d e g>2._\markup{dots limit 3: OK } }
}

\markup "Triad with fourth, triad on lines"


\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c e f g >2._\markup{dots limit 0: should have dot on the space above G} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c e f g >2._\markup{dots limit 1: should have dot on the space above G} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c e f g >2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c e f g>2._\markup{dots limit 3: OK } }
}



\markup "Triad with sixth, triad on spaces"


\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <d f a b>2._\markup{dots limit 0: should have dot on the space above B} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <d f a b>2._\markup{dots limit 1: OK} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <d f a b>2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <d f a b>2._\markup{dots limit 3: OK } }
}


\markup "Triad with seventh, triad on spaces"


\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c d f a>2._\markup{dots limit 0: should have dot on the A space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c d f a>2._\markup{dots limit 1: OK} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c d f a >2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c d f a>2._\markup{dots limit 3: OK } }
}


\markup "Triad with ninth, triad on spaces"


\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <d f a e>2._\markup{dots limit 0: should have dot on the A space and not the B space } }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <d f a e>2._\markup{dots limit 1: should have dot on the A space and not the B space } }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <d f a e>2._\markup{dots limit 2: should not have dot on the B space } }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <d f a e>2._\markup{dots limit 3: should not have dot on the B space } }
}

\markup "Triad with fourth, triad on spaces"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <d f a g>2._\markup{dots limit 0: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <d f a g>2._\markup{dots limit 1: OK} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <d f a g>2._\markup{dots limit 2: should not have dot on C space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <d f a g>2._\markup{dots limit 3: should not have dot on C space } }
}

\markup "5 notes"


\markup "5-note line-top cluster"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c d e f g>2._\markup{dots limit 0: should have dot on the 'A' space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c d e f g>2._\markup{dots limit 1: should have dot on the 'A' space} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c d e f g>2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c d e f g>2._\markup{dots limit 3: OK } }
}


\markup "5-note space-top cluster"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <d e fis g a>2._\markup{dots limit 0: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <d e fis g a>2._\markup{dots limit 1: OK} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <d e fis g a>2._\markup{dots limit 2: unnecessary dot on B space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <d e fis g a>2._\markup{dots limit 3: unnecessary dot on B space } }
}

\markup "Extension above 4-note space-top cluster with a 3rd"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c d e f a>2._\markup{dots limit 0: should have dot on the 'A' space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c d e f a>2._\markup{dots limit 1: OK} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c d e f a>2._\markup{dots limit 2: OK} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c d e f a>2._\markup{dots limit 3: Unnecessary dot(s)s below staff } }
}


\markup "Extension above  4-note space-top cluster with a 4th"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c d e f b>2._\markup{dots limit 0: should have dot on the 'C' space, not on A} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c d e f b>2._\markup{dots limit 1: should have dot on the C space, not on A } }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c d e f b>2._\markup{dots limit 2: unnecessary dot on A} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c d e f b>2._\markup{dots limit 3: Unnecessary dot on A space } }
}




\markup "Extension above 4-note space-top cluster with a 5th"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <c d e f c'>2._\markup{dots limit 0: should have dot on the C space, not on A} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <c d e f c'>2._\markup{dots limit 1: should not have dot on the A space } }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <c d e f c'>2._\markup{dots limit 2: should not have dot on the A space } }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <c d e f c'>2._\markup{dots limit 3: should not have dot on the A space  } }
}



\markup "Extension above 4-note line-top cluster with a 3rd"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <d e fis g b>2._\markup{dots limit 0: should have dot on the 'C' space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <d e fis g b>2._\markup{dots limit 1: should have dot on the 'C' space, not on B space} }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <d e fis g b>2._\markup{dots limit 2: should have dot on the 'C' space, not on B space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <d e fis g b>2._\markup{dots limit 3: Unnecessary dot on B space} }
}


\markup "Extension above  4-note line-top cluster with a 4th"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <d e fis g cis>2._\markup{dots limit 0: should have dot on the 'C' space, not on B space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <d e fis g cis>2._\markup{dots limit 1: should have dot on the 'C' space, not on B space } }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <d e fis g cis>2._\markup{dots limit 2: unnecessary dot on B space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <d e fis g cis>2._\markup{dots limit 3: Unnecessary dot on B space } }
}




\markup "Extension above 4-note line-top cluster with a 5th"

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 0
   \relative c'{ <d e fis g d'>2._\markup{dots limit 0:should have dot on the 'E' space, not on B space} }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 1
  \relative c'{  <d e fis g d'>2._\markup{dots limit 1: should not have dot on the B space } }
}
\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 2
  \relative c'{  <d e fis g d'>2._\markup{dots limit 2: should not have dot on the B space } }
}

\new Staff {
   \override Staff.DotColumn.chord-dots-limit = 3 
  \relative c'{  <d e fis g d'>2._\markup{dots limit 3: should not have dot on the B space  } }
}