home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / grafica / redfix / rexx / autofx / saverenderedas_newicon.ifx < prev    next >
Text File  |  1999-11-12  |  2KB  |  65 lines
  1. /*
  2.  * $VER: SaveRenderedAs_NewIcon.ifx (AutoFX Arexx script) 1.0 (12.11.99) ® 1999 by Przemyslaw 'SENSEI' Gruchala
  3.  *
  4.  * Arexx script for AutoFX. Made for the REDFiX modules package.
  5.  *
  6.  * Based on the SaveRenderedAs_ILBM.ifx written by Thomas Krehbiel
  7.  *
  8.  * Save rendered image as NewIcon. Buffer must not be CMAP!
  9.  *
  10.  * Inputs:
  11.  *    Word(Arg(1),1) = Frame number (1 - N)
  12.  *    Word(Arg(1),2) = Main filename ("-" if not specified)
  13.  *    Word(Arg(1),3) = Swap filename ("-" if not specified)
  14.  *    Word(Arg(1),4) = Sequence number (?)
  15.  *    Word(Arg(1),5) = Total number of frames (N)
  16.  *
  17.  * Returns:
  18.  *    0 if successful, non-zero on failure
  19.  *
  20.  */
  21.  
  22. OPTIONS RESULTS
  23.  
  24. /* gracefully exit if no buffer */
  25. GetMain
  26. IF rc ~= 0 THEN EXIT 0
  27.  
  28. framenum = Word(Arg(1),1)
  29. mainname = Word(Arg(1),2)
  30. swapname = Word(Arg(1),3)
  31. seq      = Word(Arg(1),4)
  32. framemax = Word(Arg(1),5)
  33.  
  34. base = 'Autofx_SaveRenderedAsNewIcon_'
  35.  
  36. path = GETCLIP(base||'Path'||seq)
  37. ext  = GETCLIP(base||'Ext'||seq)
  38. gui  = GETCLIP(base||'GUI'||seq)
  39.  
  40. i = POS('*', ext)
  41. IF i > 0 THEN ext = LEFT(ext,i-1) || RIGHT('00000'||framenum,5) || SUBSTR(ext,i+1)
  42.  
  43. outfile = mainname||ext
  44. IF path ~= "" THEN DO
  45.  
  46.    i = LASTPOS('/',mainname)
  47.    IF i = 0 THEN i = LASTPOS(':',mainname)
  48.  
  49.    IF i = 0 THEN
  50.       file = mainname
  51.    ELSE
  52.       file = SUBSTR(mainname,i+1)
  53.  
  54.    IF RIGHT(path,1) ~= ':' THEN path = path||'/'
  55.    outfile = path||file||ext
  56.  
  57.    END
  58.  
  59. SaveRenderedAs 'Icon/NewIcon' '"'outfile'"' gui
  60.  
  61. /* Nie wyswietlaj GUI za nastepnym razem */
  62. CALL SETCLIP(base||'GUI'||seq,  "NOSHOWGUI")
  63.  
  64. EXIT rc
  65.