home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / Anim_To_ANIM.ifx < prev    next >
Encoding:
Text File  |  1994-10-25  |  879 b   |  40 lines
  1. /*
  2.  * Anim_To_ANIM.ifx
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Convert any source animation file into an ANIM file.  Presumably
  6.  * the source format is not an ANIM.
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Frame number (1 - N)
  10.  *    Word(Arg(1),2) = Main filename ("-" if not specified)
  11.  *    Word(Arg(1),3) = Swap filename ("-" if not specified)
  12.  *    Word(Arg(1),4) = Sequence number (?)
  13.  *    Word(Arg(1),5) = Total number of frames (N)
  14.  *
  15.  * Returns:
  16.  *    0 if successful, non-zero on failure
  17.  *
  18.  */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. filename = Word(Arg(1),2)
  23. outfile  = filename||'.ANIM'
  24.  
  25. IF EXISTS(outfile) THEN ADDRESS COMMAND 'Delete' outfile
  26.  
  27. frame = 1
  28. DO FOREVER
  29.    Message 'Converting Frame' framename
  30.    LoadMapped filename frame
  31.    IF rc ~= 0 THEN LEAVE
  32.    SaveRenderedAs ANIM '"'outfile'"' Keep Append
  33.    frame = frame + 1
  34.    END
  35.  
  36. KillMapped
  37. SaveRenderedAs ANIM '"'outfile'"' Close
  38.  
  39. EXIT
  40.