X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbar-scripts.ly;h=353aa8bb535a062fdda08165e0997897327d4178;hb=3644a6921a6dcde268d46459cdf062672ed992f4;hp=91a9b3d4d184ebedf27cf091acabb285b3196b57;hpb=8b88bf025331c789167734067001a3d79501b433;p=lilypond.git

diff --git a/input/regression/bar-scripts.ly b/input/regression/bar-scripts.ly
index 91a9b3d4d1..353aa8bb53 100644
--- a/input/regression/bar-scripts.ly
+++ b/input/regression/bar-scripts.ly
@@ -1,42 +1,29 @@
+\version "2.9.13"
 \header{
 texidoc="
-Markings that are attached to (invisible) barlines are 
-delicate: the are attached to the rest of the score without the score
-knowing it.  Consequently, they fall over  often.
-";
-}
 
+Markings can be attached to (invisible) barlines.
+"
+}
 
+\layout { ragged-right = ##t }
 
-onestaff =  \context Staff = foo\notes  {
-	\property Staff.instr = instr
-	\property Staff.instrument = instrument \mark "B";
-	 c1 \mark "A"; \break c2  c2 \break
+onestaff = \new Staff\relative c''  {
+	\set Staff.shortInstrumentName = instr
+	\set Staff.instrumentName = instrument \mark "B"
+	 c1 \mark "A" \break c2  c2 \break
 }
 
-grstaff =  \notes \context GrandStaff <
-	\context Staff = bar {
+grstaff =  \relative c''
+\context GrandStaff <<
+	\new Staff {
 
-	\property Staff.instr = instr
+	\set Staff.shortInstrumentName = instr
 	
-	 \mark "B"; \break c1 \mark "A"; c2  }
-	\context Staff = bufl { c1 c2  }
->
-
-scpaper =  \paper {\translator {\OrchestralScoreContext}}
-% stpaper =  \paper{ \translator {\BarNumberingStaffContext }}
-stpaper =  \paper{ }
+	 \mark "B" \break c1 \mark "A" c2  }
+	\new Staff { c1 c2  }
+>>
 
-scscore =  \score { \grstaff \paper {
-\scpaper
-}}
 
+\score {\grstaff}
 
-stscore =  \score { \onestaff \paper {
- \stpaper
-}}
-
-%\score {\stscore}
-\score {\scscore
-\header { title = "bar scripts"; }
-}