equal
deleted
inserted
replaced
8215 |
8215 |
8216 box verticalPanel extent:1.0 @ 300. |
8216 box verticalPanel extent:1.0 @ 300. |
8217 |
8217 |
8218 box verticalPanel add:(slider := HorizontalSlider new start:2 stop:256 step:1). |
8218 box verticalPanel add:(slider := HorizontalSlider new start:2 stop:256 step:1). |
8219 slider model:thresholdValue. |
8219 slider model:thresholdValue. |
8220 slider width:1.0; leftInset:4; rightInset:4. |
8220 slider width:1.0; leftInset:4 rightInset:4. |
8221 |
8221 |
8222 box verticalPanel add:(preview := ImageView new). |
8222 box verticalPanel add:(preview := ImageView new). |
8223 preview extent:300 @300. |
8223 preview extent:300 @300. |
8224 preview level:-1. |
8224 preview level:-1. |
8225 box verticalPanel horizontalLayout:#fitSpace. |
8225 box verticalPanel horizontalLayout:#fitSpace. |
8250 |
8250 |
8251 grayColors := Color grayColorVector:numGrayColors. |
8251 grayColors := Color grayColorVector:numGrayColors. |
8252 imageEditView newImageWithUndo:(grayImage asDitheredImageUsing:grayColors depth:(grayImage depth)). |
8252 imageEditView newImageWithUndo:(grayImage asDitheredImageUsing:grayColors depth:(grayImage depth)). |
8253 |
8253 |
8254 "Created: / 23-10-2017 / 11:17:44 / cg" |
8254 "Created: / 23-10-2017 / 11:17:44 / cg" |
|
8255 "Modified: / 16-07-2019 / 16:37:46 / Claus Gittinger" |
8255 ! |
8256 ! |
8256 |
8257 |
8257 do3DProjection |
8258 do3DProjection |
8258 "make a naive 3D projection; |
8259 "make a naive 3D projection; |
8259 can be used to create those typical marketing images as seen in web pages" |
8260 can be used to create those typical marketing images as seen in web pages" |
8740 |
8741 |
8741 box verticalPanel extent:1.0 @ 300. |
8742 box verticalPanel extent:1.0 @ 300. |
8742 |
8743 |
8743 box verticalPanel add:(slider := HorizontalSlider new start:0 stop:1 step:0.05). |
8744 box verticalPanel add:(slider := HorizontalSlider new start:0 stop:1 step:0.05). |
8744 slider model:thresholdValue. |
8745 slider model:thresholdValue. |
8745 slider width:1.0; leftInset:4; rightInset:4. |
8746 slider width:1.0; leftInset:4 rightInset:4. |
8746 |
8747 |
8747 box verticalPanel add:(preview := ImageView new). |
8748 box verticalPanel add:(preview := ImageView new). |
8748 preview extent:300 @300. |
8749 preview extent:300 @300. |
8749 preview level:-1. |
8750 preview level:-1. |
8750 box verticalPanel horizontalLayout:#fitSpace. |
8751 box verticalPanel horizontalLayout:#fitSpace. |
8775 imageEditView newImageWithUndo:(image asThresholdMonochromeImage:thresholdBrighness) |
8776 imageEditView newImageWithUndo:(image asThresholdMonochromeImage:thresholdBrighness) |
8776 |
8777 |
8777 "Created: / 24-08-2017 / 15:26:44 / cg" |
8778 "Created: / 24-08-2017 / 15:26:44 / cg" |
8778 "Modified: / 24-08-2017 / 17:54:21 / cg" |
8779 "Modified: / 24-08-2017 / 17:54:21 / cg" |
8779 "Modified (format): / 23-10-2017 / 10:42:52 / cg" |
8780 "Modified (format): / 23-10-2017 / 10:42:52 / cg" |
|
8781 "Modified: / 16-07-2019 / 16:37:50 / Claus Gittinger" |
8780 ! |
8782 ! |
8781 |
8783 |
8782 makeNegative |
8784 makeNegative |
8783 "negates current image by negating the color map" |
8785 "negates current image by negating the color map" |
8784 |
8786 |
8843 |
8845 |
8844 box verticalPanel extent:1.0 @ 300. |
8846 box verticalPanel extent:1.0 @ 300. |
8845 |
8847 |
8846 box verticalPanel add:(slider := HorizontalSlider new start:2 stop:256 step:1). |
8848 box verticalPanel add:(slider := HorizontalSlider new start:2 stop:256 step:1). |
8847 slider model:thresholdValue. |
8849 slider model:thresholdValue. |
8848 slider width:1.0; leftInset:4; rightInset:4. |
8850 slider width:1.0; leftInset:4 rightInset:4. |
8849 |
8851 |
8850 box verticalPanel add:(preview := ImageView new). |
8852 box verticalPanel add:(preview := ImageView new). |
8851 preview extent:300 @300. |
8853 preview extent:300 @300. |
8852 preview level:-1. |
8854 preview level:-1. |
8853 box verticalPanel horizontalLayout:#fitSpace. |
8855 box verticalPanel horizontalLayout:#fitSpace. |
8878 |
8880 |
8879 grayColors := Color grayColorVector:numGrayColors. |
8881 grayColors := Color grayColorVector:numGrayColors. |
8880 imageEditView newImageWithUndo:(grayImage asNearestPaintImageDepth:(grayImage depth) colors:grayColors). |
8882 imageEditView newImageWithUndo:(grayImage asNearestPaintImageDepth:(grayImage depth) colors:grayColors). |
8881 |
8883 |
8882 "Created: / 23-10-2017 / 10:55:15 / cg" |
8884 "Created: / 23-10-2017 / 10:55:15 / cg" |
|
8885 "Modified: / 16-07-2019 / 16:37:54 / Claus Gittinger" |
8883 ! ! |
8886 ! ! |
8884 |
8887 |
8885 !ImageEditor methodsFor:'user actions-editing-colors'! |
8888 !ImageEditor methodsFor:'user actions-editing-colors'! |
8886 |
8889 |
8887 convertToDepth:depth dither:doDither |
8890 convertToDepth:depth dither:doDither |