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.6.0"
  18
  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