@@ -6552,15 +6552,17 @@ function write_marking_prefs(style_element)
65526552 log_message (" unable to load FCCategoryDef for dynamics" , true )
65536553 end
65546554 local font_info = finale .FCFontInfo ()
6555- local override = cat :GetMusicFontInfo (font_info ) and font_info .IsSMuFLFont and font_info .FontID ~= 0
6556- set_element_text (style_element , " dynamicsOverrideFont" , override )
6557- if override then
6558- set_element_text (style_element , " dynamicsFont" , font_info .Name )
6559- set_element_text (style_element , " dynamicsSize" , font_info .Size / default_music_font .Size )
6560- else
6561- set_element_text (style_element , " dynamicsFont" , default_music_font .Name )
6562- set_element_text (style_element , " dynamicsSize" ,
6563- font_info .IsSMuFLFont and (font_info .Size / default_music_font .Size ) or 1 )
6555+ if cat :GetMusicFontInfo (font_info ) then
6556+ local is_smufl = font_info .IsSMuFLFont
6557+ local override = is_smufl and font_info .FontID ~= 0
6558+ set_element_text (style_element , " dynamicsOverrideFont" , override )
6559+ if override then
6560+ set_element_text (style_element , " dynamicsFont" , font_info .Name )
6561+ set_element_text (style_element , " dynamicsSize" , font_info .Size / default_music_font .Size )
6562+ elseif # music_font_name > 0 then
6563+ set_element_text (style_element , " dynamicsFont" , music_font_name )
6564+ set_element_text (style_element , " dynamicsSize" , font_info .Size / default_music_font .Size )
6565+ end
65646566 end
65656567 local font_pref = finale .FCFontPrefs ()
65666568 if not font_pref :Load (finale .FONTPREF_TEXTBLOCK ) then
@@ -6593,7 +6595,7 @@ function write_marking_prefs(style_element)
65936595 write_category_text_font_pref (style_element , " dynamics" , finale .DEFAULTCATID_DYNAMICS )
65946596 write_category_text_font_pref (style_element , " expression" , finale .DEFAULTCATID_EXPRESSIVETEXT )
65956597 write_category_text_font_pref (style_element , " tempo" , finale .DEFAULTCATID_TEMPOMARKS )
6596- write_category_text_font_pref (style_element , " tempoChange" , finale .DEFAULTCATID_EXPRESSIVETEXT )
6598+ write_category_text_font_pref (style_element , " tempoChange" , finale .DEFAULTCATID_TEMPOALTERATIONS )
65976599 write_line_prefs (style_element , " tempoChange" , smart_shape_prefs .LineWidth , smart_shape_prefs .LineDashLength , smart_shape_prefs .LineDashSpace , " dashed" )
65986600 write_category_text_font_pref (style_element , " metronome" , finale .DEFAULTCATID_TEMPOMARKS )
65996601 set_element_text (style_element , " translatorFontFace" , font_info .Name )
@@ -6603,10 +6605,10 @@ function write_marking_prefs(style_element)
66036605 write_default_font_pref (style_element , " repeatLeft" , finale .FONTPREF_REPEAT )
66046606 write_default_font_pref (style_element , " repeatRight" , finale .FONTPREF_REPEAT )
66056607 write_font_pref (style_element , " frame" , font_info )
6606- write_category_text_font_pref (style_element , " textLine" , finale . DEFAULTCATID_TECHNIQUETEXT )
6607- write_category_text_font_pref (style_element , " systemTextLine" , finale . DEFAULTCATID_EXPRESSIVETEXT )
6608- write_category_text_font_pref (style_element , " glissando" , finale . DEFAULTCATID_TECHNIQUETEXT )
6609- write_category_text_font_pref (style_element , " bend" , finale . DEFAULTCATID_TECHNIQUETEXT )
6608+ write_font_pref (style_element , " textLine" , font_info )
6609+ write_font_pref (style_element , " systemTextLine" , font_info )
6610+ write_font_pref (style_element , " glissando" , font_info )
6611+ write_font_pref (style_element , " bend" , font_info )
66106612 write_font_pref (style_element , " header" , font_info )
66116613 write_font_pref (style_element , " footer" , font_info )
66126614 write_font_pref (style_element , " copyright" , font_info )
0 commit comments