home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / ConvertAnim.ifx < prev    next >
Encoding:
Text File  |  1992-11-20  |  829 b   |  42 lines
  1. /*
  2.  * Do a negative effect on the given animation.  Assumes the
  3.  * Render module and render settings are already setup.
  4.  */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. RequestFile '"Enter Source Animation:"'
  9. IF rc ~= 0 THEN EXIT 0
  10.  
  11. filename = result
  12.  
  13. RequestFile '"Enter Destination Animation:"'
  14. IF rc ~= 0 THEN EXIT 0
  15.  
  16. outfile = result
  17.  
  18. IF EXISTS(outfile) THEN DO
  19.    RequestResponse '"Output exists.  Overwrite it?"'
  20.    IF rc ~= 0 THEN EXIT 0
  21.    ADDRESS COMMAND 'Delete' outfile
  22.    END
  23.  
  24. SetPrefs Undo Off
  25. Menu Render
  26.  
  27. LockRange 0 OFF
  28.  
  29. DO i = 1
  30.  
  31.    LoadBuffer filename Force i   /* load a frame */
  32.    IF rc ~= 0 THEN LEAVE         /* oops... end of file, exit */
  33.    Render Go                     /* uses current render settings */
  34.    SaveRenderedAs ANIM outfile Append  /* append to output animation */
  35.    LockRange 0 ON
  36.  
  37.    END
  38.  
  39. SetPrefs Undo On
  40.  
  41. EXIT 0
  42.