home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / SaveRenderedAs.ifx.pre < prev    next >
Encoding:
Text File  |  1996-04-10  |  1.6 KB  |  61 lines
  1. /*
  2.  * $VER: SaveRenderedAs.ifx.pre 2.5 (11.04.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  * Written by Thomas Krehbiel
  5.  *
  6.  * Save rendered image.
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Sequence number (?)
  10.  *    Word(Arg(1),2) = Total number of frames (N)
  11.  *
  12.  * Returns:
  13.  *    0 if successful, non-zero on failure
  14.  *
  15.  * Revision History:
  16.  *
  17.  *    25.09.95 tek   2.1a: Fixed extension setting.
  18.  */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. seq = WORD(ARG(1),1)
  23.  
  24. lastpath = GETCLIP('Autofx_SaveRenderAs_Path'||seq)
  25. lasttype = GETCLIP('Autofx_SaveRenderAs_Type'||seq)
  26. lastopts = GETCLIP('Autofx_SaveRenderAs_Opts'||seq)
  27. lastext  = GETCLIP('Autofx_SaveRenderAs_Ext'||seq)
  28.  
  29. IF lastext = "" & lastpath = "" THEN lastext = ".new"
  30.  
  31. IF lastpath = "" THEN DO
  32.    GetPrefs RendPath
  33.    lastpath = result
  34.    END
  35.  
  36. IF lasttype = "" THEN lasttype = "ILBM"
  37.  
  38. Gadget.1 = 'STRING  120  5 200 14 "Output Path:" "'lastpath'"'
  39. Gadget.2 = 'STRING  120 20  80 14 "Output Format:" "'lasttype'"'
  40. Gadget.3 = 'STRING  120 35 200 14 "Format Options:" "'lastopts'"'
  41. Gadget.4 = 'FILEREQ 321  5  20 14 "Output Path:" "'lastpath'" AT=1 DIRONLY'
  42. Gadget.5 = 'TEXT    206 23   1  1 "EG: ILBM, JPEG, TIFF" 1'
  43. Gadget.6 = 'STRING  120 50 200 14 "New Extension:" "'lastext'"'
  44. Gadget.7 = 'TEXT    120 66   1  1 "(** = current frame number)" 1'
  45. Gadget.8 = 'END'
  46.  
  47. NewComplexRequest '"Save Rendered Image As"' Gadget 360 84
  48. IF rc ~= 0 THEN EXIT rc
  49.  
  50. lastpath = result.1
  51. lasttype = result.2
  52. lastopts = result.3
  53. lastext  = result.6
  54.  
  55. CALL SETCLIP('Autofx_SaveRenderAs_Path'||seq, lastpath)
  56. CALL SETCLIP('Autofx_SaveRenderAs_Type'||seq, lasttype)
  57. CALL SETCLIP('Autofx_SaveRenderAs_Opts'||seq, lastopts)
  58. CALL SETCLIP('Autofx_SaveRenderAs_Ext'||seq, lastext)
  59.  
  60. EXIT
  61.