church_scales.ly

\version "2.22.0"

#(define color5-engraver
  (make-engraver
   (acknowledgers
    ((note-head-interface engraver grob source-engraver)
     (let* ((cause (event-cause grob))
            (pitch (ly:prob-property cause 'pitch))
            (alteration (ly:pitch-alteration pitch)))
       (ly:grob-set-property! grob 'color
         (cond
          ((eqv? alteration 1) (rgb-color 0.976 0.258 0.067))
          ((eqv? alteration 1/2) (rgb-color 0.983 0.544 0.035))
          ((eqv? alteration -1/2) (rgb-color 0.461 0.990 0.981))
          ((eqv? alteration -1) (rgb-color 0.025 0.544 0.966))
          (else black)
           ))
       )))))

char = \once \override Staff.NoteHead.style = #'cross

scales = \relative c''' {
  \key c \lydian
  << { c,8 d e \char fis g a b c } \\ { c,, d e fis g a b c } >>
  \key c \ionian
  << { c d e \char f g a b c } \\ { c,, d e f g a b c } >>
  \key c \mixolydian
  << { c d e f g a \char bes c } \\ { c,, d e f g a bes c } >>
  \key c \dorian
  << { c d ees f g \char a bes c } \\ { c,, d ees f g a bes c } >>
  \key c \aeolian
  << { c d ees f g \char aes bes c } \\ { c,, d ees f g aes bes c } >>
  \key c \phrygian
  << { c \char des ees f g aes bes c } \\ { c,, des ees f g aes bes c } >>
  \key c \locrian
  << { c \char des ees f \char ges aes bes c } \\ { c,, des ees f ges aes bes c } >>
  % \break
}

names = #(define-music-function
          (mkup) (markup?)
          #{
            s1^\markup \sans \small { #mkup lydian (4) }
            s1^\markup \sans \small { #mkup ionian (1) }
            s1^\markup \sans \small { #mkup mixolydian (5) }
            s1^\markup \sans \small { #mkup dorian (2) }
            s1^\markup \sans \small { #mkup aeolian (6) }
            s1^\markup \sans \small { #mkup phrygian (3) }
            s1^\markup \sans \small { #mkup locrian (7) }
          #})

\header {
  title = "Scales 12 x 7"
  tagline = ##f
}

\paper {
  paper-width = 33\cm
  paper-height = 37\cm
  %page-count = 1
  system-count = 12
  indent = 0
}

\score {
  \new Staff {
    << {
      \transpose c c \scales
      \transpose c b, \scales
      \transpose c bes, \scales
      \transpose c a, \scales
      \transpose c aes, \scales
      \transpose c g, \scales
      \transpose c fis, \scales
      \transpose c f, \scales
      \transpose c e \scales
      \transpose c ees \scales
      \transpose c d \scales
      \transpose c cis \scales   
    } {
      \override TextScript.X-offset = -8.5
      %\override TextScript.Y-offset = 6
      \names \markup { C }
      \names \markup { B }
      \names \markup { B \hspace #-0.5 \super \flat }
      \names \markup { A }
      \names \markup { A \hspace #-0.5 \super \flat }
      \names \markup { G }
      \names \markup { F \hspace #-0.5 \super \sharp }
      \names \markup { F }
      \names \markup { E }
      \names \markup { E \hspace #-0.5 \super \flat }
      \names \markup { D }
      \names \markup { C \hspace #-0.5 \super \sharp }
    } {
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 10)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 26)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 42)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 58)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 74)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 90)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 106)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 122)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 138)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 154)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 170)) s1*7 \break
      \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 186)) s1*7 \break
    } >>
  }
  \layout {
    \context {
      \Voice
      \consists #color5-engraver
    }
    \context {
      \Staff
      \remove Time_signature_engraver
      % \override KeySignature.break-visibility = ##(#f #f #f)
      \override KeyCancellation.break-visibility = ##(#f #f #f)
      explicitKeySignatureVisibility = ##(#f #t #t)
      \override KeySignature.X-extent = #'(0 . 6)
    }
  }
  \midi {
    \tempo 4=200
  }
}