\version "2.24.4"

\paper {
  print-page-number = ##t
  print-first-page-number = ##t
  first-page-number = #3

  #(set-paper-size "arch a")

}

\pointAndClickOn
%\pointAndClickOff

\header { 
 copyright = \markup  \fill-line { \teeny { \line { Steve Shorter (2026). \epsfile #0 #10 #'"by-sa.eps" }}}

}

extendLV = #(define-music-function (parser location further) (number?)
#{
        \once \override LaissezVibrerTie #'X-extent = #'(0 . 0)
        \once \override LaissezVibrerTie #'details #'note-head-gap = #(/ further -2.1)
        \once \override LaissezVibrerTie #'extra-offset = #(cons (/ further 2) 0)
#})

O = \once \omit Accidental
H = \once \override NoteHead.style = #'harmonic-black
N = \override NoteHead.style = #'harmonic-black
X = \override NoteHead.style = #'default
%H = \harmonic
A = \arpeggio


SOtc =  \shape #'(
	   ((-2.4 . -3.2)(-3.7 . 1.0)(0.0 . 0.0)(0.0 . 0.0))
           (( 0.0 . -0.0) (0 . 0.5) (0.0 . 2.5) (-0.0 . -0.0))
         ) Slur

SUpa =  \shape #'((0.0 . 0.3)(0.0 . 0.3)(0.0 . 0.3)(0.0 . 0.3)) Slur

TIna =  \shape #'((0.0 . 0.2)(0.0 . 0.0)(0.0 . 0.0)(-0.0 . 0.2)) Tie
TInb =  \shape #'((0.2 . -0.2)(0.0 . -0.5)(0.0 . -0.5)(-0.2 . -0.2)) Tie
TInc =  \shape #'((0.2 . -0.4)(0.0 . -0.5)(0.0 . -0.5)(-0.2 . -0.4)) Tie

TUpa =  \shape #'((-0.4 . 0.3)(-0.2 . 0.4)(0.2 . 0.4)(0.4 . 0.3)) Tie

%\include "toc.ly"
\include "I/I.ly"