home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 5 / Mosaic < prev    next >
Encoding:
Text File  |  1995-10-17  |  840 b   |  43 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5. Lines=6
  6. 01=Mosaic
  7. 02= 
  8. 03=This script loads each image of the File List Window
  9. 04=into ImageFX and distorts the image by increasing the
  10. 05=pixel size. Used alot on tv COP shows to cover up a
  11. 06=persons face to be unrecognizable.
  12.  
  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.     NumA = 2
  25.     NumB = 50
  26.     NumC = 5
  27.     RequestSlider '"Enter Mosaic Pixel Size To Use!"' NumA NumB NumC
  28.     Answer = Result
  29.     call open TempFile,"Ram:CT-IFMZ",W
  30.     call writeln TempFile,Answer
  31.     call close TempFile
  32.     end
  33. else do
  34.     call open TempFile,"Ram:CT-IFMZ",R
  35.     line = readln(TempFile)
  36.     parse var line Answer
  37.     call close TempFile
  38.     end
  39.  
  40. Hook Mosaic Answer
  41.  
  42. exit
  43.