home *** CD-ROM | disk | FTP | other *** search
/ 3D Images / 3D Images.iso / programs / amiga / batchfactory / scripts / imagefx / image-fx_gradually_blur_image < prev    next >
Encoding:
Text File  |  1995-01-12  |  1.5 KB  |  56 lines
  1. /* 
  2.                        IMAGE FX GRADUALLY BLUR IMAGE
  3.                                By J.L. White
  4.                           ©1994 Merlin's Software
  5.  
  6.             Apply Blur Function To An Image Gradually Over Time
  7.                               ImageFX Script
  8.  
  9.  Batch Factory Batch Conversion Scripts are basically Arexx scripts that
  10. allow you to pass certain parameters to the external program you wish
  11. to use to convert the images from one format to another. You can pass
  12. five different strings from Batch Factory to the script by using the
  13. following commands:
  14.  
  15. $N = This will pass the current selected filename.
  16. $P = This will tell Batch Factory to ask for a path to save new frames to.
  17. $# = This will pass the current frame number in the script.
  18. $T = This will pass the total number of frames in the script.
  19. $A = This will pass an offset number to be used to save frames with.
  20.  
  21. NOTE: The following line is required to work as a Batch Factory Script:
  22.  
  23. PARSE=$N
  24.  
  25. */
  26.  
  27. options results
  28. call Locate_ImageFX
  29.  
  30. address "IMAGEFX.1"
  31. arg InPic
  32.  
  33. ScreenToFront
  34. RequestSlider '"Enter Blur Intensity:!"' 1 16 8
  35. BlurNum = Result
  36. RequestString '"Enter Path & Base Name To Use For Images!"'
  37. BaseName = Result
  38. RequestSlider '"Enter Amount Of Frames To Create!"' 1 120 60
  39. FrameNum = Result
  40.  
  41. LoadBuffer InPic Force Smooth
  42. do x = 1 to FrameNum
  43.     Blur BlurNum
  44.     SaveBufferAs ILBM BaseName""right(x,3,'0')
  45.     end
  46. exit
  47.  
  48. Locate_ImageFX:
  49.     if (POS('IMAGEFX.1',SHOW('Ports')) = 0)
  50.     then do
  51.         address command 'run < nil: > nil: IMAGEFX:ImageFX'
  52.         address command 'wait 7'
  53.     end
  54. return
  55.  
  56.