input/regression/markup-scheme.ly

   1
   2 \header {
   3
   4     texidoc = "There is a Scheme macro @code{markup} to produce markup
   5     texts using a similar syntax as @code{\\markup}.
   6
   7 "
   8
   9     }
  10
  11 %{
  12
  13 For maintenance reasons, we don't excercise the entire markup command set.
  14
  15 %}
  16
  17 \version "2.5.2"
  18 \score {
  19      {
  20         \fatText
  21         f'1-\markup {
  22             foo
  23             \raise #0.2 \hbracket \bold bar
  24             \override #'(baseline-skip . 4)
  25
  26             \bracket \column { baz bazr bla }
  27             \hspace #2.0
  28             \override #'(font-encoding . fetaMusic) {
  29                 \lookup #"noteheads-0"
  30             }
  31             \musicglyph #"accidentals.-1"
  32             \combine "X" "+"
  33             \combine "o" "/"
  34             \box \column { \line { "string 1" } \line { "string 2" } }
  35             \italic Norsk
  36             \super "2"
  37             \dynamic sfzp
  38             \huge { "A" \smaller "A" \smaller \smaller "A"
  39                     \smaller \smaller \smaller "A" }
  40             \sub "alike"
  41         }
  42         \break
  43         f'1-#(markup*
  44               "foo"
  45               #:raise 0.2 #:hbracket #:bold "bar"
  46               #:override '(baseline-skip . 4)
  47               #:bracket #:column ( "baz" "bazr" "bla" )
  48               #:hspace 2.0
  49               #:override '(font-encoding . fetaMusic) #:line (#:lookup "noteheads-0"
  50                                                        )
  51               #:musicglyph "accidentals.-1"
  52               #:combine "X" "+"
  53               #:combine "o" "/"
  54               #:box #:column ("string 1" "string 2")
  55               " "
  56               #:italic "Norsk"
  57               #:super "2"
  58               #:circle #:dynamic "p"
  59               " "
  60               #:dynamic "sfzp"
  61               #:huge #:line ("A" #:smaller "A" #:smaller #:smaller "A"
  62                              #:smaller #:smaller #:smaller "A")
  63               #:sub "alike")
  64     }
  65     \layout {
  66         raggedright = ##t
  67         indent = #0
  68         \context {
  69             \Staff
  70             \remove Time_signature_engraver
  71         }
  72     }
  73 }