how to extract few measures from S A T B + piano score all staff at the same time

MING TSANG Tue, 06 Dec 2016 04:23:08 -0800


  
Dear lilyponders,
I don't know how to do MMR to demonstrate what I would like to see, so I 
enclose a full score.
1. Is it possible to extract measure 89 to 95 for all staff that will generate 
pdf and midi as well?2. the pdf retain bar numbers 89 to 96.
I can comment out measures 1 to 88 and 96 to 110. But I have to do it on every 
staff. It will be wonderful if just say \extractmm 89 95 inclusive and the 
measures 89 to 96 are extracted from all staff. 
Any help is welcome.Immanuel,Ming.

\version "2.19.49"
\language "english"
%tested: \version "2.17.97"
\version "2.18.2"

% lilypond 2.14.x:
% Allmost copied from .../scm/translation-functions.scm:
% --> added Â»-approxÂ« to the function names of
%     Â»format-metronome-markupÂ« and Â»metronome-markupÂ«
% --> replaced "=" with "â" (approx. instead of equal)
%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% START of my personal include file 'tempo-approx.ly'
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

#(define-public (format-metronome-markup-approx event context)
  (let ((eq-sym-def (ly:context-property context 'tempoEquationText))             ; added option
        (hide-paren (eq? #t (ly:context-property context 'tempoHideParenthesis))) ; added option
        (num-color (ly:context-property context 'tempoNumberColor #f))            ; added option
        (hide-note (ly:context-property context 'tempoHideNote #f))
	(text (ly:event-property event 'text))
	(dur (ly:event-property event 'tempo-unit))
	(count (ly:event-property event 'metronome-count)))
    (metronome-markup-approx text dur count hide-note eq-sym-def hide-paren num-color)))

#(define-public (metronome-markup-approx text dur count hide-note eq-sym-def hide-paren col)
  (let* ((note-mark (if (and (not hide-note) (ly:duration? dur))
			(make-smaller-markup
			 (make-note-by-number-markup (ly:duration-log dur)
						     (ly:duration-dot-count dur)
						     1))
			#f))
	 (count-markup (cond ((number? count)
			      (if (> count 0)
				  (make-simple-markup (number->string count))
				  #f))
			     ((pair? count)
			      (make-concat-markup
			       (list
				(make-simple-markup (number->string (car count)))
				(make-simple-markup (ly:wide-char->utf-8 #x2009))
				(make-simple-markup (ly:wide-char->utf-8 #x2013))
				(make-simple-markup (ly:wide-char->utf-8 #x2009))
				(make-simple-markup (number->string (cdr count))))))
			     (else #f)))
         (note-markup (if (and (not hide-note) count-markup)
			  (make-concat-markup
			   (list
			    (make-general-align-markup Y DOWN note-mark)
			    (make-simple-markup " ")
			    (make-simple-markup (if (string? eq-sym-def)
                                                 eq-sym-def
                                                 (ly:wide-char->utf-8 #x2248)))
			    (make-simple-markup " ")
			    (if (eq? col #f)
                             count-markup
                             (make-with-color-markup col count-markup))))
			  #f))
         (text-markup (if (not (null? text))
			  (make-bold-markup text)
			  #f)))
    (if text-markup
	(if (and note-markup (not hide-note))
	    (make-line-markup (list text-markup
                                   (if hide-paren
                                    note-markup
				    (make-concat-markup
				     (list (make-simple-markup "(")
					   note-markup
					   (make-simple-markup ")"))))))
	    (make-line-markup (list text-markup)))
	(if note-markup
	    (make-line-markup (list note-markup))
	    (make-null-markup)))))



% Make this new formatter the default:
\layout {
  \context {
    \Score
    metronomeMarkFormatter = #format-metronome-markup-approx
  }
}

#(define (define-translator-property symbol type? description)
  (if (not (and (symbol? symbol)
	(procedure? type?)
	(string? description)))
      (ly:error "error in call of define-translator-property"))
  (if (not (equal? (object-property symbol 'translation-doc) #f))
      (ly:error (_ "symbol ~S redefined") symbol))

  (set-object-property! symbol 'translation-type? type?)
  (set-object-property! symbol 'translation-doc description)
  symbol)

#(for-each
  (lambda (x)
    (apply define-translator-property x))
    `((tempoHideParenthesis
       ,boolean?
       "Hide the parenthesis around the metronome markup with text")
      (tempoEquationText
       ,string?
       "initially ''='' in the metronome markup, but here the default is altered to ''â''")
      (tempoNumberColor
       ,list?
       "alternate color, in which the tempo value should be displayed")))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% END of my personal include file 'tempo-approx.ly'
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\header {
  title = "Glory to the Newborn King"
  subtitle = "æ¦®èæ¸æ¼æ°çç"
  composer = "Lloyd Larson"
  poet = "Lloyd Larson"
}

\paper {
  #(set-paper-size "letter")
}

\layout {
  \context {
    \Voice
    \consists "Melody_engraver"
    \override Stem #'neutral-direction = #'()
  }
}

global = {
  \key f \major
  \numericTimeSignature
  \time 6/8
  \set Score.tempoEquationText = "= ca."
  \tempo "Joyously, steady" 4=88
}
expandVar =
#(define-music-function (xx start stop) (list? index? index?)
   #{ #@(map (lambda (i) #{ $xx . #i #}) (iota (- stop start -1) start)) #})

descant = {
  \global
  
}
â®.1 = { R2. |}
â®.2 = \â®.1
â®.3 = \â®.1
â®.4 = \â®.1
â®.5 = { c''4 f'8 g'4.~ |\break }
â®.6 = { g'8 f' g' bf'4 g'8 |}
â®.7 = { d''4 c''8~4.~ |}                        â.7 = { g'4 f'8~ 4.~ |}
â®.8 = { c''4. r4 bf'8 |}                        â.8 = { f'4. r4 bf'8 |}
â®.9 = { c''4 f'8 g'4.~ |\break }
â®.10 = { g'8 f' g' bf'4 g'8 |}
â®.11 = { d''4 c''8~ 4.~ |}                      â.11 = { g'4 f'8~ 4.~ |}
â®.12 = { c''4. r4. |}                           â.12 = { f'4. r4. |}
â®.13 = { ef''4 af'8 bf'4.~ |\break }             â.13 = { ef'4 af'8 bf'4.~ |}
â®.14 = { bf'8 af' bf' df''4 bf'8 |}
â®.15 = { f''4 ef''8~ 4.~ |}                      â.15 = { bf'4 af'8~ 4.~ |}
â®.16 = { ef''4. r4. |}                           â.16 = { af'4. r4.|}
â®.17 = { r4. c''8. f''8. |\break }               â.17 = { r4. f'!8. <f'c''>8. |}
â®.18 = { f''4. c'' |}                            â.18 = { <f'bf'>4. f' |}
â®.19 = { df''2. |}                               â.19 = { <f'bf'>2. |}
â®.20 = { r4. f''4. |}                            â.20 = { r4. <g'bf'>4. |}
â®.21 = { f''2.~ |}                               â.21 = { <f'c''>2.~ |}
â®.22 = { f''2. |\break }                         â.22 = { <f'c''>2. |}
â®.23 = \â®.1
â®.24 = \â®.1
â®.25 = \â®.1
â®.26 = { \â®.1 \break }	
â®.27 = \â®.1
â®.28 = { r4. r4 c''8 |}
â®.29 = { c''4 a'8 bf'4 c''8 |}
â®.30 = { a'8 g' f' g'4 e'8 |\break }
â®.31 = { f'4 8 g'( a') bf' |}
â®.32 = { a'4 g'8 f'4 r8 |}
â®.33 = { g'4. 4 f'8 |}                        â.33 = { e'4. 4 d'8 |}
â®.34 = { g'8 a' bf' c'' bf' a' |\break }      â.34 = { e'8 f' g' a' g' f' |}
â®.35 = { g'4. r4. |}                           â.35 = { e'4. r4. |}
â®.36 = { \time 9/8 c''4. d''4. c''4. |}       â.36 = { \time 9/8 f'4. 4. 4. |}
â®.37 = { \time 6/8 bf'4 a'8 g' f' g' |}       â.37 = { \time 6/8 g'4 f'8 8 8 e'8 |}
â®.38 = { f'2.~ |\break }
â®.39 = { f'2. |}
â®.40 = \â®.1
â®.41 = { r4. r4 c''8 |}
â®.42 = { c''4 a'8 bf'4 c''8 |}
â®.43 = { a'8 g' f' g'4 e'8 |\break }
â®.44 = { f'4 8 g'( a') bf' |}
â®.45 = { a'4 g'8 f' r8 c''8 |}
â®.46 = { c''4 a'8 bf'4 c''8 |}
â®.47 = { a'8 g' f' g'4 e'8 |\break }
â®.48 = { f'4 8 g'( a') bf' |}
â®.49 = { a'4 g'8 f'4 r8 |}
â®.50 = { c'4. f' |}
â®.51 = { f'4.~ 4 e'8 |\break }
â®.52 = { f'4. a' |}
â®.53 = { a'4.( g') |}
â®.54 = { c''4. g' |}
â®.55 = { g'4. e' |\break }
â®.56 = { e'4. d' |}
â®.57 = { c'4. r4. |}
â®.58 = { c''4. 4. |}                          â.58 = { c'4. 4. |}
â®.59 = { c''4. f' |}                          â.59 = { c'4. f' |}
â®.60 = { bf'4. a' |\break }                   â.60 = { d'4. e' |}
â®.61 = { a'4.( g'4) r8 |}                     â.61 = { f'4.( g'4) r8 |}
â®.62 = { c''4. 4. |}                           â.62 = { c'4. 4. |}
â®.63 = { c''4. f' |}                          â.63 = { c'4. f' |}
â®.64 = { bf'4. a' |}                          â.64 = { d'4. e' |}
â®.65 = { a'4.( g'4) r8 |\break }              â.65 = { f'4.( g'4) r8 |}
â®.66 = { d''4. 4. |}                           â.66 = { f'4. 4. |}
â®.67 = { d''4. c'' |}                          â.67 = { f'4. 4. |}
â®.68 = { bf'4. a' |}                           â.68 = { d'4. fs' |}
â®.69 = { bf'4. r4. |}                          â.69 = {g'4. r4. |}
â®.70 = { g'4. a'8.( bf') |\break }            â.70 = { e'4. f' |}
â®.71 = { c''4.~ 8. f' |}                       â.71 = { f'4.~ 8. c' |}
â®.72 = { f'4. g' |}                            â.72 = { d'4. e' |}
â®.73 = { a'4. r4. |}                           â.73 = { f'4. r4. |}
â®.74 = { d''4.~ 8. 8. |}                       â.74 = { f'4.~ 8. 8. |}
â®.75 = { d''4. c'' |\break }                   â.75 = { f'4. 4. |}
â®.76 = { bf'4. a' |}                           â.76 = { d'4. fs' |}
â®.77 = { bf'4. r4. |}                          â.77 = { g'4. r4. |}
â®.78 = { g'4. a'8.( bf') |}                    â.78 = { e'4. f' |}
â®.79 = { c''4.~ 8. f' |}                       â.79 = { f'4.~ 8. c' |}
â®.80 = { f'4. g' |\break }                     â.80 = { d'4. e' |}
â®.81 = { f'2.~ |}
â®.82 = { f'2. |}
â®.83 = \â®.1
â®.84 = { \â®.1 \bar"||"\break }
â®.85 = { \key g\major \â®.1 }
â®.86 = \â®.1
â®.87 = { \time 4/4 R1 |}
â®.88 = { R1 |\break }
â®.89 = { d''4 g'4 4. a'8 |}
â®.90 = { b'4 d''4 4( c'') |}
â®.91 = { r4 g'8 d''8 4. c''8 |\break }
â®.92 = { b'4 c'' d'' r4 |}
â®.93 = { d''4 g'4 4. a'8 |}
â®.94 = { b'4 d'' e''2 |\break }
â®.95 = { r4 d''8 a' d''( e'') fs''4 |}
â®.96 = { fs''4 e'' d'' r4 |}
â®.97 = { r4 g'8 a' b'4 d'' |\break }
â®.98 = { e''4 d''4 2 |}
â®.99 = { r4 g'8 a' b'4 d'' |}
â®.100 = { e''4 d''4 4. r8 |\break }
â®.101 = { r4 c''8 d'' e''4 d'' |}
â®.102 = { c''4 d'' e''2 |}
â®.103 = { d''4. c''8 b'4 d'' |\break }
â®.104 = { c''4 a' b' r4 |}
â®.105 = { r4 c''8 d'' e''4 d'' |}
â®.106 = { c''4 d'' e''2 |\break }
â®.107 = { d''4. c''8 b'4 d'' |}
â®.108 = { g''2 g''4( fs''4) |}
â®.109 = { \time 3/4 g''2.~ |}
â®.110 = { g''4 r4 s4 |\break }
soprano =   {
  \global
  \expandVar \â® 1 110
  
}

alto =   {
  \global
  \expandVar \â® 1 6
  \expandVar \â 7 8
  \â®.9 \â®.10 
  \expandVar \â 11 13
  \â®.14
  \expandVar \â 15 22
  \expandVar \â® 23 32
  \expandVar \â 33 37
  \expandVar \â® 38 57
  \expandVar \â 58 80
  \expandVar \â® 81 110
}

â¯.1 = { R2. |}
â¯.2 = \â¯.1
â¯.3 = \â¯.1
â¯.4 = \â¯.1
â¯.5 = { c'4 f8 g4.~ |}
â¯.6 = { g8 f g bf4 g8 |}
â¯.7 = { d'4 c'8~ 4.~ |}                   â.7 = { g4 f8~ 4.~ |}
â¯.8 = { c'4. r4 bf8 |}                    â.8 = { f4. r4 bf8 |}
â¯.9 = { c'4 f8 g4.~ |}
â¯.10 = { g8 f g bf4 g8 |}
â¯.11 = { d'4 c'8~ 4.~ |}                  â.11 = { g4 f8~ 4.~ |}
â¯.12 = { c'4. r4. |}                      â.12 = { f4. r4. |}
â¯.13 = { ef'4 af8 bf4.~ |}                â.13 = { ef4 af8 bf4.~ |}
â¯.14 = { bf8 af bf df'4 bf8 |}
â¯.15 = { f'4 ef'8~ 4.~ |}                 â.15 = { bf4 af8~ 4.~ |}
â¯.16 = { ef'4. r4. |}                     â.16 = { af4. r4. |}
â¯.17 = { r4. c'8. e'!8. |}                â.17 = { r4. c8. c'8. |}
â¯.18 = { d'4. c'4. |}                     â.18 = { bf'4. a4. |}
â¯.19 = { bf2. |}                          â.19 = { g2. |}
â¯.20 = { r4. df'4. |}                     â.20 = { r4. g4. |}
â¯.21 = { <c'e'>2.~ |}                     â.21 = { f2.~ |}
â¯.22 = { <c'e'>2. |}                      â.22 = { f2. |}
â¯.23 = \â¯.1
â¯.24 = { r4. r4 c'8 |}
â¯.25 = { c'4 a8 bf4 c'8 |}
â¯.26 = { a8 g8 f8 g4 e8 |}
â¯.27 = { f4 8 g8( a8) bf8 |}
â¯.28 = { a4 g8 f4 r8 |}
â¯.29 = \â¯.1
â¯.30 = \â¯.1
â¯.31 = \â¯.1
â¯.32 = \â¯.1
â¯.33 = { c'4. 4 bf8 |}                      â.33 = { c4. 4 g,8 |}
â¯.34 = { c'8 8 8 a bf c' |}                 â.34 = { c8 8 8 4 8 |}
â¯.35 = { c'4. r4. |}                        â.35 = { c4. r4. |}
â¯.36 = { \time 9/8 c'4. bf a |}             â.36 = { \time 9/8 a,4. bf, c |}
â¯.37 = { \time 6/8 g4 bf8 c'8 8 bf8 |}      â.37 = { \time 6/8 g,4 8 c8 8 8 |}
â¯.38 = { c'2.~ |}                           â.38 = { f2.~ |}
â¯.39 = { c'2. |}                            â.39 = { f2. |}
â¯.40 = \â¯.1
â¯.41 = \â¯.1
â¯.42 = { c4. f4. |}
â¯.43 = { f4.~ 4 e8 |}
â¯.44 = { f4. a4. |}
â¯.45 = { a4.( g4.) |}
â¯.46 = { c'4. 4. |}
â¯.47 = { c'4. bf |}
â¯.48 = { a4. g |}
â¯.49 = { a4. r4 c'8 |}
â¯.50 = { c'4 a8 bf4 c'8 |}
â¯.51 = { a8 g f g4 e8 |}
â¯.52 = { f4 8 g( a) bf |}
â¯.53 = { a4 g8 f4 r8 |}
â¯.54 = { g4. 4 f8 |}
â¯.55 = { g8( a) bf c' bf a |}
â¯.56 = { g2.~ |}
â¯.57 = { g4. r4. |}
â¯.58 = { c'4. 4. |}                         â.58 = { c4. 4. |}
â¯.59 = { c'4. f |}                          â.59 = { c4. f |}
â¯.60 = { bf4. c' |}                         â.60 = { g4. a |}
â¯.61 = { d'4.( e') |}                       â.61 = { bf4.( c') |}
â¯.62 = { c'4. 4. |}                         â.62 = { c4. 4. |}
â¯.63 = { c'4. f |}                          â.63 = { c4. f |}
â¯.64 = { bf4. c' |}                         â.64 = { g4. a |}
â¯.65 = { d'4.( e'4) r8 |}                   â.65 = { bf4.( c'4) r8 |}
â¯.66 = { d'4. bf |}                         â.66 = { bf4. bf, |}
â¯.67 = { bf4. a |}                          â.67 = { bf,4. c |}
â¯.68 = { g4. a |}                           â.68 = { d4. 4. |}
â¯.69 = { d'4. r4. |}                        â.69 = { g,4. r4. |}
â¯.70 = { c'4. 8.( g8.) |}                   â.70 = { c4. 4. |}
â¯.71 = { a4.~ 8. 8. |}                      â.71 = { c4.~ 8. 8. |}
â¯.72 = { bf4. c' |}                         â.72 = { c4. 4. |}
â¯.73 = { c'4. r4. |}                        â.73 = { f4. r4. |}
â¯.74 = { d'4.~ 8. bf |}                     â.74 = { bf4.~ 8. bf, |}
â¯.75 = { bf4. a |}                          â.75 = { bf,4. c |}
â¯.76 = { g4. a |}                           â.76 = { e4. 4. |}
â¯.77 = { d'4. r4. |}                        â.77 = { g,4. r4. |}
â¯.78 = { c'4. 8.( g) |}                     â.78 = { c4. 4. |}
â¯.79 = { a4.~ 8. 8. |}                      â.79 = { c4.~ 8. 8. |}
â¯.80 = { bf4. c' |}                         â.80 = { c4. 4. |}
â¯.81 = { c'2.~ |}                           â.81 = { f2.~ |}
â¯.82 = { c'2. |}                            â.82 = { f2. |}
â¯.83 = \â¯.1
â¯.84 = \â¯.1
â¯.85 = { \key g\major \â¯.1 |}
â¯.86 = \â¯.1
â¯.87 = { \time 4/4 R1 |}
â¯.88 = { R1 |}
â¯.89 = { \clef treble d'4 g'4 4. fs'8 |}
â¯.90 = { g'4 b' b'( a') |}
â¯.91 = { d''4 4 4. c''8 |}                  â.91 = { d'4 4 4. e'8 |}
â¯.92 = { b'4 a' b' r4 |}                    â.92 = { g'4 a' b' r4 |} 
â¯.93 = { d'4 g'4 4. fs'8 |}
â¯.94 = { g'4 b'4 4( a') |}
â¯.95 = { d''4 a'4 4. fs'8 |}                â.95 = { d'4 e' fs'4. 8 |}
â¯.96 = { fs'4 e' d' r4 |}
â¯.97 = { d''4 4 4 g' |}                     â.97 = { d'4 4 4 g' |}
â¯.98 = { c''4 b'4 4( a') |}
â¯.99 = { d''4 4 4 g' |}                     â.99 = { d'4 4 4 g' |}
â¯.100 = { c''4 b'4 4( a') |}
â¯.101 = { e''4 4 4 d'' |}                   â.101 = { e'4 4 4 gs' |}
â¯.102 = { c''4 b' c''2 |}                   â.102 = { a'4 b' c''2 |}
â¯.103 = { a'4 b'8( c'') d''4. g'8 |}
â¯.104 = { g'4 a' b' r4 |}
â¯.105 = { e''4 4 4 d'' |}                   â.105 = { e'4 4 4 g' |}
â¯.106 = { c''4 b' c''2 |}                   â.106 = { a'4 b' c''2 |}
â¯.107 = { a'4 b'8( c'') d''4. g'8 |}
â¯.108 = { g'2 a' |}
â¯.109 = { \time 3/4 g'2.~ |}
â¯.110 = { g'4 r4 s4 |}
tenor =   {
  \global
  \expandVar \â¯ 1 110
  
}

bass =   {
  \global
  \expandVar \â¯ 1 6
  \expandVar \â 7 8
  \expandVar \â¯ 9 10
  \expandVar \â 11 13
  \expandVar \â¯ 14 14
  \expandVar \â 15 22
  \expandVar \â¯ 23 32
  \expandVar \â 33 39
  \expandVar \â¯ 40 57
  \expandVar \â 58 82
  \expandVar \â¯ 83 90
  \expandVar \â 91 92
  \expandVar \â¯ 93 94
  \expandVar \â 95 95
  \expandVar \â¯ 96 96
  \expandVar \â 97 97
  \expandVar \â¯ 98 98
  \expandVar \â 99 99
  \expandVar \â¯ 100 100
  \expandVar \â 101 102
  \expandVar \â¯ 103 104
  \expandVar \â 105 106
  \expandVar \â¯ 107 110
}

verse = \lyricmode {
 Glo -- ri -- a --
 in ex -- cel -- sis De -- o! Sing glo -- ri -- a --
 in ex -- cel -- sis De -- o! Glo -- ri -- a --
 in ex -- cel -- sis De -- o! Glo -- ry  
 be to God on high!  
é« æ é  è® å  åº ç£ é ç å¤©
ä½¿ å®£ å ç¾ å¥½ ä½³ é³ ä½³ é³ å  å½ è³½ äº ä» æ¥ èª
ç ä½³ é³ å  æ è´ å ç èª ç
é« æ é  è® å  åº ç£ èª ç å¤©
 
ä½¿ å®£ å ç¾ å¥½ ä½³ é³ é« æ é  è® å  åº ç£ èª ç å¤©
ä½¿ å®£ å ç¾ å¥½ ä½³ é³ ç¥ äºº è æ´½
é· æ¡ æ¬£ å° ä¸ å¹³ å®
äºº è æ© è èµ· ä¸ é å¤§ å°
é¦ é½ è è«¸ å¤© å± é  æ 
å¤© å° å± å å ä¸ å åº ç£
ç æ¼ ä¼¯ å© æ è½ å å¤© ä½¿
é« è² å± æ¦® è æ¸ è æ° ç
ç
æ¡ è¿ å¤© é å å¹³ ç æ¡ è¿ è¼ ç
å¬ ç¾© å ç¥ è³ ä¸ äºº ç å½ ç³§ 
ç¥ æ¶ ç è¦ æ²» åµ å· è¬ å æ¾ ä¸
å¤© æ¦® å° é ä¸ æ äºº å æ² æ·ª 
è¦ ä½¿ ç½ª äºº å¾ é ç è æ© å¸¸ è
ä¸» ç¸ è¦ª è½ å å¤© ä½¿ é« è² å± 
æ¦® è æ¸ æ¼ æ° ç ç 
}
verseâ¯ = \lyricmode {
  \repeat unfold 35 {\skip1}
 é« æ é  è® å  åº ç£ é ç å¤© 
 ä½¿ å®£ å ç¾ å¥½ ä½³ é³
 \repeat unfold 19 {\skip1}
 è½ å å¤© ä½¿ é« è² å± 
æ¦® è æ¸ æ¼ æ° ç ç å è¼ äº® ç§ é» æ å·² é¤ ç¡ å¤©
ä½¿ é« è² æ å± é  æ æ¦® è æ¸ ç ç¥ å¹³ å® æ¸ äºº
}
DPatPickUp = \drummode { hc4 }
fourFour = \drummode { bd4 crashcymbal4 sn4 hc4  }
sixEight = \drummode  {  \repeat unfold 2{crashcymbal8 sn8 sn8} }
threeFour = \drummode { bd4 crashcymbal4 hihat4 }
nineEight = \drummode {  \repeat unfold 3{crashcymbal8 sn8 hc8} }
drum = \new DrumVoice { \omit Stem 
  \global                    
  \repeat unfold 35 {\sixEight} %m01-35
  \nineEight   %36
  \repeat unfold 50 {\sixEight} %m37-86
  \repeat unfold 22 {\fourFour} %87-108
  \repeat unfold 2  {\threeFour} % 109-110
}

drumPart = {
\new DrumStaff  \with { 
  fontSize = #-4
  \override StaffSymbol.staff-space = #(magstep -4) } 
{
  \set Staff.instrumentName = #"Drums"
  \set Staff.shortInstrumentName = "drm."
  <<
    \drum
  >>
}
}


pR.1 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.2 = { <<{c''8 f' c'' bf' a' g'}\\{}>> |}
pR.3 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.4 = { <<{c''8 f' c'' <f'bf'>4.}\\{}>> |}
pR.5 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.6 = { <<{c''8 f' c'' bf' a' g'}\\{}>> |}
pR.7 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.8 = { <<{c''8 f' c'' <f'bf'>4.}\\{}>> |}
pR.9 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.10 = { <<{c''8 f' c'' bf' a' g'}\\{}>> |}
pR.11 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.12 = { <<{c''8 f' c'' <f'bf'>4.}\\{}>> |}
pR.13 = { <<{ef''8 af'' ef'' f'' ef'' df''}\\{af'4. 4.}>> |}
pR.14 = { <<{}\\{ef''8 af' ef'' df'' c'' bf'}>> |}
pR.15 = \pR.13
pR.16 = \pR.14
pR.17 = { <<{<f'a'!c''>4. c''8 f'' c''}\\{s4. f'4.}>> |}
pR.18 = { <<{s4. <f'c''>4.}\\{<f'bf'f''>4. s4.}>> |}
pR.19 = { <<{<f'bf'df''> f'8 bf' df''}\\{}>> |}
pR.20 = { <<{}\\{<g'bf'f''>4. r4.}>> |}
pR.21 = \pR.11
pR.22 = \pR.12
pR.23 = \pR.11
pR.24 = \pR.12
pR.25 = \pR.11
pR.26 = \pR.12
pR.27 = \pR.11
pR.28 = \pR.12
pR.29 = { <<{a8 f a <g bf>4.}\\{}>> |}
pR.30 = { <<{<a c'>8 f c' d'4 e'8}\\{s4. <g bf>4.}>> |}
pR.31 = { <<{f'8 c' f' <bf d' g'>4.}\\{a4. s4.}>> |}
pR.32 = { <<{<f'a'>8 c' <bf d'g'> <a c'f'>4.}\\{}>> |}
pR.33 = { <<{<e'g'>8 c' d' <c'e'> g' <d'f'>}\\{}>> |}
pR.34 = { <<{<e'g'>8 <f'a'> <g'bf'> <a'c''> <g'bf'> <f'a'>}\\{}>> |}
pR.35 = { <<{<e'g'>4. \tuplet 7/6{c'16 d' e' f' g' a' bf'}}\\{}>> |}
pR.36 = { \time 9/8 <<{c''8 f'' c'' <f'bf'd''>4. <f'c''>4. }\\{f'4. s4. s4.}>> |}
pR.37 = { \time 6/8 <<{<g'bf'>4 <f'a'>8 <g'c''>4.}\\{d'4. f'4 e'8}>> |}
pR.38 = \pR.11
pR.39 = \pR.12
pR.40 = \pR.11
pR.41 = \pR.12
pR.42 = { <<{f'8 e' f' <bf f'>4.}\\{a4. s4.}>> |}
pR.43 = { <<{f'8 g' a' g' f' e'}\\{bf2.}>> |}
pR.44 = { <<{f'8 e' f' <c'g'>4.}\\{c'4. s4.}>> |}
pR.45 = { <<{a'4 g'8 f' g' a'}\\{d'2.}>> |}
pR.46 = { <<{c''8 f'' c'' d''4 c''8}\\{f'4. 4.}>> |}
pR.47 = { <<{c''8 bf' a' <d'g'>4 <e'c''>8}\\{e'4. s4.}>> |}
pR.48 = { <<{<f'c''>8 f' c'' bf' a' g'}\\{s4. d'4.}>> |}
pR.49 = { <<{a'4 g'8 <d'f'>4.}\\{c'4. s4.}>> |}
pR.50 = { <<{f'8 e' f' <bf f'>4.}\\{a4. s4.}>> |}
pR.51 = { <<{f'8 g' a' g' f' e'}\\{bf2.}>> |}
pR.52 = { <<{f'8 e' f' <c'g'>4.}\\{c'4. s4.}>> |}
pR.53 = { <<{a'4. g'}\\{d'2.}>> |}
pR.54 = { <<{g'8 c'' b' <f'c''>4.}\\{e'4. s4.}>> |}
pR.55 = { <<{c''4. 8 bf' a'}\\{g'8 a' bf'! e'4.}>> |}
pR.56 = { <<{g'8 c'' g' f' e' d'}\\{c'4. b4.}>> |}
pR.57 = { <<{<c'e'>4. c'8 e' g'}\\{}>> |}
pR.58 = { <<{c''8 f'' e'' f'' c'' a'}\\{f'4. 4.}>> |}
pR.59 = { <<{d''8 c'' bf' <f'c''>4.}\\{f'4. s4.}>> |}
pR.60 = { <<{bf'8 a' bf' <f'c''>4.}\\{f'4. s4.}>> |}
pR.61 = { <<{<f'a'd''>4. <g'c''>}\\{}>> |}
pR.62 = { <<{c''8 f'' e'' f'' c'' a'}\\{f'4. 4.}>> |}
pR.63 = { <<{d''8 c'' bf' <f'c''>4.}\\{f'4. s4.}>> |}
pR.64 = { <<{d''8 c'' d'' s4.}\\{f'4. <g'e''>}>> |}
pR.65 = { <<{s2.}\\{<a'd''f''>4. <c''g''>}>> |}
pR.66 = { <<{s4. s4 <f'c''>8}\\{<d''f''>8 <c''e''> <bf'd''>8 4 s8}>> |}
pR.67 = { <<{<d'bf'>4. <f'c''>}\\{}>> |}
pR.68 = { <<{bf'8 a' g' fs' d' a'}\\{d'4. s4.}>> |}
pR.69 = { <<{<d'bf'>4. bf8 c' d'}\\{}>> |}
pR.70 = { <<{<c'e'>8 c' e' f'8. g'}\\{s4. c'4.}>> |}
pR.71 = { <<{<f'a'>8 f' a' <f'c''>4.}\\{}>> |}
pR.72 = { <<{c''8 bf' a' <e'g'>4.}\\{<d'f'>4. s4.}>> |}
pR.73 = { <<{a'8 f' g' a' c'' f''}\\{c'4. f'}>> |}
pR.74 = { <<{s4. <bf'd''>8. <f'c''>}\\{<d''f''>8 <c''e''> <bf'd''> s4.}>> |}
pR.75 = { <<{<d'bf'>4. <f'c''>}\\{}>> |}
pR.76 = { <<{bf'8 a' g' fs' d' a'}\\{d'4. s4.}>> |}
pR.77 = { <<{<d'bf'>4. bf8 c' d'}\\{}>> |}
pR.78 = { <<{<c'e'>8 c' e' f'8. g'}\\{s4. c'4}>> |}
pR.79 = { <<{<f'a'>8 f' a' <f'c''>4.}\\{}>> |}
pR.80 = { <<{c''8 bf' a' <e'g'>4.}\\{<d'f'>4. s4.}>> |}
pR.81 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.82 = { <<{c''8 f' c'' bf' a' g'}\\{}>> |}
pR.83 = \pR.11
pR.84 = \pR.12
pR.85 = { \key g\major <<{d''8 g'' d'' e'' d'' c''}\\{<g'b'>4. g'}>> |}
pR.86 = { <<{}\\{d''8 g' d'' c'' b' a'}>> |}
pR.87 = { \time 4/4 <<{c''4. b'16 c'' d''4. c''16 d''}\\{<g'a'>2 <a'b'>2}>> |}
pR.88 = { <<{e''4. d''16 e'' s2}\\{<a'c''>2 <a'c''g''>4 <a'd''a''>}>> |}
pR.89 = { <<{s4 g'4 <e'g'd''>16 c'' b' a' g'8 <fs'a'>}\\{<g'd''g''>4 s2.}>> |}
pR.90 = { <<{d''2 b'4 a'}\\{g'8 d' g' a' e'2}>> |}
pR.91 = { <<{s4 g'8 a'16 b' a'4 b'8 c'' }\\{\stemUp g'8 d'~ \stemDown d'4 <e'g'>2}>> |}
pR.92 = { <<{<fs'g'b'>4 4 4 d''8 c''}\\{s2. <e'g'>4}>> |}
pR.93 = { <<{s4 g'4 <e'g'd''>16 c'' b' a' g'8 <fs'a'>}\\{<g'd''>4 s2.}>> |}
pR.94 = { <<{d''2 b'4 a'}\\{g'8 d' g' a' e'2}>> |}
pR.95 = { <<{s4 g'8 fs'16 g' a'4 d'8 cs'}\\{\stemUp fs'8 d'~ \stemDown d'2 a4}>> |}
pR.96 = { <<{d'8 fs' <cs'e'>4 <fs a d'>4 \tuplet 7/4{d'16 e' fs' g' a' b' c''}}\\{b4 s2.}>> |}
pR.97 = { <<{s2. <d'g'b'>4}\\{<g'b'd''>4 2 s4}>> |}
pR.98 = { <<{<e'a'c''>4 <e'g'b'>2 <d'fs'a'>4}\\{}>> |}
pR.99 = { <<{s2. <d'g'b'>4}\\{<g'b'd''>4 2 s4}>> |}
pR.100 = { <<{<e'a'c''>4 <g'b'>2 <d'fs'a'>4}\\{}>> |}
pR.101 = { <<{<e'g'c''>4 e'16 c' e' g' <g'c''>4 <e'gs'b'>}\\{}>> |}
pR.102 = { <<{<c'e'a'>4 <e'gs'> <c'e'a'>2}\\{}>> |}
pR.103 = { <<{d'4 8 e'16 fs' g'!8 d' g'4}\\{a2 b}>> |}
pR.104 = { <<{g'8 a'16 b' a'8 d'' <d'g'b'>4 g'16 b' d'' g''}\\{c'4 <d'fs'> s2}>> |}
pR.105 = { <<{s2. <e'g'd''>4}\\{<g'c''e''>4 \tuplet 3/2{g'8 c'' e''} <g'c''g''>4 s4}>> |}
pR.106 = { <<{c''4 b' c''8 b' a' g'}\\{e'2 2}>> |}
pR.107 = { <<{a'4 b'8 c'' d''2}\\{d'2 <g'b'>4 d'8 g'}>> |}
pR.108 = { <<{g'4 b' <d'g'a'> <fs'a'd''>}\\{<c'd'>2 s2}>> |}
pR.109 = { \time 3/4 <<{s2 d'8 g'16 a'}\\{<b'd''g''>4 <g'b'd''> s4}>> |}
pR.110 = { <<{b'4 a' g'8 d''}\\{d'2 4}>> |}
right =   {
  \global
  \expandVar \pR 1 110
}
Lh.1 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.2 = { <<{<a c'e'>4. <g bf d'>}\\{f,2.}>> |}
Lh.3 = \Lh.1
Lh.4 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.5 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.6 = { <<{<a c'e'>4. <g bf d'>}\\{f,2.}>> |}
Lh.7 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.8 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.9 = \Lh.7
Lh.10 = \Lh.6
Lh.11 = \Lh.7
Lh.12 = \Lh.8
Lh.13 = { <<{ef4. <bf df'f'>}\\{ef,2.~}>> |}
Lh.14 = { <<{<c'ef'g'>4. <bf df'f'>}\\{ef,4.~ 4 af,8}>> |}
Lh.15 = { <<{ef4. <bf df'f'>}\\{ef,2.~}>> |}
Lh.16 = { <<{<c'ef'g'>4. <bf df'f'>}\\{ef,4.~ 4 df,8}>> |}
Lh.17 = { <<{c4. <c'e'!>}\\{c,2.~}>> |}
Lh.18 = { <<{<bf d'>4. <a c'>}\\{c,2.}>> |}
Lh.19 = { <<{<g bf df'>2.}\\{r4. <c,c>4.~}>> |}
Lh.20 = { <<{<g df'f'>4. r4.}\\{<c,c>4. r4.}>> |}
Lh.21 = { <<{f4. <g bf d'!>}\\{f,2.~}>> |}
Lh.22 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.23 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.24 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.25 = \Lh.23
Lh.26 = \Lh.24
Lh.27 = \Lh.23
Lh.28 = \Lh.24
Lh.29 = { <<{c4. d4 c8}\\{f,2.}>> |}
Lh.30 = { <<{c4. d}\\{f,2.}>> |}
Lh.31 = { <<{c4. d4 c8}\\{f,2.}>> |}
Lh.32 = { <<{c4 d8 c4.}\\{f,2.}>> |}
Lh.33 = { <<{c4. <c g>4 <g bf>8}\\{c,2.~}>> |}
Lh.34 = { <<{<c c'>4. 4.}\\{c,2.~}>> |}
Lh.35 = { <<{<c c'>4. s4.}\\{c,4. <bf,g>}>> |}
Lh.36 = { \time 9/8 <<{<a,f>4. s4. s4.}\\{s4. <bf,bf>4. <c a>}>> |}
Lh.37 = { \time 6/8 <<{<g,g>4. g4 bf8}\\{s4. c}>> |}
Lh.38 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.39 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.40 = \Lh.23
Lh.41 = \Lh.24
Lh.42 = { <<{<f,c>2.}\\{}>> |}
Lh.43 = { <<{<g,d>2.}\\{}>> |}
Lh.44 = { <<{<a,f>2.}\\{}>> |}
Lh.45 = { <<{f4. g}\\{bf,2.}>> |}
Lh.46 = { <<{a4. <g bf>}\\{c2.}>> |}
Lh.47 = { <<{a4. bf}\\{c2.}>> |}
Lh.48 = { <<{a4. g}\\{c2.}>> |}
Lh.49 = { <<{f8 g a bf4.}\\{c4.~ 4 c,8}>> |}
Lh.50 = { <<{<f,c>2.}\\{}>> |}
Lh.51 = { <<{<g,d>2.}\\{}>> |}
Lh.52 = { <<{<a,f>2.}\\{}>> |}
Lh.53 = { <<{f4 g8 f g a}\\{b,2.}>> |}
Lh.54 = { <<{s4. g4 a8}\\{<c g>4. d}>> |}
Lh.55 = { <<{c'4. g}\\{e2.}>> |}
Lh.56 = { <<{e4. d}\\{g,2.}>> |}
Lh.57 = { <<{s4. <c,c>4.}\\{<c a>4. s4.}>> |}
Lh.58 = { <<{c4. <a c' e'>}\\{c,2.~}>> |}
Lh.59 = { <<{<g bf d'>4. <a c'e'>}\\{c,2.~}>> |}
Lh.60 = \Lh.59
Lh.61 = { <<{<bf d'>4. <c'e'>}\\{c,2.}>> |}
Lh.62 = \Lh.58
Lh.63 = \Lh.59
Lh.64 = \Lh.60
Lh.65 = { <<{<bf d'f'>4. <c'e'g'>}\\{c,2.}>> |}
Lh.66 = { <<{bf4. f}\\{bf,2.}>> |}
Lh.67 = { <<{bf8 a bf a g a}\\{bf,4. c}>> |}
Lh.68 = { <<{s4. <d,d>4.}\\{<d g>4. s4.}>> |}
Lh.69 = { <<{g4. f}\\{g,2.}>> |}
Lh.70 = { <<{c4. <c a>8.~ <c bf>}\\{c,2.~}>> |}
Lh.71 = { <<{<c c'>4.~ <c a>}\\{c,2.}>> |}
Lh.72 = { <<{c4. <c c'>}\\{c,2.}>> |}
Lh.73 = { <<{f4. <f c'>}\\{f,2.}>> |}
Lh.74 = { <<{bf4. f}\\{bf,2.}>> |}
Lh.75 = { <<{bf8 a bf a g a}\\{bf,4. c}>> |}
Lh.76 = { <<{s4. <d,d>}\\{<d g>4. s4.}>> |}
Lh.77 = { <<{g4. f}\\{g,2.}>> |}
Lh.78 = { <<{c4. <c a>8.~ <c bf>}\\{c,2.~}>> |}
Lh.79 = { <<{<c c'>4.~ <c a>}\\{c,2.}>> |}
Lh.80 = { <<{c4. <c c'>}\\{c,2.}>> |}
Lh.81 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.82 = { <<{<a c'e'>4. <g bf d'>}\\{f,2.}>> |}
Lh.83 = \Lh.81
Lh.84 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 8 ef,8}>> |}
Lh.85 = { \key g\major <<{d4. <a c'e'>}\\{d,2.~}>> |}
Lh.86 = { <<{<b d'fs'>4. <a c'e'>}\\{d,2.}>> |}
Lh.87 = { \time 4/4 <<{<a c'e'>2 <b d'fs'>}\\{r4 d,2 4~}>> |}
Lh.88 = { <<{<c'e'g'>2 <g c'e'>4 <fs a d'>}\\{d,4 2.}>> |}
Lh.89 = { <<{}\\{<g,d g>2 <a,e c'>}>> |}
Lh.90 = { <<{g2~ 8 a}\\{b,2 c}>> |}
Lh.91 = { <<{b2 c'}\\{d1}>> |}
Lh.92 = { <<{d'4 c' d' s4}\\{d2. <d a c'>4}>> |}
Lh.93 = { <<{}\\{<g,d b>2 <a,e c'>}>> |}
Lh.94 = { <<{g2.~ 8 a}\\{b,2 cs}>> |}
Lh.95 = { <<{a2. <fs,d>4}\\{d4 e fs s4}>> |}
Lh.96 = { <<{<g,d>4 <a,e> <d,a,d>2}\\{}>> |}
Lh.97 = { <<{d8 g b a g fs e d}\\{d,1}>> |}
Lh.98 = { <<{d8 a c' b a g fs e}\\{d,1}>> |}
Lh.99 = { <<{d8 b d' c' b a g fs}\\{d,1}>> |}
Lh.100 = { <<{d8 a e' d' c' b a d}\\{d,1}>> |}
Lh.101 = { <<{c4 <c g> <e g c'> <e,e>}\\{c,2. s4}>> |}
Lh.102 = { <<{s2 a2}\\{<a,a>4 <e b> a, g,}>> |}
Lh.103 = { <<{<fs,d>2 <f,d>}\\{}>> |}
Lh.104 = { <<{<e,c>4 <d,d> g <g b d'>}\\{s2 g,2}>> |}
Lh.105 = { <<{<c'e'>2 4 <b c'>}\\{r4 <c,c>2.~}>> |}
Lh.106 = { <<{<a c'>2 <g a c'>}\\{<c,c>2. g,4}>> |}
Lh.107 = { <<{fs4 <fs a c'> f <f g b>}\\{fs,2 f,}>> |}
Lh.108 = { <<{e4 g d <d a>}\\{e,2 d,}>> |}
Lh.109 = { \time 3/4 <<{r8 d8 g a b4}\\{g,2.}>> |}
Lh.110 = { <<{r8 d8 g a b4}\\{g,2.}>> |}
left =   {
  \global
  \expandVar \Lh 1 110
}

choirPart = \new ChoirStaff <<
  \new Staff \with {
    midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "Soprano" "Alto" }
  } <<
    \new Voice = "soprano" { \voiceOne \soprano }
    \new Voice = "alto" { \voiceTwo \alto }
  >>
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verse
  \new Staff \with {
    midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "Tenor" "Bass" }
  } <<
    \clef bass
    \new Voice = "tenor" { \voiceOne \tenor }
    \new Voice = "bass" { \voiceTwo \bass }
  >>
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "tenor" \verseâ¯
>>

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } \right
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \left }
>>

\score {
  <<
    \choirPart
    \drumPart
    \pianoPart
  >>
  \layout { }
  \midi { }
}

% Rehearsal MIDI files:
rehearsalMidi = #
(define-music-function
 (parser location name midiInstrument lyrics) (string? string? ly:music?)
 #{
   \unfoldRepeats <<
     \new Staff = "soprano" \new Voice = "soprano" { \soprano }
     \new Staff = "alto" \new Voice = "alto" { \alto }
     \new Staff = "tenor" \new Voice = "tenor" { \tenor }
     \new Staff = "bass" \new Voice = "bass" { \bass }
     \new Staff \drum
     \new Staff \right 
     \new Staff \left 
     \context Staff = $name {
       \set Score.midiMinimumVolume = #0.5
       \set Score.midiMaximumVolume = #0.5
       \set Score.tempoWholesPerMinute = #(ly:make-moment 88 4)
       \set Staff.midiMinimumVolume = #0.8
       \set Staff.midiMaximumVolume = #1.0
       \set Staff.midiInstrument = $midiInstrument
     }
     \new Lyrics \with {
       alignBelowContext = $name
     } \lyricsto $name $lyrics
   >>
 #})

\book {
  \bookOutputSuffix "soprano+piano"
  \score {
    \rehearsalMidi "soprano" "soprano sax" \verse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "alto+piano"
  \score {
    \rehearsalMidi "alto" "soprano sax" \verse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "tenor+piano"
  \score {
    \rehearsalMidi "tenor" "tenor sax" \verse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "bass+piano"
  \score {
    \rehearsalMidi "bass" "tenor sax" \verse
    \midi { }
  }
}

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

how to extract few measures from S A T B + piano score all staff at the same time

Reply via email to