home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 5 / Image_Map < prev    next >
Encoding:
Text File  |  1995-10-16  |  2.1 KB  |  90 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5. Lines=6
  6. 01=Image Map
  7. 02= 
  8. 03=This script loads each image of the File List Window
  9. 04=into ImageFX and composites the color value (Hue) from
  10. 05=the selected swap image into the Main buffer without
  11. 06=affecting the original brightness value of the Main buffer.
  12. */
  13.  
  14. options results
  15.  
  16. arg FrameNum TotalFiles
  17. address "IMAGEFX.1"
  18.  
  19. if FrameNum = 0 then do
  20.     FrameNum = 1
  21.     Gadget.1 = 'Select Type For Merge!'
  22.     Gadget.2 = 'IMAGE'
  23.     Gadget.3 = 'SEQUENCE'
  24.     Gadget.4 = 'CLIP'
  25.     ListRequest 4 Gadget
  26.     if result = 2 then Type = "IMAGE"
  27.     if result = 3 then Type = "SEQUENCE"
  28.     if result = 4 then Type = "CLIP"
  29.  
  30.     if Type = "SEQUENCE" then do
  31.         RequestFile '"Select Path & BaseName For Merge!"'
  32.         PicName = result
  33.         RequestNumber '"Select Frame Number To Start With!"' 1
  34.         Start = result-1
  35.         end
  36.     else do
  37.         RequestFile '"Select File To Use For Merge!"'
  38.         PicName = result
  39.         end
  40.  
  41.     if Type = "CLIP" then do
  42.         Address CT_1 GetClipLength PicName
  43.         Start = result
  44.         RequestSlider '"Start With What Frame Of Clip!"' 1 Start 1
  45.         Start = result-1
  46.         end
  47.     RequestSlider '"Enter Percentage Of Blend To Use!"' 1 100 50
  48.     Answer = Result
  49.     Gadget.1 = 'Do You Want Swap Buffer Scaled To Fit?'
  50.     Gadget.2 = 'YES'
  51.     Gadget.3 = 'NO'
  52.     ListRequest 3 Gadget
  53.     Answer2 = ""
  54.     if result = 2 then Answer2 = "Scale"
  55.     call open TempFile,"Ram:CT-IFIM",W
  56.     call writeln TempFile,Answer
  57.     call writeln TempFile,Answer2
  58.     call writeln TempFile,PicName
  59.     call writeln TempFile,Type
  60.     call writeln TempFile,Start
  61.     call close TempFile
  62.     end
  63. else do
  64.     call open TempFile,"Ram:CT-IFIM",R
  65.     line = readln(TempFile)
  66.     parse var line Answer
  67.     line = readln(TempFile)
  68.     parse var line Answer2
  69.     line = readln(TempFile)
  70.     parse var line PicName
  71.     line = readln(TempFile)
  72.     parse var line Type
  73.     line = readln(TempFile)
  74.     parse var line Start
  75.     call close TempFile
  76.     end
  77.  
  78. Swap
  79. if Type = "CLIP" then
  80.     LoadBuffer PicName FrameNum Force
  81. if Type = "IMAGE" then
  82.     LoadBuffer PicName Force
  83. if Type = "SEQUENCE" then
  84.     LoadBuffer PicName""right(FrameNum,3,'0') Force
  85. Swap
  86.  
  87. ImageMap Answer Answer2
  88.  
  89. exit
  90.