Re: whole page rotated

[Karol Majewski]

OK, I made it. I think I begin to understand scheme :-)

#(define nhg
  (lambda
    (grob)
    (let*
      ((stil
          (ly:note-head::print grob))
        (dur-log
          (ly:grob-property grob 'duration-log))
        (nh-id-nr
          (if
            (>= dur-log 2) 2 1))
        (new-note-head-stil
          (grob-interpret-markup grob
            (markup #:musicglyph
              (format #f "noteheads.u~adoThin" nh-id-nr))))) 
new-note-head-stil)))