\version "2.18.2"
\include "arabic.ly"

trillFlat = \markup { \musicglyph #"scripts.trill" \super \flat }

\book {

\paper {
  print-all-headers = ##t
}
\header {
	title = "Nay exercises"
	copyright = "From a lesson with Scott Marcus, adapted by Christopher Witulski"
	tagline = ""
}

\markup { \vspace #1 }

\score {
	\new Staff {
		\relative c' {
			\set Staff.extraNatural = ##f % fix correction on quarter tones
			\clef "treble"
			\key c \major
			\accidentalStyle forget
			\cadenzaOn


			f8-5-2-1-0_"bayyati"( g-.-5-2-0) r f-5-2-1-0( eeh2.-5-\parenthesize -3-2-1-0_\trill d8-5-4-3-2-1-0)

			\bar "||"

			f8-5-2-1-0_"saba"( ges-.-5-1-0) r f-5-2-1-0( eeh2.-5-\parenthesize -3-2-1-0_\trill d8-5-4-3-2-1-0)

			\bar "||"

			f8-4-2-1-0_"kurd"( g-.-4-2-0) r f-4-2-1-0( ees2.-4-\parenthesize -3-2-1-0_\trill d8-5-4-3-2-1-0)

			\bar "||"

			fis8-4-3-1-0_"hijaz"( g-.-4-3-0) r fis-4-3-1-0( ees2.-4-3-\parenthesize -2-1-0_\trill d8-5-4-3-2-1-0)

			\bar "|."

			\cadenzaOff

		}
	}
	\header {
		title = "D modes"
	  composer = ##f
	}
}

\score {
	\new Staff {
		\relative c' {
			\set Staff.extraNatural = ##f % fix correction on quarter tones
			\clef "treble"
			\key c \major
			\accidentalStyle forget
			\cadenzaOn


			f8-5-2-1-0_"bayyati"( g-.-5-2-0) r f-5-2-1-0( eeh1-5-\parenthesize -3-2-1-0_\trill d8-5-4-3-2-1-0[ c-6-5-4-3-2-1-0] d-5-4-3-2-1-0)

			\bar "||"

			eeh8([ f8] g-.) r f( eeh2_\trill d8[ c] d)

			\bar "||"

			f8( g-.) r f( eeh2_\trill \grace{ d16[ f] } eeh2_\trill \grace{ d16[ f] } eeh2_\trill \grace {d16[ c]} d)

			\bar "|."

			\cadenzaOff

		}
	}
	\header {
		title = "Longer phrases (try with other modes)"
	  composer = ##f
	}
}

\score {
	\new Staff {
		\relative c' {
			\set Staff.extraNatural = ##f % fix correction on quarter tones
			\clef "treble"
			\key c \major
			\accidentalStyle forget
			\cadenzaOn


			eeh8-5-3-2-1-0_"rast"_"close angle to sharpen E half-flat"( f8-5-2-1-0 g-.-5-2-0) r f-5-2-1-0( eeh2-5-\parenthesize -3-2-1-0_\trill d8-5-4-3-2-1-0 c-6-5-4-3-2-1-0)

			\bar "||"

			g'8-4-3-0_"nahawand"([ fis-4-3-1-0 g-4-3-0 a-5-4-3-2-1-0] bes2-4-3-2-1-0) \grace a8( bes2) \grace a8( bes8-.) r \bar ""

			bes8[ a g] fis4~fis2\trill r4 \bar ""

			fis8[ g a] bes4 a8[ g-.] r \bar ""

			\grace fis8( g2.) a4 bes4.( a8 g4)

			\bar "||"

			beh,8_"huzam"_"B half-flat is open, close angle to sharpen pitch" c-6-5-4-3-2-1-0[ d-5-4-3-2-1-0 ees-4-3-2-1-0 fis-4-3-1-0] g-4-3-0[( a-5-4-3-2-1-0)] a4-\trillFlat-\parenthesize -5-4-3-2-1-0( g8-5-4-3-2-0) r \bar ""

			a8 a4_\trillFlat( g8) r

			\bar ""

			g-5-3-2-0( beh4-5-3-2-1-0) r4 \bar ""

			beh4 a8-5-4-3-2-1-0[ g-4-3-0 fis-4-3-1-0( ees-4-3-2-1-0) d-5-4-3-2-1-0 c-6-5-4-3-2-1-0] beh4 r8 \bar ""

			c8([ d]) d16([ ees d ees]) d([ c beh4])

			\bar "|."

			\cadenzaOff

		}
	}
	\header {
		title = "Non-D modes"
	  composer = ##f
	}
}

}