summaryrefslogtreecommitdiff
path: root/actions/menus/ObjectMenu/NotationMagick/GenerateRhythmFromString/InsertStringAsReversedBinaryRhythm
diff options
context:
space:
mode:
Diffstat (limited to 'actions/menus/ObjectMenu/NotationMagick/GenerateRhythmFromString/InsertStringAsReversedBinaryRhythm')
-rw-r--r--actions/menus/ObjectMenu/NotationMagick/GenerateRhythmFromString/InsertStringAsReversedBinaryRhythm19
1 files changed, 19 insertions, 0 deletions
diff --git a/actions/menus/ObjectMenu/NotationMagick/GenerateRhythmFromString/InsertStringAsReversedBinaryRhythm b/actions/menus/ObjectMenu/NotationMagick/GenerateRhythmFromString/InsertStringAsReversedBinaryRhythm
new file mode 100644
index 00000000..dab61fbc
--- /dev/null
+++ b/actions/menus/ObjectMenu/NotationMagick/GenerateRhythmFromString/InsertStringAsReversedBinaryRhythm
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+<Denemo>
+ <merge>
+ <title>A Denemo Keymap</title>
+ <author>AT, JRR, RTS</author>
+ <map>
+ <row>
+ <after>InsertReversedStringAsBinaryRhythm</after>
+ <action>InsertStringAsReversedBinaryRhythm</action>
+ <scheme>(let ((return (NotationMagick::AskNewAsciistring)))
+ (if return
+ (NotationMagick::PutBinaryStringList (NotationMagick::ReverseStringsInList (NotationMagick::String-&gt;CharsAsBinary return)))
+ #f))</scheme>
+ <label>Insert string as reversed binary rhythm</label>
+ <tooltip>Give a string to generate a rhythm out of its ascii chars in binary encoding. The rhythm for each letter gets reversed before inserting.</tooltip>
+ </row>
+ </map>
+ </merge>
+</Denemo>