home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 5 / Earth_Quake < prev    next >
Encoding:
Text File  |  1995-10-11  |  1.6 KB  |  67 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5.  
  6. Lines=15
  7. 01=Earth Quake
  8. 02= 
  9. 03=This effect will take a clip or
  10. 04=image sequence and give the effect
  11. 05=of a camera shooting video while
  12. 06=an earth quake is happening. What
  13. 07=it does is take each image then it
  14. 08=picks it up as a brush then randomly
  15. 09=moves it up, down, left, or right
  16. 10=and stamps it back down on the main
  17. 11=images and blurs the two togther.
  18. 12= 
  19. 13=It will start out slow then get more
  20. 14=motion as it goes then slow back down
  21. 15=at the end.
  22. */
  23.  
  24. options results
  25.  
  26. arg FrameNum TotalNum
  27. address "IMAGEFX.1"
  28.  
  29. if FrameNum = 0 then do
  30.     FrameNum = 1
  31.     call open TempFile,"Ram:CT-IFEQ",W
  32.     EaseInOut = TotalNum%2
  33.     do i = 1 to TotalNum
  34.         Big = 1
  35.         if i < EaseInOut%4 then Big = 1
  36.         if i < EaseInOut%2 & i > (EaseInOut%4)-1 then Big = 2
  37.         if i > (EaseInOut%2)-1 & i < EaseInOut-(EaseInOut%4) then Big = 3
  38.         if i > (EaseInOut-(EaseInOut%4))-1 & i < EaseInOut+(EaseInOut%4) then Big = 5
  39.         if i > (EaseInOut+(EaseInOut%4))-1 & i < EaseInOut+(EaseInOut%2) then Big = 3
  40.         if i > (EaseInOut+(EaseInOut%2)-1) & i < TotalNum-(EaseInOut%4) then Big = 2
  41.         if i > TotalNum-(EaseInOut%4) then Big = 1
  42.         X = random(0,Big)
  43.         Y = random(0,Big)
  44.         call writeln TempFile,X" "Y
  45.         end
  46.     call close TempFile
  47.     end
  48. DrawMode Normal
  49. ActiveColor 1
  50. Blend 100
  51. AlphaChannel Off
  52. GetMain
  53. parse var result Name Width Height Blah
  54. Scissors
  55. FilledBox 0 0 Width Height
  56. Blend 75
  57. BrushHandle 0 0
  58. call open InData,"Ram:CT-IFEQ",'R'
  59. do i = 1 to FrameNum
  60.     line = readln(InData)
  61.     end
  62. parse var line X" "Y
  63. call close InData
  64. Point X Y
  65.  
  66. exit
  67.