[Denemo-devel] [bug #28350] Dynamics don't print on chords.

[anonymous]

Follow-up Comment #6, bug #28350 (project denemo):

This version I think is pretty complete.  It has midi volume levels for ppp
through fff, but not for sf and such.  It uses graphics instead of the regular
font for the denemo display, and a little unicode diamond to show the location
of the directive so that you can edit it.  The png's are attached and need to
go into actions/bitmaps.  The script is attached and for what it's worth,
pasted here as well.
I hope this is useful.
-Dan W.



;;;; Standalone Dynamics -by Dan Wilckens
(let ((choice #f)(X 0)  (replace #f) (level "63")(LilyString "")(Graphic "") 
(DynamicList "") )
(if (equal? (d-GetType) "LILYDIRECTIVE" ) 
        (if (equal? (d-DirectiveGetTag-standalone) "Dynamic" )
                (set! replace #t )
        )
) 
; format: dynamics, midi volume, image filename
(set! DynamicList '(("fff" "127" "Fortississimo")("ff" "111" "Fortissimo")
("f" "95" "Forte") ("mf" "79" "MezzoForte")("mp" "63" "MezzoPiano") ("p" "47"
"Piano") ("pp" "31" "Pianissimo") ("ppp" "15" "Pianississimo") ("Other" "60"
"") ("ppppp" "5" "ppppp")("pppp" "7" "pppp")("ffff" "127" "ffff") ("fp" ""
"fp")
   ("sf" "" "sf") ("sff" "" "sff") ("sp" "" "sp" ) ("spp" "" "spp") ("sfz" ""
"sfz") ("rfz" "" "rfz") ("Custom" "" "")))
(set! choice (d-GetOption (string-append "fff" stop "ff" stop "f" stop "mf"
stop "mp" stop "p" stop "pp" stop "ppp" stop "Other" stop )))

(if (equal? choice "Other") 
   (set! choice (d-GetOption (string-append "ppppp" stop "pppp" stop  "ffff"
stop "fp" stop "sf" stop  "sff" stop "sp"  stop "spp" stop "sfz" stop "rfz"
stop "Custom" stop ) )) )
   (set! LilyString (string-append "s8*0 \" choice  ))
(set! X (assoc choice DynamicList) )
(set! level (car (cdr X)) )
(set! Graphic (car (cdr (cdr X) ) ) )
(if (equal? choice "Custom" ) (begin 
        (set! choice (d-GetUserInput "Custom dynamic" "Enter dynamic text:" "" )
) 
        (set! LilyString (string-append  "s8*0_\markup { \dynamic " choice "
} " ))  
        )
)
(if (equal? level "") 
  (begin
   (set! level (d-GetUserInput "Dynamic setting" "Enter loudness level
(0-127):" "63" ) ) 
   (let ( (a 0)) 
      (set! a (string->number level) )
      (if (or (boolean? a) (> a 127) (< a 0) )(set! level #f) )
   )
  )
)
( if (not (boolean? choice) )
    (begin 
        ( if (equal? replace #f ) (d-DirectivePut-standalone "Dynamic" ) )
        (d-DirectivePut-standalone-postfix "Dynamic"  LilyString)
        (if (equal? Graphic "") 
           (begin
                (d-DirectivePut-standalone-display  "Dynamic" choice)
                (d-DirectivePut-standalone-ty "Dynamic" 70 )
                (d-DirectivePut-standalone-graphic "Dynamic" "")
           )
           (begin
                (d-DirectivePut-standalone-graphic "Dynamic" Graphic)
                (d-DirectivePut-standalone-gy "Dynamic" 70 )
                (d-DirectivePut-standalone-gx "Dynamic" 5 )
                (d-DirectivePut-standalone-display  "Dynamic" "◆")
                (d-DirectivePut-standalone-ty "Dynamic" 60 )
           )
        )
        (if (not (boolean? level) ) 
           (begin       (d-DirectivePut-standalone-override "Dynamic" (logior
DENEMO_OVERRIDE_STEP DENEMO_OVERRIDE_VOLUME))
              (d-DirectivePut-standalone-midibytes "Dynamic" level ) ) 
        )
        (d-DirectivePut-standalone-minpixels "Dynamic" 10 )
        (d-RefreshDisplay)
        (d-CursorRight)
    )
 )
 )

(file #19399, file #19400)
    _______________________________________________________

Additional Item Attachment:

File name: DynamicPngs.zip                Size:25 KB
File name: DynamicsOmnibus                Size:2 KB


    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?28350>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/