common/marks.ily

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