home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 5 / Wave_Distort_Image < prev    next >
Encoding:
Text File  |  1995-10-17  |  1.6 KB  |  71 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=Wave Distort Image
  8. 02= 
  9. 03=This script loads each image of the File List Window
  10. 04=into ImageFX and creates a wave type image in the
  11. 05=alpha channel then distorts the Main buffer based on
  12. 06=the setting of the wave generator.
  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.     AlphaChannel Off
  25.     GetMain
  26.     parse var result Name Width Height fluff
  27.     Gadget.1 = 'I/140/15/Wavelength:/30'
  28.     Gadget.2 = 'I/140/30/Center X:/'Width/2''
  29.     Gadget.3 = 'I/140/45/Center Y:/'Height/2''
  30.     Gadget.4 = 'I/140/60/Angle:/0'
  31.     Gadget.5 = 'I/140/75/Dampening:/0'
  32.     ComplexRequest '"WAVE GENERATOR"' 5 Gadget 220 108
  33.     Answer = result.1
  34.     Answer2 =result.2
  35.     Answer3 =result.3
  36.     Answer4 =result.4
  37.     Answer5 =result.5
  38.     RequestSlider '"Enter Amount Of Distortion:"' 1 255 32
  39.     Answer6 = result
  40.     call open TempFile,"RAM:CT-IFWD",W
  41.     call writeln TempFile,Answer
  42.     call writeln TempFile,Answer2
  43.     call writeln TempFile,Answer3
  44.     call writeln TempFile,Answer4
  45.     call writeln TempFile,Answer5
  46.     call writeln TempFile,Answer6
  47.     call close TempFile
  48.     end
  49. else do
  50.     call open TempFile,"RAM:CT-IFWD",R
  51.     line = readln(TempFile)
  52.     parse var line Answer
  53.     line = readln(TempFile)
  54.     parse var line Answer2
  55.     line = readln(TempFile)
  56.     parse var line Answer3
  57.     line = readln(TempFile)
  58.     parse var line Answer4
  59.     line = readln(TempFile)
  60.     parse var line Answer5
  61.     line = readln(TempFile)
  62.     parse var line Answer6
  63.     call close TempFile
  64.     end
  65.  
  66. CreateAlpha Waves Answer Answer2 Answer3 Answer4 Answer5
  67. Distort Answer6
  68.  
  69.  
  70. exit
  71.