home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / BB_IENG3.LZX / ImageEngineerV3.0 / ARexx / BulgeAnim.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-04-18  |  1.7 KB  |  70 lines
  1. /*************************/
  2. /* Image Engineer script */
  3. /* by Simon Edwards      */
  4. /*************************/
  5.  
  6. Options results
  7. signal on error            /* Setup a place for errors to go */
  8.  
  9.  
  10. 'REQUEST "This script generates animation frames" "Ok"'
  11.  
  12. 'GET_NUMBER "Amount to bulge by" 1 100 "Ok|Cancel" 20'
  13. BulgeAmount=RESULT
  14.  
  15. 'GET_NUMBER "Enter the number of frames to generate" 1 100 "Ok|Cancel" 10'
  16. NumberOfFrames=RESULT
  17.  
  18. 'GET_FILE "Enter base path and file name"'
  19. BasePath=RESULT
  20.  
  21. 'RENDER_GET COLOUR "Set render options"'
  22. RenderOptions=RESULT
  23.  
  24. 'GET_FILE_TYPE "Select Save format"'
  25. SaveFormat=RESULT
  26.  
  27. PROJECT_INFO arg(1) WIDTH
  28. ProWidth=RESULT
  29. PROJECT_INFO arg(1) HEIGHT
  30. ProHeight=RESULT
  31.  
  32. XOffset=ProWidth/2
  33. YOffset=ProHeight/2
  34.  
  35. if ProWidth<ProHeight then
  36.     Radius=ProWidth/2
  37. else
  38.     Radius=ProHeight/2
  39.  
  40. do i=1 to NumberOfFrames
  41.  
  42. 'BULGE' arg(1) XOffset YOffset Radius BulgeAmount*(i-1)/(NumberOfFrames-1) 'BEST'
  43. Frame=RESULT
  44. 'RENDER_SET' Frame RenderOptions
  45. 'RENDER' Frame
  46. 'SAVE' Frame '"'||BasePath||right(i,3,'0')||'" "'||SaveFormat||'"'
  47. 'CLOSE' Frame
  48. end
  49.  
  50. 'REQUEST "Done, generated ' NumberOfFrames 'frames."'
  51. exit
  52.  
  53. /*******************************************************************/
  54. /* This is where control goes when an error code is returned by IE */
  55. /* It puts up a message saying what happened and on which line     */
  56. /*******************************************************************/
  57. error:
  58. if RC=5 then do            /* Did the user just cancel us? */
  59.     IE_TO_FRONT
  60.     LAST_ERROR
  61.     'REQUEST "'||RESULT||'"'
  62.     exit
  63. end
  64. else do
  65.     IE_TO_FRONT
  66.     LAST_ERROR
  67.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  68.     exit
  69. end
  70.