#(ly:set-option 'old-relative)
\include "paper16.ly"
\paper  { papersize = "a4" }

\version "1.9.8"
     %date 02/10/03

\include "nederlands.ly"

\header {
  title = "Hana-Bi"
%  subtitle = " "
%  subsubtitle = " "
%  dedication = " "
  composer = "Thorkil Wolvendans"
  opus = "Opus X"
  copyright = "Copyright (c) 2003 Thorkil Wolvendans"
%  tagline = " "
  source =  "Urtext"
  enteredby = "Thorkil Wolvendans"
  maintainerEmail = "address@hidden"
}

%*****  GLOBAL  *****%

timesig = \notes {
	%maat 1-51
	     \time 4/8
	     s2*51
	%maat 52-63
	     \time 5/8
}
tempdir = \notes {
   \property Score.MetronomeMark \set #'minimum-space = #'-2.0
	\tempo 8 = 200
}

repmark = \notes {
%CHECK IF MARKUP CAN BE RAISED PERMANTELY!!
	%maat 1-7
	     s2*7\break
	%maat 8-14
	     s2^\markup { ""}^\markup { ""}^\markup {\box \huge \bold "A"}
	     s2*6
	%maat 15-30
	     s2^\markup { ""}^\markup { ""}^\markup {\box \huge \bold "B"}
	     s2*15
	%maat 31-44
	     s2^\markup { ""}^\markup { ""}^\markup { ""}^\markup { ""}^\markup { ""}^\markup {\box \huge \bold "C"}
	     s2*13 \break
	%maat 45-51
	     s2^\markup { ""}^\markup { ""}^\markup {\box \huge \bold "D"}
	     s2*6
	%maat 52-63
	     s2^\markup { ""}^\markup { ""}^\markup {\box \huge \bold "E"}
}

bars = \notes {
   s2*7
     \bar "||"
   s2*7
     \bar "||"
   s2*16
     \bar "||"
   s2*14
     \bar "||"
   s2*7
     \bar "||"
}

%***** TRUMPET *****%

tptdyn = \notes {
	%maat 1-7
	     s2\f
	     s2*6
	%maat 8-14
	     s2*7
	%maat 15-27
	     s2*13
	%maat 28-30
	     s2\ff
	     s2*2
	%maat 31-44
	     s2\f
	     s2*13
}

tptexp = \notes {
	%maat 1-7
	     s2^\markup { \bold Mute }
	     s2*6
	%maat 8-14
	     s2*7
	%maat 15-27
	     s2*12
	     R2^\markup { \bold \center < Mute w/Hand > }
	%maat 28-30
	     s2^\markup { ""}^\markup { ""}^\markup { ""}^\markup { ""}^\markup {\bold "Growl"}
	     s2*2
	%maat 31-44
	     s2^\markup { ""}^\markup {\bold "Natural"}
	     s2*13
}

tpt = \notes \transpose c d \relative c' {
	%maat 1-7
	     es8-> r16 d->( es f es8) | r16 d->( es f es d)(es f |
	     es8 r16) d->( es f es8) | r16 d->( es f fis8 fis |
	     fis16 f es8 r16) d( es f | es d)-> (es f es8 r16) d->( |
	     es f fis8 fis-> r) |
%	%maat 8-14
%	     R2*7
%	%maat 15-27
%	     R2*12
		\property Score.skipBars = ##t R2*7  R2*12
	     R2
	%maat 28-30
	     g2\stopped ~ | g\open | R2 |
	%maat 31-44
	     g8-> r16 f->( g b g8) | r16 f->(g b g f)->(g b |
	     g8 r16) f->( g b g8) | r16 f->( g b cis8-> cis-> |
	     cis16 b g8 r16) f->( g b | g f)( g b g8 r16) f( |
	     g b cis8 d-> r) | b16-> (a f8 r) b16->( a f b)->( a f b)( a f8) |
	     r8 b16->( a f b)->( a f) | b( a f8 r8) b16->( a |
	     f b)->( a f b)( a f8) | r8 b16->( a f b)->( a f) |
	     b->( a f b)->( a f8 r16) |
%	%maat 45-51
%	     R2*7
		\property Score.skipBars = ##t R2*7
%	%maat 52-63
%	     R2*4
		\property Score.skipBars = ##t R1*5/8*4
	     b4 ~ b4 ~ b8 ~ | b2 r8 | c16 fis, r8 r r4 |
	     b4 ~ b4 ~ b8 ~ | b2 r8 | b16 c gis fis r8 r4 | R1*5/8 |
	%maat 64-71
	     	     
}

\score {
	\context Staff = trumpet <<
%	\property Staff.instrument = #"Trumpet"
%	\property Staff.midiInstrument = #"muted trumpet"
	  \clef treble
	    \timesig
	      \tempdir
	    \bars
	      \repmark
	\tpt
          \tptdyn
	  \tptexp
	>>
   \midi {
%     \tempo 8 = 200
   }

   \paper {}
}