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 / UnknownRegion.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-10  |  2KB  |  105 lines
  1. /*
  2.  
  3.    v1.02 UnknownRegion
  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
  15.  
  16.  
  17. if arg()=0 then exit
  18. pic=arg(1)
  19.  
  20.  
  21. MARK pic PRIMARY
  22. PROJECT_INFO pic BOX
  23. picbox=result
  24.  
  25. parse var picbox xplace yplace x2place y2place .
  26.  
  27.  
  28.  
  29.  
  30.  
  31. /* Small enough? */
  32.  
  33. if (x2place-xplace)<10 | (y2place-yplace)<10 then do
  34.  
  35.   'REQUEST "Would you like to choose even smaller box..? ;)" "Sorry"'
  36.   exit
  37.  
  38. end
  39. else do
  40.  
  41.   CROP pic picbox
  42.   cropped=result
  43.  
  44.   PROJECT_SET cropped ZOOM "1:4"
  45.  
  46.   PROJECT_INFO cropped WIDTH
  47.   cropwidth=result
  48.   PROJECT_INFO cropped HEIGHT
  49.   cropheight=result
  50.  
  51.   smaller=trunc(min(cropwidth,cropheight))
  52.  
  53. end
  54.  
  55.  
  56.  
  57.  
  58.  
  59. /* What should we do to it? */
  60.  
  61. RIPPLE cropped trunc(cropwidth/2) trunc(cropheight/2) 30 3 0 AROUND FAST trunc(smaller/2)
  62. fixed=result
  63.  
  64. CLOSE cropped
  65.  
  66.  
  67.  
  68.  
  69.  
  70. /* Let's put it back, where it belongs. */
  71.  
  72. MARK fixed PRIMARY
  73. MARK pic SECONDARY
  74.  
  75. COMPOSITE xplace yplace MIX 100
  76. final=result
  77.  
  78.  
  79. CLOSE fixed
  80.  
  81.  
  82. exit
  83.  
  84.  
  85.  
  86.  
  87. /*******************************************************************/
  88. /* This is where control goes when an error code is returned by IE */
  89. /* It puts up a message saying what happened and on which line     */
  90. /*******************************************************************/
  91.  
  92. error:
  93. if RC=5 then do
  94.     IE_TO_FRONT
  95.     LAST_ERROR
  96.     'REQUEST "'||RESULT||'"'
  97.     exit
  98. end
  99. else do
  100.     IE_TO_FRONT
  101.     LAST_ERROR
  102.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' ' OK '
  103.     exit
  104. end
  105.