ImageEditor.st
changeset 3477 52202af265c2
parent 3476 2854769b212a
child 3478 1b4386fd1953
equal deleted inserted replaced
3476:2854769b212a 3477:52202af265c2
  7929     ]
  7929     ]
  7930 
  7930 
  7931     "Modified: / 26.7.1998 / 20:23:52 / cg"
  7931     "Modified: / 26.7.1998 / 20:23:52 / cg"
  7932 !
  7932 !
  7933 
  7933 
  7934 doNegativeImage
       
  7935     "negates current image by negating the color map"
       
  7936 
       
  7937     self withExecuteCursorDo:[
       
  7938         imageEditView negativeImage.
       
  7939         self updateImage.
       
  7940     ].
       
  7941 "/
       
  7942 "/    imageEditView negativeImage.
       
  7943 "/    self listOfColors removeAll.
       
  7944 "/    self findColorMapMode.     
       
  7945 "/    "/ imageEditView removelastUndo
       
  7946 "/
       
  7947 "/
       
  7948 
       
  7949     "Modified: / 31-08-2017 / 12:44:25 / cg"
       
  7950 !
       
  7951 
       
  7952 doResizeImage
  7934 doResizeImage
  7953     "resizes the current image"
  7935     "resizes the current image"
  7954 
  7936 
  7955     |box newSize image|
  7937     |box newSize image|
  7956 
  7938 
  8146 
  8128 
  8147 makeNegative
  8129 makeNegative
  8148     "negates current image by negating the color map"
  8130     "negates current image by negating the color map"
  8149 
  8131 
  8150     self withExecuteCursorDo:[
  8132     self withExecuteCursorDo:[
  8151         imageEditView negativeImage.
  8133         imageEditView makeNegative.
  8152         self updateImage.
  8134         self updateImage.
  8153     ].
  8135     ].
  8154 "/
       
  8155 "/    imageEditView negativeImage.
       
  8156 "/    self listOfColors removeAll.
       
  8157 "/    self findColorMapMode.     
       
  8158 "/    "/ imageEditView removelastUndo
       
  8159 "/
       
  8160 "/
       
  8161 
  8136 
  8162     "Created: / 31-08-2017 / 13:49:47 / cg"
  8137     "Created: / 31-08-2017 / 13:49:47 / cg"
       
  8138     "Modified (comment): / 01-09-2017 / 10:27:37 / cg"
  8163 !
  8139 !
  8164 
  8140 
  8165 thresholdGrayToDepth
  8141 thresholdGrayToDepth
  8166     self askForDepthThenDo:[:depth |
  8142     self askForDepthThenDo:[:depth |
  8167         self thresholdGrayToDepth:depth
  8143         self thresholdGrayToDepth:depth