]> git.donarmstrong.com Git - lilypond.git/blob - ly/property.ly
patch::: 1.3.130.jcn1
[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 = {
24   \property Score.timing = ##t
25   \property Score.measurePosition = #(make-moment 0 1)
26 }
27
28         
29 oneVoice = {    
30   \stemBoth
31   \slurBoth
32   \tieBoth
33   \shiftOff
34 }
35
36 voiceOne = {
37   \stemUp
38   \slurUp
39   \tieUp
40 }
41
42 voiceTwo = {
43   \stemDown
44   \slurDown
45   \tieDown
46 }
47    
48 voiceThree = {
49   \stemUp
50   \slurUp
51   \tieUp
52   \shiftOn
53 }
54
55 voiceFour = {
56   \stemDown
57   \slurDown
58   \tieDown
59   \shiftOn
60 }
61
62 slurDotted = \property Voice.Slur \override #'dashed = #1
63 slurNoDots = \property Voice.Slur \revert #'dashed
64
65         
66 tiny  = 
67         \property Voice.fontSize= -2
68
69
70 small  = 
71         \property Voice.fontSize= -1
72
73
74 normalsize = {
75         \property Voice.fontSize= 0
76 }
77
78 normalkey = {
79         \property Staff.keyOctaviation = ##f
80 }
81
82 specialkey = {
83         \property Staff.keyOctaviation = ##t
84 }
85
86 % End the incipit and print a ``normal line start''.
87 endincipit = \notes{
88     \partial 16; s16  % Hack to handle e.g. \bar ".|"; \endincipit
89     \context Staff \outputproperty #(make-type-checker 'clef-interface) #'full-size-change = ##t
90     \context Staff \outputproperty #(make-type-checker 'clef-interface) #'non-default = ##t
91     \bar "";
92 }
93
94 autoBeamOff = \property Voice.noAutoBeaming = ##t
95 autoBeamOn = \property Voice.noAutoBeaming = ##f
96
97 emptyText = \property Voice.textNonEmpty = ##f
98 fatText = \property Voice.textNonEmpty = ##t
99
100 showStaffSwitch = \property Thread.followThread = ##t
101 hideStaffSwitch = \property Thread.followThread = ##f
102
103
104 % To remove a Volta bracet or some other graphical object,
105 % set it to turnOff. Example: \property Staff.VoltaBracket = \turnOff
106
107 turnOff = #'((meta .  ((interfaces . ()))))