File: UseAddPrefix.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 (15 lines) | stat: -rw-r--r-- 611 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
(let ((tag "UseAddPrefix")(params UseAddPrefix::params))
    (if (equal? params "edit")
        (set! params #f))
    (d-Directive-standalone tag)
     (if params
        (d-DirectivePut-standalone-graphic tag "\nAx\nDenemo\n24")
        (d-DirectivePut-standalone-graphic tag "\nA\nDenemo\n24"))
    (if (not params)
        (set! params "add"))
    (d-DirectivePut-standalone-postfix tag (string-append " \\set additionalPitchPrefix = #\"" params "\" "))
    (d-DirectivePut-standalone-display tag "add prefix")
   
    (d-DirectivePut-standalone-minpixels tag 30)
    (d-SetSaved #f)
    (d-RefreshDisplay))