I have now succeeded to make Denemo typeset the Gregorian chant as I
want it, see attachement. I have also attached the scheme scripts I have
written for that purpose. For some directives (e.g. episemInitium,
episemFinis), the order you apply them does matter. My main concern was
that the print output is correct, I did not care much about the Denemo
display. What does not work is, e.g., that the correct graphics are
shown in the Denemo display for divisio minima, divisio maior, divisio
maxima, finalis. (I have created the SVG graphics similar to those for
the barline commands, see attachement.)
Andreas
<?xml version="1.0" encoding="UTF-8"?>
<score xmlns="http://denemo.org/xmlns/Denemo"; version="8">
<thumbnail>
<first-staff>1</first-staff>
<last-staff>3</last-staff>
<first-measure>1</first-measure>
<last-measure>3</last-measure>
<first-obj>0</first-obj>
<last-obj>2147483647</last-obj>
</thumbnail>
<lilycontrol>
<papersize>a4</papersize>
<fontsize>18</fontsize>
<orientation>1</orientation>
<total-edit-time>1742</total-edit-time>
<score-directives>
<directive>
<tag>LilyPondInclude</tag>
<prefix>\include "gregorian.ly"
</prefix>
<display>Included LilyPond Files</display>
<data>'("gregorian.ly")</data>
<override>268435472</override>
</directive>
</score-directives>
</lilycontrol>
<movement-number>1</movement-number>
<movement>
<edit-info>
<staffno>1</staffno>
<measureno>1</measureno>
<cursorposition>0</cursorposition>
<tonalcenter>0</tonalcenter>
<zoom>100</zoom>
<system-height>100</system-height>
<page-zoom>100</page-zoom>
<page-system-height>100</page-system-height>
<measure-width>480</measure-width>
</edit-info>
<score-info>
<tempo>
<duration>
<numerator>1</numerator>
<denominator>4</denominator>
</duration>
<bpm>120</bpm>
</tempo>
</score-info>
<staves>
<staff id="id0"></staff>
</staves>
<voices>
<voice id="id1">
<voice-info>
<voice-name>Cantus</voice-name>
<first-measure-number>1</first-measure-number>
</voice-info>
<initial-voice-params>
<staff-ref staff="id0"></staff-ref>
<clef name="bass"></clef>
<key-signature>
<modal-key-signature note-name="C" mode="major"></modal-key-signature>
</key-signature>
<time-signature>
<simple-time-signature>
<numerator>4</numerator>
<denominator>4</denominator>
</simple-time-signature>
</time-signature>
</initial-voice-params>
<voice-props>
<number-of-lines>5</number-of-lines>
<voice-control>1</voice-control>
<transpose>0</transpose>
<instrument></instrument>
<device-port>NONE</device-port>
<volume>127</volume>
<override_volume>0</override_volume>
<mute>0</mute>
<midi_prognum>0</midi_prognum>
<midi_channel>0</midi_channel>
<hasfigures>0</hasfigures>
<hasfakechords>0</hasfakechords>
<verses>
<verse>Da pa -- cem Do -- mi -- ne in di -- e -- bus no -- stris:
qui -- a non est a -- li -- us qui pu -- gnet pro no -- bis,
ni -- si tu De -- us no -- ster.</verse>
</verses>
<staff-directives>
<directive>
<tag>VaticanaStaff</tag>
<postfix> \new VaticanaVoice = "MvmntIVoiceI" <<
</postfix>
<display>VaticanaStaff</display>
<override>5</override>
</directive>
<directive>
<tag>ChordVariant</tag>
<postfix>\override Staff.StaffSymbol.color = #(x11-color 'black)</postfix>
<display>black</display>
<data>black</data>
<override>4</override>
</directive>
</staff-directives>
<voice-directives>
<directive>
<tag>VaticanaStaff</tag>
<postfix>
</postfix>
<display>VaticanaStaff</display>
<override>5</override>
</directive>
</voice-directives>
</voice-props>
<measures>
<measure>
<lily-directive>
<tag>ClefChooser</tag>
<postfix>\clef "vaticana-fa2" </postfix>
<graphic_name>
C
Denemo
24</graphic_name>
<minpixels>50</minpixels>
</lily-directive>
<time-signature>
<simple-time-signature>
<numerator>256</numerator>
<denominator>1</denominator>
</simple-time-signature>
<directives>
<directive>
<tag>CadenzaTime</tag>
<postfix>\cadenzaOn </postfix>
<display>Cadenza</display>
<graphic_name>
T
Serif
40
bold
italic</graphic_name>
<gy>35</gy>
<override>5</override>
</directive>
</directives>
</time-signature>
<lily-directive>
<tag>LigatureStart</tag>
<postfix>\[ </postfix>
<display>Ligature Start</display>
<graphic_name>
[
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id2">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelisma</tag>
<postfix>\melisma </postfix>
<display>(mel</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id3">
<middle-c-offset>-6</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id4">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelismaEnd</tag>
<postfix>\melismaEnd </postfix>
<display>mel)</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id5">
<middle-c-offset>-6</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureEnd</tag>
<postfix>\] </postfix>
<display>Ligature End</display>
<graphic_name>
]
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id6">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleIctus</tag>
<postfix>\ictus </postfix>
<display>'</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id7">
<middle-c-offset>-7</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id8">
<duration base="quarter"></duration>
<notes>
<note id="id9">
<middle-c-offset>-6</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id10">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleIctus</tag>
<postfix>\ictus </postfix>
<display>'</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id11">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id12">
<duration base="quarter"></duration>
<notes>
<note id="id13">
<middle-c-offset>-3</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id14">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleAugmentum</tag>
<prefix>\augmentum </prefix>
<display>.</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id15">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>DivisioMinima</tag>
<postfix>\divisioMinima</postfix>
<display>\divisioMinima</display>
<minpixels>30</minpixels>
<override>4</override>
</lily-directive>
</measure>
<measure>
<chord show="true" id="id16">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleIctus</tag>
<postfix>\ictus </postfix>
<display>'</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id17">
<middle-c-offset>-5</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id18">
<duration base="quarter"></duration>
<notes>
<note id="id19">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id20">
<duration base="quarter"></duration>
<notes>
<note id="id21">
<middle-c-offset>-3</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureStart</tag>
<postfix>\[ </postfix>
<display>Ligature Start</display>
<graphic_name>
[
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id22">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleFlexa</tag>
<postfix>\flexa </postfix>
<display>flexa</display>
<override>16</override>
</directive>
<directive>
<tag>ToggleMelisma</tag>
<postfix>\melisma </postfix>
<display>(mel</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id23">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id24">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelismaEnd</tag>
<postfix>\melismaEnd </postfix>
<display>mel)</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id25">
<middle-c-offset>-5</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureEnd</tag>
<postfix>\] </postfix>
<display>Ligature End</display>
<graphic_name>
]
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id26">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleAugmentum</tag>
<prefix>\augmentum </prefix>
<display>.</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id27">
<middle-c-offset>-6</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id28">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleAugmentum</tag>
<prefix>\augmentum </prefix>
<display>.</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id29">
<middle-c-offset>-6</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>DivisioMaior</tag>
<postfix>\divisioMaior</postfix>
<display>\divisioMaior</display>
<minpixels>30</minpixels>
<override>4</override>
</lily-directive>
</measure>
<measure>
<chord show="true" id="id30">
<duration base="quarter"></duration>
<notes>
<note id="id31">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id32">
<duration base="quarter"></duration>
<notes>
<note id="id33">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureStart</tag>
<postfix>\[ </postfix>
<display>Ligature Start</display>
<graphic_name>
[
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id34">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleFlexa</tag>
<postfix>\flexa </postfix>
<display>flexa</display>
<override>16</override>
</directive>
<directive>
<tag>ToggleMelisma</tag>
<postfix>\melisma </postfix>
<display>(mel</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id35">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id36">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelismaEnd</tag>
<postfix>\melismaEnd </postfix>
<display>mel)</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id37">
<middle-c-offset>-5</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureEnd</tag>
<postfix>\] </postfix>
<display>Ligature End</display>
<graphic_name>
]
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id38">
<duration base="quarter"></duration>
<notes>
<note id="id39">
<middle-c-offset>-6</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id40">
<duration base="quarter"></duration>
<notes>
<note id="id41">
<middle-c-offset>-5</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id42">
<duration base="quarter"></duration>
<notes>
<note id="id43">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureStart</tag>
<postfix>\[ </postfix>
<display>Ligature Start</display>
<graphic_name>
[
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id44">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelisma</tag>
<postfix>\melisma </postfix>
<display>(mel</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id45">
<middle-c-offset>-3</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id46">
<duration base="quarter"></duration>
<notes>
<note id="id47">
<middle-c-offset>-2</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id48">
<duration base="quarter"></duration>
<notes>
<note id="id49">
<middle-c-offset>-3</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id50">
<duration base="quarter"></duration>
<notes>
<note id="id51">
<middle-c-offset>-2</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id52">
<duration base="quarter"></duration>
<notes>
<note id="id53">
<middle-c-offset>-1</middle-c-offset>
<accidental name="flat" show="true"></accidental>
</note>
</notes>
</chord>
<chord show="true" id="id54">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelismaEnd</tag>
<postfix>\melismaEnd </postfix>
<display>mel)</display>
<override>16</override>
</directive>
<directive>
<tag>ToggleAugmentum</tag>
<prefix>\augmentum </prefix>
<display>.</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id55">
<middle-c-offset>-2</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureEnd</tag>
<postfix>\] </postfix>
<display>Ligature End</display>
<graphic_name>
]
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<lily-directive>
<tag>DivisioMinima</tag>
<postfix>\divisioMinima</postfix>
<display>\divisioMinima</display>
<minpixels>30</minpixels>
<override>4</override>
</lily-directive>
</measure>
<measure>
<chord show="true" id="id56">
<duration base="quarter"></duration>
<notes>
<note id="id57">
<middle-c-offset>-2</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id58">
<duration base="quarter"></duration>
<notes>
<note id="id59">
<middle-c-offset>-2</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id60">
<duration base="quarter"></duration>
<notes>
<note id="id61">
<middle-c-offset>-3</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id62">
<duration base="quarter"></duration>
<notes>
<note id="id63">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureStart</tag>
<postfix>\[ </postfix>
<display>Ligature Start</display>
<graphic_name>
[
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id64">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelisma</tag>
<postfix>\melisma </postfix>
<display>(mel</display>
<override>16</override>
</directive>
<directive>
<tag>TogglePes</tag>
<postfix>\pes </postfix>
<display>pes</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id65">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id66">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelismaEnd</tag>
<postfix>\melismaEnd </postfix>
<display>mel)</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id67">
<middle-c-offset>-3</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureEnd</tag>
<postfix>\] </postfix>
<display>Ligature End</display>
<graphic_name>
]
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id68">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleAugmentum</tag>
<prefix>\augmentum </prefix>
<display>.</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id69">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>DivisioMinima</tag>
<postfix>\divisioMinima</postfix>
<display>\divisioMinima</display>
<minpixels>30</minpixels>
<override>4</override>
</lily-directive>
</measure>
<measure>
<chord show="true" id="id70">
<duration base="quarter"></duration>
<notes>
<note id="id71">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id72">
<duration base="quarter"></duration>
<notes>
<note id="id73">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureStart</tag>
<postfix>\[ </postfix>
<display>Ligature Start</display>
<graphic_name>
[
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id74">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleEpisemInitium</tag>
<postfix>\episemInitium </postfix>
<display>[episem</display>
<override>16</override>
</directive>
<directive>
<tag>ToggleMelisma</tag>
<postfix>\melisma </postfix>
<display>(mel</display>
<override>16</override>
</directive>
<directive>
<tag>TogglePes</tag>
<postfix>\pes </postfix>
<display>pes</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id75">
<middle-c-offset>-5</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id76">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleEpisemFinis</tag>
<postfix>\episemFinis </postfix>
<display>episem]</display>
<override>16</override>
</directive>
<directive>
<tag>ToggleMelismaEnd</tag>
<postfix>\melismaEnd </postfix>
<display>mel)</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id77">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureEnd</tag>
<postfix>\] </postfix>
<display>Ligature End</display>
<graphic_name>
]
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id78">
<duration base="quarter"></duration>
<notes>
<note id="id79">
<middle-c-offset>-3</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureStart</tag>
<postfix>\[ </postfix>
<display>Ligature Start</display>
<graphic_name>
[
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id80">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleFlexa</tag>
<postfix>\flexa </postfix>
<display>flexa</display>
<override>16</override>
</directive>
<directive>
<tag>ToggleMelisma</tag>
<postfix>\melisma </postfix>
<display>(mel</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id81">
<middle-c-offset>-4</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id82">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleMelismaEnd</tag>
<postfix>\melismaEnd </postfix>
<display>mel)</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id83">
<middle-c-offset>-5</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>LigatureEnd</tag>
<postfix>\] </postfix>
<display>Ligature End</display>
<graphic_name>
]
Denemo
40</graphic_name>
<minpixels>30</minpixels>
<gy>10</gy>
</lily-directive>
<chord show="true" id="id84">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleAugmentum</tag>
<prefix>\augmentum </prefix>
<display>.</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id85">
<middle-c-offset>-6</middle-c-offset>
</note>
</notes>
</chord>
<chord show="true" id="id86">
<duration base="quarter"></duration>
<directives>
<directive>
<tag>ToggleAugmentum</tag>
<prefix>\augmentum </prefix>
<display>.</display>
<override>16</override>
</directive>
</directives>
<notes>
<note id="id87">
<middle-c-offset>-6</middle-c-offset>
</note>
</notes>
</chord>
<lily-directive>
<tag>Finalis</tag>
<postfix>\finalis</postfix>
<display>\finalis</display>
<minpixels>30</minpixels>
<override>4</override>
</lily-directive>
</measure>
</measures>
</voice>
</voices>
</movement>
</score>
;;;\divisioMaior
(StandAloneSelfEditDirective (cons "DivisioMaior" "\\divisioMaior") #t "DivisioMaior")
;;;DivisioMaxima
(StandAloneSelfEditDirective (cons "DivisioMaxima" "\\divisioMaxima") #t "DivisioMaxima")
;;;DivisioMinima
(StandAloneSelfEditDirective (cons "DivisioMinima" "\\divisioMinima") #t "DivisioMinima")
;;;Finalis
(StandAloneSelfEditDirective (cons "Finalis" "\\finalis") #t "Finalis")
;;;ToggleAugmentum
(let ((tag "ToggleAugmentum"))
(ToggleDirective "chord" "prefix" (cons tag ".") "\\augmentum " )
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX))
;;;ToggleFlexa
(let ((tag "ToggleFlexa"))
(ToggleDirective "chord" "postfix" (cons tag "flexa") "\\flexa " )
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX))
;;;TogglePes
(let ((tag "TogglePes"))
(ToggleDirective "chord" "postfix" (cons tag "pes") "\\pes " )
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX))
;;;ToggleIctus
(let ((tag "ToggleIctus"))
(ToggleDirective "chord" "postfix" (cons tag "'") "\\ictus " )
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX))
;;;ToggleMelisma
(let ((tag "ToggleMelisma"))
(ToggleDirective "chord" "postfix" (cons tag "(mel") "\\melisma " )
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX))
;;;ToggleMelismaEnd
(let ((tag "ToggleMelismaEnd"))
(ToggleDirective "chord" "postfix" (cons tag "mel)") "\\melismaEnd " )
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX))
;;;VaticanaStaff
(let ((tag "VaticanaStaff"))
(ToggleDirective "staff" "postfix" tag (string-append " \\new VaticanaVoice = \"" (d-GetVoiceIdentifier) "\" <<\n") DENEMO_OVERRIDE_LILYPOND)
(ToggleDirective "voice" "postfix" tag "\n" (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_LILYPOND)))
(let ((tag "RemoveTimesignature"))
(ToggleDirective "staff" "prefix" tag "\\with { \\remove \"Time_signature_engraver\" }"))(let ((tag "RemoveBars"))
(ToggleDirective "staff" "prefix" tag "\\with { \\remove \"Bar_engraver\" }"));StaffColor
(let ((tag "ChordVariant")(thecolor ""))
(if (d-Directive-staff? tag) (set! thecolor (d-DirectiveGet-staff-data tag thecolor)))
(set! thecolor (d-GetUserInput "Staff Color" "Give Lilypond color name" thecolor))
(d-DirectivePut-staff-data tag thecolor)
(d-DirectivePut-staff-display tag thecolor)
(d-DirectivePut-staff-override tag DENEMO_OVERRIDE_GRAPHIC)
(d-DirectivePut-staff-postfix tag (string-append "\\override Staff.StaffSymbol.color = #(x11-color '" thecolor ")"))
(d-RefreshDisplay)
(d-SetSaved #f))
_______________________________________________
Denemo-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/denemo-devel
