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 #'(-1 . 1) \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 #'(-1 . 1) \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 endMarkSmall =
 114 #(define-music-function (parser location text) (markup?)
 115    #{ \dacapoOverrides\mark\markup\right-align\italic\fontsize#-2 $text #})
 116
 117 beginMark =
 118 #(define-music-function (parser location text) (markup?)
 119    #{ \markUpBegin\mark\markup $text #})
 120
 121 beginMarkSmall =
 122 #(define-music-function (parser location text) (markup?)
 123    #{ \markUpBegin\mark\markup\italic\fontsize#-2 $text #})
 124
 125 beginMarkDown =
 126 #(define-music-function (parser location text) (markup?)
 127    #{
 128 \once\override Score.RehearsalMark.break-visibility =
 129 #end-of-line-invisible
 130 \once\override Score.RehearsalMark.direction = #DOWN
 131 \once\override Score.RehearsalMark.self-alignment-X = #LEFT
 132 \mark\markup $text #})
 133
 134 fineMark = {
 135   \dacapoOverrides \mark \markup \right-align \italic Fin.
 136 }
 137
 138 dalSegnoMark = {
 139   \dacapoOverrides \mark \markup \right-align \italic "Dal Segno."
 140 }
 141
 142 dacapoMark = {
 143   \dacapoOverrides \mark \markup \right-align \italic "Da Capo."
 144 }
 145
 146 dacapoMarkText =
 147 #(define-music-function (parser location text) (markup?)
 148   #{
 149     \dacapoOverrides
 150     \mark \markup \column \right-align { \italic "Da Capo." $text }
 151   #})
 152
 153 dalsegnoMarkText =
 154 #(define-music-function (parser location text) (markup?)
 155   #{
 156     \dacapoOverrides
 157     \mark \markup \column \right-align { \italic "Dal Segno." $text }
 158   #})
 159
 160 fineMarkText =
 161 #(define-music-function (parser location text) (markup?)
 162   #{
 163     \dacapoOverrides
 164     \mark \markup \column \right-align { \italic "Fin." $text }
 165   #})