Removing Sparta

src/BaselineOfBloc/BaselineOfBloc.class.st

@@ -66,16 +66,6 @@ BaselineOfBloc >> baseline: spec [
 				package: #'Bloc-Text-Tests' with: [
 					spec requires: #('Bloc-Text') ].
 
-			"Sparta canvas"
-			spec
-				baseline: 'Sparta' with: [
-					spec repository: 'github://pharo-graphics/Sparta:dev-1.0/src' ].
-			spec
-				package: #'Bloc-Compositor' with: [
-					spec requires: #('Bloc' 'Sparta') ];
-				package: #'Bloc-Sparta' with: [
-					spec requires: #('Sparta' 'Bloc' 'Bloc-Text' 'Bloc-Compositor') ].
-
 			"Alexandrie canvas"
 			spec
 				baseline: 'Alexandrie' with: [
@@ -106,7 +96,7 @@ BaselineOfBloc >> baseline: spec [
 				package: #'Bloc-UnitedTests' with: [
 					spec requires: #('Bloc' 'Bloc-Layout' 'Bloc-Animation') ];
 				package: #'Bloc-Exporter' with: [
-					spec requires: #('Sparta') ];
+					spec requires: #('Bloc-Alexandrie') ];
 				package: #'Bloc-DevTool' with: [
 					spec requires: #('Bloc-Layout' 'Bloc-UnitedTests') ];
 				package: #'Bloc-Scripter' with: [
@@ -115,8 +105,6 @@ BaselineOfBloc >> baseline: spec [
 			spec
 				package: #'Bloc-Examples' with: [
 					spec requires: #(#'Bloc-DevTool') ];
-				package: #'Bloc-Compositor-Examples' with: [
-					spec requires: #(#'Bloc-Examples') ];
 				package: #'Bloc-Text-Examples' with: [
 					spec requires: #(#'Bloc-Examples') ];
 				package: #'Bloc-Layout-Tests' with: [

src/Bloc-Alexandrie-Tests/BAHitTest.class.st

@@ -34,7 +34,7 @@ BAHitTest class >> inspectMismatches [
 { #category : #tests }
 BAHitTest >> actualForm [
 
-	^ self hitFormFor: formSelector host: BAOSWindowSDL2Host new
+	^ self hitFormFor: formSelector host: BlOSWindowSDL2Host new
 ]
 
 { #category : #tests }

src/Bloc-Alexandrie-Tests/BARenderTest.class.st

@@ -36,7 +36,7 @@ BARenderTest >> actualForm [
 
 	| aSpace |
 	aSpace := self formBehavior
-		host: BAOSWindowSDL2Host new; 
+		host: BlOSWindowSDL2Host new; 
 		perform: formSelector;
 		space.
 	^ aSpace aeAsForm

src/Bloc-Alexandrie-Tests/BlSpaceFixture.class.st

@@ -433,7 +433,7 @@ BlSpaceFixture >> buildGradients [
 
 	| aLinearGradient aRadialGradient anExtent |
 
-	"Bug? start and stop only give the direction (in Sparta)"
+	"Bug? start and stop only give the direction."
 	aLinearGradient := BlLinearGradientPaint new
 			start: 0@10;
 			end: 10@0;

src/Bloc-Alexandrie/BARenderer.class.st

@@ -1,9 +1,26 @@
+"
+I am a host-renderer to draw a space's elements on an `AeCanvas`.
+
+Both buffer and form host-spaces are supported.
+"
 Class {
 	#name : #BARenderer,
 	#superclass : #BlHostRenderer,
 	#category : #'Bloc-Alexandrie-Renderer'
 }
 
+{ #category : #accessing }
+BARenderer class >> label [
+
+	^ 'Alexandrie'
+]
+
+{ #category : #'host - api' }
+BARenderer class >> offscreenMeasureTextParagraph: aBlTextParagraph [
+
+	BAOffscreen instance measureTextParagraph: aBlTextParagraph
+]
+
 { #category : #initialization }
 BARenderer >> createBufferSpaceRenderer [
 
@@ -21,6 +38,8 @@ BARenderer >> initializeForHostSpace: aBlHostSpace [
 	"Initialize this renderer for a given host space.
 	Please note, that it I be called multiple times"
 
+	self initialize.
+
 	session := Smalltalk session.
 
 	"we should mark it as a current one before initializing a canvas as it may rely on opengl context"

src/Bloc-Alexandrie/BlAnnulusSectorGeometry.extension.st

@@ -20,27 +20,3 @@ BlAnnulusSectorGeometry >> aeApplyTo: aeCanvas element: aBlElement [
 					outerRadius: self absoluteOuterRadius
 				] ]
 ]
-
-{ #category : #'*Bloc-Alexandrie' }
-BlAnnulusSectorGeometry >> aeContainsPoint: aPoint in: aBlElement [
-	"Answer whether aPoint is contained by this geometry.
-
-	Adapted from RSPieSlice>>#preciseIncludesPoint:"
-
-	| p d n a b |
-
-	"Check if distance is between right interval"
-	p := aPoint - self center.
-	d := p distanceTo: 0.0@0.0.
-	(d between: self absoluteInnerRadius and: self absoluteOuterRadius)
-		ifFalse: [ ^ false ].
-
-	"Check the angle"
-	n := p angle radiansToDegrees % 360.
-	a := self startAngle % 360.
-	b := self endAngle % 360.
-
-	^ a < b
-		ifTrue: [ n between: a and: b ]
-		ifFalse: [ a <= n or: [ n <= b ] ]
-]