%% %%% %%% %%% %%% %%% %%% %%% %%% %%% %%% %%% %%% %%% 
%%% increase size of alteration in FiguredBass 
%%% %%% %%% %%% %%% %%% %%% %%% %%% %%% %%% %%% %%% %%% 


#(
define-public (format-bass-figures figure event context)
	(
		let* 
		(
			(fig (ly:event-property event 'figure))
			(
				fig-markup 
				(
					if (number? figure)
						;; this is not very elegant, but center-aligning
						;; all digits is problematic with other markups,
						;; and shows problems in the (lack of) overshoot
						;; of feta-alphabet glyphs.
                        (
							(
								if (<= 10 figure)
								(lambda (y) 
									(
										make-translate-scaled-markup
										(cons -0.7 0) y
									)
								)
								identity
							)
							(
								cond
								(
									(eq? #t (ly:event-property event 'diminished))
									(markup #:slashed-digit figure)
								)
								(
									(eq? #t (ly:event-property event 'augmented-slash))
									(markup #:backslashed-digit figure)
								)
								(else (markup #:number (number->string figure 10)))
							)
						)
					#f
				)
			)
			(alt (ly:event-property event 'alteration))
			(
				alt-markup
				(
					if (number? alt)
					(
						markup #:general-align Y DOWN #:fontsize
						;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
						(
							if (not (= alt DOUBLE-SHARP))
							;-2 2 :; is the default
							2 4 ;; changed into 2,4 ou 1,4 idem (4,4 too big) 
							
						)
						;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
						(alteration->text-accidental-markup alt)
					)
					#f
				)
			)
			(
				plus-markup 
				(
					if (eq? #t (ly:event-property event 'augmented))
                    (markup #:number "+")
					#f
				)
			)
			(alt-dir (ly:context-property context 'figuredBassAlterationDirection))
			(plus-dir (ly:context-property context 'figuredBassPlusDirection))
		)
		
		(
			if (and (not fig-markup) alt-markup)
			(
				begin
				(set! fig-markup (markup #:left-align #:pad-around 0.3 alt-markup))
				(set! alt-markup #f)
			)
		)
		
		
		;; hmm, how to get figures centered between note, and
		;; lone accidentals too?
		
		
		;;	(	if (markup? fig-markup)
		;;		(	set!
		;;			fig-markup 
		;;			(
		;;				markup	#:translate (cons 1.0 0)
		;;						#:center-align fig-markup
		;;			)
		;;		)
		;;	)
		
		(
			if alt-markup
			(
				set! fig-markup
				(
					markup #:put-adjacent
					X 
					(
						if (number? alt-dir)
						alt-dir
						LEFT
					)
					fig-markup
					#:pad-x 0.2 alt-markup
				)
			)
		)
		(
			if plus-markup
			(
				set! fig-markup
				(
					if fig-markup
					(
						markup #:put-adjacent
								X 
								(
									if (number? plus-dir) 
									plus-dir 
									LEFT 
								)
						fig-markup
						#:pad-x 0.2 plus-markup
					)
					plus-markup
				)
			)
		)
		
		(
			if (markup? fig-markup)
			(markup #:fontsize 1 fig-markup) ;; originalement: -2, 0
			empty-markup
		)
	)
)


% EOF