From 719aaa9fa8e42281c194b50f680f185c8d707db6 Mon Sep 17 00:00:00 2001
From: Trevor Daniels <t.daniels@treda.co.uk>
Date: Sun, 22 Feb 2009 11:37:52 +0000
Subject: [PATCH] Docs: LM App A: Add orchestral template

---
 Documentation/user/templates.itely            |   9 ++
 .../new/orchestra-choir-and-piano-template.ly | 122 ++++++++++++++++++
 2 files changed, 131 insertions(+)
 create mode 100644 input/new/orchestra-choir-and-piano-template.ly

diff --git a/Documentation/user/templates.itely b/Documentation/user/templates.itely
index 4f091008f2..e947971af5 100644
--- a/Documentation/user/templates.itely
+++ b/Documentation/user/templates.itely
@@ -22,6 +22,7 @@ beautiful printed scores!
 * Piano templates::
 * String quartet::
 * Vocal ensembles::
+* Orchestral templates::
 * Ancient notation templates::
 * Jazz combo::
 * lilypond-book templates::
@@ -110,6 +111,14 @@ beautiful printed scores!
 {vocal-ensemble-template-with-lyrics-aligned-below-and-above-the-staves.ly}
 
 
+@node Orchestral templates
+@appendixsec Orchestral templates
+
+@appendixsubsec Orchestra, choir and piano
+@lilypondfile[verbatim,lilyquote,ragged-right,texidoc]
+{orchestra-choir-and-piano-template.ly}
+
+
 @c bad node name to avoid node name conflict
 @node Ancient notation templates
 @appendixsec Ancient notation templates
diff --git a/input/new/orchestra-choir-and-piano-template.ly b/input/new/orchestra-choir-and-piano-template.ly
new file mode 100644
index 0000000000..586d06518f
--- /dev/null
+++ b/input/new/orchestra-choir-and-piano-template.ly
@@ -0,0 +1,122 @@
+\version "2.12.0"
+\header {
+  lsrtags = "template"
+  texidoc = "
+This template demonstrates the use of nested @code{StaffGroup}
+and @code{GrandStaff} contexts to sub-group instruments of the same
+type together, and the use of @code{\transpose} for transposing
+instuments so that all the music can be entered in the same key of
+C.
+"
+  doctitle = "Orchestra, choir and piano template"
+}
+
+fluteMusic    = \relative c' { c1 d }
+saxMusic      = \transpose bes c' { \key c \major \relative c' { c1 d } }
+oboeMusic     = \relative c' { c1 d }
+clarinetMusic = \transpose a c' { \key c \major \relative c' { c1 d } }
+bassoonMusic  = \transpose a c' { \key c \major \relative c { c1 d } }
+trumpetMusic  = \transpose bes c' { \key c \major \relative c' { c1 d } }
+tromboneMusic = \relative c { c1 d }
+hornOneMusic  = \transpose f c' { \key c \major \relative { c1 d } }
+hornTwoMusic  = \transpose f c' { \key c \major \relative c { c1 d } }
+sopranoMusic  = \relative c'' { c1 d }
+sopranoLyrics = \lyricmode { Sop -- ra }
+altoOneMusic  = \relative c' { c1 d }
+altoOneLyrics = \lyricmode { A -- one }
+altoTwoMusic  = \relative c' { c1 d }
+altoTwoLyrics = \lyricmode { A -- two }
+tenorMusic    = \relative c' { c1 d }
+tenorLyrics   = \lyricmode { Ten -- or }
+pianoRHMusic  = \relative c' { c1 d }
+pianoLHMusic  = \relative c { c1 d }
+
+\score {
+  <<  % Start full staff group
+    \new StaffGroup <<  % Woodwinds
+      \new Staff {  % Flute
+        \set Staff.instrumentName = "Flute"
+        \fluteMusic
+      }
+      \new StaffGroup <<
+        \new Staff {  % Bb Sax
+          \set Staff.instrumentName = \markup { \concat {"B" \flat} "Sax" }
+          \saxMusic
+        }
+        \new Staff {  % Oboe
+          \set Staff.instrumentName = "Oboe"
+          \oboeMusic
+         }
+        \new Staff {  % Clarinet in A
+          \set Staff.instrumentName = "Clarinet"
+          \clarinetMusic
+        }
+      >>
+      \new Staff {  % Bassoon
+        \set Staff.instrumentName = "Bassoon"
+        \clef bass
+        \bassoonMusic
+      }
+    >>
+    \new StaffGroup <<  % Start Brass group
+      \new Staff {  % Trumpet
+        \set Staff.instrumentName = "Trumpet"
+        \trumpetMusic
+      }
+      \new Staff {  % Trombone
+        \set Staff.instrumentName = "Trombone"
+        \clef bass
+        \tromboneMusic
+      }
+      \new GrandStaff << % Horns need a GrandStaff (same instrument)
+        \new Staff {  % Horn 1
+          \set Staff.instrumentName = "Horn 1"
+          \hornOneMusic
+        }
+        \new Staff {  % Horn 2
+          \set Staff.instrumentName = "Horn 2"
+          \clef bass
+          \hornTwoMusic
+        }
+      >>
+    >>  % End Brass group
+    \new ChoirStaff <<
+      \new Staff {
+        \set Staff.instrumentName = "S"
+        \new Voice = "soprano"
+        \sopranoMusic
+      }
+      \new Lyrics \lyricsto "soprano" { \sopranoLyrics }
+      \new GrandStaff \with { \accepts Lyrics } <<
+        \new Staff  {
+          \set Staff.instrumentName = "A1"
+          \new Voice = "altoOne"
+          \altoOneMusic
+        }
+        \new Lyrics \lyricsto "altoOne" { \altoOneLyrics }
+        \new Staff {
+          \set Staff.instrumentName = "A2"
+          \new Voice = "altoTwo"
+          \altoTwoMusic
+        }
+        \new Lyrics \lyricsto "altoTwo" { \altoTwoLyrics }
+      >>
+      \new Staff {
+        \set Staff.instrumentName = "T"
+        \clef "treble_8"
+        \new Voice = "tenor"
+        \tenorMusic
+      }
+      \new Lyrics \lyricsto "tenor" { \tenorLyrics }
+    >>  % End ChoirStaff
+    \new PianoStaff \with { \consists Instrument_name_engraver } <<
+      \set PianoStaff.instrumentName = "Piano"
+      \new Staff { \pianoRHMusic }
+      \new Staff {
+        \clef bass
+        \pianoLHMusic
+      }
+    >>  % End PianoStaff
+  >>  % End full staff group
+}
+
-- 
2.39.2