home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 5 / Composite_Blue_Screen < prev    next >
Encoding:
Text File  |  1995-10-11  |  2.3 KB  |  102 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5.  
  6. Lines=10
  7. 01=Composite Blue Screen
  8. 02= 
  9. 03=This is a very powerful script to allow 
  10. 04=you to create a Chroma Key type of an
  11. 05=effect. The images or clips in your list
  12. 06=should be shot against a blue or green
  13. 07=background. You can then select an image,
  14. 08=sequence, or clip to use in the background.
  15. 09=Then it will composite the two together and
  16. 10=replace the blue with the background image.
  17.  
  18. */
  19.  
  20. options results
  21.  
  22. arg FrameNum TotalFiles
  23. address "IMAGEFX.1"
  24.  
  25. Start = 0
  26. if FrameNum = 0 then do
  27.     FrameNum = 1
  28.     Gadget.1 = 'Select Type Of BackGround For Blue Screen!'
  29.     Gadget.2 = 'IMAGE'
  30.     Gadget.3 = 'SEQUENCE'
  31.     Gadget.4 = 'CLIP'
  32.     ListRequest 4 Gadget
  33.     if result = 2 then Type = "IMAGE"
  34.     if result = 3 then Type = "SEQUENCE"
  35.     if result = 4 then Type = "CLIP"
  36.  
  37.     if Type = "SEQUENCE" then do
  38.         RequestFile '"Select Path & BaseName For BackGround!"'
  39.         PicName = result
  40.         RequestNumber '"Select Frame Number To Start With!"' 1
  41.         Start = result-1
  42.         end
  43.     else do
  44.         RequestFile '"Select File To Use For BackGround!"'
  45.         PicName = result
  46.         end
  47.  
  48.     if Type = "CLIP" then do
  49.         Address CT_1 GetClipLength PicName
  50.         Start = result
  51.         RequestSlider '"Start With What Frame Of Clip!"' 1 Start 1
  52.         Start = result-1
  53.         end
  54.     KillBrush
  55.     Gadget.1 = 'Select Color For CineMatte!'
  56.     Gadget.2 = 'BLUE'
  57.     Gadget.3 = 'GREEN'
  58.     ListRequest 3 Gadget
  59.     if result = 2 then CType = "BlueScreen"
  60.     if result = 3 then CType = "GreenScreen"
  61.  
  62.     call open TempFile,"RAM:CT-IFCBS",W
  63.     call writeln TempFile,PicName
  64.     call writeln TempFile,Type
  65.     call writeln TempFile,CType
  66.     call writeln TempFile,Start
  67.     call close TempFile
  68.     end
  69. else do
  70.     call open TempFile,"RAM:CT-IFCBS",R
  71.     line = readln(TempFile)
  72.     parse var line PicName
  73.     line = readln(TempFile)
  74.     parse var line Type
  75.     line = readln(TempFile)
  76.     parse var line CType
  77.     line = readln(TempFile)
  78.     parse var line Start
  79.     call close TempFile
  80.     end
  81.  
  82. Swap
  83. FrameNum = FrameNum + Start
  84. if Type = "CLIP" then
  85.     LoadBuffer PicName Force FrameNum
  86. if Type = "IMAGE" then
  87.     LoadBuffer PicName Force
  88. if Type = "SEQUENCE" then do
  89.     if FrameNum < 1000 then
  90.         LoadBuffer PicName""right(FrameNum,3,'0') Force
  91.     if FrameNum < 10000 then
  92.         LoadBuffer PicName""right(FrameNum,4,'0') Force
  93.     end
  94. Swap
  95. Hook CineMatte CType OutputBoth 1 0 0 0 0 0 0 0 0 255
  96.  
  97.  
  98. exit
  99.  
  100.  
  101.  
  102.