From 9d1b4c3f45fc36a1fefdf35503693e1c73e4a9af Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Fri, 24 Jul 1998 23:52:46 +0000
Subject: [PATCH] lilypond-1.0.1

---
 input/test/bar-scripts.ly       | 78 +++++++++++++++++++++++++++++++++
 input/test/score-bar-scripts.ly | 75 +++++++++++++++++++++++++++++++
 2 files changed, 153 insertions(+)
 create mode 100644 input/test/bar-scripts.ly
 create mode 100644 input/test/score-bar-scripts.ly

diff --git a/input/test/bar-scripts.ly b/input/test/bar-scripts.ly
new file mode 100644
index 0000000000..55b4f4ea74
--- /dev/null
+++ b/input/test/bar-scripts.ly
@@ -0,0 +1,78 @@
+
+
+
+onestaff = \type Staff = foo\melodic  {
+	\property Staff.instr = instr
+	\property Staff.instrument = instrument \mark "B";
+	 c1 \mark "A"; \break c2  c2 \break
+}
+
+grstaff = \melodic \type GrandStaff <
+	\type Staff = bar {
+
+	\property Staff.instr = instr
+	
+	 \mark "B"; \break c1 \mark "A"; c2  }
+	\type Staff = bufl { c1 c2  }
+>
+
+scpaper =  \paper {Score = \translator {
+	\type Score_engraver;
+	barScriptPadding = "2.0";	% dimension \pt
+	markScriptPadding = "4.0";
+	barColumnPriority = "-4";
+	markBreakPriority = "-4";
+	barNumberBreakPriority = "-4";
+	
+	\consists "Timing_engraver";
+	\consists "Bar_column_engraver";
+	\consists "Bar_number_engraver";
+	\consists "Mark_engraver";
+	\consists "Span_score_bar_engraver";
+	\consists "Score_priority_engraver";
+	\consists "Priority_horizontal_align_engraver";
+	\consists "Vertical_align_engraver";
+
+	\accepts "ChoireStaff";
+	\accepts "StaffGroup";
+	\accepts "Staff";
+	\accepts "RhythmicStaff";	
+	\accepts "Lyrics";
+	\accepts "GrandStaff";
+}}
+
+stpaper =\paper{
+Staff = \translator {
+	\type "Line_group_engraver_group";
+	defaultclef = violin;
+	barColumnPriority = "0";
+	barNumberBreakPriority = "0";
+	marginBreakPriority = "-4";
+
+	\consists "Bar_engraver";
+	\consists "Clef_engraver";
+	\consists "Key_engraver";
+	\consists "Time_signature_engraver";
+	\consists "Local_key_engraver";
+	\consists "Staff_sym_engraver";
+	\consists "Mark_engraver";	
+	\consists "Collision_engraver";
+	\consists "Rest_collision_engraver";
+	\consists "Bar_column_engraver";
+	\consists "Bar_number_engraver";
+	\consists "Separating_line_group_engraver";
+	\consists "Staff_margin_engraver";
+	\accepts "Voice";
+}}
+
+scscore = \score { \grstaff \paper {
+\scpaper
+}}
+
+
+stscore = \score { \onestaff \paper {
+ \stpaper
+}}
+
+\score {\stscore}
+%\score {\scscore}
diff --git a/input/test/score-bar-scripts.ly b/input/test/score-bar-scripts.ly
new file mode 100644
index 0000000000..a27deda9f8
--- /dev/null
+++ b/input/test/score-bar-scripts.ly
@@ -0,0 +1,75 @@
+
+
+
+onestaff =	\type Staff = foo\melodic  {
+		\property Staff.instr = instr
+		\property Staff.instrument = instrument \mark "B"; c1 \mark "A"; \break c2  c2 \break }
+
+grstaff =	\melodic \type GrandStaff <
+	\type Staff = bar	{
+
+	\property Staff.instr = instr
+	
+	 \mark "B"; \break c1 \mark "A"; c2  }
+	\type Staff = bufl	  { c1 c2  } >
+
+scpaper =  \paper {Score = \translator {
+	\type Score_engraver;
+	barScriptPadding = "2.0";	% dimension \pt
+	markScriptPadding = "4.0";
+	barColumnPriority = "-4";
+	markBreakPriority = "-4";
+	barNumberBreakPriority = "-4";
+	
+	\consists "Timing_engraver";
+	\consists "Bar_column_engraver";
+	\consists "Bar_number_engraver";
+	\consists "Mark_engraver";
+	\consists "Span_score_bar_engraver";
+	\consists "Score_priority_engraver";
+	\consists "Priority_horizontal_align_engraver";
+	\consists "Vertical_align_engraver";
+
+	\accepts "ChoireStaff";
+	\accepts "StaffGroup";
+	\accepts "Staff";
+	\accepts "RhythmicStaff";	
+	\accepts "Lyrics";
+	\accepts "GrandStaff";
+}}
+
+stpaper =\paper{
+Staff = \translator {
+	\type "Line_group_engraver_group";
+	defaultclef = violin;
+	barColumnPriority = "0";
+
+	marginBreakPriority = "-4";
+
+	\consists "Bar_engraver";
+	\consists "Clef_engraver";
+	\consists "Key_engraver";
+	\consists "Time_signature_engraver";
+	\consists "Local_key_engraver";
+	\consists "Staff_sym_engraver";
+	\consists "Mark_engraver";	
+	\consists "Collision_engraver";
+	\consists "Rest_collision_engraver";
+	\consists "Bar_column_engraver";
+	\consists "Bar_number_engraver";
+	\consists "Separating_line_group_engraver";
+	\consists "Staff_margin_engraver";
+	\accepts "Voice";
+}}
+
+scscore = \score { \grstaff \paper {
+\scpaper
+}}
+
+
+stscore = \score { \onestaff \paper {
+ \stpaper
+}}
+
+%\score {\stscore}
+\score {\scscore}
-- 
2.39.5