home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 5 / Gradual_Wave_Distort < prev    next >
Encoding:
Text File  |  1995-10-17  |  769 b   |  32 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5. Lines=7
  6. 01=Gradual Wave Distort
  7. 02= 
  8. 03=This script loads each image of the File List Window
  9. 04=into ImageFX and uses Wave Distort gradually over
  10. 05=the length of frames. It divides the total number of
  11. 06=frames by the current frame number * the highest value
  12. 07=of this function to gradually adjust the list.
  13.  
  14. */
  15.  
  16. options results
  17.  
  18. arg Num TotalNum
  19. address "IMAGEFX.1"
  20.  
  21. if Num = 0 then Num = 1
  22. AlphaChannel Off
  23. GetMain
  24. PARSE VAR result '"'FileName'"' Width Height Depth Fluff
  25. NewNum = ((Num * 360)/(TotalNum))
  26. NewNum = trunc(NewNum)
  27. CreateAlpha Waves 25 Width/2 Height/2 NewNum 25
  28. Distort 30
  29. AlphaChannel Off
  30.  
  31. exit
  32.