home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 5 / Motion_Blur < prev    next >
Encoding:
Text File  |  1995-10-17  |  1.0 KB  |  45 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5.  
  6. Lines=4
  7. 01=Motion Blur
  8. 02= 
  9. 03=This script loads each image of the File List Window into
  10. 04=ImageFX and simulates the blur produced by moving objects.
  11.  
  12. */
  13.  
  14. options results
  15.  
  16. arg FrameNum TotalNum
  17. address "IMAGEFX.1"
  18.  
  19. if FrameNum = 0 then do
  20.     RequestSlider '"Enter Angle Of Motion Blur To Apply!"' "-180" "180" "0"
  21.         if Result = "" then Result = 180
  22.         if Result = 0 then Result = 1
  23.     Angle = Result
  24.     RequestSlider '"Enter Length Of Motion Blur In Pixels!"' 1 50 15
  25.         if Result = "" then Result = 50
  26.         if Result = 0 then Result = 1
  27.     Length = Result
  28.     call open TempFile,"Ram:CT-IFMB",W
  29.     call writeln TempFile,Angle
  30.     call writeln TempFile,Length
  31.     call close TempFile
  32.     end
  33. else do
  34.     call open TempFile,"Ram:CT-IFMB",R
  35.     line = readln(TempFile)
  36.     parse var line Angle
  37.     line = readln(TempFile)
  38.     parse var line Length
  39.     call close TempFile
  40.     end
  41.  
  42. Motionblur Angle Length
  43.  
  44. exit
  45.