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.7.32"
  29
  30 {
  31   \fatText
  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.-1"
  43     \combine "X" "+"
  44     \combine "o" "/"
  45     \box \column { \line { "string 1" } \line { "string 2" } }
  46     \italic Norsk
  47     \super "2"
  48     \dynamic sfzp
  49     \huge { "A" \smaller "A" \smaller \smaller "A"
  50             \smaller \smaller \smaller "A" }
  51     \sub "alike"
  52   }
  53   \break
  54   f'1-#(markup*
  55         "foo"
  56         #:raise 0.2 #:hbracket #:bold "bar"
  57         #:override '(baseline-skip . 4)
  58         #:bracket #:column ( "baz" "bazr" "bla" )
  59         #:hspace 2.0
  60         #:override '(font-encoding . fetaMusic) #:line (#:lookup "noteheads-0"
  61                                                       )
  62         #:musicglyph "accidentals.-1"
  63         #:combine "X" "+"
  64         #:combine "o" "/"
  65         #:box #:column ("string 1" "string 2")
  66         " "
  67         #:italic "Norsk"
  68         #:super "2"
  69         #:circle #:dynamic "p"
  70         " "
  71         #:dynamic "sfzp"
  72         #:huge #:line ("A" #:smaller "A" #:smaller #:smaller "A"
  73                        #:smaller #:smaller #:smaller "A")
  74         #:sub "alike")
  75 }