%}
-\version "1.0.20";
+\version "1.3.4";
%hmm, (these) abbrevs suck, imo
% i guess they're meant as some form of doco
% that's what i use them for...
+
stemup = \property Voice.verticalDirection = \up
stemboth= \property Voice.verticalDirection = \center
stemdown = \property Voice.verticalDirection = \down
-slurup = \notes {
- s1*0
- \property Voice.slurVerticalDirection = \up
- }
-slurboth= \notes {
- s1*0
- \property Voice.slurVerticalDirection = \center
-}
-slurdown = \notes {
- s1*0
- \property Voice.slurVerticalDirection = \down
-}
+slurup = \property Voice.slurVerticalDirection = \up
+slurboth = \property Voice.slurVerticalDirection = \center
+slurdown = \property Voice.slurVerticalDirection = \down
+shifton = \property Voice.horizontalNoteShift = #1
+shiftoff = \property Voice.horizontalNoteShift = #0
-shifton = \property Voice.hshift = 1
-shiftoff = \property Voice.hshift = 0
+cadenzaOn = \property Score.timing = ##f
+cadenzaOff = { \property Score.timing = ##t
+ \property Score.measurePosition = #(make-moment 0 1)
+ }
+
onevoice = {
\stemboth \shiftoff
}
-voiceone =
- \context Voice = one {
- \stemup
-}
-
-voicetwo =
- \context Voice = two {
- \stemdown
-}
-
-voicethree =
- \context Voice = three {
+voiceone = \stemup
+voicetwo = \stemdown
+voicethree = {
\stemup
-
+ \shifton
}
-voicefour =
- \context Voice = four {
+voicefour = {
\stemdown
\shifton
}
-onestaff =
- \translator Staff=one
-
-
-staffone = {
- \translator Staff=one
- \property Staff.verticalDirection = \center
- \property Staff.hshift = 0
-}
-
-stafftwo = {
- \translator Staff=two
- \property Staff.verticalDirection = \center
- \property Staff.hshift = 0
-}
-
-staffthree = {
- \translator Staff=three
- \property Staff.verticalDirection = \center
- \property Staff.hshift = 0
-}
-
-stafffour = {
- \translator Staff=four
- \property Staff.verticalDirection = \center
- \property Staff.hshift = 0
-}
-
% ugh, cluttering global namespace...
% ugh2.
-none=0
-free=0
-normal=1
-traditional=2
infinity=10000
beamslopeproportional =
- \property Score.beamslopedamping = \none
+ \property Score.beamSlopedamping = 0
beamslopedamped =
- \property Score.beamslopedamping = \normal
+ \property Score.beamSlopedamping = 1
beamslopezero =
- \property Score.beamslopedamping = \infinity
+ \property Score.beamSlopedamping = \infinity
% this sucks, you'd want to pass an array, at least
% (or embedded code: you still can't dictate the slope / stemlength)
beamposfree =
- \property Score.beamquantisation = \none
+ \property Score.beamQuantisation = 0
beamposnormal =
- \property Score.beamquantisation = \normal
+ \property Score.beamQuantisation = 1
beampostraditional =
- \property Score.beamquantisation = \traditional
+ \property Score.beamQuantisation = 2
slurnormal =
- \property Voice.slurdash = ""
+ \property Voice.slurDash = ""
-slurdotted =
- \property Voice.slurdash = 1
+slurdotted =
+ \property Voice.slurDash = 1
-%{
- for grace note hack, see input/test/grace.ly
-%}
-pletoff = {
- \property Voice.pletvisibility = 0
-}
-pleton = {
- \property Voice.pletvisibility = 3
-}
-tiny = {
- \property Voice.fontSize= "-2"
- \pletoff %urg
-}
+tupletoff =
+ \property Voice.tupletVisibility = 0
-small = {
- \property Voice.fontSize= "-1"
-}
+tupleton =
+ \property Voice.tupletVisibility = 3
-normalsize = {
- \property Voice.fontSize= "0"
- \pleton %urg
-}
+tiny =
+ \property Voice.fontSize= -2
-%{
- [urg: try at] temporary grace note hack
- the total visible duration of the grace notes must be half
- the duration of the 'at' note: e.g.:
-
- \grace b8 \graceat c4 \ecarg
- \grace c16 b16 \graceat c4 \ecarg
-
-grace = {
- \tiny
-% it would be so cool not to have to specify these factors each time...
-% :-(
- \property Voice.pletvisibility = 0
- \[1/16
-}
-graceat = \melodic {
- \normalsize
- \property Voice.pletvisibility = 0
- \] \[31/32
-}
+small =
+ \property Voice.fontSize= -1
+
-ecarg = \melodic {
- \property Voice.pletvisibility = 0
- \]
- \property Voice.pletvisibility = 3
+normalsize = {
+ \property Voice.fontSize= 0
}
-%}
normalkey = {
- \property Staff.keyoctaviation = 1
+ \property Staff.keyOctaviation = 1
}
specialkey = {
- \property Staff.keyoctaviation = 0
+ \property Staff.keyOctaviation = 0
}
% End the incipit and print a ``normal line start''.
endincipit = \notes{
\partial 16; s16 % Hack to handle e.g. \bar ".|"; \endincipit
- \property Staff.clefStyle = "fullSizeChanges"
+ \property Staff.clefStyle = #"fullSizeChanges"
\nobreak \bar "";
}
+autoBeamOff = \property Voice.noAutoBeaming = ##t
+autoBeamOn = \property Voice.noAutoBeaming = ##f
+
+
+emptyText = \property Voice.textEmptyDimension = ##t
+fatText = \property Voice.textEmptyDimension = ##f
+