Tim Felgentreff uploaded a new version of GraphicsTests to project The Trunk:
http://source.squeak.org/trunk/GraphicsTests-tfel.39.mcz==================== Summary ====================
Name: GraphicsTests-tfel.39
Author: tfel
Time: 17 February 2016, 5:51:30.223973 pm
UUID: e5085311-2855-46f8-a8ee-bbe23e3761e0
Ancestors: GraphicsTests-fbs.38
remove simulation tests that we're duplicated from VMMaker, and that need VMMaker, anyway
=============== Diff against GraphicsTests-fbs.38 ===============
Item was removed:
- ----- Method: BitBltTest>>testAlphaCompositing2Simulated (in category 'bugs') -----
- testAlphaCompositing2Simulated
- "self run: #testAlphaCompositing2Simulated"
-
- <timeout: 60>
- Smalltalk at: #BitBltSimulation ifPresent: [:bitblt|
- | bb f1 f2 mixColor result eps |
- f1 := Form extent: 1@1 depth: 32.
- f2 := Form extent: 1@1 depth: 32.
- eps := 0.5 / 255.
- 0 to: 255 do:[:i|
- f1 colorAt: 0@0 put: Color transparent.
- mixColor := Color red alpha: i / 255.0.
- f2 colorAt: 0@0 put: mixColor.
- mixColor := f2 colorAt: 0@0.
- bb := BitBlt toForm: f1.
- bb sourceForm: f2.
- bb combinationRule: Form blend.
- bb copyBitsSimulated.
- result := f1 colorAt: 0@0.
- self assert: (result red - mixColor alpha) abs < eps.
- self assert: result alpha = mixColor alpha.
- ].]!
Item was removed:
- ----- Method: BitBltTest>>testAlphaCompositingSimulated (in category 'bugs') -----
- testAlphaCompositingSimulated
- "self run: #testAlphaCompositingSimulated"
-
- <timeout: 60>
- Smalltalk at: #BitBltSimulation ifPresent:[:bitblt|
- | bb f1 f2 mixColor result eps |
- f1 := Form extent: 1@1 depth: 32.
- f2 := Form extent: 1@1 depth: 32.
- eps := 0.5 / 255.
- 0 to: 255 do:[:i|
- f1 colorAt: 0@0 put: Color blue.
- mixColor := Color red alpha: i / 255.0.
- f2 colorAt: 0@0 put: mixColor.
- mixColor := f2 colorAt: 0@0.
- bb := BitBlt toForm: f1.
- bb sourceForm: f2.
- bb combinationRule: Form blend.
- bb copyBitsSimulated.
- result := f1 colorAt: 0@0.
- self assert: (result red - mixColor alpha) abs < eps.
- self assert: (result blue - (1.0 - mixColor alpha)) abs < eps.
- self assert: result alpha = 1.0.
- ]].!