equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2352 (clr := self selectedColor) notNil ifTrue:[ |
2350 (clr := self selectedColor) notNil ifTrue:[ |
2353 self updateActivity:'Flood filling - press CTRL-y to abort ...'. |
2351 self updateActivity:'Flood filling - press CTRL-y to abort ...'. |
2354 [ |
2352 [ |
2355 |pix| |
2353 |pix| |
2356 |
2354 |
2357 (clr := self drawingColorOrNil) notNil ifTrue:[ |
2355 ((clr := self drawingColorOrNil) notNil and:[clr redByte notNil]) ifTrue:[ |
2358 pix := image valueFromColor:clr. |
2356 pix := image valueFromColor:clr. |
2359 ] ifFalse:[ |
2357 ] ifFalse:[ |
2360 pix := self drawingPixelOrNil. |
2358 pix := self drawingPixelOrNil. |
2361 ]. |
2359 ]. |
2362 image floodFillAt:aPoint//magnification withValue:pix |
2360 image floodFillAt:aPoint//magnification withValue:pix |
3402 with:image depth |
3400 with:image depth |
3403 with:(image mask notNil ifTrue: ['+mask'] ifFalse:[''])). |
3401 with:(image mask notNil ifTrue: ['+mask'] ifFalse:[''])). |
3404 |
3402 |
3405 image depth ~~ image bitsPerSample sum ifTrue:[ |
3403 image depth ~~ image bitsPerSample sum ifTrue:[ |
3406 s print:' ('. |
3404 s print:' ('. |
3407 image bitsPerSample do:[:each | s print:each] separatedBy:[s print:'·']. |
3405 image bitsPerSample do:[:each | s print:each] separatedBy:[s print:'·']. |
3408 s print:')'. |
3406 s print:')'. |
3409 ]. |
3407 ]. |
3410 |
3408 |
3411 d := image depth min:24. |
3409 d := image depth min:24. |
3412 ' [%1/%2 colors]' expandPlaceholdersWith:{image nColorsUsed. (2 raisedTo:d)} on:s. |
3410 ' [%1/%2 colors]' expandPlaceholdersWith:{image nColorsUsed. (2 raisedTo:d)} on:s. |