AeCairoRadialGradientPattern: Add instance creation API for same inne…

…r and outer center (frequent scenario)
pharo-graphics · Dec 10, 2024 · f9fa8f3 · f9fa8f3
1 parent 57d83e9
commit f9fa8f3
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 8 deletions.
diff --git a/src/Alexandrie-Cairo-Tests/AeCairoExamplesRenderTest.class.st b/src/Alexandrie-Cairo-Tests/AeCairoExamplesRenderTest.class.st
@@ -626,9 +626,8 @@ AeCairoExamplesRenderTest >> surfaceWithShadowedCircleEmulatedBuffered [
 		format: AeCairoSurfaceFormat a8.
 	aShadowContext := aShadowSurface newContext.
 	aGradient := (AeCairoRadialGradientPattern
-		innerCenter: shadowCenter
+		center: shadowCenter
 		innerRadius: radius
-		outerCenter: shadowCenter
 		outerRadius: radius + shadowSize)
 			addStopAt: 0.0 color: Color white;
 			addStopAt: 0.2 color: (Color white alpha: 0.5);
@@ -693,9 +692,8 @@ AeCairoExamplesRenderTest >> surfaceWithShadowedCircleEmulatedDirect [
 
 	"draw shadow"
 	aGradient := (AeCairoRadialGradientPattern
-		innerCenter: shadowCenter
+		center: shadowCenter
 		innerRadius: radius
-		outerCenter: shadowCenter
 		outerRadius: radius + shadowSize)
 			addStopAt: 0.0 color: shadowColor;
 			addStopAt: 0.2 color: (shadowColor alpha: 0.5);

diff --git a/src/Alexandrie-Cairo/AeCairoGradientShadowFilter.class.st b/src/Alexandrie-Cairo/AeCairoGradientShadowFilter.class.st
@@ -43,11 +43,10 @@ AeCairoGradientShadowFilter >> paintFor: rectangle blurRadius: radius color: aCo
 
 	aGradient := 
 		AeCairoRadialGradientPattern 
-			innerCenter: rectangle topLeft
+			center: rectangle topLeft
 			innerRadius: 0.0
-			outerCenter: rectangle topLeft
-			outerRadius: radius
-			addStopsFrom: colorRamp.
+			outerRadius: radius.
+	aGradient addStopsFrom: colorRamp.
 	aGradientMatrix := AeCairoMatrix newIdentity.
 
 	aContext restoreStateAfter: [

diff --git a/src/Alexandrie-Cairo/AeCairoRadialGradientPattern.class.st b/src/Alexandrie-Cairo/AeCairoRadialGradientPattern.class.st
@@ -9,6 +9,16 @@ Class {
 	#category : #'Alexandrie-Cairo-Patterns'
 }
 
+{ #category : #'instance creation' }
+AeCairoRadialGradientPattern class >> center: aCenter innerRadius: anInnerRadius outerRadius: anOuterRadius [
+
+	^ self
+		innerCenter: aCenter
+		innerRadius: anInnerRadius
+		outerCenter: aCenter
+		outerRadius: anOuterRadius
+]
+
 { #category : #'instance creation' }
 AeCairoRadialGradientPattern class >> innerCenter: anInnerCenter innerRadius: anInnerRadius outerCenter: anOuterCenter outerRadius: anOuterRadius [