7970 box verticalPanel add:(slider := HorizontalSlider new start:0 stop:1 step:0.05). |
7970 box verticalPanel add:(slider := HorizontalSlider new start:0 stop:1 step:0.05). |
7971 slider model:thresholdValue. |
7971 slider model:thresholdValue. |
7972 slider width:1.0; leftInset:4; rightInset:4. |
7972 slider width:1.0; leftInset:4; rightInset:4. |
7973 |
7973 |
7974 box verticalPanel add:(preview := ImageView new). |
7974 box verticalPanel add:(preview := ImageView new). |
7975 preview extent:1.0 @300. |
7975 preview extent:300 @300. |
7976 preview level:-1. |
7976 preview level:-1. |
7977 box verticalPanel horizontalLayout:#fitSpace. |
7977 box verticalPanel horizontalLayout:#fitSpace. |
7978 |
7978 |
7979 update := |
7979 update := |
7980 [ |
7980 [ |
7986 ]. |
7986 ]. |
7987 update value. |
7987 update value. |
7988 box enterField acceptOnLostFocus:true. |
7988 box enterField acceptOnLostFocus:true. |
7989 box enterField acceptOnLeave:true. |
7989 box enterField acceptOnLeave:true. |
7990 thresholdValue onChangeEvaluate:update. |
7990 thresholdValue onChangeEvaluate:update. |
7991 "/ box height:400. |
7991 |
7992 ] do:[ |
7992 ] do:[ |
7993 userInput := Dialog request:'Treshold (0=black; 1=white) ?' initialAnswer:0.5. |
7993 userInput := Dialog request:'Threshold (0=black; 1=white) ?' initialAnswer:0.5. |
7994 ]. |
7994 ]. |
7995 userInput isEmptyOrNil ifTrue:[^ self]. |
7995 userInput isEmptyOrNil ifTrue:[^ self]. |
7996 thresholdBrighness := Number readFrom:userInput onError:nil. |
7996 thresholdBrighness := Number readFrom:userInput onError:nil. |
7997 thresholdBrighness isNil ifTrue:[^ self]. |
7997 thresholdBrighness isNil ifTrue:[^ self]. |
7998 |
7998 |
7999 thresholdBrighness := thresholdBrighness clampBetween:0 and:1. |
7999 thresholdBrighness := thresholdBrighness clampBetween:0 and:1. |
8000 imageEditView newImageWithUndo:(image asThresholdMonochromeImage:thresholdBrighness) |
8000 imageEditView newImageWithUndo:(image asThresholdMonochromeImage:thresholdBrighness) |
8001 |
8001 |
8002 "Created: / 24-08-2017 / 15:26:44 / cg" |
8002 "Created: / 24-08-2017 / 15:26:44 / cg" |
8003 "Modified (comment): / 24-08-2017 / 16:43:32 / cg" |
8003 "Modified (comment): / 24-08-2017 / 16:53:49 / cg" |
8004 ! ! |
8004 ! ! |
8005 |
8005 |
8006 !ImageEditor methodsFor:'user actions-image sequences'! |
8006 !ImageEditor methodsFor:'user actions-image sequences'! |
8007 |
8007 |
8008 editEachImageFromSequence |
8008 editEachImageFromSequence |