home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / SaveBufferAs_MPEG.ifx.pre < prev    next >
Encoding:
Text File  |  1996-02-27  |  1.3 KB  |  55 lines
  1. /*
  2.  * $VER: SaveBufferAs_MPEG.ifx.pre 2.5 (27.02.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  * Written by Thomas Krehbiel
  5.  *
  6.  * Build an MPEG.
  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.  */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. base  = 'Autofx_MPEG_'
  20.  
  21. seq     = Word(Arg(1),1)
  22. framemax = Word(Arg(1),2)
  23.  
  24. mfile    = GETCLIP(base||'File'||seq)
  25. newpath = GETCLIP(base||'Path'||seq)
  26. neww    = GETCLIP(base||'Width'||seq)
  27. newh    = GETCLIP(base||'Height'||seq)
  28. xing    = GETCLIP(base||'Xing'||seq)
  29.  
  30. IF newpath = "" THEN newpath = "RAM:"
  31. IF neww = "" THEN neww = 352
  32. IF newh = "" THEN newh = 256
  33. IF xing = "" THEN xing = 0
  34.  
  35. Gadget.1 = 'STRING  150  5 160 14 "MPEG File:"' mfile
  36. Gadget.2 = 'INTEGER 150 20 60 14 "Size Width:"' neww
  37. Gadget.3 = 'INTEGER 250 20 60 14 "Ht:"' newh
  38. Gadget.4 = 'STRING  130 35 90 14 "Temp Path:"' newpath
  39. Gadget.5 = 'CHECK   60  50 22 11 "XING Compatible?"' xing
  40. Gadget.6 = 'END'
  41.  
  42. NewComplexRequest '"Build MPEG Options"' Gadget 340 70
  43. IF rc ~= 0 THEN EXIT rc
  44.  
  45. neww = ((result.2 + 15) % 16) * 16
  46. newh = ((result.3 + 15) % 16) * 16
  47.  
  48. CALL SETCLIP(base||'File'||seq, result.1)
  49. CALL SETCLIP(base||'Width'||seq, neww)
  50. CALL SETCLIP(base||'Height'||seq, newh)
  51. CALL SETCLIP(base||'Path'||seq, result.4)
  52. CALL SETCLIP(base||'Xing'||seq, result.5)
  53.  
  54. EXIT
  55.