home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / amiga-magazin / visualengineer / ve-full.lha / arexx / CropEdge.rexx < prev    next >
OS/2 REXX Batch file  |  1999-01-17  |  1KB  |  56 lines
  1. /*
  2.  
  3.    v1.03 Crop Edge
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. signal on error            /* Setup a place for errors to go */
  15.  
  16. if arg()=0 then exit
  17. pic=arg(1)
  18.  
  19. AUTOCROP pic
  20. pic2=result
  21.  
  22. MARK pic2 PRIMARY
  23. PROJECT_INFO pic2 WIDTH
  24. picwidth=result
  25. PROJECT_INFO pic2 HEIGHT
  26. picheight=result
  27. PROJECT_INFO pic2 ZOOM
  28. zoomlevel=result
  29.  
  30. CROP pic2 1 1 picwidth-2 picheight-2
  31. pic3=result
  32.  
  33. CLOSE pic2
  34.  
  35. PROJECT_SET pic3 ZOOM zoomlevel
  36.  
  37. exit
  38.  
  39. /*******************************************************************/
  40. /* This is where control goes when an error code is returned by IE */
  41. /* It puts up a message saying what happened and on which line     */
  42. /*******************************************************************/
  43. error:
  44. if RC=5 then do            /* Did the user just cancel us? */
  45.     IE_TO_FRONT
  46.     LAST_ERROR
  47.     'REQUEST "'||RESULT||'"'
  48.     exit
  49. end
  50. else do
  51.     IE_TO_FRONT
  52.     LAST_ERROR
  53.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  54.     exit
  55. end
  56.