input/lsr/page-label.ly

   1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
   2 %% This file is in the public domain.
   3 \version "2.13.1"
   4
   5 \header {
   6   lsrtags = "spacing"
   7
   8   texidoc = "
   9 Page labels may be placed inside music or at top-level, and referred to
  10 in markups.
  11
  12 "
  13   doctitle = "Page label"
  14 } % begin verbatim
  15
  16 #(set-default-paper-size "a6")
  17
  18 #(define-markup-command (toc-line layout props label text)
  19   (symbol? markup?)
  20   (interpret-markup layout props
  21    (markup #:fill-line (text #:page-ref label "8" "?"))))
  22
  23 \book {
  24   \markup \huge \fill-line { \null Title Page \null }
  25
  26   \pageBreak
  27
  28   \label #'toc
  29   \markup \column {
  30     \large \fill-line { \null Table of contents \null }
  31     \toc-line #'toc "Table of contents"
  32     \toc-line #'firstScore "First Score"
  33     \toc-line #'markA "Mark A"
  34     \toc-line #'markB "Mark B"
  35     \toc-line #'markC "Mark C"
  36     \toc-line #'unknown "Unknown label"
  37   }
  38
  39   \pageBreak
  40
  41   \label #'firstScore
  42   \score {
  43     \new Staff \relative c' {
  44       c2 c
  45       \mark \markup {
  46         A (page \concat { \page-ref #'markA "0" "?" ) }
  47       } \label #'markA
  48       c2 c
  49       \pageBreak
  50       \mark "B" \label #'markB
  51       d2 d
  52       d2 d
  53       \once \override Score.RehearsalMark #'break-visibility =
  54         #begin-of-line-invisible
  55       \mark "C" \label #'markC
  56     }
  57     \header { piece = "First score" }
  58   }
  59 }