1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
|
<?xml version="1.0"?>
<Denemo>
<palette _name="Select Duration" row-wise="1" limit="1" dock="0" hidden="1">
<button label="^𝅝" _tooltip="Selects 𝅝 as the duration for inserting notes or rests" script="(d-Set0)"/>
<button label="^𝅗𝅥" _tooltip="Selects 𝅗𝅥 as the duration for inserting notes or rests" script="(d-Set1)"/>
<button label="^𝅘𝅥" _tooltip="Selects 𝅘𝅥 as the duration for inserting notes or rests" script="(d-Set2)"/>
<button label="^𝅘𝅥𝅮" _tooltip="Selects 𝅘𝅥𝅮 as the duration for inserting notes or rests" script="(d-Set3)"/>
<button label="^𝅘𝅥𝅯" _tooltip="Selects 𝅘𝅥𝅯 as the duration for inserting notes or rests" script="(d-Set4)"/>
<button label="^𝅘𝅥𝅱" _tooltip="Selects 𝅘𝅥𝅱 as the duration for inserting notes or rests" script="(d-Set5)"/>
<button label="<i>3</i>" _tooltip="Alternates inserting start triplet and end triplet markers" script="(d-ToggleTripleting)"/>
</palette>
<palette _name="General" row-wise="1" limit="1" dock="1" hidden="0">
<button label="<span font='16'> 𝄞 </span>" _tooltip="Choose any sort of clef. If the cursor is at the start change initial clef, else insert chosen clef." script="(d-ClefChooser)"/>
<button label="♯<span rise="10000">♯</span>♭<span rise="10000">♭</span>" _tooltip="Insert/Edit a key change at the cursor position" script="(d-InsertKey)"/>
<button label="4/4 3/4" _tooltip="Edit/Insert a time signature change for the current measure" script="(d-InsertTimeSig)"/>
<button label="<span font='denemo 12' letter_spacing="-14000">𝅘𝅥<span rise="8000">𝅘𝅥</span></span>" _tooltip="Add a note to the current chord The cursor position determines which note to add" script="(d-AddNoteToChord)"/>
<button label="(" _tooltip="Begin Slur from note/chord at cursor, or remove a Begin Slur" script="(d-ToggleBeginSlur)"/>
<button label=")" _tooltip="End Slur at note/chord at cursor, or remove an End Slur" script="(d-ToggleEndSlur)"/>
<button label="<span rise="4000">𝅘𝅥</span>⬄<span rise="4000">𝅘𝅥</span>⌣" _tooltip="Tie/Untie from the note/chord at the cursor - will be ignored by the LilyPond typesetter if next note is not at the same pitch" script="(d-ToggleTie)"/>
<button label="<i>3</i>" _tooltip="Alternates inserting start triplet and end triplet markers" script="(d-ToggleTripleting)"/>
<button label="<span font="times" size="large" font_style="italic" font_weight="bold">Allegro</span>" _tooltip="Insert a tempo change at cursor" script="(d-MetronomeMark)"/>
<button label="<span font="times" size="large" font_style="italic" font_weight="bold">f p</span>" _tooltip="Insert a Dynamic Marking at the cursor" script="(d-DynamicText)"/>
<button label="<span font="times" size="large" font_weight="bold">&lt;</span>" _tooltip="Start Crescendo from note/chord at cursor" script="(d-ToggleStartCrescendo)"/>
<button label="<span font="times" size="large" font_weight="bold">&lt;|</span>" _tooltip="End Crescendo on note/chord at cursor" script="(d-ToggleEndCrescendo)"/>
<button label="<span font="times" size="large" font_weight="bold">&gt;</span>" _tooltip="Start Diminuendo from note/chord at cursor " script="(d-ToggleStartDiminuendo)"/>
<button label="<span font="times" size="large" font_weight="bold">&gt;|</span>" _tooltip="End Diminuendo from note/chord at cursor" script="(d-ToggleEndDiminuendo)"/>
<button label="<i><b>tr</b></i>" _tooltip="Adds/Removes a trill to the note" script="(d-ToggleTrill)"/>
<button label="•••" _tooltip="Choose more palettes of buttons." script="(d-ChoosePalette) "/>
</palette>
<palette _name="Dynamics" row-wise="1" limit="1" dock="0" hidden="1">
<button label="?" _tooltip="Help with chord symbol entry methods." script="(d-InfoDialog "There are two methods of adding dynamics, either placing a dynamic directive before the note or chord which it should apply to or creating a separate staff for dynamics. In the second of these options the actual notes on the staff are ignored, they just serve to position the dynamics markings. This method makes it easy to align haripins with each other and with other dynamic markings..")"/>
<button label="<span font="times" size="large" font_style="italic" font_weight="bold">f p</span>" _tooltip="Insert a Dynamic Marking at the cursor" script="(d-DynamicText)"/>
<button label="<span font="times" size="large" font_weight="bold">&lt;</span>" _tooltip="Start Crescrendo from note/chord at cursor" script="(d-ToggleStartCrescendo)"/>
<button label="<span font="times" size="large" font_weight="bold">&lt;|</span>" _tooltip="End Crescendo on note/chord at cursor" script="(d-ToggleEndCrescendo)"/>
<button label="<span font="times" size="large" font_weight="bold">&gt;</span>" _tooltip="Start Diminuendo from note/chord at cursor " script="(d-ToggleStartDiminuendo)"/>
<button label="<span font="times" size="large" font_weight="bold">&gt;|</span>" _tooltip="End Diminuendo from note/chord at cursor" script="(d-ToggleEndDiminuendo)"/>
<button label="Staff" _tooltip="Adds a staff to be used purely for dynamic markings, insert after right hand piano staff" script="(d-DynamicsStaff)"/>
<button label="cresc - - -" _tooltip="Prints text to start or continue a crescendo extending over a passage. Use for cresc. poco a poco, for example. Terminate with End Crescendo marking or a dynamic mark, else nothing will be printed. LilyPond markup, such as \\bold can be used." script="(d-CrescendoTextSpanner)"/>
<button label="dim - - -" _tooltip="Prints text to start or continue a diminuendo extending over a passage. Use for dim. poco a poco, for example. Terminate with End Diminuendo marking or a dynamic mark, else nothing will be printed. LilyPond markup, such as \\bold can be used." script="(d-DecrescendoTextSpanner)"/>
<button label="Extra Space" _tooltip="Music is spaced out by the extra amount given to avoid textual dynamic markings colliding. Not for hairpins." script="(d-DynamicsExtraSpace)"/>
</palette>
<palette _name="Pianoforte" row-wise="1" limit="1" dock="0" hidden="1">
<button label="<span font='24'>𝆮</span>" _tooltip="Prints a Sustain Pedal On Mark" script="(d-SustainOn)"/>
<button label="<span font='24'>𝄞 𝄢</span>" _tooltip="Adds two staff braced together for keyboard instrument." script="(d-PianoStaff)"/>
<button label="&lt;&gt;" _tooltip="Adds a staff to be used purely for dynamic markings, insert after right hand piano staff" script="(d-DynamicsStaff)"/>
<button label="<span font='44'>𝆯</span>" _tooltip="Prints a Sustain Off Mark" script="(d-SustainOff)"/>
<button label="⬁" _tooltip="(Print) the current voice moves to the staff you name." script="(d-ChangeStaff)"/>
<button label="8va" _tooltip="Inserts an 8va mark (transposing the notes accordingly) or terminates one already started." script="(d-Ottava)"/>
</palette>
<palette _name="Insert or Append Duration" row-wise="0" limit="1" dock="1" hidden="0">
<button label="▼𝅝" _tooltip="When appending, appends a 𝅝 With the cursor on a note inserts a 𝅝 before the current note If MIDI-in is active, the note will be pitchless (displays yellow, percussion-sounding) - the MIDI keyboard will provide the pitch. Changes prevailing duration." script="(d-0)"/>
<button label="▼𝅗𝅥" _tooltip="When appending, appends a 𝅗𝅥 With the cursor on a note inserts a 𝅗𝅥 before the current note If MIDI-in is active, the note will be pitchless (displays yellow, percussion-sounding) - the MIDI keyboard will provide the pitch. Changes prevailing duration." script="(d-1)"/>
<button label="▼𝅘𝅥" _tooltip="When appending, appends a 𝅘𝅥 With the cursor on a note inserts a 𝅘𝅥 before the current note If MIDI-in is active, the note will be pitchless (displays yellow, percussion-sounding) - the MIDI keyboard will provide the pitch. Changes prevailing duration." script="(d-2)"/>
<button label="▼𝅘𝅥𝅮" _tooltip="When appending, appends a 𝅘𝅥𝅮 With the cursor on a note inserts a 𝅘𝅥𝅮 before the current note If MIDI-in is active, the note will be pitchless (displays yellow, percussion-sounding) - the MIDI keyboard will provide the pitch. Changes prevailing duration." script="(d-3)"/>
<button label="▼𝅘𝅥𝅯" _tooltip="When appending, appends a 𝅘𝅥𝅯 With the cursor on a note inserts a 𝅘𝅥𝅯 before the current note If MIDI-in is active, the note will be pitchless (displays yellow, percussion-sounding) - the MIDI keyboard will provide the pitch. Changes prevailing duration." script="(d-4)"/>
<button label="▼𝅘𝅥𝅰" _tooltip="When appending, appends a 𝅘𝅥𝅰 With the cursor on a note inserts a 𝅘𝅥𝅰 before the current note If MIDI-in is active, the note will be pitchless (displays yellow, percussion-sounding) - the MIDI keyboard will provide the pitch. Changes prevailing duration." script="(d-5)"/>
<button label="▼𝄻" _tooltip="Insert 𝄻 rest" script="(d-InsertWholeRest)"/>
<button label="▼𝄼" _tooltip="Insert 𝄼 rest" script="(d-InsertHalfRest)"/>
<button label="▼𝄽" _tooltip="Insert 𝄽 rest" script="(d-InsertQuarterRest)"/>
<button label="▼𝄾" _tooltip="Insert 𝄾 rest" script="(d-InsertEighthRest)"/>
<button label="▼𝄿" _tooltip="Insert 𝄿 rest" script="(d-InsertSixteenthRest)"/>
<button label="▼𝅀" _tooltip="Insert 𝅀 rest" script="(d-InsertThirtysecondRest)"/>
<button label="•" _tooltip="Dot, double dot or undot the note at the cursor" script="(d-DotDoubleDotNoDot)"/>
</palette>
<palette _name="Edit Duration" row-wise="0" limit="1" dock="1" hidden="0">
<button label="► 𝅝" _tooltip="Change the current note to a 𝅝" script="(d-Change0)"/>
<button label="► 𝅗𝅥" _tooltip="Change the current note to a 𝅗𝅥" script="(d-Change1)"/>
<button label="► 𝅘𝅥" _tooltip="Change the current note to a 𝅘𝅥" script="(d-Change2)"/>
<button label="► 𝅘𝅥𝅮" _tooltip="Change the current note to a 𝅘𝅥𝅮" script="(d-Change3)"/>
<button label="► 𝅘𝅥𝅯" _tooltip="Change the current note to a 𝅘𝅥𝅯" script="(d-Change4)"/>
<button label="► 𝅘𝅥𝅰" _tooltip="Change the current note to a 𝅘𝅥𝅰" script="(d-Change5)"/>
<button label="•" _tooltip="Dot, double dot or undot the note at the cursor" script="(d-DotDoubleDotNoDot)"/>
<button label="1/2" _tooltip="Halves the duration of the note/chord/rest at the cursor or the selection. E.g. Quarter Note becomes Eighth Note. " script="(d-Diminish)"/>
<button label="2∗" _tooltip="Doubles the duration of the note/chord/rest at the cursor or the selection. E.g. Quarter Note becomes Half Note." script="(d-Augment)"/>
</palette>
<palette _name="Change or Append Notes" row-wise="0" limit="1" dock="1" hidden="0">
<button label="► A" _tooltip="Changes the note the cursor is on to the note A. If the cursor is in the appending position, appends a note using the prevailing duration." script="(d-A)"/>
<button label="► B" _tooltip="Changes the note the cursor is on to the note B. If the cursor is in the appending position, appends a note using the prevailing duration." script="(d-B)"/>
<button label="► C" _tooltip="Changes the note the cursor is on to the note C. If the cursor is in the appending position, appends a note using the prevailing duration." script="(d-C)"/>
<button label="► D" _tooltip="Changes the note the cursor is on to the note D. If the cursor is in the appending position, appends a note using the prevailing duration." script="(d-D)"/>
<button label="► E" _tooltip="Changes the note the cursor is on to the note E. If the cursor is in the appending position, appends a note using the prevailing duration." script="(d-E)"/>
<button label="► F" _tooltip="Changes the note the cursor is on to the note F. If the cursor is in the appending position, appends a note using the prevailing duration." script="(d-F)"/>
<button label="► G" _tooltip="Changes the note the cursor is on to the note G. If the cursor is in the appending position, appends a note using the prevailing duration." script="(d-G)"/>
<button label="⬆8" _tooltip="Changes the note at the cursor to an octave higher" script="(d-OctaveUp)"/>
<button label="⬇8" _tooltip="Changes the note at the cursor to an octave lower" script="(d-OctaveDown)"/>
<button label="!" _tooltip="Forces the accidental on the note to be printed." script="(d-CautionaryAccidental)"/>
<button label="(♮)" _tooltip="Prints the accidental in ()." script="(d-ReminderAccidental)"/>
<button label="♯" _tooltip="Sharpen the note at the cursor or next entered note if the cursor is in the appending position" script="(d-SharpenNote)"/>
<button label="♭" _tooltip="Flatten the note at the cursor or next entered note if the cursor is in the appending position" script="(d-FlattenNote)"/>
</palette>
<palette _name="Ornaments" row-wise="1" limit="1" dock="0" hidden="1">
<button label="<i><b>tr</b></i>" _tooltip="Adds/Removes a trill to the note" script="(d-ToggleTrill)"/>
<button label="<span font="emmentaler"></span>" _tooltip="Adds/Removes a Mordent to the note" script="(d-ToggleMordent)"/>
<button label="<span font="emmentaler"></span>" _tooltip="Adds/Removes a prall to the note" script="(d-TogglePrall)"/>
<button label="<span font="emmentaler"></span>" _tooltip="Adds/Removes Up Prall ornament" script="(d-ToggleUpPrall)"/>
<button label="<span font="emmentaler">𝆗</span>" _tooltip="Add/Removes a Turn to the note" script="(d-ToggleTurn)"/>
<button label="<span font="emmentaler">𝆘</span>" _tooltip="Add/Removes a Reverse Turn to the note" script="(d-ToggleReverseTurn)"/>
<button label="<i>tr</i> <span font="emmentaler"></span>" _tooltip="Starts a spanning trill from the note at the cursor." script="(d-StartTrillSpan)"/>
<button label="<span font="emmentaler"></span> end" _tooltip="Ends a previously started trill at the next note." script="(d-StopTrillSpan)"/>
</palette>
<palette _name="Stringed Instruments" row-wise="0" limit="7" dock="0" hidden="1">
<button label="" _tooltip="Mark/Unmark current selection or note with UpBow" script="(d-UpBowSelectionSwitcher)"/>
<button label="" _tooltip="Mark/Unmark selection or current object" script="(d-DownbowSelectionSwitcher)"/>
<button label="<span font="emmentaler"></span>" _tooltip="Mark/Unmark current selection or object with a harmonic" script="(d-HarmonicSelectionSwitcher)"/>
<button label="⌇" _tooltip="Mark/Unmark the selected notes arpeggio" script="(d-ArpeggioSelectionSwitcher)"/>
<button label="<span font='24'>𝆂 </span>" _tooltip="Marks/Unmaks the selection with the Portato" script="(d-PortatoSelectionSwitcher)"/>
<button label="+" _tooltip="Mark/Unmark the selected notes stopped" script="(d-StoppedSelectionSwitcher)"/>
<button label="0" _tooltip="Inserts fingering for open string" script="(d-Finger0)"/>
<button label="1" _tooltip="Inserts fingering for finger 1" script="(d-Finger1)"/>
<button label="2" _tooltip="Inserts fingering for finger 2" script="(d-Finger2)"/>
<button label="3" _tooltip="Inserts fingering for finger 3" script="(d-Finger3)"/>
<button label="4" _tooltip="Inserts fingering for finger 4" script="(d-Finger4)"/>
<button label="5" _tooltip="Inserts fingering for finger 5" script="(d-Finger5)"/>
<button label="s1" _tooltip="Creates a cloned Denemo Directive" script=";;;StringNumber (let ((tag "StringNumber")) (d-DirectivePut-note-postfix tag "\\1 ") (d-DirectivePut-note-display tag "s1") (d-SetSaved #f)(d-RefreshDisplay)) ;;;End of scheme script"/>
<button label="s2" _tooltip="Creates a cloned Denemo Directive" script=";;;StringNumber (let ((tag "StringNumber")) (d-DirectivePut-note-postfix tag "\\2 ") (d-DirectivePut-note-display tag "s2") (d-SetSaved #f)(d-RefreshDisplay)) ;;;End of scheme script"/>
<button label="s3" _tooltip="Creates a cloned Denemo Directive" script=";;;StringNumber (let ((tag "StringNumber")) (d-DirectivePut-note-postfix tag "\\3 ") (d-DirectivePut-note-display tag "s3") (d-SetSaved #f)(d-RefreshDisplay)) ;;;End of scheme script"/>
<button label="s4" _tooltip="Creates a cloned Denemo Directive" script=";;;StringNumber (let ((tag "StringNumber")) (d-DirectivePut-note-postfix tag "\\4 ") (d-DirectivePut-note-display tag "s4") (d-SetSaved #f)(d-RefreshDisplay)) ;;;End of scheme script"/>
<button label="s5" _tooltip="Creates a cloned Denemo Directive" script=";;;StringNumber (let ((tag "StringNumber")) (d-DirectivePut-note-postfix tag "\\5 ") (d-DirectivePut-note-display tag "s5") (d-SetSaved #f)(d-RefreshDisplay)) ;;;End of scheme script"/>
<button label="s6" _tooltip="Creates a cloned Denemo Directive" script=";;;StringNumber (let ((tag "StringNumber")) (d-DirectivePut-note-postfix tag "\\6 ") (d-DirectivePut-note-display tag "s6") (d-SetSaved #f)(d-RefreshDisplay)) ;;;End of scheme script"/>
<button label="s?" _tooltip="Followed by a number, places string number on note." script="(d-StringNum)"/>
<button label="<i>p i m</i>" _tooltip="The given number as right hand fingering, using the conventional p,m,i indicators. Use Cancel to delete" script="(d-RHFinger)"/>
<button label="RH" _tooltip="Asks for a finger number and typesets p,m,i as appropriate. Use cancel to delete." script="(d-RHFinger)"/>
<button label="Harmonic" _tooltip="Places a diamond shape notehead at the cursor. Invoke this command with the cursor above the note to be fingered/fretted to notate an artificial harmonic." script="(d-ArtificialHarmonic)"/>
</palette>
<palette _name="Polyphony" row-wise="1" limit="4" dock="0" hidden="1">
<button label="V+" _tooltip="Adds a voice to the current staff, initially displayed on a staff of its own, for readability. It will print on the staff above, and can be displayed there using Join Voices command if desired." script="(d-NewVoice)"/>
<button label="V?" _tooltip="Select a voice for the music following the cursor position. The Voice 1,2,3,4 choices set up the voices so that first and third voices get stems up, second and fourth voices get stems down, third and fourth voice note heads are horizontally shifted, and rests in the respective voices are automatically moved to avoid collisions. The Automatic Voice setting returns all the voice settings to the neutral default directions" script="(d-VoiceSetting)"/>
<button label="V(V)" _tooltip="The two voices will be printed only once when they are the same, otherwise they will be printed as parts. (Off/On)" script="(d-PartCombine)"/>
<button label="𝄽(𝄽)" _tooltip="(Print) Merges rests where two voices have a common rest. Not for whole measure or multi-measure rests." script="(d-MergeRests)"/>
<button label="<span font='denemo 12' letter_spacing="-10000">𝅘𝅥<span rise="8000">𝅘𝅥</span></span>" _tooltip="Turns off horizontal displacement of notes (which avoid collisions between parts)" script="(d-ShiftOff)"/>
<button label="<span font='denemo 12' letter_spacing="-1000">𝅘𝅥<span rise="8000">𝅘𝅥</span></span>" _tooltip="Turns on horizontal displacements of notes where needed." script="(d-ShiftOn)"/>
<button label="𝅘𝅥⬌" _tooltip="On printing the current note/chord will be shifted from notes in other voices by the amount you give. Use with Voice Presets to ensure this chord is in a different voice." script="(d-NoteColumnShift)"/>
<button label="Initial Voice" _tooltip="Choose which voice this staff will initially be set to. To change voice during music see the Directives->Voices menu." script="(d-InitialVoice)"/>
<button label="Merge Dotted" _tooltip="From this point in the music notes in different voices beginning at the same time will be merged onto the same stem even if they differ in the dotting." script="(d-MergeDifferentlyDottedOn)"/>
<button label="Un-merge Dotted" _tooltip="From this point notes in different voices that begin at the same time will not be merged onto the same stem if they differ in the dotting." script="(d-MergeDifferentlyDottedOff)"/>
<button label="Part Combine Two" _tooltip="The two voices will be printed only once when they are the same, otherwise they will be printed as parts. (Off/On)" script="(d-PartCombine)"/>
<button label="Part Combine Chords" _tooltip="From the cursor onwards chords will be combined from the parts included in the part combine command." script="(d-PartCombineChords)"/>
<button label="Unisono" _tooltip="Combine parts as unison." script="(d-PartCombineUnisono)"/>
<button label="Automatic" _tooltip="Reverts to the default part combining." script="(d-PartCombineAutomatic)"/>
<button label="Keep Voices Apart" _tooltip="When part combining, from this point the parts will be kept apart even though they could be combined." script="(d-PartCombineApart)"/>
<button label="Note Column Warnings" _tooltip="Turns warnings from the LilyPond typesetter about clashing note columns off or on. These can be harmless but can cause a warning to check the score." script="(d-IgnoreClashingNoteColumns)"/>
</palette>
<palette _name="Articulations" row-wise="1" limit="1" dock="0" hidden="1">
<button label="fermata.svg" _tooltip="Mark/Unmark current selection or object with a fermata" script="(d-FermataSelectionSwitcher)"/>
<button label="staccato.svg" _tooltip="Adds the staccato dot or removes it" script="(d-StaccatoSelectionSwitcher)"/>
<button label="staccatissimo.svg" _tooltip="Toggles Staccatissimo" script="(d-StaccatissimoSelectionSwitcher)"/>
<button label="tenuto.svg" _tooltip="Toggles the Tenuto Line _ On/Off" script="(d-TenutoSelectionSwitcher)"/>
<button label="accent.svg" _tooltip="Adds the > accent" script="(d-AccentSelectionSwitcher)"/>
<button label="marcato.svg" _tooltip="Mark/Unmark the selected notes marcato" script="(d-MarcatoSelectionSwitcher)"/>
<button label="Outside Slur" _tooltip="The articulation(s) on this note will be placed outside the slur (furthest from the note). Repeat the command to return the slur to the outside." script="(d-ArticulationOutsideSlur)"/>
</palette>
<palette _name="Barlines" row-wise="1" limit="1" dock="0" hidden="1">
<button label="||:" _tooltip="Insert a barline indicating the start of a repeated section." script="(d-RepeatStart)"/>
<button label=":||" _tooltip="Insert a barline indicating the end of a repeated section." script="(d-RepeatEnd)"/>
<button label=":||:" _tooltip="Inserts a barline ending one repeated section and starting another" script="(d-RepeatEndStart)"/>
<button label="||" _tooltip="Insert a double barline at cursor position." script="(d-DoubleBarline)"/>
<button label="|||" _tooltip="Inserts a closing barline (a double bar with last one thicker)." script="(d-ClosingBarline)"/>
<button label="|x" _tooltip="Skips the printing of any automatic barline here - allows line break." script="(d-NoBarline)"/>
<button label="Choose" _tooltip="Choose a barline " script="(d-ChooseBarline)"/>
<button label="Custom" _tooltip="Create a custom barline. These can be named, or can simply override a standard LilyPond bar line type. A bar line is defined by four forms, which describe 1) the appearance normally (during a line), 2) appearance when the barline is at the beginning or 3) end of a line , and 4) what to show when joining staffs together as with a Piano Staff. Barline forms are made of characters including |,:,.,[,],: and others in the LilyPond documentation." script="(d-CustomBarline)"/>
</palette>
<palette _name="Repeats" row-wise="0" limit="2" dock="0" hidden="1">
<button label="1°" _tooltip="(Print) start a first time bar, must be followed by EndVolta." script="(d-OpenFirstTimeBar)"/>
<button label="2°" _tooltip="(Print) start a second time bar, must be followed by EndVolta" script="(d-OpenSecondTimeBar)"/>
<button label=" ¬ 1°/2°" _tooltip="Ends a volta, that is a n'th time bar" script="(d-EndVolta)"/>
<button label="insert 1st and 2nd" _tooltip="Inserts first and second time bars each with a whole measure rest. You can then edit this to suit your music, e.g by inserting extra bars, deleting the repeat start etc." script="(d-InsertFirstAndSecondTimeBars)"/>
<button label="nth time" _tooltip="Start passage to be played on one or more of the repeats as indicated by the text given by the user (e.g. 3 for third time bar). Finish the passage by placing the End ... time bar command." script="(d-OpenNthTimeBar)"/>
<button label="start |:" _tooltip="Insert a barline indicating the start of a repeated section." script="(d-RepeatStart)"/>
<button label="end :|" _tooltip="Insert a barline indicating the end of a repeated section." script="(d-RepeatEnd)"/>
<button label="e/s :||:" _tooltip="Inserts a barline ending one repeated section and starting another" script="(d-RepeatEndStart)"/>
<button label="Short Measure" _tooltip="Allow too few notes/rests in this measure. LilyPond will engrave this measure (in all staffs) with the short duration given by notes already present when this command was issued." script="(d-ShortMeasure)"/>
<button label="Set Bar Number" _tooltip="Enter a number to change the lilypond bar number. The printout will continue to count up from there." script="(d-SetBarNumber)"/>
</palette>
<palette _name="Beaming" row-wise="1" limit="2" dock="0" hidden="1">
<button label="?" _tooltip="Help with beaming commands." script="(d-InfoDialog "Beaming commands affect the printed score, not the Denemo display which uses a simple beaming method for quick note entry. You may find it easier to use the beaming commands directly on the typeset score - right click to select a beamed note and right click on the selection box to choose a beaming command.")"/>
<button label="[" _tooltip="Instructs the LilyPond engraver to start a beam here. (Print effect only)" script="(d-StartBeam)"/>
<button label="]" _tooltip="Instructs LilyPond engraver to stop previously started manual beaming. Print effect only." script="(d-EndBeam)"/>
<button label="[x" _tooltip="Typeset the note at the cursor with no beam to the right." script="(d-BeamRightNone)"/>
<button label="]x" _tooltip="Typeset the note at the cursor with no beam to the left." script="(d-BeamLeftNone)"/>
<button label="[1" _tooltip="Prints with just one beam linking to the right." script="(d-BeamRightOne)"/>
<button label="]1" _tooltip="Prints with just one beam linking to left." script="(d-BeamLeftOne)"/>
<button label="[2" _tooltip="Prints with just two beams linking to the right." script="(d-BeamRightTwo)"/>
<button label="]2" _tooltip="Prints with just two beams linking to the left." script="(d-BeamLeftTwo)"/>
<button label="]3" _tooltip="Prints with just three beams linking to the right." script="(d-BeamRightThree)"/>
<button label="[3" _tooltip="Prints with just three beams linking to the left." script="(d-BeamLeftThree)"/>
<button label="][x" _tooltip="(Print) Removes beam from current note" script="(d-NoBeam)"/>
<button label="[n][m]..." _tooltip="Inserts a time signature with indication for how to beam the notes. Insert at beginning of staff in order to replace the initial time signature. Time Signature can be hidden on printing - see Time Signatures menu." script="(d-TimesigWithBeatStructure)"/>
<button label="Score-wide Rules" _tooltip="Sets the rules to be used for beaming. With no selection gets the beat for beams to be divided for the prevailing time signature at the cursor. If a there is a selection this will set exceptions to the regular rule. In this case indicate the beaming desired using the manual beam commands [ and ]." script="(d-SetBeamExceptions)"/>
<button label="Movement Rules" _tooltip="Add/Replace rules to be used for beaming in the current movement. With no selection gets the beat for beams to be divided for the prevailing time signature at the cursor. If a there is a selection this will be used as the set of rules. In this case indicate the beaming desired using the manual beam commands [ and ], giving all the beaming rules wanted using several measures if needed (no other rules are used). Repeat with different selections to add further rules." script="(d-MovementBeamingRules)"/>
<button label="Time Signature" _tooltip="Inserts a time signature with indication for how to beam the notes. Insert at beginning of staff in order to replace the initial time signature." script="(d-TimesigWithBeatStructure)"/>
</palette>
<palette _name="Figured Bass" row-wise="1" limit="1" dock="0" hidden="1">
<button label="-&gt;" _tooltip="Add a bass figure to the current note. Use | sign to split the duration of a note so as to have multiple figures on one note. See Lilypond docs for other notation" script="(d-EditFiguredBass)"/>
<button label="^" _tooltip="Sets the height of the bass figure above the note. The unit is the distance between adjacent lines in the staff." script="(d-AdjustBassFigureHeight)"/>
<button label="^^" _tooltip="Allows several groups of figures to be individually adjusted for height." script="(d-AdjustFiguredBassHeights)"/>
<button label="𝅘𝅥 = n" _tooltip="Start filtering MIDI events, First note is bass, hold this down while entering notes for figures. Pedal changes harmony on same bass." script="(d-FiguredBassFilterOn)"/>
<button label="Hide" _tooltip="Hide the figured bass on the current staff on printing" script="(d-HideFiguredBass)"/>
<button label="Show" _tooltip="Show the figured bass on the current staff on printing" script="(d-ShowFiguredBass)"/>
<button label="Delete All" _tooltip="Delete the figured bass on the current staff" script="(d-DeleteFiguredBass)"/>
</palette>
<palette _name="Mensural Notation" row-wise="0" limit="1" dock="0" hidden="1">
<button label="Set Mensural Clef" _tooltip="Set this staff to use mensural notation (on/off)" script=";;;;;Clef MensuralNotationStaff (let ((tag "MensuralNotationStaff")(syntax (RadioBoxMenu (cons (_ "LilyPond Clef Name") 'name) (cons (_ "Full LilyPond clef syntax") 'full)))) (case syntax 	((full) 		(set! syntax (d-GetLilyPondSyntaxFromUser (_ "Mensural Clef") (_ "Give LilyPond syntax for clef desired") 			"\\score {<< {" "c'^\\markup\\huge{C} d'^\\markup\\huge{D} e'^\\markup\\huge{E} f'^\\markup\\huge{F} g'^\\markup\\huge{G} a'^\\markup\\huge{A} b'^\\markup\\huge{B}}>>}" "\\clef \"mensural-g\" \\set Staff.clefPosition = #-4 \\set Staff.middleCPosition = #-8 \\set Staff.middleCClefPosition = #-8\n"))) ((name) 	(set! syntax (d-GetUserInput (_ "Custom Clef") (_ "Give LilyPond syntax for clef name") "mensural-c1")) 	(if syntax 		(set! syntax (string-append "\\clef \"" syntax "\" "))))) 	(if syntax	 	 	(begin 	 		(d-DirectivePut-clef-postfix tag syntax) 	 		(d-DirectivePut-clef-override tag DENEMO_OVERRIDE_LILYPOND ) 		 (d-InfoDialog (_ "N.B.The Denemo display will show notes using prevailing Denemo clef,\nbut they will be typeset in the clef given")) 		(d-SetSaved #f) 		(d-RefreshDisplay)))) "/>
<button label="Set Mensural Key Style" _tooltip="Set this staff to use mensural notation (on/off)" script=";;;;;Key MensuralNotationStaff (let ((tag "MensuralNotationStaff")) (ToggleDirective "keysig" "postfix" tag "\\override Staff.KeySignature.sharp-positions = #'((-5 . 5))\n"))"/>
<button label="Set Mensural Note Style" _tooltip="Set this staff to use mensural notation (on/off)" script=";;;;;Note MensuralNotationStaff (let ((tag "MensuralNotationStaff")) (ToggleDirective "timesig" "postfix" tag " \\autoBeamOff \\override Flag.style = #'mensural \\override NoteHead.style = #'petrucci \\override Rest.style = #'neomensural\n"))"/>
<button label="Whole Measure Rest" _tooltip="Inserts a whole measure rest in mensural notation." script="(let ((tag "MensuralWholeMeasureRest")) (d-Directive-standalone tag) (d-DirectivePut-standalone-prefix tag (string-append "\\hide R1*" (d-GetPrevailingTimesig) " ")) (d-DirectivePut-standalone-postfix tag "-\\tweak #'extra-offset #'(0 . -2.1)^\\markup {\\musicglyph #\"rests.0neomensural\"} ") (d-DirectivePut-standalone-display tag (_ "Mensural Whole Measure Rest")) (d-DirectivePut-standalone-data tag "'((y-offset . \"-2.1\"))") (d-SetDurationInTicks (* 1536 (GetPrevailingTimeSig #t))) (d-DirectivePut-standalone-minpixels tag 30) ;(d-DirectivePut-standalone-allow tag (d-GetLayoutId)) (d-SetSaved #f) (d-RefreshDisplay)) "/>
<button label="No Augmentation Dot" _tooltip="Hides dots on the current chord/rest. Makes it conditional on the current layout." script="(let ((tag "NoDot")) (d-DirectivePut-chord-prefix tag "\\once\\override Dots.dot-count = #0 ") (d-DirectivePut-chord-postfix tag " ") (d-DirectivePut-chord-display tag "No Dot") (d-DirectivePut-chord-allow tag (d-GetLayoutId)) (d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX) (d-SetSaved #f)) "/>
</palette>
<palette _name="Chord Symbols or Fake Chords" row-wise="1" limit="1" dock="0" hidden="1">
<button label="?" _tooltip="Help with chord symbol entry methods." script="(d-InfoDialog "Chord Symbols (or \"fake chords\") can be created in two ways. The first attaches a chord symbol to any note. You have to give the name of the chord required, e.g. C7. This is ok if chord changes only occur on note starts. The other way is to create a voice specially for chords. You can then enter the actual chords as music notation and they will typeset as chord names.")"/>
<button label="Attach by Name" _tooltip="Attach a chord symbol to the note at the cursor position. E.G.cis:dim7 for c-sharp diminished 7th. See Lilypond docs for notation" script="(d-EditChords)"/>
<button label="Chord Symbol Staff" _tooltip="The current staff becomes a chord symbol staff. The music on this staff will be typeset as chord symbols. Normally you will make this staff a voice on the melody staff, so that the chord symbols print on the melody staff." script="(d-ChordStaff)"/>
</palette>
<palette _name="Midi Import" row-wise="1" limit="1" dock="0" hidden="1">
<button label=" ⬅ MIDI" _tooltip="Opens a MIDI file for transcribing. Load each track in turn and insert the MIDI notes by playing the durations." script="(d-GuidedMidiImport)"/>
<button label="<span foreground="red">⬤</span>" _tooltip="Starts playing the score from the playhead start (green marker bar) and simultaneously records your playing from MIDI in. You can stop the playback at any time and then the first MIDI note you entered is marked. Entering duration keys now enters the notes you played into the score. If you have no click track at the top one is created." script="(d-PlayAndRecordMidiIn)"/>
<button label="𝟀 MIDI" _tooltip="Deletes the MIDI that has been imported or recorded via MIDI in." script="(d-DeleteRecordedMidi)"/>
<button label=" 𝄞 c ⬧⬧⬧⬧|⬧⬧⬧⬧|¾⬧⬧⬧|" _tooltip="Creates a staff (a click track) at the top of this score from the imported MIDI using tempo and time signature information (if present). The measures are filled with drum beats so that pitches in the MIDI tracks can be displayed above them. When you have finished the import you can delete this staff." script="(d-CreateClickStaffForMidi)"/>
<button label=" 𝄞 ⬅ 𝄞 𝄞 " _tooltip="Creates a staff below the click track for the MIDI track selected. The staff is empty except for time signature and tempo changes. The MIDI pitches from the track are displayed above the click track and notes can be inserted by double-clicking on a MIDI pitch and entering the rhythm." script="(d-LoadMidiTrack)"/>
<button label="⬆" _tooltip="Creates a staff for the imported MIDI track previous to the current one, making that the current one." script="(d-PreviousMidiTrack)"/>
<button label="⬇" _tooltip="Creates a staff for the next MIDI track after the current one, making that the current one." script="(d-NextMidiTrack)"/>
<button label="&lt;&lt;" _tooltip="The first recorded or imported MIDI note onset in the current track becomes marked so that entered durations will be given its pitch." script="(d-FirstNoteOnset)"/>
<button label="⬛" _tooltip="Removes the mark from the MIDI note onset, so that inserting durations have their normal meaning." script="(d-UnmarkNoteOnset)"/>
<button label="&lt;" _tooltip="Moves the marked MIDI note onset to the one before the current one." script="(d-PreviousNoteOnset)"/>
<button label="&gt;" _tooltip="Moves to the next MIDI note onset in the current recorded or imported MIDI track. Inserted durations will take their pitch from this note." script="(d-NextNoteOnset)"/>
<button label="✔" _tooltip="Inserts the marked MIDI note from the current track, using the duration suggested. Use duration keys to insert the same note with a different duration." script="(d-InsertMarkedMidi)"/>
</palette>
<palette _name="Ties" row-wise="1" limit="4" dock="0" hidden="1">
<button label="<span rise="4000">𝅘𝅥</span>⬄<span rise="4000">𝅘𝅥</span>⌣" _tooltip="Tie/Untie from the note/chord at the cursor - will be ignored by the LilyPond typesetter if next note is not at the same pitch" script="(d-ToggleTie)"/>
<button label="⌢⌒⏝" _tooltip="Gives a choice of shape modifications to make to the following tie." script="(d-TieShape)"/>
<button label="⌣<span rise="4000">𝅘𝅥</span>" _tooltip="The note at the cursor ends a tie that has begun elsewhere, usually in a first time bar. That is it is a repeat of the tie ending." script="(d-RepeatTie)"/>
<button label="<span rise="4000">𝅘𝅥</span>⌣" _tooltip="Places a tie after the note at the cursor, tying to nothing. Use for laissez vibrer or when a tie comes at a final repeat." script="(d-LaissezVibrer)"/>
<button label="Up" _tooltip="Ties to next note, tie upwards, or removes tie." script="(d-ToggleTieUp)"/>
<button label="Down" _tooltip="Ties to the following note/chord with tie downwards." script="(d-ToggleTieDown)"/>
<button label="Note Auto" _tooltip="Ties the note at the cursor leaving other notes in the current chord unchanged." script="(d-ToggleNoteTie)"/>
<button label="Note Up" _tooltip="Ties the individual note in a chord the tie being above; repeat command to remove." script="(d-ToggleNoteUpTie)"/>
<button label="Note Down" _tooltip="Ties the individual note at the cursor the tie going down; repeat to remove." script="(d-ToggleNoteDownTie)"/>
<button label="Fix Slur/Tie" _tooltip="Corrects for the slur/tie error common in imported scores. Scans entire score for pairs of identical notes slurred together as a pair. Changes these to a tied note. Do not use in the unusual case of identical notes slurred (e.g. across strings)." script="(d-ConvertIncorrectSlursToTies)"/>
</palette>
<palette _name="Custom Ornaments" row-wise="1" limit="1" dock="0" hidden="1">
<button label="Create/Load" _tooltip="Allows the user to create a customized ornament (or load one previously created) into this score's definitions. Ornament names should be start in lower case and have no numerals. If a standard ornament is used, e.g. trill, then this will replace the standard ornament throughout the score." script="(d-CustomOrnamentDefinition)"/>
<button label="Edit" _tooltip="Edit the definition (size or appearance) of a custom ornament definition. The definition must already have been created in this score." script="(d-EditCustomOrnamentDefinition)"/>
<button label="Attach (Off/On)" _tooltip="Typesets a custom ornament on the current note/chord. Removes that ornament if already present." script="(d-ToggleCustomOrnament)"/>
<button label="Insert" _tooltip="Inserts an ornament (or other LilyPond Definition) as a separate object (it will appear on the previous note)" script="(d-InsertDefinedLilyPond)"/>
</palette>
<palette _name="Chord Charts" row-wise="0" limit="2" dock="0" hidden="1">
<button label="Chord Chart Staff" _tooltip="Prints Chord symbols separated by bar lines. Repeats, time signatures and text are also printed for this staff." script=";;CompactChordChart (d-ChordChartStaff 'compact) (d-SelectPalette (_ "Chord Inserts")) ((RadioBoxMenu (cons (_ "Use keys a,b,c ..g to move cursor") (lambda () (d-AddKeybinding "JumpUpOctave" "apostrophe") (d-AddKeybinding "JumpDownOctave" "comma") (d-NumbersSelectDuration) (d-NoteNamesMove))) (cons (_ "Leave keyboard shortcuts unchanged") (lambda () (disp "unchanged")))))"/>
<button label="Create Special Barline" _tooltip="Create a custom barline. These can be named, or can simply override a standard LilyPond bar line type. A bar line is defined by four forms, which describe 1) the appearance normally (during a line), 2) appearance when the barline is at the beginning or 3) end of a line , and 4) what to show when joining staffs together as with a Piano Staff. Barline forms are made of characters including |,:,.,[,],: and others in the LilyPond documentation." script="(d-CustomBarline)"/>
<button label="Special Barline" _tooltip="Insert a previously created barline. (Any other LilyPond definitions - see Score->LilyPond Definition - are here too)." script="(d-InsertDefinedLilyPond)"/>
<button label="Line Break" _tooltip="Start a new line at this measure." script="(d-LineBreak #t)"/>
<button label="Whole Measure Repeat" _tooltip="Inserts a whole measure repeat sign." script="(d-WholeMeasureRepeat)"/>
<button label="Change Chord Size" _tooltip="Typeset the chord at the cursor larger or smaller than normal." script=";;;CompactChordScale (let* ((tag "CompactChordScale")(scalex "2.0") (scaley "2.0") (data (d-DirectiveGet-standalone-data tag))) (if data (begin (d-DirectiveDelete-standalone tag) (set! data (eval-string data)) (set! scalex (car data)) (set! scaley (cdr data)))) (set! scalex (d-GetUserInput (_ "Chord Symbol Scale") (_ "Give horizontal scaling for next chord") scalex)) (if scalex (begin (set! scaley (d-GetUserInput (_ "Chord Symbol Scale") (_ "Give vertical scaling for next chord") scaley)) (if scaley (begin (d-DirectivePut-standalone tag) (d-DirectivePut-standalone-postfix tag (string-append "\\once \\set Score.chordCompactScale = #'(" scalex " . " scaley ") ")) (d-DirectivePut-standalone-display tag "Scale") (d-DirectivePut-standalone-data tag (format #f "'~s" (cons scalex scaley))) (d-DirectivePut-standalone-minpixels tag 30) (d-SetSaved #f) (d-RefreshDisplay))))))"/>
<button label="Offset Chord" _tooltip="Offsets the Chord symbol generated by the chord at the cursor." script="(d-ChordNameOffset)"/>
<button label="Add Bass Inversion" _tooltip="Adds a bass note to a chord, while keeping the current lowest note as the root of the chord. Use this on Chord Symbol staffs to create an inversion of the chord entered." script="(d-AddBassInversion)"/>
<button label="Flatten Next Bass Note" _tooltip="Use in appending position to flatten the bass note of the next chord (extra to what it would be)." script="(d-FlattenNote)"/>
<button label="Sharpen Next Bass Note" _tooltip="Use in appending position to sharpen the bass note of the next chord (extra to what it would be)." script="(d-SharpenNote)"/>
<button label=" 𝅝" _tooltip="Set the prevailing duration to 𝅝 (subsequent chords entered will have this duration)" script="(d-Set0)"/>
<button label="𝅗𝅥" _tooltip="Set the prevailing duration to 𝅗𝅥 (subsequent chords entered will have this duration)" script="(d-Set1)"/>
<button label="𝅘𝅥" _tooltip="Set the prevailing duration to 𝅘𝅥 (subsequent chords entered will have this duration)" script="(d-Set2)"/>
<button label="/" _tooltip="Insert a repeated chord sign." script="(d-InsertQuarterRest)"/>
<button label="Section Mark" _tooltip="Inserts an arbitrary mark in the score at the cursor. Any size, font, effect can be chosen. The text position can be dragged in the print view if needed. Avoid placing one at the start as it clashes with the time signature - place it after the first note and drag it into position." script="(d-MultiLineTextAnnotation (list (cons 'dimensions "0.5")(cons 'scale "1.5") (cons 'text "\\bold \\box \"A\"")))"/>
<button label="Fix Number of Lines" _tooltip="Specify the number of lines you want on the page." script="(d-SystemsPerPage)"/>
<button label="Insert Whole Measure Spacer" _tooltip="Inserts a non-printing whole measure after the current measure with a directive to omit the barline. This gives a one measure spacer." script="(d-WholeMeasureSpacer)"/>
<button label="Fret Diagram" _tooltip="Creates a dialog for you to enter a description of the fret diagram to be typeset at the cursor position." script="(d-FretDiagram) (d-FretDiagram (assq-set! '() 'dimensions 0.5))"/>
<button label="Alternate Chord" _tooltip="Turn the chord at the cursor into an alternate chord, typeset above and colored. This appears in the display as small notes (a grace note). Edit the position with the offset chord button." script="(if (Chord?) 	(begin 		(d-ChordNameOffset '(3 . 6)) 		(d-MakeGrace) 		(d-ColorChordSymbol (list 0.6 0.0 0.0)) 		(d-CompactChordScale '(2 . 2))))"/>
<button label="Space Below Title" _tooltip="Inserts blank space above the movement." script="(d-InsertSpaceBeforeMovement)"/>
</palette>
<palette _name="Playback" row-wise="0" limit="1" dock="0" hidden="1">
<button label="Mute/UnMute Staff" _tooltip="Mutes the current staff. Affects only playback." script="(d-MuteStaff)"/>
<button label="Play/Pause" _tooltip="Playback from start marker to end marker (Set these markers in the playback controls)" script="(d-Play)"/>
<button label="Stop" _tooltip="Stop Playback" script="(d-Stop)"/>
<button label="Play Selection" _tooltip="Plays all staffs for the duration of the selection or from the current cursor position to the end of the movement if no selection." script="(if (d-HasSelection) 	(begin 		(DenemoSetPlaybackIntervalToSelection) 		(d-Play)) 	(d-DenemoPlayCursorToEnd))"/>
</palette>
<palette _name="Gregorian Chant" row-wise="1" limit="1" dock="1" hidden="1">
<button label="New" _tooltip="Starts a new Gregorian score." script="(if (d-New) 	(d-OpenTemplate "EarlyMusic/GregorianChant.denemo")) "/>
<button label="Do1" _tooltip="Inserts a Do1 clef." script="(let ((tag "Vaticana")) (d-InitialClef "Alto") (d-DirectivePut-clef-postfix tag "\\clef \"vaticana-do1\" ") (d-DirectivePut-clef-graphic tag "  Emmentaler 80") (d-DirectivePut-clef-override tag (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_LILYPOND)) (d-DirectivePut-clef-gy tag 20) (d-SetSaved #f))"/>
<button label="Do2" _tooltip="Inserts a Do2 clef." script="(let ((tag "Vaticana")) (d-InitialClef "Tenor") (d-DirectivePut-clef-postfix tag "\\clef \"vaticana-do2\" ") (d-DirectivePut-clef-graphic tag "  Emmentaler 80") (d-DirectivePut-clef-override tag (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_LILYPOND)) (d-DirectivePut-clef-gy tag 10) (d-SetSaved #f))"/>
<button label="Do3" _tooltip="Inserts a Do3 clef." script="(let ((tag "Vaticana")) (d-InitialClef "Baritone") (d-DirectivePut-clef-postfix tag "\\clef \"vaticana-do3\" ") (d-DirectivePut-clef-graphic tag "  Emmentaler 80") (d-DirectivePut-clef-override tag (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_LILYPOND)) (d-DirectivePut-clef-gy tag 0) (d-SetSaved #f))"/>
<button label="Fa1" _tooltip="Inserts a Fa1 clef." script="(let ((tag "Vaticana")) (d-InitialClef "Baritone") (d-DirectivePut-clef-postfix tag "\\clef \"vaticana-fa1\" ") (d-DirectivePut-clef-graphic tag "  Emmentaler 80") (d-DirectivePut-clef-override tag (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_LILYPOND)) (d-DirectivePut-clef-gy tag 20) (d-SetSaved #f))"/>
<button label="Fa2" _tooltip="Inserts a Fa2 clef." script="(let ((tag "Vaticana")) (d-InitialClef "Bass") (d-DirectivePut-clef-postfix tag "\\clef \"vaticana-fa2\" ") (d-DirectivePut-clef-graphic tag "  Emmentaler 80") (d-DirectivePut-clef-override tag (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_LILYPOND)) (d-DirectivePut-clef-gy tag 10) (d-SetSaved #f))"/>
<button label="Begin Melisma " _tooltip="Inserts (or deletes) a melisma start." script=";;;ToggleMelisma (let ((tag "ToggleMelisma")) (ToggleDirective "chord" "postfix" (cons tag "(mel") "\\melisma " DENEMO_OVERRIDE_AFFIX))"/>
<button label="End Melisma" _tooltip="Inserts (or deletes) a melisma end." script=";;;ToggleMelismaEnd (let ((tag "ToggleMelismaEnd")) (ToggleDirective "chord" "postfix" (cons tag "mel)") "\\melismaEnd " DENEMO_OVERRIDE_AFFIX))"/>
<button label="\[" _tooltip="Starts a ligature." script="(d-LigatureStart)"/>
<button label="\]" _tooltip="Ends a ligature." script="(d-LigatureEnd)"/>
<button label="Flexa" _tooltip="Inserts (or deletes) a flexa." script="(let ((tag "Flexa")) (if (d-Directive-chord? tag) 	(begin ; a flexa directive already exists -> delete it 	(disp "Deleting existing flexa ...") 	(disp "Cursor is at flexa " (d-DirectiveGet-chord-data tag)) 	(if (d-DirectiveGet-chord-data tag) ; if it's the start of a flexa 		(begin 			(disp "Deleting felxa from start") 			(d-DirectiveDelete-chord tag) 			(d-NextChord) 			(d-DirectiveDelete-chord tag)) 		(begin ; if it's the end of a flexa 			(disp "Deleting flexa from end") 			(d-DirectiveDelete-chord tag) 			(d-PrevChord) 			(d-DirectiveDelete-chord tag)))) 	(begin ; no Flexa directive exists yet -> create a flexa 	(disp "Creating a flexa ...") 	(if (and (not (d-HasSelection)) (d-PrevChord)) 		(begin 			(d-SetMark) 			(d-NextChord) 			(d-SetPoint))) 	(if (MoveToSelectionBeginningInThisStaff) 		(begin 			(d-DirectivePut-chord-prefix tag "\\[ ") 			(d-DirectivePut-chord-postfix tag "\\flexa ") 			(d-DirectivePut-chord-display tag "fl--") 			(d-DirectivePut-chord-override tag 16) 			(d-DirectivePut-chord-data tag "'start") 			(if (d-NextChord) 				(begin 					(d-DirectivePut-chord-postfix tag "\\] ") 					(d-DirectivePut-chord-display tag "--]") 					(d-DirectivePut-chord-override tag 16))) 			(d-MoveCursorRight) 			(d-SetSaved #f)) 		(d-WarningDialog (_ "You must select two notes"))))))"/>
<button label="Pes" _tooltip="Inserts (or deletes) a pes." script="(let ((tag "Pes")) (if (d-Directive-chord? tag) 	(begin ; a flexa directive already exists -> delete it 	(if (d-DirectiveGet-chord-data tag) ; if it's the start of a pes 		(begin 			(d-DirectiveDelete-chord tag) 			(d-NextChord) 			(d-DirectiveDelete-chord tag)) 		(begin ; if it's the end of a pes 			(d-DirectiveDelete-chord tag) 			(d-PrevChord) 			(d-DirectiveDelete-chord tag)))) 	(begin ; no pes directive exists yet -> create one 	(if (and (not (d-HasSelection)) (d-PrevChord)) 		(begin 			(d-SetMark) 			(d-NextChord) 			(d-SetPoint))) 	(if (MoveToSelectionBeginningInThisStaff) 		(begin 			(d-DirectivePut-chord-prefix tag "\\[ ") 			(d-DirectivePut-chord-postfix tag "\\pes ") 			(d-DirectivePut-chord-display tag "p--") 			(d-DirectivePut-chord-override tag 16) 			(d-DirectivePut-chord-data tag "'start") 			(if (d-NextChord) 				(begin 					(d-DirectivePut-chord-postfix tag "\\] ") 					(d-DirectivePut-chord-display tag "--]") 					(d-DirectivePut-chord-override tag 16))) 			(d-MoveCursorRight) 			(d-SetSaved #f)) 		(d-WarningDialog (_ "You must select two notes"))))))"/>
<button label="Ictus" _tooltip="Inserts (or deletes) an ictus." script=";;;ToggleIctus (let ((tag "ToggleIctus")) (ToggleDirective "chord" "postfix" (cons tag "'") "\\ictus " DENEMO_OVERRIDE_AFFIX))"/>
<button label="Episem Initium" _tooltip="Inserts (or deletes) an episem initium." script=";;;ToggleEpisemInitium (let ((tag "ToggleEpisemInitium")) (ToggleDirective "chord" "postfix" (cons tag "[episem") "\\episemInitium " DENEMO_OVERRIDE_AFFIX))"/>
<button label="Episem Finis" _tooltip="Inserts (or deletes) an episem finis." script=";;;ToggleEpisemFinis (let ((tag "ToggleEpisemFinis")) (ToggleDirective "chord" "postfix" (cons tag "episem]") "\\episemFinis " DENEMO_OVERRIDE_AFFIX))"/>
<button label="Augmentum" _tooltip="Inserts (or deletes) an augmentum dot." script=";;;ToggleAugmentum (let ((tag "ToggleAugmentum")) (ToggleDirective "chord" "prefix" (cons tag ".") "\\augmentum " DENEMO_OVERRIDE_AFFIX))"/>
<button label="'" _tooltip="Inserts a Divisio Minor." script="(let ((tag "DivisioMinima")) (d-Directive-standalone tag) (d-DirectivePut-standalone-minpixels tag 10) (d-DirectivePut-standalone-override tag DENEMO_OVERRIDE_GRAPHIC) (d-DirectivePut-standalone-gy tag -25) (d-DirectivePut-standalone-graphic tag " ❙ Denemo 20") (d-DirectivePut-standalone-postfix tag " s \\divisioMinima") (if (Appending?) 	(d-AddMeasure) 	(d-SplitMeasure)) (d-RefreshDisplay) (d-MoveCursorRight))"/>
<button label="⃓" _tooltip="Inserts a Divisio Maior." script="(let ((tag "DivisioMaior")) (d-Directive-standalone tag) (d-DirectivePut-standalone-postfix tag " s \\divisioMaior") (d-DirectivePut-standalone-graphic tag " 𝄀 Denemo 26 bold") (d-DirectivePut-standalone-minpixels tag 10) (d-DirectivePut-standalone-override tag DENEMO_OVERRIDE_GRAPHIC) (d-DirectivePut-standalone-gy tag 3) (if (Appending?) 	(d-AddMeasure) 	(d-SplitMeasure)) (d-SetSaved #f) (d-RefreshDisplay))"/>
<button label="|" _tooltip="Inserts a Divisio Maxima." script="(let ((tag "DivisioMaxima")) (d-Directive-standalone tag) (d-DirectivePut-standalone-postfix tag " s \\divisioMaxima") (d-DirectivePut-standalone-graphic tag " ⃒⃒ Denemo 44 bold") (d-DirectivePut-standalone-minpixels tag 10) (d-DirectivePut-standalone-override tag DENEMO_OVERRIDE_GRAPHIC) (d-DirectivePut-standalone-gy tag 9) (if (Appending?) 	(d-AddMeasure) 	(d-SplitMeasure)) (d-SetSaved #f) (d-RefreshDisplay))"/>
<button label="||" _tooltip="Inserts a finalis." script="(let ((tag "Finalis")) (d-Directive-standalone tag) (d-DirectivePut-standalone-postfix tag " s \\finalis") (d-DirectivePut-standalone-graphic tag " ‖ Denemo 44 bold") (d-DirectivePut-standalone-minpixels tag 10) (d-DirectivePut-standalone-override tag DENEMO_OVERRIDE_GRAPHIC) (d-DirectivePut-standalone-gy tag 9) (if (Appending?) 	(d-AddMeasure) 	(d-SplitMeasure)) (d-SetSaved #f) (d-RefreshDisplay))"/>
</palette>
<palette _name="Insert or Append Chords" row-wise="1" limit="4" dock="0" hidden="1">
<button label="M" _tooltip="c e g" script="(DenemoInsertChordTransposed "c' e' g'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -5) (d-DirectivePut-chord-graphic "ChordName" " M Denemo 16") (d-MoveCursorRight)"/>
<button label="m" _tooltip="c e♭ g" script="(DenemoInsertChordTransposed "a' c'' e''" 'a') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -5) (d-DirectivePut-chord-graphic "ChordName" " m Denemo 16") (d-MoveCursorRight)"/>
<button label="6" _tooltip="c e g a" script="(DenemoInsertChordTransposed "c' e' g' a'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -5) (d-DirectivePut-chord-graphic "ChordName" " 6 Denemo 16") (d-MoveCursorRight)"/>
<button label="7" _tooltip="c e g b♭" script="(DenemoInsertChordTransposed "c' e' g' bes'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -5) (d-DirectivePut-chord-graphic "ChordName" " 7 Denemo 16") (d-MoveCursorRight)"/>
<button label="M7" _tooltip="c e g b" script="(DenemoInsertChordTransposed "c' e' g' b'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " M7 Denemo 16") (d-MoveCursorRight)"/>
<button label="7b5" _tooltip="c e g♭ b♭" script="(DenemoInsertChordTransposed "c' e' ges' bes'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " 7♭5 Denemo 16") (d-MoveCursorRight)"/>
<button label="m6" _tooltip="c e♭ g a" script="(DenemoInsertChordTransposed "a' c'' e'' fis''" 'a') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " m6 Denemo 16") (d-MoveCursorRight)"/>
<button label="m7" _tooltip="c e♭ g b♭" script="(DenemoInsertChordTransposed "a' c'' e'' g''" 'a') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " m7 Denemo 16") (d-MoveCursorRight)"/>
<button label="o7" _tooltip="c e♭ g♭ b𝄫" script="(DenemoInsertChordTransposed "a' c'' ees'' ges''" 'a') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " o7 Denemo 16") (d-MoveCursorRight)"/>
<button label="Ø" _tooltip="c e♭ g♭ b♭" script="(DenemoInsertChordTransposed "a' c'' ees'' g''" 'a') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " Ø Denemo 16") (d-MoveCursorRight)"/>
<button label="69" _tooltip="c e a d'" script="(d-UseAddPrefix "") (d-MoveCursorRight) (DenemoInsertChordTransposed "c' e' a' d''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " 69 Denemo 16") (d-MoveCursorRight)"/>
<button label="9" _tooltip="c e g b♭ d'" script="(DenemoInsertChordTransposed "c' e' g' bes' d''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -5) (d-DirectivePut-chord-graphic "ChordName" " 9 Denemo 16") (d-MoveCursorRight)"/>
<button label="7b9" _tooltip="c e g b♭ d♭'" script="(DenemoInsertChordTransposed "c' e' g' bes' des''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " 7♭9 Denemo 16") (d-MoveCursorRight)"/>
<button label="7#9" _tooltip="c e g b♭ d♯'" script="(DenemoInsertChordTransposed "c' e' g' bes' dis''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " 7#9 Denemo 16") (d-MoveCursorRight)"/>
<button label="11" _tooltip="c e g b♭ d' f'" script="(DenemoInsertChordTransposed "c' e' g' bes' d'' f''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " 11 Denemo 16") (d-MoveCursorRight)"/>
<button label="7#11" _tooltip="c e g b♭ d' f♯'" script="(DenemoInsertChordTransposed "c' e' g' bes' d'' fis''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " 7#11 Denemo 16") (d-MoveCursorRight)"/>
<button label="13" _tooltip="c e g b♭ d' f' a'" script="(DenemoInsertChordTransposed "c' e' g' bes' d'' f'' a''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " 13 Denemo 16") (d-MoveCursorRight)"/>
<button label="7b13" _tooltip="c e g b♭ d' f' a♭'" script="(DenemoInsertChordTransposed "c' e' g' bes' d'' f'' aes''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " 7♭13 Denemo 16") (d-MoveCursorRight)"/>
<button label="7#5" _tooltip="c e g♯ b♭" script="(DenemoInsertChordTransposed "c' e' gis' bes'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " 7#5 Denemo 16") (d-MoveCursorRight)"/>
<button label="7sus" _tooltip="c f b♭" script="(DenemoInsertChordTransposed "c' f' bes'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -20) (d-DirectivePut-chord-graphic "ChordName" " 7sus Denemo 16") (d-MoveCursorRight)"/>
<button label="m9" _tooltip="c e♭ b♭ d'" script="(DenemoInsertChordTransposed "c' ees' bes' d''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -10) (d-DirectivePut-chord-graphic "ChordName" " m9 Denemo 16") (d-MoveCursorRight)"/>
<button label="m11" _tooltip="c e♭ g b♭ d' f'" script="(DenemoInsertChordTransposed "c' ees' g' bes' d'' f''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " m11 Denemo 16") (d-MoveCursorRight)"/>
<button label="m13" _tooltip="c e♭ g b♭ d' f' a'" script="(DenemoInsertChordTransposed "c' ees' g' bes' d'' f'' a''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " m13 Denemo 16") (d-MoveCursorRight)"/>
<button label="m7b9" _tooltip="c e♭ g b♭ d♭'" script="(DenemoInsertChordTransposed "c' ees' g' bes' des''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -20) (d-DirectivePut-chord-graphic "ChordName" " m7♭9 Denemo 16") (d-MoveCursorRight)"/>
<button label="mM7" _tooltip="c e♭ g b" script="(DenemoInsertChordTransposed "c' ees' g' b'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -15) (d-DirectivePut-chord-graphic "ChordName" " mM7 Denemo 16") (d-MoveCursorRight)"/>
<button label="o" _tooltip="c e♭ g♭" script="(DenemoInsertChordTransposed "c' ees' ges'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -5) (d-DirectivePut-chord-graphic "ChordName" " o Denemo 16") (d-MoveCursorRight)"/>
<button label="+" _tooltip="c e g♯" script="(DenemoInsertChordTransposed "c' e' gis'" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -5) (d-DirectivePut-chord-graphic "ChordName" " + Denemo 16") (d-MoveCursorRight)"/>
<button label="add9" _tooltip="c e g d'" script="(d-UseAddPrefix) (d-MoveCursorRight) (DenemoInsertChordTransposed "c' e' g' d''" 'c') (d-DirectivePut-chord-display "ChordName" (DenemoGetNoteAndAccidental)) (d-DirectivePut-chord-gx "ChordName" -5) (d-DirectivePut-chord-graphic "ChordName" " add9 Denemo 16") (d-MoveCursorRight)"/>
</palette>
</Denemo>
|
