X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fpage-label.ly;h=37372edf216d330706b529f32acaac5ec4a916e2;hb=1423508c355989fa26a8cfe5985b0d6e1ab0a538;hp=05c30ecb5df6c1bf1f026e908ac5a952ad1a45e9;hpb=8a309227509aa8193cabc844c0002706b8cd11cc;p=lilypond.git diff --git a/input/lsr/page-label.ly b/input/lsr/page-label.ly index 05c30ecb5d..f55e121821 100644 --- a/input/lsr/page-label.ly +++ b/input/lsr/page-label.ly @@ -1,26 +1,33 @@ -%% Do not edit this file; it is auto-generated from LSR! -%% Tags: spacing -\version "2.11.35" +%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it +%% This file is in the public domain. +\version "2.13.1" \header { - texidoc = "Page labels may be placed inside music or at top-level, -and refered to in markups." -} -% begin verbatim + lsrtags = "spacing" + + texidoc = " +Page labels may be placed inside music or at top-level, and referred to +in markups. + +" + doctitle = "Page label" +} % begin verbatim + #(set-default-paper-size "a6") -#(define-markup-command (toc-line layout props label text) (symbol? markup?) +#(define-markup-command (toc-line layout props label text) + (symbol? markup?) (interpret-markup layout props (markup #:fill-line (text #:page-ref label "8" "?")))) \book { - \markup \huge \fill-line { \null "Title Page" \null } + \markup \huge \fill-line { \null Title Page \null } \pageBreak \label #'toc \markup \column { - \large \fill-line { \null "Table of contents" \null } + \large \fill-line { \null Table of contents \null } \toc-line #'toc "Table of contents" \toc-line #'firstScore "First Score" \toc-line #'markA "Mark A" @@ -33,14 +40,18 @@ and refered to in markups." \label #'firstScore \score { - { c'2 c' - \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) }} \label #'markA - c' c' + \new Staff \relative c' { + c2 c + \mark \markup { + A (page \concat { \page-ref #'markA "0" "?" ) } + } \label #'markA + c2 c \pageBreak \mark "B" \label #'markB - d' d' - d' d' - \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible + d2 d + d2 d + \once \override Score.RehearsalMark #'break-visibility = + #begin-of-line-invisible \mark "C" \label #'markC } \header { piece = "First score" }