Thomas Morley wrote:
2014-02-05 PMA<peterarmstr...@aya.yale.edu>:
Hi List.
Most of my current score's page numbers need
shifting a little, both vertically and horizontally.
Can "\override ... #'extra-offset = #'( ... . ...)"
or something similar be aimed at PageNumber
(instead of, say, DynamicText) to shift them?
I could, I know, force the issue, page-numbering
via markup text from a lucky note on each page.
But it'd be nice to avoid such a kludge.
Regards,
Pete
Hi,
how about:
\version "2.18.0"
%% After an idea by Torsten Haemmerle
%% http://www.lilypondforum.de/index.php?topic=1393.msg7673#msg7673
#(set-default-paper-size "a6")
%% Define your generell settings for odd/even page-numbers
%% Exceptions for certain pages are possible, too.
#(define folio-offset '(
;; general
(odd . (-2 . 1))
(even . (-2 . 1))
;; exceptions for page 3 and 4
(3 . (-1 . -1))
(4 . (-3 . -4))
))
#(define-markup-command (place-folio layout props folio) (markup?)
(let* ((page-number (chain-assoc-get 'page:page-number props))
(general-off
(if (odd? page-number)
(assoc-get 'odd folio-offset '(0 . 0))
(assoc-get 'even folio-offset '(0 . 0))))
(page-off (assoc-get page-number folio-offset '(0 . 0)))
(offs
(cons
(+ (car general-off) (car page-off))
(+ (cdr general-off) (cdr page-off))))
(m (interpret-markup layout props folio))
(x-ext (ly:stencil-extent m X))
(y-ext (ly:stencil-extent m Y)))
(interpret-markup layout props
(markup
;#:box ;; uncomment for testing
#:with-dimensions x-ext y-ext
#:line (#:translate offs folio)))))
\paper {
indent = 0
ragged-right = ##f
oddHeaderMarkup =
\markup \fill-line {
\place-folio \fromproperty #'page:page-number-string \null
}
evenHeaderMarkup =
\markup \fill-line {
\null \place-folio \fromproperty #'page:page-number-string
}
}
{ \repeat unfold 10 { s1 \pageBreak } }
HTH,
Harm
"Exceptions", eh? Cool. Will read more tomorrow. Thanks!
P
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
