blob: 1c65228e06c87ff796caf065e6eaeccaf2f77b58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
<?xml version="1.0"?>
<Denemo>
<merge>
<title>A Denemo Keymap</title>
<author>AT, JRR, RTS</author>
<map>
<row>
<after>NotationMagick-InsertStringAsReversedBinaryRhythm</after>
<action>NotationMagick-InsertReversedStringAsReversedBinaryRhythm</action>
<scheme>(let ((return (NotationMagick::AskNewAsciistring)))
(if return
(NotationMagick::PutBinaryStringList (reverse (NotationMagick::ReverseStringsInList (NotationMagick::String->CharsAsBinary return))))
#f))</scheme>
<label>Insert reversed string as reversed binary rhythm</label>
<tooltip>Give a string to generate a rhythm out of its ascii chars in binary encoding. The string gets reversed before converting. The rhythm for each letter gets reversed before inserting.</tooltip>
</row>
</map>
</merge>
</Denemo>
|