\version "2.19.31"
#(ly:set-option 'point-and-click #f)
\layout {
  \context {
    \Staff
    \omit TimeSignature
  }
  \context {
    \Score
    timing = ##f
  }
}
gMajorScale = \relative { g a b c d e fis g }

% change clef to test different positions on the staff
global = { \clef treble }

% take notes away from the end, except for the last note
Ia = {
  \bar "|"
  b16[ d' b' g'  d' g' d'' b'  g' b' g'' d''] \bar "|"
  b16[ d' b' g'  d' g' d'' b'  g' b' d''] \bar "|"
  b16[ d' b' g'  d' g' d'' b'  g' d''] \bar "|"
  b16[ d' b' g'  d' g' d'' b'  d''] \bar "|"
  b16[ d' b' g'  d' g' d'' d''] \bar "|"
  b16[ d' b' g'  d' g' d''] \bar "|"
  b16[ d' b' g'  d' d''] \bar "|"
  b16[ d' b' g'  d''] \bar "|"
  b16[ d' b' d''] \bar "|"
  b16[ d' d''] \bar "|"
  b16[ d''] \bar "|"
}
Ib = \modalInversion b' b' \gMajorScale \Ia
Ic = \retrograde \Ia
Id = \retrograde \Ib

% take notes away from the beginning, except for the first note
IIa= {
  \bar "|"
  b16[ d' b' g'  d' g' d'' b'  g' b' g'' d''] \bar "|"
  b16[ b' g'  d' g' d'' b'  g' b' g'' d''] \bar "|"
  b16[ g'  d' g' d'' b'  g' b' g'' d''] \bar "|"
  b16[ d' g' d'' b'  g' b' g'' d''] \bar "|"
  b16[ g' d'' b'  g' b' g'' d''] \bar "|"
  b16[ d'' b'  g' b' g'' d''] \bar "|"
  b16[ b'  g' b' g'' d''] \bar "|"
  b16[ g' b' g'' d''] \bar "|"
  b16[ b' g'' d''] \bar "|"
  b16[ g'' d''] \bar "|"
  b16[ d''] \bar "|"
}
IIb = \modalInversion b' b' \gMajorScale \IIa
IIc = \retrograde \IIa
IId = \retrograde \IIb

test =
#(define-music-function (id) (string?)
   (let ((mus (ly:parser-lookup (string->symbol id))))
     #{ \new Staff \with { instrumentName = $id } << \global $mus \\ $mus >> #}))

\bookpart {
  \test Ia
  \test Ib
  \test Ic
  \test Id
}

\bookpart {
  \test IIa
  \test IIb
  \test IIc
  \test IId
}