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 / AddSpace.rexx next >
OS/2 REXX Batch file  |  1999-04-09  |  3KB  |  134 lines
  1. /*
  2.  
  3.    v1.63 AddSpace
  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.  
  17. if arg()=0 then exit
  18. x=arg(1)
  19. parse var x pic bg value .
  20.  
  21.  
  22.  
  23. MARK pic PRIMARY
  24. PROJECT_INFO pic WIDTH
  25. picwidth=result
  26. PROJECT_INFO pic HEIGHT
  27. picheight=result
  28. PROJECT_INFO pic ZOOM
  29. origzoomval=result
  30.  
  31.  
  32. if bg="" then do
  33.  
  34.   if exists("ie:prefs/veaddspace.cfg") == "1" then
  35.     do
  36.       call open("temp","ie:prefs/veaddspace.cfg","R")
  37.       values=readln("temp")
  38.       parse var values ok bg value .
  39.       call close("temp")
  40.     end
  41.   else
  42.     do
  43.       bg=0
  44.       value=20
  45.     end
  46.  
  47.   'FORM "Add Space" "Use|Cancel"',
  48.   'CYCLE,"Background color","White|Black|Guess",'bg'',
  49.   'INTEGER,"Space to add",1,1000,'value',SLIDER'
  50.  
  51.   values=result
  52.   parse var values ok bg value .
  53.  
  54.   if ok = 0 then exit
  55.  
  56.   call open("temp","ie:prefs/veaddspace.cfg","W")
  57.   res=writeln("temp",values)
  58.   call close("temp")
  59.  
  60. end
  61.  
  62.  
  63. if value=="" then do
  64.  
  65.   'REQUEST "Value is missing!" "Sorry"'
  66.   exit
  67.  
  68. end
  69.  
  70.  
  71.  
  72. select
  73.  
  74.   when bg == 0 | upper(bg)=="WHITE" then do
  75.       BRIGHTNESS pic 255
  76.       bgcolor=result
  77.       RESIZE bgcolor picwidth+(value*2) picheight+(value*2) TILE
  78.       bgcolor2=result
  79.       CLOSE bgcolor
  80.       MARK bgcolor2 SECONDARY
  81.       COMPOSITE value value MIN
  82.       pic2=result
  83.   end
  84.   when bg == 1 | upper(bg)=="BLACK" then do
  85.       BRIGHTNESS pic "-255"
  86.       bgcolor=result
  87.       RESIZE bgcolor picwidth+(value*2) picheight+(value*2) TILE
  88.       bgcolor2=result
  89.       CLOSE bgcolor
  90.       MARK bgcolor2 SECONDARY
  91.       COMPOSITE value value MAX
  92.       pic2=result
  93.   end
  94.   when bg == 2 | upper(bg)=="GUESS" then do
  95.       CROP pic picwidth-1 picheight-1 picwidth-1 picheight-1
  96.       bgpixel=result
  97.       RESIZE bgpixel picwidth+(value*2) picheight+(value*2) TILE
  98.       bgcolor2=result
  99.       CLOSE bgpixel
  100.       MARK bgcolor2 SECONDARY
  101.       COMPOSITE value value MIX 100
  102.       pic2=result
  103.   end
  104.  
  105. otherwise exit
  106. end
  107.  
  108.  
  109. CLOSE bgcolor2
  110.  
  111.  
  112. PROJECT_SET pic2 ZOOM origzoomval
  113.  
  114.  
  115. exit
  116.  
  117. /*******************************************************************/
  118. /* This is where control goes when an error code is returned by IE */
  119. /* It puts up a message saying what happened and on which line     */
  120. /*******************************************************************/
  121. error:
  122. if RC=5 then do            /* Did the user just cancel us? */
  123.     IE_TO_FRONT
  124.     LAST_ERROR
  125.     'REQUEST "'||RESULT||'"'
  126.     exit
  127. end
  128. else do
  129.     IE_TO_FRONT
  130.     LAST_ERROR
  131.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  132.     exit
  133. end
  134.