ly/property.ly

   1 % property.ly
   2
   3 \version "1.3.96";
   4
   5 stemUp = \property Voice.Stem \push #'direction = #1
   6 stemDown = \property Voice.Stem \push #'direction = #-1
   7 stemBoth= \property Voice.Stem \pop #'direction
   8
   9 slurUp   = \property Voice.Slur \push #'direction = #1
  10 slurBoth = \property Voice.Slur \pop #'direction
  11 slurDown = \property Voice.Slur \push #'direction = #-1
  12 shiftOn  = \property Voice.NoteColumn \push #'horizontal-shift = #1
  13 shiftOnn  = \property Voice.NoteColumn \push #'horizontal-shift = #2
  14 shiftOnnn  = \property Voice.NoteColumn \push #'horizontal-shift = #3
  15 shiftOff  = \property Voice.NoteColumn \pop #'horizontal-shift
  16
  17
  18 tieUp = \property Voice.Tie \push #'direction = #1
  19 tieDown = \property Voice.Tie \push #'direction = #-1
  20 tieBoth = \property Voice.Tie \pop #'direction
  21
  22 cadenzaOn = \property Score.timing = ##f
  23 cadenzaOff = { \property Score.timing = ##t
  24         \property Score.measurePosition = #(make-moment 0 1)
  25         }
  26
  27
  28 oneVoice = {
  29         \stemBoth
  30         \tieBoth
  31         \shiftOff
  32 }
  33
  34 voiceOne = { \stemUp
  35    \tieUp
  36 }
  37 voiceTwo = { \stemDown
  38    \tieDown
  39    }
  40
  41 voiceThree = {
  42         \stemUp
  43         \shiftOn
  44 }
  45
  46 voiceFour = {
  47         \stemDown
  48         \shiftOn
  49 }
  50
  51 slurDotted = \property Voice.Slur \push #'dash = #1
  52 slurNoDots = \property Voice.Slur \pop #'dash
  53
  54
  55 tiny  =
  56         \property Voice.fontSize= -2
  57
  58
  59 small  =
  60         \property Voice.fontSize= -1
  61
  62
  63 normalsize = {
  64         \property Voice.fontSize= 0
  65 }
  66
  67 normalkey = {
  68         \property Staff.keyOctaviation = ##f
  69 }
  70
  71 specialkey = {
  72         \property Staff.keyOctaviation = ##t
  73 }
  74
  75 % End the incipit and print a ``normal line start''.
  76 endincipit = \notes{
  77     \partial 16; s16  % Hack to handle e.g. \bar ".|"; \endincipit
  78     \property Staff.clefStyle = #"fullSizeChanges"
  79     \bar "";
  80 }
  81
  82 autoBeamOff = \property Voice.noAutoBeaming = ##t
  83 autoBeamOn = \property Voice.noAutoBeaming = ##f
  84
  85
  86 emptyText = \property Voice.textNonEmpty = ##f
  87 fatText = \property Voice.textNonEmpty = ##t
  88