diff --git a/src/Bloc-Alexandrie/BAFontConverter.class.st b/src/Bloc-Alexandrie/BAFontConverter.class.st
index 5d4b693cf..72a95d4e0 100644
--- a/src/Bloc-Alexandrie/BAFontConverter.class.st
+++ b/src/Bloc-Alexandrie/BAFontConverter.class.st
@@ -1,10 +1,13 @@
+"
+I convert from a BlFont to a Cairo font.
+"
 Class {
 	#name : #BAFontConverter,
 	#superclass : #Object,
 	#instVars : [
-		'slantTranslator',
-		'stretchTranslator',
-		'weightTranslator'
+		'slantConverter',
+		'weightConverter',
+		'stretchConverter'
 	],
 	#classInstVars : [
 		'uniqueInstance'
@@ -12,22 +15,46 @@ Class {
 	#category : #'Bloc-Alexandrie-Text'
 }
 
+{ #category : #accessing }
+BAFontConverter class >> reset [
+	<script>
+
+	uniqueInstance := nil
+]
+
 { #category : #accessing }
 BAFontConverter class >> uniqueInstance [
 
 	^ uniqueInstance ifNil: [ uniqueInstance := self new ]
 ]
 
+{ #category : #initialization }
+BAFontConverter >> aeSlantAt: fontSlant [
+
+	^ slantConverter at: fontSlant
+]
+
+{ #category : #initialization }
+BAFontConverter >> aeStretchAt: fontStretch [
+
+	^ stretchConverter at: fontStretch
+]
+
+{ #category : #initialization }
+BAFontConverter >> aeWeightAt: fontWeight [
+
+	^ weightConverter at: fontWeight
+]
+
 { #category : #initialization }
 BAFontConverter >> faceFor: aBlFont [
 
 	^ AeFontManager globalInstance
 		detectFamilyName: aBlFont familyName
-		slant: (slantTranslator at: aBlFont fontSlant)
-		weight: (weightTranslator at: aBlFont fontWeight)
-		stretch: (stretchTranslator at: aBlFont fontStretch)
+		slant: (self aeSlantAt: aBlFont fontSlant)
+		weight: (self aeWeightAt: aBlFont fontWeight)
+		stretch: (self aeStretchAt: aBlFont fontStretch)
 		ifNone: [ AeFontManager globalInstance defaultFace ]
-
 ]
 
 { #category : #initialization }
@@ -35,12 +62,12 @@ BAFontConverter >> initialize [
 
 	super initialize.
 
-	slantTranslator := IdentityDictionary new
+	slantConverter := IdentityDictionary new
 		at: BlFontSlant normal put: AeFontSlant normal;
 		at: BlFontSlant italic put: AeFontSlant italic;
 		at: BlFontSlant oblique put: AeFontSlant oblique;
 		yourself.
-	stretchTranslator := IdentityDictionary new
+	stretchConverter := IdentityDictionary new
 		at: BlFontStretch ultraCondensed put: AeFontStretch ultraCondensed;
 		at: BlFontStretch extraCondensed put: AeFontStretch extraCondensed;
 		at: BlFontStretch condensed put: AeFontStretch condensed;
@@ -51,7 +78,7 @@ BAFontConverter >> initialize [
 		at: BlFontStretch extraExpanded put: AeFontStretch extraExpanded;
 		at: BlFontStretch ultraExpanded put: AeFontStretch ultraExpanded;
 		yourself.
-	weightTranslator := IdentityDictionary new
+	weightConverter := IdentityDictionary new
 		at: BlFontWeight thin put: AeFontWeight thin;
 		at: BlFontWeight extraLight put: AeFontWeight extraLight;
 		at: BlFontWeight light put: AeFontWeight light;
@@ -61,6 +88,5 @@ BAFontConverter >> initialize [
 		at: BlFontWeight bold put: AeFontWeight bold;
 		at: BlFontWeight extraBold put: AeFontWeight extraBold;
 		at: BlFontWeight black put: AeFontWeight black;
-		yourself.
-
+		yourself
 ]
diff --git a/src/Bloc-Alexandrie/BAMockedTextParagraphSpan.class.st b/src/Bloc-Alexandrie/BAMockedTextParagraphSpan.class.st
index f1ce4e536..27e4deafb 100644
--- a/src/Bloc-Alexandrie/BAMockedTextParagraphSpan.class.st
+++ b/src/Bloc-Alexandrie/BAMockedTextParagraphSpan.class.st
@@ -7,14 +7,10 @@ Class {
 { #category : #drawing }
 BAMockedTextParagraphSpan >> aeDrawOn: aeCanvas [
 
-	| characterWidth characterHeight aBlFont aFace |
+	| characterWidth characterHeight |
 	self spanLength isZero ifTrue: [ ^ self ].
 
-	aBlFont := fontAndStyleBuilder font.
-	aFace := aBlFont asAeFTFace.
-	cairoScaledFont := aeCanvas
-		scaledFontForFace: aFace
-		size: aBlFont fontSize value.
+	cairoScaledFont := fontAndStyleBuilder aeCairoScaledFontOn: aeCanvas.
 
 	"Get glyphs for the text"
 	characterWidth := (self width / self spanLength) asFloat.
@@ -34,9 +30,10 @@ BAMockedTextParagraphSpan >> aeDrawOn: aeCanvas [
 		measuredHeight isZero ifTrue: [ measuredHeight := characterHeight ].
 		heightScale := characterHeight * 0.8 / measuredHeight.
 		fixedBounds := eachBaseline extent: characterWidth @ characterHeight.
-		aeCanvas setSourceColor: (fontAndStyleBuilder hasCustomColor
-				 ifTrue: [ fontAndStyleBuilder color ]
-				 ifFalse: [ Color black ]).
+		aeCanvas setSourceColor:
+			(fontAndStyleBuilder hasCustomColor
+				ifTrue: [ fontAndStyleBuilder color ]
+				ifFalse: [ Color black ]).
 
 		"Draw the border around the character"
 		aeCanvas restoreContextAfter: [ 
@@ -64,9 +61,9 @@ BAMockedTextParagraphSpan >> aeDrawOn: aeCanvas [
 		aeCanvas restoreContextAfter: [ 
 			| idxScaledFont idxGlyphsArray |
 			aeCanvas setSourceColor: Color gray.
-			idxScaledFont := aeCanvas
-				scaledFontForFace: aFace
-				size: characterHeight * 0.32.
+			idxScaledFont := fontAndStyleBuilder copy
+				fontSize: characterHeight * 0.32;
+				aeCairoScaledFontOn: aeCanvas.
 			idxGlyphsArray := idxScaledFont glyphArrayForString: (index + hostMeasurer textOffset - 1) asString.
 			index = 1 ifTrue: [ 
 				aeCanvas restoreContextAfter: [ 
diff --git a/src/Bloc-Alexandrie/BATextParagraphSpan.class.st b/src/Bloc-Alexandrie/BATextParagraphSpan.class.st
index cb1dc7701..0082a90c3 100644
--- a/src/Bloc-Alexandrie/BATextParagraphSpan.class.st
+++ b/src/Bloc-Alexandrie/BATextParagraphSpan.class.st
@@ -13,8 +13,9 @@ BATextParagraphSpan >> aeDrawOn: aeCanvas [
 	self span ifNil: [ ^ self ].
 	aeCanvas restoreContextAfter: [
 		aeCanvas pathTranslate: self baseline.
-		self flag: #todo. "Default color?"
-		aeCanvas setSourceColor: (fontAndStyleBuilder hasCustomColor
+
+		aeCanvas setSourceColor:
+			(fontAndStyleBuilder hasCustomColor
 				 ifTrue: [ fontAndStyleBuilder color ]
 				 ifFalse: [ Color black ]).
 
@@ -35,27 +36,16 @@ BATextParagraphSpan >> appendPathOn: aeCanvas [
 
 { #category : #building }
 BATextParagraphSpan >> measure [
-
 	"build an abstract font and resolve not yet resolved properties"
 
-	| metrics canvas font usedSpan fontSize face |
+	| metrics canvas  usedSpan |
 	canvas := hostMeasurer canvas.
 
-	usedSpan := self span isTabulation
-		            ifTrue: [ '' ]
-		            ifFalse: [ self span ].
+	usedSpan := self span isTabulation ifTrue: [ '' ] ifFalse: [ self span ].
 
-	font := fontAndStyleBuilder font.
-	fontSize := font fontSize value.
-	face := font asAeFTFace.
-	cairoScaledFont := canvas scaledFontForFace: face size: fontSize.
-
-	"Without Harfbuzz:"
+	cairoScaledFont := fontAndStyleBuilder aeCairoScaledFontOn: canvas.
 	cairoGlyphsArray := cairoScaledFont glyphArrayForString: usedSpan.
 
-	"With Harfbuzz:"
-	"cairoGlyphsArray := AeHbBuffer defaultCairoGlyphArrayFor: usedSpan face: face size: fontSize."
-
 	metrics := canvas metricsFor: cairoGlyphsArray font: cairoScaledFont.
 	baseline := 0 @ 0.
 	ascent := metrics ascent.
diff --git a/src/Bloc-Alexandrie/BlFont.extension.st b/src/Bloc-Alexandrie/BlFont.extension.st
index bbb88d246..c82e62b49 100644
--- a/src/Bloc-Alexandrie/BlFont.extension.st
+++ b/src/Bloc-Alexandrie/BlFont.extension.st
@@ -3,5 +3,7 @@ Extension { #name : #BlFont }
 { #category : #'*Bloc-Alexandrie' }
 BlFont >> asAeFTFace [
 
-	^ BAFontConverter uniqueInstance faceFor: self
+	self deprecated: 'Migrate our code to #asAeCairoFontFace'.
+
+	^ self error
 ]
diff --git a/src/Bloc-Alexandrie/BlSideBackgroundDecoration.extension.st b/src/Bloc-Alexandrie/BlSideBackgroundDecoration.extension.st
index e09f3c113..ca175c699 100644
--- a/src/Bloc-Alexandrie/BlSideBackgroundDecoration.extension.st
+++ b/src/Bloc-Alexandrie/BlSideBackgroundDecoration.extension.st
@@ -3,10 +3,11 @@ Extension { #name : #BlSideBackgroundDecoration }
 { #category : #'*Bloc-Alexandrie' }
 BlSideBackgroundDecoration >> aeCairoScaledFontOn: aeCanvas in: anInfiniteElement [
 
-	| fontAndStyleBuilder freeTypeFont |
+	| fontAndStyleBuilder |
 	fontAndStyleBuilder := BlTextFontAndStyleBuilder new.
-	freeTypeFont := fontAndStyleBuilder font asAeFTFace.
-	^ aeCanvas scaledFontForFace: freeTypeFont size: 12
+	fontAndStyleBuilder fontSize: 12.
+
+	^ fontAndStyleBuilder aeCairoScaledFontOn: aeCanvas
 ]
 
 { #category : #'*Bloc-Alexandrie' }
diff --git a/src/Bloc-Alexandrie/BlTextFontAndStyleBuilder.extension.st b/src/Bloc-Alexandrie/BlTextFontAndStyleBuilder.extension.st
new file mode 100644
index 000000000..311c0a0eb
--- /dev/null
+++ b/src/Bloc-Alexandrie/BlTextFontAndStyleBuilder.extension.st
@@ -0,0 +1,22 @@
+Extension { #name : #BlTextFontAndStyleBuilder }
+
+{ #category : #'*Bloc-Alexandrie' }
+BlTextFontAndStyleBuilder >> aeCairoScaledFontOn: aeCanvas [
+
+	^ aeCanvas
+		scaledFontForFamily: (self hasCustomFamilyName
+			ifTrue: [ self resolvedFontFamilyName ]
+			ifFalse: [ BlFont defaultFamilyName ])
+		size: (self hasCustomFontSize
+			ifTrue: [ self resolvedFontSize value ]
+			ifFalse: [ BlFont defaultFontSize ])
+		slant: (self hasCustomFontSlant
+			ifTrue: [ BAFontConverter uniqueInstance aeSlantAt: self fontSlant ]
+			ifFalse: [ AeFontSlant normal ])
+		weight: (self hasCustomFontWeight
+			ifTrue: [ BAFontConverter uniqueInstance aeWeightAt: self fontWeight ]
+			ifFalse: [ AeFontWeight normal ])
+		stretch: (self hasCustomFontStretch
+			ifTrue: [ BAFontConverter uniqueInstance aeStretchAt: self fontStretch ]
+			ifFalse: [ AeFontStretch normal ])
+]
diff --git a/tests/hit/buildGaussianShadowsByTextTransformations.png b/tests/hit/buildGaussianShadowsByTextTransformations.png
index 5aa0313bf..c41069dce 100644
Binary files a/tests/hit/buildGaussianShadowsByTextTransformations.png and b/tests/hit/buildGaussianShadowsByTextTransformations.png differ
diff --git a/tests/hit/buildSimpleShadowsByTextTransformations.png b/tests/hit/buildSimpleShadowsByTextTransformations.png
index 5aa0313bf..c41069dce 100644
Binary files a/tests/hit/buildSimpleShadowsByTextTransformations.png and b/tests/hit/buildSimpleShadowsByTextTransformations.png differ
diff --git a/tests/hit/buildTextAttributes.png b/tests/hit/buildTextAttributes.png
index 872c8c37c..21707ba66 100644
Binary files a/tests/hit/buildTextAttributes.png and b/tests/hit/buildTextAttributes.png differ
diff --git a/tests/hit/buildTextMeasurements.png b/tests/hit/buildTextMeasurements.png
index fc331a1f2..041fb7edf 100644
Binary files a/tests/hit/buildTextMeasurements.png and b/tests/hit/buildTextMeasurements.png differ
diff --git a/tests/hit/buildTextOpacities.png b/tests/hit/buildTextOpacities.png
index 2991eee88..d259dea48 100644
Binary files a/tests/hit/buildTextOpacities.png and b/tests/hit/buildTextOpacities.png differ
diff --git a/tests/hit/buildTextTransformations.png b/tests/hit/buildTextTransformations.png
index 5aa0313bf..c41069dce 100644
Binary files a/tests/hit/buildTextTransformations.png and b/tests/hit/buildTextTransformations.png differ
diff --git a/tests/hit/buildTextWithBorder.png b/tests/hit/buildTextWithBorder.png
index f87a101ed..5166ab499 100644
Binary files a/tests/hit/buildTextWithBorder.png and b/tests/hit/buildTextWithBorder.png differ
diff --git a/tests/hit/buildTextWithOverlappingBorder.png b/tests/hit/buildTextWithOverlappingBorder.png
index d88354375..dad10f839 100644
Binary files a/tests/hit/buildTextWithOverlappingBorder.png and b/tests/hit/buildTextWithOverlappingBorder.png differ
diff --git a/tests/render/buildGaussianShadowsByTextTransformations.png b/tests/render/buildGaussianShadowsByTextTransformations.png
index df3b4fa1a..b9c80245a 100644
Binary files a/tests/render/buildGaussianShadowsByTextTransformations.png and b/tests/render/buildGaussianShadowsByTextTransformations.png differ
diff --git a/tests/render/buildSimpleShadowsByTextTransformations.png b/tests/render/buildSimpleShadowsByTextTransformations.png
index 299fba059..5479e5fb3 100644
Binary files a/tests/render/buildSimpleShadowsByTextTransformations.png and b/tests/render/buildSimpleShadowsByTextTransformations.png differ
diff --git a/tests/render/buildTextAttributes.png b/tests/render/buildTextAttributes.png
index a4fef6e0b..2c865b745 100644
Binary files a/tests/render/buildTextAttributes.png and b/tests/render/buildTextAttributes.png differ
diff --git a/tests/render/buildTextMeasurements.png b/tests/render/buildTextMeasurements.png
index 434ac5d8d..1dfb065ab 100644
Binary files a/tests/render/buildTextMeasurements.png and b/tests/render/buildTextMeasurements.png differ
diff --git a/tests/render/buildTextOpacities.png b/tests/render/buildTextOpacities.png
index e940e37be..fb02b98d8 100644
Binary files a/tests/render/buildTextOpacities.png and b/tests/render/buildTextOpacities.png differ
diff --git a/tests/render/buildTextTransformations.png b/tests/render/buildTextTransformations.png
index 4427ec597..7829e1da4 100644
Binary files a/tests/render/buildTextTransformations.png and b/tests/render/buildTextTransformations.png differ
diff --git a/tests/render/buildTextWithBorder.png b/tests/render/buildTextWithBorder.png
index 01b9f8f77..32c39c0c6 100644
Binary files a/tests/render/buildTextWithBorder.png and b/tests/render/buildTextWithBorder.png differ
diff --git a/tests/render/buildTextWithBorderAbove.png b/tests/render/buildTextWithBorderAbove.png
index 25c5b40b5..521b1295b 100644
Binary files a/tests/render/buildTextWithBorderAbove.png and b/tests/render/buildTextWithBorderAbove.png differ
diff --git a/tests/render/buildTextWithDashedBorder.png b/tests/render/buildTextWithDashedBorder.png
index 37364d818..554f7cb62 100644
Binary files a/tests/render/buildTextWithDashedBorder.png and b/tests/render/buildTextWithDashedBorder.png differ
diff --git a/tests/render/buildTextWithOverlappingBorder.png b/tests/render/buildTextWithOverlappingBorder.png
index eace36e0e..f0a7eb3a1 100644
Binary files a/tests/render/buildTextWithOverlappingBorder.png and b/tests/render/buildTextWithOverlappingBorder.png differ