home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / scala / mm200 / wipes / zooms.wip < prev   
Encoding:
Text File  |  1997-03-05  |  21.8 KB  |  570 lines
  1. !ScalaScript
  2. /*
  3. ** $Id: zooms.wip,v 1.8 1997/02/10 16:51:38 DANIEL Exp $
  4. **
  5. ** Zoom wipes
  6. **
  7. */
  8.  
  9. //------------------------------------------------------------------------------------
  10. //
  11. // CenterScale
  12. // The new picture is scaled up from middle of screen
  13.  
  14. WIPEDEF("ZoomUp", Grid(2,2), TimeScale(1), CopyBackground(FALSE))
  15.   SCALE(From(1,1,1,1), To(0,0,2,2), Time(0,1));
  16. END
  17.  
  18.  
  19. //------------------------------------------------------------------------------------
  20. //
  21. // CenterScaleRev
  22. // The old picture is scaled down towards the middle of screen, revealing the new picture.
  23.  
  24. WIPEDEF("ZoomDown", Grid(2,2), TimeScale(1), ForegroundWipe(FALSE))
  25.   SCALE(From(1,1,1,1), To(0,0,2,2), Time(0,1), Backwards(TRUE));
  26. END
  27.  
  28.  
  29. //------------------------------------------------------------------------------------
  30. //
  31. // SuperZoom
  32. // Zooms in on the old picture, switches to the new picture and zooms back.
  33.  
  34. WIPEDEF("SuperZoom", Grid(2,2), TimeScale(2), ForegroundWipe(FALSE), CopyBackGround(TRUE))
  35.   SOURCE("Old", "Old");
  36.   SCALE(From(1,1,1,1), To(0,0,2,2), Time(0,1), SwapSourceDest(TRUE), Backwards(TRUE));
  37.   SOURCE("New", "New");
  38.   SCALE(From(1,1,1,1), To(0,0,2,2), Time(1,2), SwapSourceDest(TRUE));
  39. END
  40.  
  41.  
  42. //------------------------------------------------------------------------------------
  43. //
  44. // SplineZoom
  45. // Like SuperZoom, but uses a spline path.
  46.  
  47. WIPEDEF("SweepingZoom", Grid(4,4), TimeScale(2), ForegroundWipe(FALSE), CopyBackGround(TRUE),
  48.         Direction(SouthEast,90))
  49.   SOURCE("Old", "Old");
  50.   SCALE(From(0,0,0,0), Thru1(3,0,4,1), Thru2(3,3,4,4), To(0,0,4,4), Time(0, 1), SwapSourceDest(TRUE), Backwards(TRUE));
  51.   SOURCE("New", "New");
  52.   SCALE(From(0,0,0,0), Thru1(3,0,4,1), Thru2(3,3,4,4), To(0,0,4,4), Time(1, 2), SwapSourceDest(TRUE));
  53. END
  54.  
  55.  
  56. //------------------------------------------------------------------------------------
  57. //
  58. // MultiZoom
  59. // SuperZoom is split into four wipes starting on different times.
  60.  
  61. WIPEDEF("QuadZoom", Grid(4,4), TimeScale(5), ForegroundWipe(FALSE), CopyBackGround(TRUE),
  62.         Direction(NorthWest,90))
  63.   SOURCE("Old", "Old");
  64.   SPLINE(Position(0,3000,4000,4096));
  65.   SCALE(From(1,1,1,1), To(0,0,2,2), Time(0,1), SwapSourceDest(TRUE), Backwards(TRUE));
  66.   SCALE(From(3,3,3,3), To(2,2,4,4), Time(1,2), SwapSourceDest(TRUE), Backwards(TRUE));
  67.   SCALE(From(3,1,3,1), To(2,0,4,2), Time(2,3), SwapSourceDest(TRUE), Backwards(TRUE));
  68.   SCALE(From(1,3,1,3), To(0,2,2,4), Time(3,4), SwapSourceDest(TRUE), Backwards(TRUE));
  69.  
  70.   SOURCE("New", "New");
  71.   SPLINE(Position(0,100,1000,4096));
  72.   SCALE(From(1,1,1,1), To(0,0,2,2), Time(1,2), SwapSourceDest(TRUE));
  73.   SCALE(From(3,3,3,3), To(2,2,4,4), Time(2,3), SwapSourceDest(TRUE));
  74.   SCALE(From(3,1,3,1), To(2,0,4,2), Time(3,4), SwapSourceDest(TRUE));
  75.   SCALE(From(1,3,1,3), To(0,2,2,4), Time(4,5), SwapSourceDest(TRUE));
  76. END
  77.  
  78.  
  79. //------------------------------------------------------------------------------------
  80. //
  81. // DiagonalScale
  82. // Like Diagonal, but scales each rectangle from the upper left corner.
  83.  
  84. WIPEDEF("DiagonalZooms", Grid(4,4), TimeScale(7), CopyBackground(FALSE),
  85.         Direction(SouthEast, 90))
  86.   SCALE(From(0,0,0,0), To(0,0,1,1), Time(0,1));
  87.  
  88.   SCALE(From(1,0,1,0), To(1,0,2,1), Time(1,2));
  89.   SCALE(From(0,1,0,1), To(0,1,1,2), Time(1,2));
  90.  
  91.   SCALE(From(2,0,2,0), To(2,0,3,1), Time(2,3));
  92.   SCALE(From(1,1,1,1), To(1,1,2,2), Time(2,3));
  93.   SCALE(From(0,2,0,2), To(0,2,1,3), Time(2,3));
  94.  
  95.   SCALE(From(3,0,3,0), To(3,0,4,1), Time(3,4));
  96.   SCALE(From(2,1,2,1), To(2,1,3,2), Time(3,4));
  97.   SCALE(From(1,2,1,2), To(1,2,2,3), Time(3,4));
  98.   SCALE(From(0,3,0,3), To(0,3,1,4), Time(3,4));
  99.  
  100.   SCALE(From(3,1,3,1), To(3,1,4,2), Time(4,5));
  101.   SCALE(From(2,2,2,2), To(2,2,3,3), Time(4,5));
  102.   SCALE(From(1,3,1,3), To(1,3,2,4), Time(4,5));
  103.  
  104.   SCALE(From(3,2,3,2), To(3,2,4,3), Time(5,6));
  105.   SCALE(From(2,3,2,3), To(2,3,3,4), Time(5,6));
  106.  
  107.   SCALE(From(3,3,3,3), To(3,3,4,4), Time(6,7));
  108. END
  109.  
  110.  
  111. //------------------------------------------------------------------------------------
  112. //
  113. // ArcIn
  114. // Picture is scaled in from upper left corner using a spline path.
  115.  
  116. WIPEDEF("ArcIn", Grid(4,4), TimeScale(1), CopyBackground(TRUE),
  117.         Direction(SouthEast, 90))
  118.   SCALE(From(0,0,0,0), Thru1(3,0,4,1), Thru2(3,3,4,4), To(0,0,4,4), Time(0, 1));
  119. END
  120.  
  121.  
  122. //------------------------------------------------------------------------------------
  123. //
  124. // SwimIn
  125. // Picture is scaled in from middle of screen using a spline path.
  126.  
  127. WIPEDEF("SwimIn", Grid(4,4), TimeScale(1), CopyBackground(TRUE),
  128.         Direction(NorthEast, 90))
  129.   SCALE(From(2,2,2,2), Thru1(3,0,4,1), Thru2(0,4,0,4), To(0,0,4,4), Time(0, 1));
  130. END
  131.  
  132.  
  133. //------------------------------------------------------------------------------------
  134. //
  135. // GlideIn
  136. // A variation of ArcIn.
  137.  
  138. WIPEDEF("GlideIn", Grid(4,4), TimeScale(1), CopyBackground(TRUE),
  139.         Direction(SouthEast, 90))
  140.   SCALE(From(0,0,0,0), Thru1(3,0,4,1), Thru2(3,3,1,1), To(0,0,4,4), Time(0, 1));
  141. END
  142.  
  143.  
  144. //------------------------------------------------------------------------------------
  145. //
  146. // FlipFour
  147. // Four vertical splits is scaled in from the top
  148.  
  149. WIPEDEF("FlipFour", Grid(4,4), TimeScale(4), CopyBackground(FALSE),
  150.         Direction(East, 90))
  151.   SCALE(From(0,0,1,0), To(0,0,1,4), Time(0,1));
  152.   SCALE(From(1,0,2,0), To(1,0,2,4), Time(1,2));
  153.   SCALE(From(2,0,3,0), To(2,0,3,4), Time(2,3));
  154.   SCALE(From(3,0,4,0), To(3,0,4,4), Time(3,4));
  155. END
  156.  
  157.  
  158. //------------------------------------------------------------------------------------
  159. //
  160. // WobbleScale
  161. // 16 vertical scaled rectangles use spline position.
  162.  
  163. WIPEDEF("Premiere", Grid(16,2), TimeScale(14), CopyBackground(TRUE),
  164.         Direction(East, 90))
  165.   SPLINE(Position(0,4000,-3000,4096));
  166.   SCALE(From( 2,1, 2,1), To( 0,0, 2,2), Time(0, 7));
  167.   SCALE(From( 4,1, 4,1), To( 2,0, 4,2), Time(1, 8));
  168.   SCALE(From( 6,1, 6,1), To( 4,0, 6,2), Time(2, 9));
  169.   SCALE(From( 8,1, 8,1), To( 6,0, 8,2), Time(3,10));
  170.   SCALE(From(10,1,10,1), To( 8,0,10,2), Time(4,11));
  171.   SCALE(From(12,1,12,1), To(10,0,12,2), Time(5,12));
  172.   SCALE(From(14,1,14,1), To(12,0,14,2), Time(6,13));
  173.   SCALE(From(16,1,16,1), To(14,0,16,2), Time(7,14));
  174. END
  175.  
  176.  
  177. //------------------------------------------------------------------------------------
  178. //
  179. // WobbleScale2
  180. // 16 vertical scaled rectangles use spline position.
  181.  
  182. WIPEDEF("PremiereEdges", Grid(16,2), TimeScale(14), CopyBackground(TRUE),
  183.         Direction(East, 90))
  184.   SPLINE(Position(0,4000,-3000,4096));
  185.   SCALE(From( 2,0, 2,0), To( 0,0, 2,2), Time(0, 7));
  186.   SCALE(From( 4,2, 4,2), To( 2,0, 4,2), Time(1, 8));
  187.   SCALE(From( 6,0, 6,0), To( 4,0, 6,2), Time(2, 9));
  188.   SCALE(From( 8,2, 8,2), To( 6,0, 8,2), Time(3,10));
  189.   SCALE(From(10,0,10,0), To( 8,0,10,2), Time(4,11));
  190.   SCALE(From(12,2,12,2), To(10,0,12,2), Time(5,12));
  191.   SCALE(From(14,0,14,0), To(12,0,14,2), Time(6,13));
  192.   SCALE(From(16,2,16,2), To(14,0,16,2), Time(7,14));
  193. END
  194.  
  195.  
  196. //------------------------------------------------------------------------------------
  197. //
  198. // MultiScale
  199. // ...
  200.  
  201. WIPEDEF("MultiScale", Grid(6,6), TimeScale(50), CopyBackground(TRUE),
  202.         Direction(North, 90))
  203.   SCALE(From(2,2,2,2), Thru1(0,2,1,3), To(0,0,1,1), Time(0,30));
  204.   SCALE(From(4,2,4,2), Thru1(5,2,6,3), To(5,0,6,1), Time(0,30));
  205.   SCALE(From(2,2,2,2), Thru1(2,0,3,1), To(1,0,2,1), Time(10,40));
  206.   SCALE(From(4,2,4,2), Thru1(3,0,4,1), To(4,0,5,1), Time(10,40));
  207.   SCALE(From(2,2,2,2), Thru1(2,1,3,2), To(2,0,3,1), Time(20,45));
  208.   SCALE(From(4,2,4,2), Thru1(3,1,4,2), To(3,0,4,1), Time(20,45));
  209.   SCALE(From(2,4,2,4), Thru1(0,3,1,4), To(0,1,3,6), Time(30,50));
  210.   SCALE(From(4,4,4,4), Thru1(5,3,6,4), To(3,1,6,6), Time(30,50));
  211. END
  212.  
  213.  
  214. //------------------------------------------------------------------------------------
  215. //
  216. // RandomGrowth
  217. // 25 rectangles grow from the middle at random times
  218.  
  219. WIPEDEF("RandomGrowth", Grid(10,10), TimeScale(29), Icon(16,6), CopyBackground(FALSE))
  220.   SCALE(From( 1, 5, 1, 5), To( 0, 4, 2, 6), Time( 1, 5));
  221.   SCALE(From( 3, 1, 3, 1), To( 2, 0, 4, 2), Time( 2, 6));
  222.   SCALE(From( 3, 3, 3, 3), To( 2, 2, 4, 4), Time( 3, 7));
  223.   SCALE(From( 9, 9, 9, 9), To( 8, 8,10,10), Time( 4, 8));
  224.   SCALE(From( 7, 1, 7, 1), To( 6, 0, 8, 2), Time( 5, 9));
  225.   SCALE(From( 1, 3, 1, 3), To( 0, 2, 2, 4), Time( 6,10));
  226.   SCALE(From( 1, 9, 1, 9), To( 0, 8, 2,10), Time( 7,11));
  227.   SCALE(From( 5, 9, 5, 9), To( 4, 8, 6,10), Time( 8,12));
  228.   SCALE(From( 5, 3, 5, 3), To( 4, 2, 6, 4), Time( 9,13));
  229.   SCALE(From( 9, 3, 9, 3), To( 8, 2,10, 4), Time(10,14));
  230.   SCALE(From( 7, 9, 7, 9), To( 6, 8, 8,10), Time(11,15));
  231.   SCALE(From( 3, 5, 3, 5), To( 2, 4, 4, 6), Time(12,16));
  232.   SCALE(From( 9, 1, 9, 1), To( 8, 0,10, 2), Time(13,17));
  233.   SCALE(From( 5, 5, 5, 5), To( 4, 4, 6, 6), Time(14,18));
  234.   SCALE(From( 9, 7, 9, 7), To( 8, 6,10, 8), Time(15,19));
  235.   SCALE(From( 9, 5, 9, 5), To( 8, 4,10, 6), Time(16,20));
  236.   SCALE(From( 1, 1, 1, 1), To( 0, 0, 2, 2), Time(17,21));
  237.   SCALE(From( 3, 7, 3, 7), To( 2, 6, 4, 8), Time(18,22));
  238.   SCALE(From( 7, 5, 7, 5), To( 6, 4, 8, 6), Time(19,23));
  239.   SCALE(From( 5, 7, 5, 7), To( 4, 6, 6, 8), Time(20,24));
  240.   SCALE(From( 7, 7, 7, 7), To( 6, 6, 8, 8), Time(21,25));
  241.   SCALE(From( 3, 9, 3, 9), To( 2, 8, 4,10), Time(22,26));
  242.   SCALE(From( 5, 1, 5, 1), To( 4, 0, 6, 2), Time(23,27));
  243.   SCALE(From( 1, 7, 1, 7), To( 0, 6, 2, 8), Time(24,28));
  244.   SCALE(From( 7, 3, 7, 3), To( 6, 2, 8, 4), Time(25,29));
  245. END
  246.  
  247.  
  248. //------------------------------------------------------------------------------------
  249. //
  250. // Zirkon
  251. // Zooms from nothing to fullscreen, to large pixels and back again.
  252.  
  253. WIPEDEF("DualZoom", Grid(4,4), TimeScale(3), CopyBackground(FALSE),
  254.         Direction(SouthEast,90), OutWipe(FALSE))
  255.   SCALE(From(1,1,1,1), To(0,0,4,4), Time(0,1));
  256.   SCALE(From(0,0,4,4), To(0,0,4,4), PanFrom(0,0,4,4), PanTo(1,1,1,1), Time(1,2));
  257.   SCALE(From(0,0,4,4), To(0,0,4,4), PanFrom(3,3,3,3), PanTo(0,0,4,4), Time(2,3));
  258. END
  259.  
  260.  
  261. //------------------------------------------------------------------------------------
  262. //
  263. // Blobbly (name change please)
  264. // Does a CenterScale while stretching the picture out of aspect
  265.  
  266. WIPEDEF("PsychoStretch", Grid(4,4), TimeScale(1), CopyBackground(FALSE), OutWipe(FALSE))
  267.   SCALE(From(0,0,4,4), Thru1(2,3,4,1), Thru2(3,2,1,4), To(0,0,4,4), PanFrom(2,2,2,2),
  268.         PanTo(0,0,4,4), Time(0,1), SwapSourceDest(TRUE));
  269. END
  270.  
  271.  
  272. //------------------------------------------------------------------------------------
  273. //
  274. // SlideStretch
  275. // 8 rectangles slide in and stop w/overshoot
  276.  
  277. WIPEDEF("SlideStretch", Grid(4,8), TimeScale(11), CopyBackground(TRUE),
  278.         Direction(South,90))
  279.   SPLINE(Position(0,4000,4000,4096));
  280.   SCALE(From(0,0,0,1), Thru1(0,0,2,1), Thru2(2,0,4,1), To(0,0,4,1), Time(0,4));
  281.   SCALE(From(0,1,0,2), Thru1(0,1,2,2), Thru2(2,1,4,2), To(0,1,4,2), Time(1,5));
  282.   SCALE(From(0,2,0,3), Thru1(0,2,2,3), Thru2(2,2,4,3), To(0,2,4,3), Time(2,6));
  283.   SCALE(From(0,3,0,4), Thru1(0,3,2,4), Thru2(2,3,4,4), To(0,3,4,4), Time(3,7));
  284.   SCALE(From(0,4,0,5), Thru1(0,4,2,5), Thru2(2,4,4,5), To(0,4,4,5), Time(4,8));
  285.   SCALE(From(0,5,0,6), Thru1(0,5,2,6), Thru2(2,5,4,6), To(0,5,4,6), Time(5,9));
  286.   SCALE(From(0,6,0,7), Thru1(0,6,2,7), Thru2(2,6,4,7), To(0,6,4,7), Time(6,10));
  287.   SCALE(From(0,7,0,8), Thru1(0,7,2,8), Thru2(2,7,4,8), To(0,7,4,8), Time(7,11));
  288. END
  289.  
  290. //------------------------------------------------------------------------------------
  291. //
  292. // SplitFlyOn
  293. // Splits screen in four, each part does a spline flyon from the corners
  294.  
  295. WIPEDEF("CornerFlyOn", Grid(8,8), TimeScale(1), CopyBackground(TRUE))
  296.   SCALE(From(0,0,0,0), Thru1(3,0,4,1), Thru2(1,1,3,3), To(0,0,4,4), Time(0,1));
  297.   SCALE(From(8,0,8,0), Thru1(4,0,5,1), Thru2(5,1,7,3), To(4,0,8,4), Time(0,1));
  298.   SCALE(From(0,8,0,8), Thru1(3,7,4,8), Thru2(1,5,3,7), To(0,4,4,8), Time(0,1));
  299.   SCALE(From(8,8,8,8), Thru1(4,7,5,8), Thru2(5,5,7,7), To(4,4,8,8), Time(0,1));
  300. END
  301.  
  302. //------------------------------------------------------------------------------------
  303. //
  304. // MiddleSplitFlyOn
  305. // Splits screen in four, each part does a spline flyon from the middle of screen
  306.  
  307. WIPEDEF("QuarterFlyOn", Grid(8,8), TimeScale(1), CopyBackground(TRUE))
  308.   SCALE(From(4,4,4,4), Thru1(3,0,4,1), Thru2(1,1,3,3), To(0,0,4,4), Time(0,1));
  309.   SCALE(From(4,4,4,4), Thru1(4,0,5,1), Thru2(5,1,7,3), To(4,0,8,4), Time(0,1));
  310.   SCALE(From(4,4,4,4), Thru1(3,7,4,8), Thru2(1,5,3,7), To(0,4,4,8), Time(0,1));
  311.   SCALE(From(4,4,4,4), Thru1(4,7,5,8), Thru2(5,5,7,7), To(4,4,8,8), Time(0,1));
  312. END
  313.  
  314.  
  315. //------------------------------------------------------------------------------------
  316. //
  317. // MiddleSplineSplitFlyOn
  318. // Same as MiddleSplitFlyOn but uses spline speed and different start times
  319.  
  320. WIPEDEF("QuarterBounceOn", Grid(8,8), TimeScale(14), CopyBackground(TRUE),
  321.         Direction(NorthWest, 90))
  322.   SPLINE(POSITION(0,4000,-3000,4096));
  323.   SCALE(From(4,4,4,4), Thru1(3,0,4,1), Thru2(1,1,3,3), To(0,0,4,4), Time(0,8));
  324.   SCALE(From(4,4,4,4), Thru1(4,0,5,1), Thru2(5,1,7,3), To(4,0,8,4), Time(3,11));
  325.   SCALE(From(4,4,4,4), Thru1(3,7,4,8), Thru2(1,5,3,7), To(0,4,4,8), Time(6,12));
  326.   SCALE(From(4,4,4,4), Thru1(4,7,5,8), Thru2(5,5,7,7), To(4,4,8,8), Time(8,14));
  327. END
  328.  
  329. //------------------------------------------------------------------------------------
  330. //
  331. // QuatroFlipcoin
  332. // Splits screen in two then stretches from the sides and middle at the same time.
  333.  
  334. WIPEDEF("QuatroFlipCoin", Grid(2,2), TimeScale(1), CopyBackground(FALSE),
  335.         Direction(East, 90))
  336.   SCALE(From(0,0,0,1), To(0,0,1,1), Time(0,1));
  337.   SCALE(From(2,0,2,1), To(1,0,2,1), Time(0,1));
  338.   SCALE(From(1,1,1,2), To(0,1,2,2), Time(0,1));
  339. END
  340.  
  341. //------------------------------------------------------------------------------------
  342. //
  343. // RisingSpline
  344. // Scales in eight horizontal stripes from the edge
  345.  
  346. WIPEDEF("BouncingBlinds", Grid(8,8), TimeScale(9), CopyBackground(TRUE),
  347.         Direction(South, 90))
  348.   SPLINE(POSITION(0,4000,-3000,4096));
  349.   SCALE(From(3,9,5,9),  To(0,7,8,8),  Time( 7,9));
  350.   SCALE(From(3,9,5,9),  To(0,6,8,7),  Time( 6,8));
  351.   SCALE(From(3,9,5,9),  To(0,5,8,6),  Time( 5,7));
  352.   SCALE(From(3,9,5,9),  To(0,4,8,5),  Time( 4,6));
  353.   SCALE(From(3,9,5,9),  To(0,3,8,4),  Time( 3,5));
  354.   SCALE(From(3,9,5,9),  To(0,2,8,3),  Time( 2,4));
  355.   SCALE(From(3,9,5,9),  To(0,1,8,2),  Time( 1,3));
  356.   SCALE(From(3,9,5,9),  To(0,0,8,1),  Time( 0,2));
  357. END
  358.  
  359.  
  360. //------------------------------------------------------------------------------------
  361. //
  362. // DSplineP
  363. // Strange scaled rectangles from each edge
  364.  
  365. WIPEDEF("BouncingIris", Grid(10,10), TimeScale(3), CopyBackground(TRUE))
  366.   COPY(From(5,5,5,5), To(4,4,6,6), Time(1,2));
  367.  
  368.   SPLINE(POSITION(0,4000,-3000,4096));
  369.   SCALE(From(1,5,1,5),  To(0,0,2,10),  Time( 0,1));
  370.   SCALE(From(9,5,9,5),  To(8,0,10,10), Time( 0,1));
  371.   SCALE(From(5,1,5,1),  To(2,0,8,2),   Time( 0,1));
  372.   SCALE(From(5,9,5,9),  To(2,8,8,10),  Time( 0,1));
  373.   
  374.   SCALE(From(3,5,3,5),  To(2,2,4,8),  Time( 2,3));
  375.   SCALE(From(7,5,7,5),  To(6,2,8,8),  Time( 2,3));
  376.   SCALE(From(5,3,5,3),  To(4,2,6,4),  Time( 2,3));
  377.   SCALE(From(5,7,5,7),  To(4,6,6,8),  Time( 2,3));
  378. END
  379.  
  380. //------------------------------------------------------------------------------------
  381. //
  382. // ReverseRectsVar2
  383. // Scales in lots of rectangles from their corners
  384.  
  385. WIPEDEF("Kyoto", Grid(4,4), TimeScale(1), CopyBackground(FALSE))
  386.   SCALE(From(0,0,0,0), To(0,0,1,1), Time( 0, 1));
  387.   SCALE(From(1,1,1,1), To(0,1,1,2), Time( 0, 1));
  388.   SCALE(From(1,3,1,3), To(0,2,1,3), Time( 0, 1));
  389.   SCALE(From(0,4,0,4), To(0,3,1,4), Time( 0, 1));
  390.   SCALE(From(1,1,1,1), To(1,0,2,1), Time( 0, 1));
  391.   SCALE(From(1,3,1,3), To(1,3,2,4), Time( 0, 1));
  392.   SCALE(From(3,1,3,1), To(2,0,3,1), Time( 0, 1));
  393.   SCALE(From(2,2,2,2), To(1,1,3,3), Time( 0, 1));
  394.   SCALE(From(3,3,3,3), To(2,3,3,4), Time( 0, 1));
  395.   SCALE(From(4,0,4,0), To(3,0,4,1), Time( 0, 1));
  396.   SCALE(From(3,1,3,1), To(3,1,4,2), Time( 0, 1));
  397.   SCALE(From(3,3,3,3), To(3,2,4,3), Time( 0, 1));
  398.   SCALE(From(4,4,4,4), To(3,3,4,4), Time( 0, 1));
  399. END
  400.  
  401.  
  402. //------------------------------------------------------------------------------------
  403. //
  404. // MiddleStretch
  405. // Zooms out vertically from blocky pixels to the new picture
  406.  
  407. WIPEDEF("MiddleStretch", Grid(4,4), TimeScale(1), CopyBackground(FALSE),
  408.         Direction(South, 90), OutWipe(FALSE))
  409.   SCALE(From(0,2,4,2), To(0,0,4,4), Time(0,1), SwapSourceDest(TRUE));
  410. END
  411.  
  412.  
  413. //------------------------------------------------------------------------------------
  414. //
  415. // CornerStretch
  416. // Zooms out from blocky pixels in one corner to the new picture
  417.  
  418. WIPEDEF("CornerZoom", Grid(4,4), TimeScale(1), CopyBackground(FALSE),
  419.         Direction(NorthEast, 90), OutWipe(FALSE))
  420.   SCALE(From(0,0,0,0), To(0,0,4,4), Time(0,1), SwapSourceDest(TRUE));
  421. END
  422.  
  423.  
  424. //------------------------------------------------------------------------------------
  425. //
  426. // CenterStretch
  427. // Zooms out from center
  428.  
  429. WIPEDEF("CenterZoom", Grid(2,2), TimeScale(1), CopyBackground(FALSE), OutWipe(FALSE))
  430.   SCALE(From(1,1,1,1), To(0,0,2,2), Time(0,1), SwapSourceDest(TRUE));
  431. END
  432.  
  433.  
  434. //------------------------------------------------------------------------------------
  435. //
  436. // VerticalStripesCenterSplineRev
  437. // Wobbling rectangles scales the old picture to the middle revealing the new
  438.  
  439. WIPEDEF("StripFoldIn", Grid(7,2), TimeScale(7),
  440.         ForegroundWipe(FALSE), CopyBackground(TRUE), Direction(North, 90))
  441.   SPLINE(POSITION(0,4000,-3000,4096));
  442.   SCALE(From(0,1,1,1), To(0,0,1,2), Time(3,7), Backwards(TRUE));
  443.   SCALE(From(1,1,2,1), To(1,0,2,2), Time(2,6), Backwards(TRUE));
  444.   SCALE(From(2,1,3,1), To(2,0,3,2), Time(1,5), Backwards(TRUE));
  445.   SCALE(From(3,1,4,1), To(3,0,4,2), Time(0,4), Backwards(TRUE));
  446.   SCALE(From(4,1,5,1), To(4,0,5,2), Time(1,5), Backwards(TRUE));
  447.   SCALE(From(5,1,6,1), To(5,0,6,2), Time(2,6), Backwards(TRUE));
  448.   SCALE(From(6,1,7,1), To(6,0,7,2), Time(3,7), Backwards(TRUE));
  449. END
  450.  
  451.  
  452. //------------------------------------------------------------------------------------
  453. //
  454. // VerticalStripesCenterSpline
  455. // Wobbling rectangles scales in the new picture from the middle
  456.  
  457. WIPEDEF("StripFoldOut", Grid(7,2), TimeScale(7), CopyBackground(TRUE),
  458.         Direction(North, 90))
  459.   SPLINE(POSITION(0,4000,-3000,4096));
  460.   SCALE(From(0,1,1,1), To(0,0,1,2), Time(3,7));
  461.   SCALE(From(1,1,2,1), To(1,0,2,2), Time(2,6));
  462.   SCALE(From(2,1,3,1), To(2,0,3,2), Time(1,5));
  463.   SCALE(From(3,1,4,1), To(3,0,4,2), Time(0,4));
  464.   SCALE(From(4,1,5,1), To(4,0,5,2), Time(1,5));
  465.   SCALE(From(5,1,6,1), To(5,0,6,2), Time(2,6));
  466.   SCALE(From(6,1,7,1), To(6,0,7,2), Time(3,7));
  467. END
  468.  
  469. //------------------------------------------------------------------------------------
  470. //
  471. // Stretch
  472. // The picture is stretched in from the edge
  473.  
  474. WIPEDEF("Stretch", Grid(1,1), TimeScale(1), CopyBackground(FALSE),
  475.     Steps(1, "Height/Speed"), Direction(South,90), OutWipe(FALSE))
  476.   SCALE(From(0,1,1,1), Thru1(0,1,1,1), To(0,0,1,1), Time(0,1), PanFrom(0,0,1,0), PanTo(0,0,1,1), SwapSourceDest(TRUE));
  477. END
  478.  
  479.  
  480. //------------------------------------------------------------------------------------
  481. //
  482. // Stretch2
  483. // The picture is stretched in from the corner
  484.  
  485. WIPEDEF("CornerStretch", Grid(1,1), TimeScale(1), CopyBackground(FALSE),
  486.     Steps(1, "Height/Speed"), Direction(SouthEast,90), OutWipe(FALSE))
  487.   SCALE(From(1,1,1,1), Thru1(1,1,1,1), To(0,0,1,1), Time(0,1), PanFrom(0,0,0,0), PanTo(0,0,1,1), SwapSourceDest(TRUE));
  488. END
  489.  
  490.  
  491. //------------------------------------------------------------------------------------
  492. //
  493. // Flipcoin
  494. // Flips the old picture around the middle, flips the new one up
  495.  
  496. WIPEDEF("FlipCoin", Grid(1,2), TimeScale(2), Steps(1, "Height/Speed"), Direction(South,90), ForegroundWipe(FALSE))
  497.   SOURCE("Old","Color");
  498.   SCALE(From(0,1,1,1), To(0,0,1,2), Time(0,1), Backwards(TRUE));
  499.   SOURCE("Color","New");
  500.   SCALE(From(0,1,1,1), To(0,0,1,2), Time(1,2));
  501. END
  502.  
  503.  
  504. //------------------------------------------------------------------------------------
  505. //
  506. // Lowflipcoin
  507. // As Flipcoin but flips around the lower edge
  508.  
  509. WIPEDEF("LowFlipCoin", Grid(1,2), TimeScale(2), Steps(1, "Height/Speed"), Direction(South,90), ForegroundWipe(FALSE))
  510.   SOURCE("Old","Color");
  511.   SCALE(From(0,2,1,2), To(0,0,1,2), Time(0,1), Backwards(TRUE));
  512.   SOURCE("Color","New");
  513.   SCALE(From(0,2,1,2), To(0,0,1,2), Time(1,2));
  514. END
  515.  
  516.  
  517. /***** Entries *****/
  518.  
  519. GROUPID($0710a000);
  520. ICONFILE("ScalaProgram:\wipes\wipes.bmp", Size(26,18), Spacing(32,20));
  521.  
  522. ENTRY("ZoomUp", Icon(16,2));
  523. ENTRY("ZoomDown", Icon(17,2));
  524.  
  525. ENTRY("SuperZoom", Icon(18,2));
  526. ENTRY("SweepingZoom", Direction(SouthEast), Icon(19,2));
  527. ENTRY("QuadZoom", Direction(NorthWest), Icon(0,3));
  528.  
  529. ENTRY("DiagonalZooms", Direction(SouthEast), Icon(1,3));
  530.  
  531. ENTRY("ArcIn", Direction(SouthEast), Icon(2,3));
  532. ENTRY("SwimIn", Direction(NorthEast), Icon(3,3));
  533. ENTRY("GlideIn", Direction(SouthEast), Icon(4,3));
  534.  
  535. ENTRY("FlipFour", Direction(East), Icon(5,3));
  536. ENTRY("Premiere", Direction(East), Icon(6,3));
  537. ENTRY("PremiereEdges", Direction(East), Icon(7,3));
  538. ENTRY("MultiScale", Direction(North), Icon(17,12));
  539. ENTRY("RandomGrowth", Icon(8,3));
  540.  
  541. ENTRY("DualZoom",       Direction(SouthEast), Icon(7,5));
  542. ENTRY("PsychoStretch",      Icon(8,5));
  543. ENTRY("SlideStretch", Direction(South), Icon(9,5));
  544.  
  545. ENTRY("CornerFlyOn", Icon(4,4));
  546. ENTRY("QuarterFlyOn", Icon(6,4));
  547. ENTRY("QuarterBounceOn", Direction(NorthWest), Icon(7,4));
  548. ENTRY("QuatroFlipCoin", Direction(East), Icon(9,4));
  549.  
  550. ENTRY("BouncingBlinds", Direction(South), Icon(13,4));
  551. ENTRY("BouncingIris", Icon(15,4));
  552. ENTRY("Kyoto", Icon(18,4));
  553. ENTRY("MiddleStretch", Direction(South), Icon(19,4));
  554.  
  555. ENTRY("CornerZoom", Direction(NorthEast), Icon(0,5));
  556. ENTRY("CenterZoom", Icon(1,5));
  557.  
  558. ENTRY("StripFoldIn", Direction(North), Icon(2,5));
  559. ENTRY("StripFoldOut", Direction(North), Icon(3,5));
  560.  
  561. ENTRY("Stretch", Direction(North), Icon(2,2));
  562. ENTRY("Stretch", Direction(South), Icon(3,2));
  563.  
  564. ENTRY("CornerStretch", Direction(SouthEast), Icon(4,2));
  565.  
  566. ENTRY("FlipCoin", Direction(South), Icon(5,2));
  567.  
  568. ENTRY("LowFlipCoin", Direction(North), Icon(6,2));
  569. ENTRY("LowFlipCoin", Direction(South), Icon(7,2));
  570.