home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / SaveBufferAs_MPEG.ifx.post < prev    next >
Encoding:
Text File  |  1996-02-27  |  1.0 KB  |  45 lines
  1. /*
  2.  * $VER: SaveBufferAs_MPEG.ifx.post 2.5 (27.02.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  * Written by Thomas Krehbiel
  5.  *
  6.  * Encode an MPEG stream from a series of frames.  Uses third-party
  7.  * MPEG encoder software.
  8.  *
  9.  * Inputs:
  10.  *    Word(Arg(1),1) = Sequence number
  11.  *    Word(Arg(1),2) = Total number of frames (N)
  12.  *
  13.  * Returns:
  14.  *    0 if successful, non-zero on failure
  15.  *
  16.  */
  17.  
  18. OPTIONS RESULTS
  19.  
  20. base     = 'Autofx_MPEG_'
  21.  
  22. seq     = Word(Arg(1),1)
  23. framemax = Word(Arg(1),2)
  24.  
  25. mfile    = GETCLIP(base||'File'||seq)
  26. newpath = GETCLIP(base||'Path'||seq)
  27. neww    = GETCLIP(base||'Width'||seq)
  28. newh    = GETCLIP(base||'Height'||seq)
  29. xing    = GETCLIP(base||'Xing'||seq)
  30.  
  31. IF RIGHT(newpath,1) ~= ':' THEN newpath = newpath || '/'
  32.  
  33. opts = ""
  34. IF xing THEN opts = opts || '-XING'
  35.  
  36. cli = 'CON:0/0//80/MPEG_Encoder_Output/AUTO/CLOSE/SCREENIMAGEFX.1'
  37. /*cli = 'ram:mpegoutput'*/
  38.  
  39. cmd = 'MPEG/mpeg >'cli '-h' neww '-v' newh '-a 1 -b' framemax '-s' mfile opts newpath'mpeg_temp'
  40.  
  41. ADDRESS COMMAND cmd
  42. ADDRESS COMMAND 'Delete' newpath'mpeg_temp#? QUIET'
  43.  
  44. EXIT
  45.