]> git.donarmstrong.com Git - lilypond.git/blob - ly/property.ly
patch::: 1.3.128.jcn4
[lilypond.git] / ly / property.ly
1 % property.ly
2
3 \version "1.3.110";
4
5 stemUp = \property Voice.Stem \override #'direction = #1
6 stemDown = \property Voice.Stem \override #'direction = #-1 
7 stemBoth= \property Voice.Stem \revert #'direction
8
9 slurUp   = \property Voice.Slur \override #'direction = #1
10 slurBoth = \property Voice.Slur \revert #'direction 
11 slurDown = \property Voice.Slur \override #'direction = #-1
12 shiftOn  = \property Voice.NoteColumn \override #'horizontal-shift = #1
13 shiftOnn  = \property Voice.NoteColumn \override #'horizontal-shift = #2
14 shiftOnnn  = \property Voice.NoteColumn \override #'horizontal-shift = #3
15 shiftOff  = \property Voice.NoteColumn \revert #'horizontal-shift 
16
17
18 tieUp = \property Voice.Tie \override #'direction = #1
19 tieDown = \property Voice.Tie \override #'direction = #-1
20 tieBoth = \property Voice.Tie \revert #'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 \override #'dashed = #1
52 slurNoDots = \property Voice.Slur \revert #'dashed
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 emptyText = \property Voice.textNonEmpty = ##f
86 fatText = \property Voice.textNonEmpty = ##t
87
88 showStaffSwitch = \property Thread.followThread = ##t
89 hideStaffSwitch = \property Thread.followThread = ##f
90
91
92 % To remove a Volta bracet or some other graphical object,
93 % set it to turnOff. Example: \property Staff.VoltaBracket = \turnOff
94
95 turnOff = #'((meta .  ((interfaces . ()))))