Hi,

>
> > You're right, there's no way to set the page number, AFAIK :(
>

Well, no simple way.  It is possible to write a markup function to
increment the page numbers at a certain point.

I retooled a function which does Roman numeral page numbers here:
http://www.mail-archive.com/lilypond-user@gnu.org/msg73483.html

The function below takes a range of "skipped pages."  So, the example
"skips" page numbers 2 through 5.  Thus, the score will be numbered 1, 6,
7...

Hope this helps,
David

%%%%%
 \version "2.17.29" % should work with 2.16 too

#(define-markup-command (skip-page-number-range layout props arg)
(number-list?)
  (let ((page-number (chain-assoc-get 'page:page-number props -1)))
    (interpret-markup layout props
      (if (>= page-number (car arg))
          (number->string (+ page-number (1+ (- (cadr arg) (car arg)))))
          (chain-assoc-get 'page:page-number-string props -1)))))


\paper {
  print-first-page-number = ##t
  print-page-number = ##t
  oddHeaderMarkup = \markup
    \fill-line {
      " "
      \on-the-fly #not-first-page \fromproperty #'header:instrument
      \on-the-fly #print-page-number-check-first \skip-page-number-range
#'(2 5)
    }
  evenHeaderMarkup = \markup
    \fill-line {
      \on-the-fly #print-page-number-check-first \skip-page-number-range
#'(2 5)
      \on-the-fly #not-first-page \fromproperty #'header:instrument
      " "
  }
}

\score {
  \new Staff {
    \repeat unfold 6 {
      s1
      \pageBreak
    }
  }
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to