equal
deleted
inserted
replaced
1623 ! |
1623 ! |
1624 |
1624 |
1625 compressColorMap |
1625 compressColorMap |
1626 "calculates a new color map for the image, using only used colors" |
1626 "calculates a new color map for the image, using only used colors" |
1627 |
1627 |
1628 |depth numColors newColorMap newImage |
1628 |depth newColorMap newImage oldImage usedColors oldToNew oldBits newBits tmpBits| |
1629 oldImage newColors realColorMap oldFileName |
|
1630 usedColors useNearest oldToNew oldBits newBits tmpBits| |
|
1631 |
1629 |
1632 oldImage := self image. |
1630 oldImage := self image. |
1633 depth := oldImage depth. |
1631 depth := oldImage depth. |
1634 |
1632 |
1635 oldImage photometric ~~ #palette ifTrue:[ |
1633 oldImage photometric ~~ #palette ifTrue:[ |