ly/property.ly

   1 % property.ly
   2
   3 \version "1.3.59";
   4
   5 stemup = \property Voice.basicStemProperties \push #'direction = #1
   6 stemdown = \property Voice.basicStemProperties \push #'direction = #-1
   7 stemboth= \property basicStemProperties \pop #'direction
   8
   9 slurup   = \property Voice.basicSlurProperties \push #'direction = #1
  10 slurboth = \property basicSlurProperties \pop #'direction
  11 slurdown = \property Voice.basicSlurProperties \push #'direction = #-1
  12 shifton  = \property Voice.basicNoteColumnProperties \push #'horizontal-shift = #1
  13 shiftonn  = \property Voice.basicNoteColumnProperties \push #'horizontal-shift = #2
  14 shiftonnn  = \property Voice.basicNoteColumnProperties \push #'horizontal-shift = #3
  15 shiftoff  = \property basicNoteColumnProperties \pop #'horizontal-shift
  16
  17
  18 tieUp = \property Voice.basicTieProperties \push #'direction = #1
  19 tieDown = \property Voice.basicTieProperties \push #'direction = #-1
  20 tieBoth = \property basicTieProperties \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 }
  32
  33 voiceone = { \stemup
  34    \tieUp
  35 }
  36 voicetwo = { \stemdown
  37    \tieDown
  38    }
  39
  40 voicethree = {
  41         \stemup
  42         \shifton
  43 }
  44
  45 voicefour = {
  46         \stemdown
  47         \shifton
  48 }
  49
  50 % ugh, cluttering global namespace...
  51
  52 % ugh2.
  53 infinity=10000
  54 %{
  55
  56 slurnormal =
  57         \property Voice.slurDash = ##f
  58
  59
  60 slurdotted =
  61         \property Voice.slurDash = 1
  62
  63
  64 tupletoff =
  65         \property Voice.tupletVisibility = 0
  66
  67 tupleton =
  68         \property Voice.tupletVisibility = 3
  69 %}
  70
  71
  72 tiny  =
  73         \property Voice.fontSize= -2
  74
  75
  76 small  =
  77         \property Voice.fontSize= -1
  78
  79
  80 normalsize = {
  81         \property Voice.fontSize= 0
  82 }
  83
  84 normalkey = {
  85         \property Staff.keyOctaviation = ##f
  86 }
  87
  88 specialkey = {
  89         \property Staff.keyOctaviation = ##t
  90 }
  91
  92 % End the incipit and print a ``normal line start''.
  93 endincipit = \notes{
  94     \partial 16; s16  % Hack to handle e.g. \bar ".|"; \endincipit
  95     \property Staff.clefStyle = #"fullSizeChanges"
  96     \bar "";
  97 }
  98
  99 autoBeamOff = \property Voice.noAutoBeaming = ##t
 100 autoBeamOn = \property Voice.noAutoBeaming = ##f
 101
 102
 103 emptyText = \property Voice.textNonEmpty = ##f
 104 fatText = \property Voice.textNonEmpty = ##t
 105