@@ -583,15 +583,17 @@ function write_marking_prefs(style_element)
583583 log_message (" unable to load FCCategoryDef for dynamics" , true )
584584 end
585585 local font_info = finale .FCFontInfo ()
586- local override = cat :GetMusicFontInfo (font_info ) and font_info .IsSMuFLFont and font_info .FontID ~= 0
587- set_element_text (style_element , " dynamicsOverrideFont" , override )
588- if override then
589- set_element_text (style_element , " dynamicsFont" , font_info .Name )
590- set_element_text (style_element , " dynamicsSize" , font_info .Size / default_music_font .Size )
591- else
592- set_element_text (style_element , " dynamicsFont" , default_music_font .Name )
593- set_element_text (style_element , " dynamicsSize" ,
594- font_info .IsSMuFLFont and (font_info .Size / default_music_font .Size ) or 1 )
586+ if cat :GetMusicFontInfo (font_info ) then
587+ local is_smufl = font_info .IsSMuFLFont
588+ local override = is_smufl and font_info .FontID ~= 0
589+ set_element_text (style_element , " dynamicsOverrideFont" , override )
590+ if override then
591+ set_element_text (style_element , " dynamicsFont" , font_info .Name )
592+ set_element_text (style_element , " dynamicsSize" , font_info .Size / default_music_font .Size )
593+ elseif # music_font_name > 0 then
594+ set_element_text (style_element , " dynamicsFont" , music_font_name )
595+ set_element_text (style_element , " dynamicsSize" , font_info .Size / default_music_font .Size )
596+ end
595597 end
596598 local font_pref = finale .FCFontPrefs ()
597599 if not font_pref :Load (finale .FONTPREF_TEXTBLOCK ) then
@@ -624,7 +626,7 @@ function write_marking_prefs(style_element)
624626 write_category_text_font_pref (style_element , " dynamics" , finale .DEFAULTCATID_DYNAMICS )
625627 write_category_text_font_pref (style_element , " expression" , finale .DEFAULTCATID_EXPRESSIVETEXT )
626628 write_category_text_font_pref (style_element , " tempo" , finale .DEFAULTCATID_TEMPOMARKS )
627- write_category_text_font_pref (style_element , " tempoChange" , finale .DEFAULTCATID_EXPRESSIVETEXT )
629+ write_category_text_font_pref (style_element , " tempoChange" , finale .DEFAULTCATID_TEMPOALTERATIONS )
628630 write_line_prefs (style_element , " tempoChange" , smart_shape_prefs .LineWidth , smart_shape_prefs .LineDashLength , smart_shape_prefs .LineDashSpace , " dashed" )
629631 write_category_text_font_pref (style_element , " metronome" , finale .DEFAULTCATID_TEMPOMARKS )
630632 set_element_text (style_element , " translatorFontFace" , font_info .Name )
@@ -634,10 +636,10 @@ function write_marking_prefs(style_element)
634636 write_default_font_pref (style_element , " repeatLeft" , finale .FONTPREF_REPEAT )
635637 write_default_font_pref (style_element , " repeatRight" , finale .FONTPREF_REPEAT )
636638 write_font_pref (style_element , " frame" , font_info )
637- write_category_text_font_pref (style_element , " textLine" , finale . DEFAULTCATID_TECHNIQUETEXT )
638- write_category_text_font_pref (style_element , " systemTextLine" , finale . DEFAULTCATID_EXPRESSIVETEXT )
639- write_category_text_font_pref (style_element , " glissando" , finale . DEFAULTCATID_TECHNIQUETEXT )
640- write_category_text_font_pref (style_element , " bend" , finale . DEFAULTCATID_TECHNIQUETEXT )
639+ write_font_pref (style_element , " textLine" , font_info )
640+ write_font_pref (style_element , " systemTextLine" , font_info )
641+ write_font_pref (style_element , " glissando" , font_info )
642+ write_font_pref (style_element , " bend" , font_info )
641643 write_font_pref (style_element , " header" , font_info )
642644 write_font_pref (style_element , " footer" , font_info )
643645 write_font_pref (style_element , " copyright" , font_info )
0 commit comments