]> git.donarmstrong.com Git - lilypond.git/blob - ly/property.ly
release: 1.3.129
[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     \context Staff \outputproperty #(make-type-checker 'clef-interface) #'full-size-change = ##t
79     \context Staff \outputproperty #(make-type-checker 'clef-interface) #'non-default = ##t
80     \bar "";
81 }
82
83 autoBeamOff = \property Voice.noAutoBeaming = ##t
84 autoBeamOn = \property Voice.noAutoBeaming = ##f
85
86 emptyText = \property Voice.textNonEmpty = ##f
87 fatText = \property Voice.textNonEmpty = ##t
88
89 showStaffSwitch = \property Thread.followThread = ##t
90 hideStaffSwitch = \property Thread.followThread = ##f
91
92
93 % To remove a Volta bracet or some other graphical object,
94 % set it to turnOff. Example: \property Staff.VoltaBracket = \turnOff
95
96 turnOff = #'((meta .  ((interfaces . ()))))