File: IgnoreMeasureDurationError.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 (16 lines) | stat: -rw-r--r-- 799 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
;;;IgnoreMeasureDurationError
(if IgnoreMeasureDurationError::params
    (d-InfoDialog (_ "This Directive tells Denemo not to signal an error if there are too many notes or rests after this point (or too few) for a complete measure."))
    (let ((tag "!"))
        (d-PushPosition)
        (while (d-PrevObjectInMeasure))
        (if (d-Directive-standalone? tag)
            (d-DirectiveDelete-standalone tag)
            (begin
            	(d-Directive-standalone tag)
            	(d-DirectivePut-standalone-postfix tag (string-append "%{" (_ "Partial Measure is Acceptable") "%}"))
            	(d-DirectivePut-standalone-display tag (_ "Partial Measure"))
            	(d-DirectivePut-standalone-minpixels tag 30)))
        (d-PopPosition)
        (d-SetSaved #f)
        (d-RefreshDisplay)))