Optimize AeHbBuffer using new subclasses of AeFFIExternalArray for in…

…fo and position

src/Alexandrie-Harfbuzz/AeHbBuffer.class.st

@@ -97,18 +97,16 @@ AeHbBuffer >> cairoGlyphArray [
 	length := self length.
 	length = 0 ifTrue: [ ^ AeCairoGlyphArray newOf: 0 ].
 
-	infos := FFIExternalArray
+	infos := AeHbGlyphInfoArray
 		  fromHandle: (self getGlyphInfosInto: ExternalAddress null)
-		  type: AeHbGlyphInfo
 		  size: length.
-	positions := FFIExternalArray
+	positions := AeHbGlyphPositionArray
 		  fromHandle: (self getGlyphPositionsInto: ExternalAddress null)
-		  type: AeHbGlyphPosition
 		  size: length.
 
 	cairoGlyphsArray := AeCairoGlyphArray newOf: length.
-	currentX := 0.
-	currentY := 0.
+	currentX := 0.0.
+	currentY := 0.0.
 	cairoGlyphsArray doWithIndex: [ :each :index | 
 		| position |
 		position := positions at: index.

src/Alexandrie-Harfbuzz/AeHbGlyphInfoArray.class.st

@@ -0,0 +1,14 @@
+"
+I'm an array of `AeHbGlyphInfo`.
+"
+Class {
+	#name : #AeHbGlyphInfoArray,
+	#superclass : #AeFFIExternalArray,
+	#category : #'Alexandrie-Harfbuzz-Structures'
+}
+
+{ #category : #'class initialization' }
+AeHbGlyphInfoArray class >> initialize [
+
+	resolvedType := self resolveType: AeHbGlyphInfo
+]

src/Alexandrie-Harfbuzz/AeHbGlyphPositionArray.class.st

@@ -0,0 +1,14 @@
+"
+I'm an array of `AeHbGlyphPosition`.
+"
+Class {
+	#name : #AeHbGlyphPositionArray,
+	#superclass : #AeFFIExternalArray,
+	#category : #'Alexandrie-Harfbuzz-Structures'
+}
+
+{ #category : #'class initialization' }
+AeHbGlyphPositionArray class >> initialize [
+
+	resolvedType := self resolveType: AeHbGlyphPosition
+]