Add measurement code for reproduction

.properties

@@ -0,0 +1,3 @@
+{
+	#format : #tonel
+}

.squot

@@ -21,5 +21,6 @@ OrderedDictionary {
 	'packages/Sandblocks-Graph' : #SquotTonelSerializer,
 	'packages/Sandblocks-RatPack' : #SquotTonelSerializer,
 	'packages/Sandblocks-Plugin-StLivePreview' : #SquotTonelSerializer,
-	'packages/Sandblocks-Git' : #SquotTonelSerializer
+	'packages/Sandblocks-Git' : #SquotTonelSerializer,
+	'Joana-Core' : #SquotTonelSerializer
 }

Joana-Core/.squot-contents

@@ -0,0 +1,6 @@
+SquotTrackedObjectMetadata {
+	#objectClassName : #PackageInfo,
+	#id : UUID [ 'd25f57670bf5c440b225a46d41670b53' ],
+	#objectsReplacedByNames : true,
+	#serializer : #SquotTonelSerializer
+}

Joana-Core/CustomHashSet.class.st

@@ -0,0 +1,19 @@
+Class {
+	#name : #CustomHashSet,
+	#superclass : #Set,
+	#category : #'Joana-Core'
+}
+
+{ #category : #'as yet unclassified' }
+CustomHashSet class >> reserve: aNumber [
+
+	^ self new
+		arraySize: aNumber;
+		yourself 
+]
+
+{ #category : #'as yet unclassified' }
+CustomHashSet >> arraySize: aSize [
+
+	array := self arrayType new: aSize
+]

Joana-Core/HashSet.class.st

@@ -0,0 +1,5 @@
+Class {
+	#name : #HashSet,
+	#superclass : #Set,
+	#category : #'Joana-Core'
+}

Joana-Core/ImageOperations.class.st

@@ -0,0 +1,26 @@
+Class {
+	#name : #ImageOperations,
+	#superclass : #Object,
+	#category : #'Joana-Core'
+}
+
+{ #category : #'as yet unclassified' }
+ImageOperations class >> as8Bit: aForm [
+
+	^ aForm as8BitColorForm
+]
+
+{ #category : #'as yet unclassified' }
+ImageOperations class >> dimmed: aForm [
+
+	^ aForm dimmed
+]
+
+{ #category : #'as yet unclassified' }
+ImageOperations class >> emboss: aForm factor: aFactor bias: aBias [
+
+	^ aForm
+		processUsingKernel: (Matrix rows: 3 columns: 3 contents: #(-2 -1 0 -1 1 1 0 1 2))
+		factor: aFactor
+		bias: aBias
+]