<div dir="ltr"><div>Thanks, <br></div><div>Add
<a href="http://source.squeak.org/inbox/Morphic-kfr.2015.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/inbox/Morphic-kfr.2015.mcz</a> as well. Then we have restored all functionality :-D</div><div><br></div><div>Best, Karl<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sat, Jul 2, 2022 at 9:45 AM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Marcel Taeumel uploaded a new version of Graphics to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Graphics-kfr.527.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/Graphics-kfr.527.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Graphics-kfr.527<br>
Author: kfr<br>
Time: 1 July 2022, 7:15:00.033758 pm<br>
UUID: 45123247-99ec-da41-b9a2-a3680dfe2f66<br>
Ancestors: Graphics-kfr.526<br>
<br>
We can't reduce color of 32 bit depth directly.<br>
Convert to 16 bits first to get around problem.<br>
<br>
=============== Diff against Graphics-kfr.526 ===============<br>
<br>
Item was changed:<br>
----- Method: Form>>copyWithColorsReducedTo: (in category 'converting') -----<br>
copyWithColorsReducedTo: nColors<br>
"Note: this has not been engineered.<br>
There are better solutions in the literature."<br>
| palette colorMap |<br>
+ self depth > 16 ifTrue:[^(self asFormOfDepth: 16) copyWithColorsReducedTo: nColors]. "First reduce to 16 bit depth"<br>
- self depth > 16 ifTrue:[^self]."bail out. will cause problems on 32 bit depth forms"<br>
palette := self reducedPaletteOfSize: nColors.<br>
colorMap := (1 to: (1 bitShift: depth)) collect:<br>
[:i | | pc closest |<br>
pc := Color colorFromPixelValue: i-1 depth: depth.<br>
closest := palette detectMin: [:c | c diff: pc].<br>
closest pixelValueForDepth: depth].<br>
^ self deepCopy copyBits: self boundingBox from: self at: 0@0 colorMap: (colorMap as: Bitmap)<br>
!<br>
<br>
<br>
</blockquote></div>