equal
deleted
inserted
replaced
3000 ] |
3000 ] |
3001 ]. |
3001 ]. |
3002 ! |
3002 ! |
3003 |
3003 |
3004 makeSelectedColorBrighter |
3004 makeSelectedColorBrighter |
3005 |depth img cMap newColorMap newImage oldCListSize newMode clr| |
3005 |img cMap newImage clr| |
3006 |
3006 |
3007 img := self image. |
3007 img := self image. |
3008 cMap := img colorMap. |
3008 cMap := img colorMap. |
3009 cMap isNil ifTrue:[ |
3009 cMap isNil ifTrue:[ |
3010 self warn:'Image has no colormap\change colorMap mode first.' withCRs. |
3010 self warn:'Image has no colormap\change colorMap mode first.' withCRs. |
3018 cMap at:imageEditView selectedColorIndex put:clr lightened. |
3018 cMap at:imageEditView selectedColorIndex put:clr lightened. |
3019 |
3019 |
3020 newImage := img species new |
3020 newImage := img species new |
3021 width:img width |
3021 width:img width |
3022 height:img height |
3022 height:img height |
3023 depth:depth |
3023 depth:nil |
3024 fromArray:img bits. |
3024 fromArray:img bits. |
3025 |
3025 |
3026 newImage colorMap:cMap. |
3026 newImage colorMap:cMap. |
3027 newImage fileName:img fileName. |
3027 newImage fileName:img fileName. |
3028 newImage mask:(img mask copy). |
3028 newImage mask:(img mask copy). |
3037 "Created: / 12.3.1999 / 00:20:28 / cg" |
3037 "Created: / 12.3.1999 / 00:20:28 / cg" |
3038 "Modified: / 16.3.1999 / 21:57:26 / cg" |
3038 "Modified: / 16.3.1999 / 21:57:26 / cg" |
3039 ! |
3039 ! |
3040 |
3040 |
3041 makeSelectedColorDarker |
3041 makeSelectedColorDarker |
3042 |depth img cMap clr newImage| |
3042 |img cMap clr newImage| |
3043 |
3043 |
3044 img := self image. |
3044 img := self image. |
3045 cMap := img colorMap. |
3045 cMap := img colorMap. |
3046 cMap isNil ifTrue:[ |
3046 cMap isNil ifTrue:[ |
3047 self warn:'Image has no colormap\change colorMap mode first.' withCRs. |
3047 self warn:'Image has no colormap\change colorMap mode first.' withCRs. |
3054 cMap at:imageEditView selectedColorIndex put:clr darkened. |
3054 cMap at:imageEditView selectedColorIndex put:clr darkened. |
3055 |
3055 |
3056 newImage := img species new |
3056 newImage := img species new |
3057 width:img width |
3057 width:img width |
3058 height:img height |
3058 height:img height |
3059 depth:depth |
3059 depth:nil |
3060 fromArray:img bits. |
3060 fromArray:img bits. |
3061 |
3061 |
3062 newImage colorMap:cMap. |
3062 newImage colorMap:cMap. |
3063 newImage fileName:img fileName. |
3063 newImage fileName:img fileName. |
3064 newImage mask:(img mask copy). |
3064 newImage mask:(img mask copy). |