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 \layout {
  18   ragged-right = ##t
  19   indent = #0
  20   \context {
  21     \Staff
  22     \remove Time_signature_engraver
  23   }
  24 }
  25
  26
  27
  28 \version "2.11.38"
  29
  30 {
  31   \textLengthOn
  32   f'1-\markup {
  33     foo
  34     \raise #0.2 \hbracket \bold bar
  35     \override #'(baseline-skip . 4)
  36
  37     \bracket \column { baz bazr bla }
  38     \hspace #2.0
  39     \override #'(font-encoding . fetaMusic) {
  40       \lookup #"noteheads-0"
  41     }
  42     \musicglyph #"accidentals.mirroredflat"
  43     \combine "X" "+"
  44     \combine "o" "/"
  45     \box \column { \line { "string 1" } \line { "string 2" } }
  46     " "
  47     \italic Norsk
  48     \super "2"
  49     \circle \dynamic "p"
  50     " "
  51     \dynamic sfzp
  52     \huge { "A" \smaller "A" \smaller \smaller "A"
  53             \smaller \smaller \smaller "A" }
  54     \larger \sub "alike"
  55   }
  56   \break
  57   f'1-#(markup*
  58         "foo"
  59         #:raise 0.2 #:hbracket #:bold "bar"
  60         #:override '(baseline-skip . 4)
  61         #:bracket #:column ( "baz" "bazr" "bla" )
  62         #:hspace 2.0
  63         #:override '(font-encoding . fetaMusic) #:line (#:lookup "noteheads-0"
  64                                                       )
  65         #:musicglyph "accidentals.mirroredflat"
  66         #:combine "X" "+"
  67         #:combine "o" "/"
  68         #:box #:column ("string 1" "string 2")
  69         " "
  70         #:italic "Norsk"
  71         #:super "2"
  72         #:circle #:dynamic "p"
  73         " "
  74         #:dynamic "sfzp"
  75         #:huge #:line ("A" #:smaller "A" #:smaller #:smaller "A"
  76                        #:smaller #:smaller #:smaller "A")
  77         #:larger #:sub "alike")
  78 }