common/marks.ily

   1 #(define-markup-command (characteri paper props name)
   2      (markup?)
   3   (interpret-markup
   4    paper props
   5    #{ \markup\larger\smallCaps $name #}))
   6
   7 #(define-markup-command (character paper props name)
   8      (markup?)
   9   (interpret-markup
  10    paper props
  11    #{ \markup\translate #'(-2 . 2) \characteri $name #}))
  12
  13 #(define-markup-command (character-text paper props name text)
  14      (markup? markup?)
  15   (interpret-markup
  16    paper props
  17    #{ \markup\translate #'(-2 . 2) \line {
  18   \characteri $name \italic $text } #}))
  19
  20 #(define-markup-command (character-text-col paper props name text)
  21      (markup? markup?)
  22   (interpret-markup
  23    paper props
  24    #{ \markup\translate #'(-4 . 0) \column {
  25   \characteri $name \translate #'(4 . 0) $text } #}))
  26
  27 #(define-public (make-character-mark clefs name)
  28    (if (string=? clefs "")
  29        #{ <>^\markup\character $name #}
  30        #{ << { \set Staff.forceClef = ##t \clef #clefs
  31                \once\override Staff.Clef.full-size-change = ##t }
  32              <>^\markup\character $name >> #}))
  33
  34 #(define-public (make-character-mark-text clefs name text)
  35    (if (string=? clefs "")
  36        #{ <>^\markup\character-text $name $text #}
  37        #{ << { \set Staff.forceClef = ##t \clef #clefs
  38                \once\override Staff.Clef.full-size-change = ##t }
  39              <>^\markup\character-text $name $text >> #}))
  40
  41 #(define-public (make-character-mark-text-col clefs name text)
  42    (if (string=? clefs "")
  43        #{ <>^\markup\character-text-col $name $text #}
  44        #{ << { \set Staff.forceClef = ##t \clef #clefs
  45                \once\override Staff.Clef.full-size-change = ##t }
  46              <> ^\markup\character-text-col $name $text >> #}))
  47
  48
  49 markUpBegin = {
  50   \once\override Score.RehearsalMark.break-visibility =
  51   #end-of-line-invisible
  52   \once\override Score.RehearsalMark.direction = #UP
  53   \once\override Score.RehearsalMark.self-alignment-X = #LEFT
  54   \once\override Score.RehearsalMark.padding = #2
  55 }
  56
  57 markDownBegin = {
  58   \once\override Score.RehearsalMark.break-visibility =
  59   #end-of-line-invisible
  60   \once\override Score.RehearsalMark.direction = #DOWN
  61   \once\override Score.RehearsalMark.self-alignment-X = #LEFT
  62   \once\override Score.RehearsalMark.padding = #2
  63 }
  64
  65 markDownEnd = {
  66   \once\override Score.RehearsalMark.break-visibility =
  67   #begin-of-line-invisible
  68   \once\override Score.RehearsalMark.direction = #DOWN
  69   \once\override Score.RehearsalMark.self-alignment-X = #RIGHT
  70   \once\override Score.RehearsalMark.padding = #2
  71 }
  72 segnoMark = {
  73   \once\override Score.RehearsalMark.break-visibility =
  74   #end-of-line-invisible
  75   \once\override Score.RehearsalMark.direction = #UP
  76   \once\override Score.RehearsalMark.self-alignment-X = #CENTER
  77   \mark \markup \musicglyph #"scripts.segno"
  78 }
  79 segnoMarkDown = {
  80   \once\override Score.RehearsalMark.break-visibility =
  81   #end-of-line-invisible
  82   \once\override Score.RehearsalMark.direction = #DOWN
  83   \once\override Score.RehearsalMark.self-alignment-X = #CENTER
  84   \mark \markup \musicglyph #"scripts.segno"
  85 }
  86 segnoMarkEnd = {
  87   \once\override Score.RehearsalMark.break-visibility =
  88   #begin-of-line-invisible
  89   \once\override Score.RehearsalMark.direction = #UP
  90   \once\override Score.RehearsalMark.self-alignment-X = #CENTER
  91   \mark \markup \musicglyph #"scripts.segno"
  92 }
  93 segnoMarkDownEnd = {
  94   \once\override Score.RehearsalMark.break-visibility =
  95   #begin-of-line-invisible
  96   \once\override Score.RehearsalMark.direction = #DOWN
  97   \once\override Score.RehearsalMark.self-alignment-X = #CENTER
  98   \mark \markup \musicglyph #"scripts.segno"
  99 }
 100
 101 dacapoOverrides = {
 102   \once\override Score.RehearsalMark.break-visibility =
 103   #begin-of-line-invisible
 104   \once\override Score.RehearsalMark.direction = #DOWN
 105   \once\override Score.RehearsalMark.self-alignment-X = #RIGHT
 106   \once\override Score.RehearsalMark.padding = #2
 107 }
 108
 109 endMark =
 110 #(define-music-function (parser location text) (markup?)
 111    #{ \dacapoOverrides\mark\markup\right-align\italic $text #})
 112
 113 beginMark =
 114 #(define-music-function (parser location text) (markup?)
 115    #{ \markUpBegin\mark\markup $text #})
 116
 117 beginMarkDown =
 118 #(define-music-function (parser location text) (markup?)
 119    #{
 120 \once\override Score.RehearsalMark.break-visibility =
 121 #end-of-line-invisible
 122 \once\override Score.RehearsalMark.direction = #DOWN
 123 \once\override Score.RehearsalMark.self-alignment-X = #LEFT
 124 \mark\markup $text #})
 125
 126 fineMark = {
 127   \dacapoOverrides \mark \markup \right-align \italic Fin.
 128 }
 129
 130 dalSegnoMark = {
 131   \dacapoOverrides \mark \markup \right-align \italic "Dal Segno."
 132 }
 133
 134 dacapoMark = {
 135   \dacapoOverrides \mark \markup \right-align \italic "Da Capo."
 136 }
 137
 138 dacapoMarkText =
 139 #(define-music-function (parser location text) (markup?)
 140   #{
 141     \dacapoOverrides
 142     \mark \markup \column \right-align { \italic "Da Capo." $text }
 143   #})
 144
 145 dalsegnoMarkText =
 146 #(define-music-function (parser location text) (markup?)
 147   #{
 148     \dacapoOverrides
 149     \mark \markup \column \right-align { \italic "Dal Segno." $text }
 150   #})
 151
 152 fineMarkText =
 153 #(define-music-function (parser location text) (markup?)
 154   #{
 155     \dacapoOverrides
 156     \mark \markup \column \right-align { \italic "Fin." $text }
 157   #})