File: TupletPosition.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 (11 lines) | stat: -rw-r--r-- 678 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
;;;TupletPosition
(let ((tag "TupletPosition")(choice (RadioBoxMenu (cons (_ "Up") (cons "UP " "▲")) (cons (_ "Down") (cons "DOWN " "▼")) (cons (_ "Auto") (cons "'tuplet-number::calc-direction "   "▼▲")))))
  (if choice
    (begin
        (d-DirectivePut-standalone tag)
        (d-DirectivePut-standalone-graphic tag (string-append "\n3" (cdr choice) "\nSerif\n20\n" DENEMO_WEIGHT_BOLD "\n" DENEMO_SLANT_ITALIC))
        (d-DirectivePut-standalone-minpixels tag 30)
        (d-DirectivePut-standalone-postfix tag (string-append "\\once \\override TupletBracket.direction = #" (car choice))))
    (d-InfoDialog (_ "Cancelled")))
   (d-SetSaved #f)
  (d-RefreshDisplay))