Am 07.12.2008 um 01:58 schrieb Mark Polesky:
James,
Insert this code at the top of your file:
\version "2.11.65-1"
\include "titling-init.ly"
#(define (skip-two-page-numbers layout props arg)
(if (or (> (chain-assoc-get 'page:page-number props -1)
(+ (ly:output-def-lookup layout 'first-page-number) 1))
(eq? (ly:output-def-lookup layout 'print-first-page-
number) #t))
(create-page-number-stencil layout props arg)
empty-stencil))
\paper {
oddHeaderMarkup = \markup
\fill-line {
" "
\on-the-fly #not-first-page \fromproperty #'header:instrument
\on-the-fly #skip-two-page-numbers \fromproperty #'page:page-
number-string
}
evenHeaderMarkup = \markup
\fill-line {
\on-the-fly #skip-two-page-numbers \fromproperty #'page:page-
number-string
\on-the-fly #not-first-page \fromproperty #'header:instrument
" "
}
}
____________________________________________________
Or better yet, save the code in its own file, call it "skip-2-pg-
nums.ly"
or whatever, then you can just include it this way:
\version "2.11.65-1"
\include "skip-2-pg-nums.ly"
\repeat unfold 4 { c''1 \pageBreak }
____________________________________________________
If you're already doing fancy stuff with oddHeaderMarkup or
evenHeaderMarkup,
you'll need to incorporate that into this code. If you're scheme-
curious,
you can dig around the "titling-init.ly" file in the \ly\ folder. I
replaced
the "print-page-number-check-first" function with my own
"skip-two-page-numbers" function.
Hope this helps.
- Mark
Wow, that helps tons. I was just prepared to live with it. Scheme
makes about sense to me as turkish, so I don't think I'll go looking
through titling-init.ly, but I'm very thankful for those of you for
whom scheme makes more sense.
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
