Trying to get the spacing right (p and f not above each other)

.gitignore

@@ -3,3 +3,4 @@
 *.log
 *.out
 
+*~

Eybler_EcceQuomodo_HVdeest_Music_EcceQuomodo.ily

@@ -3,6 +3,9 @@
 EcceQuomodoKey = \key c \minor
 EcceQuomodoTimeSignature = \time 2/2
 
+setlong = \override Score.SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 16)
+resetlong = \revert Score.SpacingSpanner #'bas-shortest-duration
+
 EcceQuomodoSettings = \notemode {
   \override Staff.NoteHead  #'style = #'baroque
   \set Score.tempoHideNote = ##t
@@ -11,10 +14,16 @@ EcceQuomodoSettings = \notemode {
 
 EcceQuomodoSettingsII = \notemode {
   \bar"||" \barNumberCheck #41
-  \time 2/2 
+  \time 2/2 \newSpacingSection
   \tempo "più adagio"
 }
 
+spacervoice = {} %{\new Voice { \voiceFour
+        \override NoteHead  #'transparent = ##t
+        \override Stem  #'transparent = ##t
+        \override Beam  #'transparent = ##t
+        s2 g4
+    }%}
 
 EcceQuomodoSMusic = \relative c' {
   f1~ | % 2
@@ -55,11 +64,13 @@ EcceQuomodoSMusic = \relative c' {
   g2 g | % 37
   f1~ | % 38
   f | % 39
-  e\breve\fermata \bar"||"\break \barNumberCheck #41
-  \time 2/2
-  \tempo "più adagio" 
-  << {\once\override Score.NonMusicalPaperColumn #'padding = #10 g1} { \once\override Score.NonMusicalPaperColumn #'padding = #10 s2\p \once\override Score.NonMusicalPaperColumn #'padding = #10 s\f} >> | % 42
-  << {as!1} {s2\p s\f} >> | % 43
+  e\breve\fermata \break
+  \EcceQuomodoSettingsII
+  \override Score.SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 16)
+%   \setlong
+  << { g1} { s2\p s\f} \spacervoice>> | % 42
+  << {as!1} {s2\p s\f} \spacervoice >> | % 43
+  \resetlong
   as2 g | % 44
   f1~\p | % 45
   f\f | % 46
@@ -72,7 +83,7 @@ EcceQuomodoSMusic = \relative c' {
   f1~ | % 53
   f e) | % 54
   \once\override Score.NonMusicalPaperColumn #'padding = #10 
-  << {f\breve\fermata} {s2\p s4\f} >>\bar "|."
+  << {f\breve\fermata} {s2\p s4\f} \spacervoice >>\bar "|."
 }
 \addQuote "EcceQuomodoSMusic" { \EcceQuomodoSMusic }
 
@@ -126,23 +137,24 @@ EcceQuomodoAMusic = \relative c' {
   e2 c | % 36
   c1( | % 37
   b) | % 38
-  c\breve\fermata \bar"||"  \barNumberCheck #41
-  \tempo "più adagio" \time 2/2
-  << {e1} {s2\p s\f} >> | % 42
-  << {f1} {s2\p s\f} >> | % 43
+  c\breve\fermata 
+  \EcceQuomodoSettingsII
+  \override Score.SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 16)
+  << {e1} {s2\p s\f}  \spacervoice >> | % 42
+  << {f1} {s2\p s\f}  \spacervoice >> | % 43
   f2 e | % 44
   f1(\p | % 45
   des)\f | % 46
   c1~\p | % 47
   c\f | % 48
-  r2 c | % 49
+  r2 c\pp | % 49
   des1 | \barNumberCheck #50
   des2 des | % 51
   c1~ | % 52
   c~ | % 53
   c~ | % 54
   c | % 55
-  << {c\breve\fermata} {s2\p s4\f} >>\bar "|."
+  << {c\breve\fermata} {s2\p s4\f}  \spacervoice >>\bar "|."
 }
 \addQuote "EcceQuomodoAMusic" { \EcceQuomodoAMusic }
 
@@ -187,23 +199,24 @@ EcceQuomodoTMusic = \relative c' {
   c2 c | % 37
   as!1( | % 38
   g2 f) | % 39
