minimal.ly

% minimal.ly :- a minimalistic example
% Copyright (c) 2019 Karsten Reincke, 
%
% This file is distributed under the terms of the MIT license:
% --------------------------------------
% Copyright 2019 Karsten Reincke (Frankfurt), Hans Blum, 

% Permission is hereby granted, free of charge, to any person obtaining a copy 
% of this software and associated documentation files (the "Software"), to deal 
% in the Software without restriction, including without limitation the rights 
% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
% copies of the Software, and to permit persons to whom the Software is 
% furnished to do so, subject to the following conditions:

% The above copyright notice and this permission notice shall be included in all 
% copies or substantial portions of the Software.

% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 
% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 
% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 
% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 
% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING 
% FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
% IN THE SOFTWARE.

\version "2.20.0"

\include "harmonyli.ly"

analysis = \lyricmode {
  \override LyricText.self-alignment-X = #LEFT
  \override LyricExtender.left-padding = #-0.5
  \override LyricExtender.extra-offset = #'(0 . 0.5)
  \markup \setHas "T" #'() 
  \markup \setImHas "D" #'(("B"."3")("a" . "7")("b" . "9♭"))
  \initTextSpan "     "
  \markup \openZoomRow "Sp" #'(("a"."9")) 
  \startTextSpan
  \markup \expZoomRow #'(("a"."8")) 
  \stopTextSpan
  %\markup \nhas "S" "3" "2" "1" "2" "3" "4" "5" "CT" "x" "y" #'("a" "d" "c")
  %\markup \openImZoomRow "D" #'(("T"."x")("B"."3")("a"."1")("b"."2")("c"."3")("d"."4")("e"."5") ("n" . ("a" "b")))
  %\markup \closeImZoomRow  #'(("B"."3")("a"."1")("b"."2")("c"."3")("d"."4")("e"."5") ("n" . ("a" "b")))

    \markup \setRfHas "T" "D" 
    #'( ("B"."5")("a"."3")("C" . "c")("n".("a"))
        ("nB"."4")("na"."3")("nb"."7")("C" . "c")("nn".("a"))
       
    )  
  
}

\score {
  \new GrandStaff <<
    \new Staff << \clef treble \key c \major  \time 4/4
      \new Voice = "top" { \stemUp <c'' e''>4 <bes' e''> e''( d'')  c''1 }
      \new Voice = "middle" { \stemDown g'16[ e' g' e'] g'8[ g' ] <f' a'>2 <g' c'>1 }
      >> 
    \new Staff << \clef bass  \key c \major  \time 4/4
      \new Voice = "down" { \stemUp c4 cis4 d2 g1}
      \new NullVoice = "rhythm" { \stemDown c,4 c,4 c,4 c,4 c,1}
      \new Lyrics \lyricsto "rhythm" {\analysis}
      >>
  >>
  \layout {
    \context {
      \Score \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/32) 
    }
    \context {
       \Lyrics \consists "Text_spanner_engraver" 
    }
  }
  \midi {}
}