home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / HalveAnim.ifx < prev    next >
Encoding:
Text File  |  1994-07-22  |  770 b   |  48 lines
  1. /*
  2.  * $VER: Halve 2.0.0 (22.7.94)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Revised for ImageFX release 2.0.
  8.  *
  9.  * Halve the width and height of an animation.
  10.  *
  11.  */
  12.  
  13. OPTIONS RESULTS
  14. SIGNAL ON BREAK_C
  15.  
  16. RequestFile '"Input animation:"'          /* Get source anim name */
  17. IF rc ~= 0 THEN EXIT
  18. input = result
  19.  
  20. RequestFile '"Output animation:"'         /* Get ouput anim name */
  21. IF rc ~= 0 THEN EXIT
  22. output = result
  23.  
  24. FRAME = 1
  25.  
  26. DO FOREVER
  27.  
  28.    Message 'Frame' frame
  29.  
  30.    Render Close
  31.    LoadBuffer input frame
  32.    IF rc ~= 0 THEN LEAVE
  33.    Redraw Off
  34.    Scale Percent 50 50
  35.    Render Go
  36.    SaveRenderedAs ANIM output APPEND KEEP
  37.    Redraw On
  38.  
  39.    frame = frame + 1
  40.  
  41.    END
  42.  
  43. BREAK_C:
  44.  
  45. SaveRenderedAs ANIM output CLOSE
  46.  
  47. EXIT
  48.