input/regression/new-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 \version "2.1.30"
   9 \score {
  10     \notes {
  11         \fatText
  12         f'1-\markup {
  13             foo
  14             \raise #0.2 \hbracket \bold bar
  15             \override #'(baseline-skip . 4)
  16
  17             \bracket \column < baz bazr bla >
  18             \hspace #2.0
  19             \override #'(font-family . music) {
  20                 \lookup #"noteheads-0"
  21                 \char #53
  22             }
  23             \musicglyph #"accidentals--1"
  24             \combine "X" "+"
  25             \combine "o" "/"
  26             \box \column < { "string 1" } { "string 2" } >
  27             "$\\emptyset$"
  28             \italic Norsk
  29             \super "2"
  30             \dynamic sfzp
  31             \huge { "A" \smaller "A" \smaller \smaller "A"
  32                     \smaller \smaller \smaller "A" }
  33             \sub "alike"
  34         }
  35         \break
  36         f'1-#(markup*
  37               "foo"
  38               #:raise 0.2 #:hbracket #:bold "bar"
  39               #:override '(baseline-skip . 4)
  40               #:bracket #:column ( "baz" "bazr" "bla" )
  41               #:hspace 2.0
  42               #:override '(font-family . music) #:line (#:lookup "noteheads-0"
  43                                                         #:char 53)
  44               #:musicglyph "accidentals--1"
  45               #:combine "X" "+"
  46               #:combine "o" "/"
  47               #:box #:column ("string 1" "string 2")
  48               "$\\emptyset$"
  49               #:italic "Norsk"
  50               #:super "2"
  51               #:dynamic "sfzp"
  52               #:huge #:line ("A" #:smaller "A" #:smaller #:smaller "A"
  53                              #:smaller #:smaller #:smaller "A")
  54               #:sub "alike")
  55     }
  56     \paper {
  57         raggedright = ##t
  58         indent = #0
  59         \context {
  60             \StaffContext
  61             \remove Time_signature_engraver
  62         }
  63     }
  64 }