File: DisplaceHorizontally.scm

package info (click to toggle)
denemo 2.6.49-0.2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 66,916 kB
  • sloc: ansic: 94,587; lisp: 38,713; xml: 22,675; python: 1,930; sh: 1,239; makefile: 642; yacc: 288; sed: 93
file content (12 lines) | stat: -rw-r--r-- 534 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
 
;;DisplaceHorizontally
(let*    ((tag "DisplaceHorizontally") (X (d-DirectiveGet-standalone-data tag)))
    (if (not X)
     (set! X "0.5"))
    (set! X (d-GetUserInput (_ "Horizontal shift") (_ "Give horizontal shift required") X))
    (if  X 
       (begin
        (StandAloneDirectiveProto (cons tag (string-append  "\\once \\override NoteColumn.X-offset = #" X " "  )) #f "\n⬌\nDenemo\n24" X #f X )
        (d-DirectivePut-standalone-ty tag -20)
        (d-MoveCursorRight)
        (d-SetSaved #f)
        (d-RefreshDisplay))))