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   \once\override Score.RehearsalMark.font-size = #1
  56 }
  57
  58 markDownBegin = {
  59   \once\override Score.RehearsalMark.break-visibility =
  60   #end-of-line-invisible
  61   \once\override Score.RehearsalMark.direction = #DOWN
  62   \once\override Score.RehearsalMark.self-alignment-X = #LEFT
  63   \once\override Score.RehearsalMark.padding = #2
  64   \once\override Score.RehearsalMark.font-size = #1
  65 }
  66
  67 markDownEnd = {
  68   \once\override Score.RehearsalMark.break-visibility =
  69   #begin-of-line-invisible
  70   \once\override Score.RehearsalMark.direction = #DOWN
  71   \once\override Score.RehearsalMark.self-alignment-X = #RIGHT
  72   \once\override Score.RehearsalMark.padding = #2
  73   \once\override Score.RehearsalMark.font-size = #1
  74 }
  75 segnoMark = {
  76   \once\override Score.RehearsalMark.break-visibility =
  77   #end-of-line-invisible
  78   \once\override Score.RehearsalMark.direction = #UP
  79   \once\override Score.RehearsalMark.self-alignment-X = #CENTER
  80   \mark \markup \musicglyph #"scripts.segno"
  81 }
  82 segnoMarkDown = {
  83   \once\override Score.RehearsalMark.break-visibility =
  84   #end-of-line-invisible
  85   \once\override Score.RehearsalMark.direction = #DOWN
  86   \once\override Score.RehearsalMark.self-alignment-X = #CENTER
  87   \mark \markup \musicglyph #"scripts.segno"
  88 }
  89 segnoMarkEnd = {
  90   \once\override Score.RehearsalMark.break-visibility =
  91   #begin-of-line-invisible
  92   \once\override Score.RehearsalMark.direction = #UP
  93   \once\override Score.RehearsalMark.self-alignment-X = #CENTER
  94   \mark \markup \musicglyph #"scripts.segno"
  95 }
  96 segnoMarkDownEnd = {
  97   \once\override Score.RehearsalMark.break-visibility =
  98   #begin-of-line-invisible
  99   \once\override Score.RehearsalMark.direction = #DOWN
 100   \once\override Score.RehearsalMark.self-alignment-X = #CENTER
 101   \mark \markup \musicglyph #"scripts.segno"
 102 }
 103
 104 dacapoOverrides = {
 105   \once\override Score.RehearsalMark.break-visibility =
 106   #begin-of-line-invisible
 107   \once\override Score.RehearsalMark.direction = #DOWN
 108   \once\override Score.RehearsalMark.self-alignment-X = #RIGHT
 109   \once\override Score.RehearsalMark.padding = #2
 110   \once\override Score.RehearsalMark.font-size = #1
 111 }
 112
 113 endMark =
 114 #(define-music-function (parser location text) (markup?)
 115    #{ \dacapoOverrides\mark\markup\right-align\italic $text #})
 116
 117 endMarkSmall =
 118 #(define-music-function (parser location text) (markup?)
 119    #{ \dacapoOverrides\mark\markup\right-align\italic\fontsize#-1 $text #})
 120
 121 beginMark =
 122 #(define-music-function (parser location text) (markup?)
 123    #{ \markUpBegin\mark\markup $text #})
 124
 125 beginMarkSmall =
 126 #(define-music-function (parser location text) (markup?)
 127    #{ \markUpBegin\mark\markup\italic\fontsize#-1 $text #})
 128
 129 beginMarkDown =
 130 #(define-music-function (parser location text) (markup?)
 131    #{
 132 \once\override Score.RehearsalMark.break-visibility =
 133 #end-of-line-invisible
 134 \once\override Score.RehearsalMark.direction = #DOWN
 135 \once\override Score.RehearsalMark.self-alignment-X = #LEFT
 136 \once\override Score.RehearsalMark.font-size = #1
 137 \mark\markup $text #})
 138
 139 fineMark = {
 140   \dacapoOverrides \mark \markup \right-align \italic Fin.
 141 }
 142
 143 dalSegnoMark = {
 144   \dacapoOverrides \mark \markup \right-align \italic "Dal Segno."
 145 }
 146
 147 dacapoMark = {
 148   \dacapoOverrides \mark \markup \right-align \italic "Da Capo."
 149 }
 150
 151 dacapoMarkText =
 152 #(define-music-function (parser location text) (markup?)
 153   #{
 154     \dacapoOverrides
 155     \mark \markup \column \right-align { \italic "Da Capo." $text }
 156   #})
 157
 158 dalsegnoMarkText =
 159 #(define-music-function (parser location text) (markup?)
 160   #{
 161     \dacapoOverrides
 162     \mark \markup \column \right-align { \italic "Dal Segno." $text }
 163   #})
 164
 165 fineMarkText =
 166 #(define-music-function (parser location text) (markup?)
 167   #{
 168     \dacapoOverrides
 169     \mark \markup \column \right-align { \italic "Fin." $text }
 170   #})