-  g\breve\fermata \bar"||" \barNumberCheck #41
-  \tempo "più adagio" \time 2/2
-  << {c1} {s2\p s\f} >> | % 42
-  << {c1} {s2\p s\f} >> | % 43
+  g\breve\fermata 
+  \EcceQuomodoSettingsII
+  \override Score.SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 16)
+  << {c1} {s2\p s\f}  \spacervoice >> | % 42
+  << {c1} {s2\p s\f}  \spacervoice >> | % 43
   c2 c | % 44
   as1~\p | % 45
   as\f | % 46
   as~\p | % 47
   as\f | % 48
-  r2 as | % 49
+  r2 as\pp | % 49
   as1 | \barNumberCheck #50
   b2 b | % 51
   b1( | % 52
   as! | % 53
   g1~ | % 54
   g) | % 55
-  << {a\breve\fermata} {s2\p s4\f} >>\bar "|."
+  << {a\breve\fermata} {s2\p s4\f}  \spacervoice >>\bar "|."
 }
 \addQuote "EcceQuomodoTMusic" { \EcceQuomodoTMusic }
 
@@ -248,10 +261,11 @@ EcceQuomodoBMusic = \relative c {
   c2 c | % 37
   des1~ | % 38
   des | % 39
-  c\breve\fermata \bar"||" \barNumberCheck #41
-  \time 2/2 \tempo "più adagio"
-  << {c1} {s2\p s\f} >> | % 42
-  << {f1} {s2\p s\f} >> | % 43
+  c\breve\fermata 
+  \EcceQuomodoSettingsII
+  \override Score.SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 16)
+  << {c1} {s2\p s\f}  \spacervoice >> | % 42
+  << {f1} {s2\p s\f}  \spacervoice >> | % 43
   f2 c | % 44
   des1~\p | % 45
   des\f | % 46
@@ -264,7 +278,7 @@ EcceQuomodoBMusic = \relative c {
   c~ | % 53
   c~ | % 54
   c | % 55
-  << {f,\breve\fermata} {s2\p s4\f} >>\bar "|."
+  << {f,\breve\fermata} {s2\p s4\f}  \spacervoice >>\bar "|."
 }
 \addQuote "EcceQuomodoBMusic" { \EcceQuomodoBMusic }
 

Eybler_EcceQuomodo_HVdeest_Score_Klavierauszug.ly

@@ -11,8 +11,8 @@
   scorenumber = \markup{\scoreNumber \OrganScoreNumber}
 }
 
-EcceQuomodoOIStaff = \new Staff = "EcceQuomodoOIStaff" \with {\remove "New_dynamic_engraver"} 
-  \new Voice = "EcceQuomodoOIVoice" \with {\remove "New_dynamic_engraver"} {
+EcceQuomodoOIStaff = \new Staff = "EcceQuomodoOIStaff" 
+  \new Voice = "EcceQuomodoOIVoice" \with { \remove "New_dynamic_engraver"} {
   \EcceQuomodoSettings
   \EcceQuomodoTimeSignature
   \EcceQuomodoKey
@@ -54,7 +54,6 @@ EcceQuomodoOIStaff = \new Staff = "EcceQuomodoOIStaff" \with {\remove "New_dynam
     { \quoteDuring #"EcceQuomodoTMusic" {s1*18} }
   >>
 }
-% #(oly:modify_score_structure '("OI" "ParallelVoicesStaff" ("S" "A" "T")))
 #(oly:modify_score_structure '("OII" "ParallelVoicesStaff" ("B")))
 
 \createScore #"EcceQuomodo" #'("O")

Eybler_EcceQuomodo_HVdeest_Settings_Global.ily

@@ -7,7 +7,7 @@ scorenumber="EK-1xxx"
 
 \header { 
   title = "Ecce quomodo"
-  subtitle = "Responsorium für den Karfreitag / Responsory for Food Friday"
+  subtitle = "Responsorium für den Karfreitag / Responsory for Good Friday"
   composer = "Unbekannt (Joseph Eybler?, HV deest)"
   copyright = \markup \abs-fontsize #9 \column{
       \line { "2009, Edition Kainhofer, Vienna. Alle Rechte vorbehalten / All rights reserved / Printed in Austria."}