\version "2.19.40"
\language "deutsch"
#(define (used-notenames lang)
;; returns a subset of 'language-pitch-names', specified by `lang'.
;; key and value are exchanged
;; i.e. the alist is from type '((pitch . name) ... )
  (map
    (lambda (e) (reverse-interval e))
    (assoc-get
      (string->symbol lang)
          language-pitch-names)))

#(define german-notenames (used-notenames "deutsch"))

#(define (pitch->notename pitch)
  (let* ((pitch-octaves (ly:pitch-octave pitch))
         (pitch-notename (ly:pitch-notename pitch))
         (pitch-alteration (ly:pitch-alteration pitch))
         ;; create a pitch with alteration, name and
         ;; octave set to -1
         ;; this ensures the possibility to look it up in
         ;; 'used-notenames'
         (p (ly:make-pitch -1 pitch-notename pitch-alteration))
         (pitch-name-strg
            (symbol->string (assoc-get p german-notenames)))
         ;; recreate the octave-notation
         (octave-sign
           (cond ((and (>= pitch-octaves -2) (<= pitch-octaves -1)) "")
                 ((<= pitch-octaves -1)
                  (string-concatenate
                    (make-list (- (abs pitch-octaves) 2) ",")))
                 ((= pitch-octaves 0) "'")
                 ((> pitch-octaves 0)
                  (string-concatenate
                    (make-list (1+ (abs pitch-octaves)) "'")))))
         (absolute-pitch-name
           (string-append
             (if (<= pitch-octaves -2)
                 (string-upcase pitch-name-strg)
                 pitch-name-strg)
             octave-sign))

         )
  (format   absolute-pitch-name)))

#(define pitch-markup-list
;; An alist assigning markups to certain integers, which will be used later
;; as reference for the pitch-names
;; TODO add the missing eps-markups
`(
    ("c,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c,,,,-eps]"))
    ("c,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c,,,-eps]"))
    ("c,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c,,-eps]"))
    ("c," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c,-eps]"))
    ("c" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c-eps]"))
    ("c'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c'-eps]"))
    ("c''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c''-eps]"))
    ("c'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c'''-eps]"))
    ("c''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: c''''-eps]"))


    ("cis,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis,,,,-eps]"))
    ("cis,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis,,,-eps]"))
    ("cis,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis,,-eps]"))
    ("cis," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis,-eps]"))
    ("cis" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis-eps]"))
    ("cis'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis'-eps]"))
    ("cis''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis''-eps]"))
    ("cis'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis'''-eps]"))
    ("cis''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: cis''''-eps]"))


    ("des,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des,,,,-eps]"))
    ("des,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des,,,-eps]"))
    ("des,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des,,-eps]"))
    ("des," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des,-eps]"))
    ("des" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des-eps]"))
    ("des'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des'-eps]"))
    ("des''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des''-eps]"))
    ("des'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des'''-eps]"))
    ("des''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: des''''-eps]"))


    ("d,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d,,,,-eps]"))
    ("d,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d,,,-eps]"))
    ("d,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d,,-eps]"))
    ("d," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d,-eps]"))
    ("d" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d-eps]"))
    ("d'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d'-eps]"))
    ("d''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d''-eps]"))
    ("d'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d'''-eps]"))
    ("d''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: d''''-eps]"))


    ("dis,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis,,,,-eps]"))
    ("dis,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis,,,-eps]"))
    ("dis,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis,,-eps]"))
    ("dis," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis,-eps]"))
    ("dis" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis-eps]"))
    ("dis'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis'-eps]"))
    ("dis''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis''-eps]"))
    ("dis'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis'''-eps]"))
    ("dis''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: dis''''-eps]"))


    ("es,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es,,,,-eps]"))
    ("es,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es,,,-eps]"))
    ("es,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es,,-eps]"))
    ("es," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es,-eps]"))
    ("es" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es-eps]"))
    ("es'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es'-eps]"))
    ("es''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es''-eps]"))
    ("es'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es'''-eps]"))
    ("es''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: es''''-eps]"))


    ("e,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e,,,,-eps]"))
    ("e,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e,,,-eps]"))
    ("e,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e,,-eps]"))
    ("e," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e,-eps]"))
    ("e" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e-eps]"))
    ("e'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e'-eps]"))
    ("e''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e''-eps]"))
    ("e'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e'''-eps]"))
    ("e''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: e''''-eps]"))


    ("eis,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis,,,,-eps]"))
    ("eis,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis,,,-eps]"))
    ("eis,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis,,-eps]"))
    ("eis," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis,-eps]"))
    ("eis" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis-eps]"))
    ("eis'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis'-eps]"))
    ("eis''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis''-eps]"))
    ("eis'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis'''-eps]"))
    ("eis''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: eis''''-eps]"))


    ("f,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f,,,,-eps]"))
    ("f,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f,,,-eps]"))
    ("f,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f,,-eps]"))
    ("f," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f,-eps]"))
    ("f" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f-eps]"))
    ("f'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f'-eps]"))
    ("f''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f''-eps]"))
    ("f'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f'''-eps]"))
    ("f''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: f''''-eps]"))


    ("fis,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis,,,,-eps]"))
    ("fis,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis,,,-eps]"))
    ("fis,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis,,-eps]"))
    ("fis," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis,-eps]"))
    ("fis" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis-eps]"))
    ("fis'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis'-eps]"))
    ("fis''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis''-eps]"))
    ("fis'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis'''-eps]"))
    ("fis''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: fis''''-eps]"))


    ("ges,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges,,,,-eps]"))
    ("ges,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges,,,-eps]"))
    ("ges,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges,,-eps]"))
    ("ges," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges,-eps]"))
    ("ges" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges-eps]"))
    ("ges'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges'-eps]"))
    ("ges''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges''-eps]"))
    ("ges'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges'''-eps]"))
    ("ges''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ges''''-eps]"))


    ("g,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g,,,,-eps]"))
    ("g,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g,,,-eps]"))
    ("g,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g,,-eps]"))
    ("g," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g,-eps]"))
    ("g" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g-eps]"))
    ("g'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g'-eps]"))
    ("g''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g''-eps]"))
    ("g'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g'''-eps]"))
    ("g''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: g''''-eps]"))


    ("gis,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis,,,,-eps]"))
    ("gis,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis,,,-eps]"))
    ("gis,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis,,-eps]"))
    ("gis," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis,-eps]"))
    ("gis" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis-eps]"))
    ("gis'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis'-eps]"))
    ("gis''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis''-eps]"))
    ("gis'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis'''-eps]"))
    ("gis''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: gis''''-eps]"))


 ("as,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as,,,,-eps]"))
    ("as,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as,,,-eps]"))
    ("as,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as,,-eps]"))
    ("as," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as,-eps]"))
    ("as" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as-eps]"))
    ("as'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as'-eps]"))
    ("as''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as''-eps]"))
    ("as'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as'''-eps]"))
    ("as''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: as''''-eps]"))



    ("a,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a,,,,-eps]"))
    ("a,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a,,,-eps]"))
    ("a,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a,,-eps]"))
    ("a," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a,-eps]"))
    ("a" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a-eps]"))
    ("a'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a'-eps]"))
    ("a''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a''-eps]"))
    ("a'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a'''-eps]"))
    ("a''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: a''''-eps]"))


    ("ais,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais,,,,-eps]"))
    ("ais,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais,,,-eps]"))
    ("ais,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais,,-eps]"))
    ("ais," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais,-eps]"))
    ("ais" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais-eps]"))
    ("ais'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais'-eps]"))
    ("ais''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais''-eps]"))
    ("ais'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais'''-eps]"))
    ("ais''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: ais''''-eps]"))


    ("b,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b,,,,-eps]"))
    ("b,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b,,,-eps]"))
    ("b,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b,,-eps]"))
    ("b," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b,-eps]"))
    ("b" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b-eps]"))
    ("b'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b'-eps]"))
    ("b''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b''-eps]"))
    ("b'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b'''-eps]"))
    ("b''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: b''''-eps]"))


    ("h,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h,,,,-eps]"))
    ("h,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h,,,-eps]"))
    ("h,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h,,-eps]"))
    ("h," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h,-eps]"))
    ("h" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h-eps]"))
    ("h'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h'-eps]"))
    ("h''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h''-eps]"))
    ("h'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h'''-eps]"))
    ("h''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: h''''-eps]"))


    ("his,,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his,,,,-eps]"))
    ("his,,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his,,,-eps]"))
    ("his,," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his,,-eps]"))
    ("his," . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his,-eps]"))
    ("his" . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his-eps]"))
    ("his'"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his'-eps]"))
    ("his''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his''-eps]"))
    ("his'''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his'''-eps]"))
    ("his''''"  . ,(markup #:fontsize -8 #:halign 0 "[dummy für: his''''-eps]"))








  ))


