Add an example of mask API

pharo-graphics · May 23, 2023 · 86d7f7a · 86d7f7a
1 parent ae96a20
commit 86d7f7a
Showing 1 changed file with 29 additions and 0 deletions.
diff --git a/src/Alexandrie-Cairo-Tests/AeCairoExamplesRenderTest.class.st b/src/Alexandrie-Cairo-Tests/AeCairoExamplesRenderTest.class.st
@@ -25,6 +25,35 @@ AeCairoExamplesRenderTest class >> inspectMismatches [
 	super inspectMismatches
 ]
 
+{ #category : #tests }
+AeCairoExamplesRenderTest >> surfaceWithColoredIcons [
+
+	| inputForm inputSurface outputColors outputSurface outputContext |
+	inputForm := self iconNamed: #windowClose.
+	inputSurface := AeCairoImageSurface fromForm: inputForm.
+
+	outputColors := Color wheel: 7.
+
+	"Create a surface and associated context"
+	outputSurface := AeCairoImageSurface
+	    extent: (inputSurface width * outputColors size) @ inputSurface height
+	    format: AeCairoSurfaceFormat argb32.
+	outputContext := outputSurface newContext.
+
+	"Paint the inputSurface with each color"
+	outputColors
+	    do: [ :eachColor |
+	        outputContext
+	            sourceColorRGBA: eachColor;
+	            maskSurface: inputSurface x: 0 y: 0 ]
+	    separatedBy: [
+	        outputContext
+	            translateByX: inputSurface width
+	            y: 0 ].
+
+	^ outputSurface
+]
+
 { #category : #tests }
 AeCairoExamplesRenderTest >> surfaceWithDeviceOffset [