home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 5 / Sharpen_Image < prev    next >
Encoding:
Text File  |  1995-10-17  |  884 b   |  42 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5.  
  6. Lines=6
  7. 01=Sharpen Image
  8. 02= 
  9. 03=This script loads each image of the File List Window
  10. 04=into ImageFX and allows you to sharpen the image. A
  11. 05=higer sharpening can cause unwanted noise to disturb
  12. 06=the image.
  13.  
  14. */
  15.  
  16. options results
  17.  
  18. arg FrameNum TotalFiles
  19. address "IMAGEFX.1"
  20.  
  21.  
  22. if FrameNum = 0 then do
  23.     FrameNum = 1
  24.     RequestSlider '"Enter Amount Of Sharpening To Apply!"' 1 255 150
  25.         if Result = "" then Result = 255
  26.         if Result = 0 then Result = 1
  27.     SharpenNum = Result
  28.     call open TempFile,"Ram:CT-IFSHP",W
  29.     call writeln TempFile,SharpenNum
  30.     call close TempFile
  31.     end
  32. else do
  33.     call open TempFile,"Ram:CT-IFSHP",R
  34.     line = readln(TempFile)
  35.     parse var line SharpenNum
  36.     call close TempFile
  37.     end
  38.  
  39. Sharpen SharpenNum
  40.  
  41. exit
  42.