#(define notenwerteliste-list
;; Analog zur pitch-markup-list
`(
  (1    . ,(markup #:fontsize -8 #:halign 0 "Ganze"))
  (3/4  . ,(markup #:fontsize -8 #:halign 0 "punktierte Halbe"))
  (1/2  . ,(markup #:fontsize -8 #:halign 0 "Halbe"))
  (3/8  . ,(markup #:fontsize -8 #:halign 0 "punktierte Viertel"))
  (1/4  . ,(markup #:fontsize -8 #:halign 0 "Viertel"))
  (1/8  . ,(markup #:fontsize -8 #:halign 0 "Achtel"))
  (1/16 . ,(markup #:fontsize -8 #:halign 0 "Sechzehntel"))
  (3/16 . ,(markup #:fontsize -8 #:halign 0 "punktierte Achtel"))
  ))

#(define-markup-command (arc layout props angle)(number?)
  #:properties ((radius 1.5)
                (font-size 1)
                (double-radius-x-ext #t))
  "Print a circle-segment relying on @var{angle} in degrees.
The radius may be adjusted by overriding the @code{radius}-property.
The dimensions of the resulting stencil are set properly.
If @var{double-radius-x-ext} is set @code{#t}, (the default) the dimensions are
always from @code{(- radius)} to @code{radius} in Y-axis."
  (let* ((scaled-radius (* radius font-size))
         (top radius)
         (bottom
           (if double-radius-x-ext
               (- scaled-radius)
               (cond ((<= angle 90) 0)
                     ((> angle 180) (- scaled-radius))
                     (else
                       (* (cos (degrees->radians angle)) scaled-radius)))))
         (left
           (cond ((>= angle 270) (- scaled-radius))
                  ((> angle 180)
                   (* (sin (degrees->radians angle)) scaled-radius))
                  (else 0)))
         (right
           (cond ((> angle 90) scaled-radius)
                 (else
                   (* (sin (degrees->radians angle)) scaled-radius)))))
  (ly:make-stencil
   (list 'embedded-ps
         (format #f "
gsave currentpoint translate
0.1 setlinewidth
0 0 ~a 90 ~a arcn % Bogen 90 Grad
fill
grestore
"
scaled-radius
(- 90 angle)))
   (cons left right)
   (cons bottom top))))

addTextScript =
#(define-music-function (music)(ly:music?)
"Adds markups to note-heads.
- a circle-segment above
    (relying on and representing the duration of a note-head
- an eps below
    (called with the note-name from @code{pitch-markup-list}"
  (music-map
    (lambda (mus)
      (if (music-is-of-type? mus 'note-event)

       (let* (


               (dur-frac (ly:moment-main (ly:music-length mus)))




         (pitch (ly:music-property mus 'pitch))
                      (pitch-octaves (ly:pitch-octave pitch))
                      (pitch-notename (ly:pitch-notename pitch))

           (pitch-alteration (ly:pitch-alteration pitch))
         (p (ly:make-pitch -1 pitch-notename pitch-alteration))


          (pitch-name-strg
            (symbol->string (assoc-get p german-notenames)))


       (octave-sign
                        (cond ((< pitch-octaves 0)
                               (string-concatenate
                                 (make-list (1- (abs pitch-octaves)) ",")))
                              ((= pitch-octaves 0) "'")
                              ((> pitch-octaves 0)
                               (string-concatenate
                                 (make-list (1+ (abs pitch-octaves)) "'")))))

 (absolute-pitch-name
           (string-append
             (if (<= pitch-octaves -8)
                 (string-upcase pitch-name-strg)
                 pitch-name-strg)
             octave-sign)))









          (ly:music-set-property! mus 'articulations
            (append
              (list
                ;; print eps
                (make-music
                  'TextScriptEvent
                  'direction DOWN
                  'text
                  (assoc-get  absolute-pitch-name     pitch-markup-list))
                ;; print text
                (make-music
                  'TextScriptEvent
                  'direction UP
                  'text
                   (assoc-get dur-frac notenwerteliste-list))
                ;; print the circles
                (make-music
                  'TextScriptEvent
                  'direction UP
                  'text
                  #{
                  	  \markup
                  	    \with-color #'(0.6 0.6 0.6)
                  	    \arc #(* 360.0 dur-frac)
                  #})
                   )
              (ly:music-property mus 'articulations)))
          mus)
        mus))
      music)
  music)

printGermanNoteNames =
#(define-music-function (solve?)(boolean?)
#{
\override NoteName.stencil =
#(lambda (grob)
  (let ((pitch (ly:prob-property (ly:grob-property grob 'cause) 'pitch)))
    (grob-interpret-markup
      grob
      (if solve?
          (pitch->notename pitch)
          (markup #:with-dimensions-from "XXX" "...")))))
#})

exercise =
#(define-music-function (solve? music)(boolean? ly:music?)
#{
<<
  \new Staff
  \with {
  	  instrumentName = #(if solve? "Aufösung " "Aufgabe ")
  	  shortInstrumentName = #(if solve? "Aufösung " "Aufgabe ")
  }
  {
    #(if solve?
         #{ \unHideNotes #}
         #{ \hideNotes #})
    \addTextScript $music
  }

  \new NoteNames
    \with {
      %\override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = 4
      \printGermanNoteNames $solve?
    }
    $music
>>
#})

\paper {
  system-system-spacing.padding = 16
  indent = 12
  short-indent = 12
}

\layout {

system-count = 18
  \override TextScript.parent-alignment-X = #CENTER
  \override TextScript.staff-padding = 2.5
  \override TextScript.font-size = 2
  \override Staff.VerticalAxisGroup.staff-staff-spacing.padding = 5
  \textLengthOn
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% EXAMPLE
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

mus =  {


 c,,,, cis,,,, des,,,, d,,,, dis,,,, es,,,, e,,,, eis,,,, f,,,, fis,,,, ges,,,, g,,,, gis,,,, as,,,, a,,,, ais,,,, b,,,, h,,,, his,,,,
\break
 c,,, cis,,, des,,, d,,, dis,,, es,,, e,,, eis,,, f,,, fis,,, ges,,, g,,, gis,,, as,,, a,,, ais,,, b,,, h,,, his,,,
\break
 c,, cis,, des,, d,, dis,, es,, e,, eis,, f,, fis,, ges,, g,, gis,, as,, a,, ais,, b,, h,, his,,
\break
c, cis, des, d, dis, es, e, eis, f, fis, ges, g, gis, as, a, ais, b, h, his,
\break
c cis des d dis es e eis f fis ges g gis as a ais b h his
\break
c' cis' des' d' dis' es' e' eis' f' fis' ges' g' gis' as' a' ais' b' h' his'
\break
c'' cis'' des'' d'' dis'' es'' e'' eis'' f'' fis'' ges'' g'' gis'' as'' a'' ais'' b'' h'' his''
\break
c''' cis''' des''' d''' dis''' es''' e''' eis''' f''' fis''' ges''' g''' gis''' as''' a''' ais''' b''' h''' his'''
\break
c'''' cis'''' des'''' d'''' dis'''' es'''' e'''' eis'''' f'''' fis'''' ges'''' g'''' gis'''' as'''' a'''' ais'''' b'''' h'''' his''''


  \bar "|"
}

<<
%% exercise:
\exercise ##f { \mus  }

\exercise ##t \mus

>>