Re: [Denemo-devel] A possible scheme script

[Richard Shann]

On Wed, 2019-01-30 at 10:43 -0800, rain wrote:
> I don't want to consume too much of your time with this, so if it is
> burdensome just let me know. Thank you for the tip on the Augmented
> command that is available.
> 
> I wanted to try to email you a rough copy of the set-up, which would
> include commands, palettes, xml and scm files,

The first scm file I tried threw an error where you reference

d-AddHighestDownAugmented5

which doesn't exist. I guess you will want to simplify these anyway as
suggested in one of my emails.

>  with menu directory structure: .denemo-
> 2.2.11\actions\menus\ObjectMenu\NotesRests\InsertNote\Counterpoint.
> This is just for if user is writing Cantus on bottom.
If you want to use two possible places as the location for the inserted
notes there are commands to push the current position and pop it again
later (or to store the initial position in a variable and the go to it
later). Look at d-PushPosition, d-PopPosition, and GetPosition (which
is not a built-in but a script somewhere in denemo-modules, hence the
lack of the d- prefix.

>  These do not work if a new score is created with just one measure...
> There needs to be a few empty measures on the staffs, then things
> start working better. 

???

Richard
> 
> 
> 
> Added to default.commands :
> 
>      <row type="scheme">
>         <action>CounterpointAddUpMaj7</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Major Seventh Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a major seventh higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>        </row>
>       <row type="scheme">
>         <action>CounterpointAddUpMin7</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Minor Seventh Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a minor seventh higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>        </row>  
>        <row type="scheme">
>         <action>CounterpointAddUpMaj6</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Major Sixth Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a major sixth higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>        </row>
>        <row type="scheme">
>         <action>CounterpointAddUpMin6</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Minor Sixth Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a minor sixth higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpAug5</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note An Augmented FifthHigher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a augmented fifth higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpPer5</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Perfect FifthHigher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a perfect fifth higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpDim5</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Diminished FifthHigher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a diminished fifth higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpPer4</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Perfect Fourth Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a perfect fourth higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpMaj3</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Major Third Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a major third higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpMin3</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Minor Third Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a minor third higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpMaj2</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Major Second Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a major second higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpMin2</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Minor Second Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a minor second higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
>        <row type="scheme">
>         <action>CounterpointAddUpPer1</action>
>         <after>PendingSharpen</after>
>        
> <menupath>/ObjectMenu/NotesRests/InsertNote/Counterpoint</menupath>
>         <_label>Add Note A Perfect First Higher On Staff Above
> Current</_label>
>         <_tooltip>Creates a note on staff above Cantus with interval
> of a perfect first higher than the corresponding note on the lower
> staff.  Cursor must be on Cantus note, which must be last added note
> to the right, when performing this procedure. </_tooltip>
>       </row>
> 
> This is the palette addition :
> 
>   <palette _name="Counterpoint &#x25C0; Note Insertion &#x25C0;
> Notes/Rests &#x25C0; Object Menu" row-wise="0" limit="1" dock="1"
> menu="1" hidden="0">
>     <button label="M7" _tooltip="Creates a note on staff above Cantus
> with interval of a major 7th higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpMaj7)"/>
>     <button label="m7" _tooltip="Creates a note on staff above Cantus
> with interval of a minor 7th higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpMin7)"/>
>     <button label="M6" _tooltip="Creates a note on staff above Cantus
> with interval of a major 7th higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpMaj6)"/>
>     <button label="m6" _tooltip="Creates a note on staff above Cantus
> with interval of a minor 7th higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpMin6)"/>
>     <button label="+5" _tooltip="Creates a note on staff above Cantus
> with interval of a augmented 5th higher than the corresponding note
> on the lower staff. &#10;Cursor must be on Cantus note when
> performing this procedure. " script="(d-CounterpointAddUpAug5)"/>
>     <button label="P5" _tooltip="Creates a note on staff above Cantus
> with interval of a perfect 5th higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpPer5)"/>
>     <button label="o5" _tooltip="Creates a note on staff above Cantus
> with interval of a diminished 5th higher than the corresponding note
> on the lower staff. &#10;Cursor must be on Cantus note when
> performing this procedure. " script="(d-CounterpointAddUpDim5)"/>
>     <button label="P4" _tooltip="Creates a note on staff above Cantus
> with interval of a perfect 4th higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpPer4)"/>
>     <button label="M3" _tooltip="Creates a note on staff above Cantus
> with interval of a major 3rd higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpMaj3)"/>
>     <button label="m3" _tooltip="Creates a note on staff above Cantus
> with interval of a minor 3rd higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpMin3)"/>
>     <button label="M2" _tooltip="Creates a note on staff above Cantus
> with interval of a major 2nd higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpMaj2)"/>
>     <button label="m2" _tooltip="Creates a note on staff above Cantus
> with interval of a minor 2nd higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpMin2)"/>
>     <button label="P1" _tooltip="Creates a note on staff above Cantus
> with interval of a perfect 1st higher than the corresponding note on
> the lower staff. &#10;Cursor must be on Cantus note when performing
> this procedure. " script="(d-CounterpointAddUpPer1)"/>
>   </palette>
>