/* DIP Rexx script  */
/* by Simon Edwards */
/* Makes a B&W image look like the ink has run */

Options results
signal on error			/* Setup a place for errors to go */

address 'IMAGEENGINEER'
IE_To_Front
'request "This script makes a Black and White'||D2C(10)||'image look like the ink has run." "Let''s Go!"'
'get_file "Select a B&W image" "This One"'
filename=result
if filename="" then exit
'open "'||filename||'"'
sourcename=result
negative sourcename
negimage=result
close sourcename
'Convolve '||negimage||' "IE:convolves/Wet_WhiteOnBlack"'
convolveimage=result
close negimage
negative convolveimage
close convolveimage
'request "All Done." "Cool."'
exit

/*******************************************************************/
/* This is where control goes when an error code is returned by IE */
/* It puts up a message saying what happened and on which line     */
/*******************************************************************/
error:
IE_to_front
LAST_ERROR
'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
exit