%% Generated by lilypond-book
%% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm,paper-height=845.047\pt,paper-width=597.508\pt,papersize='(cons (* 597.508 pt) (* 845.047 pt))]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section
% ****************************************************************

#(ly:set-option 'eps-box-padding 3.000000)



\paper {
  #(set-paper-size '(cons (* 597.508 pt) (* 845.047 pt)))
  indent = 0\mm
  line-width = 160\mm
  % offset the left padding, also add 1mm as lilypond creates cropped
  % images with a little space on the right
  line-width = #(- line-width (* mm  3.000000) (* mm 1))
}

\layout {
  
}




% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "/lilypond-2.26.0/input/regression/multi-measure-rest-reminder.ly"
\sourcefileline 0
\header {

  texidoc = "A multi measure rest reminder is a reminder printed at
  the top of the page, to remember how many measures you were counting.

  This is a demo of user-defined engravers, and defining grobs using
  @code{ly:make-grob-properties}."
}

\version "2.25.5"

% On seeing the end of a multi measure rest, create a MultiMeasureRestReminder item.
multiMeasureReminderEngraver =
#(make-engraver
  (end-acknowledgers
    ((multi-measure-rest-interface engraver grob source-engraver)
     (let*
      ((reminder (ly:engraver-make-grob engraver 'MultiMeasureRestReminder grob)))
      (set!
       ;; copy over the 'measure-count property.
       (ly:grob-property reminder 'measure-count)
       (ly:grob-property grob 'measure-count))))))

#(ly:add-interface
  'multi-measure-rest-reminder-interface
  "A multi measure rest reminder at the top of the page."
  '(measure-count))

% Set the type of MultiMeasureRestReminder so we can assign to it.
#(set-object-property!  'MultiMeasureRestReminder 'translation-type? ly:grob-properties?)
% Confirm MultiMeasureRestReminder is a grob syntactically.
#(set-object-property! 'MultiMeasureRestReminder 'is-grob? #t)

\layout {
  \context {
    \Voice
    \consists \multiMeasureReminderEngraver
  }
  \context {
    \Global
    % Define the grobs. The layout is crude, and should be refined for
    % "production" scores.
    \grobdescriptions
      #(cons
        `(MultiMeasureRestReminder
          . ((break-align-symbols . (left-edge staff-bar))
             (break-visibility . ,begin-of-line-visible)
             (direction . ,UP)
             (extra-spacing-width . (+inf.0 . -inf.0))
             (font-family . serif)
             (font-series . bold)
             (font-size . -2)
             (horizon-padding . 0.05)
             (non-musical . #t)
             (outside-staff-priority . 100)
             (padding . 1.0)
             (self-alignment-X . ,RIGHT)
             (side-axis . ,Y)
             (stencil . ,ly:text-interface::print)
             ;; only print the reminder at the top of the page (ie rank-on-page == 0)
             (text . ,(lambda (grob)
                       (let*
                        ((r (ly:grob-property (ly:grob-system grob) 'rank-on-page)))
                        (if (< 0 r)
                         (begin
                          (ly:grob-suicide! grob)
                          "")
                         (format #f "(~a)" (ly:grob-property grob 'measure-count))))))
             (Y-extent . (0 . 0))
             (X-offset . 4)
             (X-extent . (0 . 0))
             (Y-offset . ,side-position-interface::y-aligned-side)
             (meta .
              ((classes . (Item))
               ;; This is clumsy, but we have to repeat the name
               (name . MultiMeasureRestReminder)
               (interfaces . (break-alignable-interface
                              font-interface
                              grob-interface
                              item-interface
                              multi-measure-rest-reminder-interface
                              outside-staff-interface
                              self-alignment-interface
                              side-position-interface
                              text-interface))))))
        all-grob-descriptions)
  }
}

\book {
  \score {
    {
      \set Score.skipBars = ##t
      \time 3/4
      R2.*4 \break
      R2.*5 \pageBreak
      R2.*6 \break
      R2.*7 \pageBreak
      R2.*8 \break
    }

  }
  \paper {
    #(set-paper-size "a7")
  }
}



% ****************************************************************
% end ly snippet
% ****************************************************************