home *** CD-ROM | disk | FTP | other *** search
/ Computer Arts Interactive 3 / CARTS3.iso / scala / wipes / reveals.wip < prev    next >
Text File  |  1996-05-08  |  61KB  |  1,481 lines
  1. !ScalaScript
  2.  
  3. /*
  4. ** $Id: reveals.wip,v 1.4 1996/05/06 13:51:05 LARS Exp $
  5. **
  6. ** Reveal wipes
  7. **
  8. */
  9.  
  10.  
  11. //------------------------------------------------------------------------------------
  12. //
  13. // Wipe
  14. // Reveals the new picture
  15.  
  16. WIPEDEF("Wipe", Grid(1,1), TimeScale(1), CopyBackground(FALSE),
  17.     Steps(1, "Width/Speed"), Direction(South, 90))
  18.   COPY(From(0,0,1,0), To(0,0,1,1), Time(0,1));
  19. END
  20.  
  21.  
  22. //------------------------------------------------------------------------------------
  23. //
  24. // Line
  25. // Like Wipe, but puts a black line between the pictures
  26.  
  27. WIPEDEF("Line", Grid(1,32), TimeScale(64), CopyBackground(FALSE),
  28.     Steps(1, "Height/Speed"), Direction(South, 90), ForegroundWipe(FALSE))
  29.   SOURCE("Color", "Color");
  30.   COPY(From(0,0,1,0), To(0,0,1,32), Time(0,63));
  31.   SOURCE("New", "New");
  32.   COPY(From(0,0,1,0), To(0,0,1,32), Time(1,64));
  33. END
  34.  
  35. //------------------------------------------------------------------------------------
  36. //
  37. // Center
  38. // Reveals the new picture from the center of the screen.
  39.  
  40. WIPEDEF("Center", Grid(2,2), TimeScale(1), CopyBackground(FALSE), Steps(1, "Width/Speed"))
  41.   COPY(From(1,1,1,1), To(0,0,2,2), Time(0,1));
  42. END
  43.  
  44.  
  45. //------------------------------------------------------------------------------------
  46. //
  47. // Split
  48. // Two curtains side by side reveals the new picture
  49.  
  50. WIPEDEF("Split", Grid(4,1), TimeScale(1), CopyBackground(FALSE), Steps(1, "Width/Speed"),
  51.         Direction(East, 90))
  52.   COPY(From(1,0,1,1), To(0,0,2,1), Time(0, 1));
  53.   COPY(From(3,0,3,1), To(2,0,4,1), Time(0, 1));
  54. END
  55.  
  56.  
  57. //------------------------------------------------------------------------------------
  58. //
  59. // Spot
  60. // The screen is split in four, each part reveals from the middle
  61.  
  62. WIPEDEF("Quadrant", Grid(4,4), TimeScale(2), CopyBackground(FALSE), Steps(1, "Width/Speed"))
  63.   COPY(From(1,1,1,1), To(0,0,2,2), Time(0, 1));
  64.   COPY(From(3,1,3,1), To(2,0,4,2), Time(1, 2));
  65.   COPY(From(1,3,1,3), To(0,2,2,4), Time(1, 2));
  66.   COPY(From(3,3,3,3), To(2,2,4,4), Time(0, 1));
  67. END
  68.  
  69.  
  70. //------------------------------------------------------------------------------------
  71. //
  72. // Corner
  73. // Reveals the new picture from a corner
  74.  
  75. WIPEDEF("Corner", Grid(1,1), TimeScale(1), CopyBackground(FALSE),
  76.     Steps(1, "Width/Speed"), Direction(NorthWest,90))
  77.   COPY(From(0,0,0,0), To(0,0,1,1), Time(0, 1));
  78. END
  79.  
  80.  
  81. //------------------------------------------------------------------------------------
  82. //
  83. // Upsdowns
  84. // Eight vertical strips alternates between wiping up and down.
  85.  
  86. WIPEDEF("Stripper", Grid(8,1), TimeScale(4), CopyBackground(FALSE),
  87.     Steps(1, "Height/Speed"), Direction(East, 90))
  88.   COPY(From(0,1,1,1), To(0,0,1,1), Time(0, 1));
  89.   COPY(From(1,0,2,0), To(1,0,2,1), Time(0, 1));
  90.   COPY(From(2,1,3,1), To(2,0,3,1), Time(1, 2));
  91.   COPY(From(3,0,4,0), To(3,0,4,1), Time(1, 2));
  92.   COPY(From(4,1,5,1), To(4,0,5,1), Time(2, 3));
  93.   COPY(From(5,0,6,0), To(5,0,6,1), Time(2, 3));
  94.   COPY(From(6,1,7,1), To(6,0,7,1), Time(3, 4));
  95.   COPY(From(7,0,8,0), To(7,0,8,1), Time(3, 4));
  96. END
  97.  
  98.  
  99. //------------------------------------------------------------------------------------
  100. //
  101. // SmallBlinds
  102. // Blinds opening up.
  103.  
  104. WIPEDEF("SmallBlinds", Grid(1,32), TimeScale(1), CopyBackground(FALSE),
  105.     Steps(1, "Height/Speed"), Direction(South,90))
  106.   COPY(From(0, 1,1, 1), To(0, 0,1, 2), Time(0, 1));
  107.   COPY(From(0, 3,1, 3), To(0, 2,1, 4), Time(0, 1));
  108.   COPY(From(0, 5,1, 5), To(0, 4,1, 6), Time(0, 1));
  109.   COPY(From(0, 7,1, 7), To(0, 6,1, 8), Time(0, 1));
  110.   COPY(From(0, 9,1, 9), To(0, 8,1,10), Time(0, 1));
  111.   COPY(From(0,11,1,11), To(0,10,1,12), Time(0, 1));
  112.   COPY(From(0,13,1,13), To(0,12,1,14), Time(0, 1));
  113.   COPY(From(0,15,1,15), To(0,14,1,16), Time(0, 1));
  114.   COPY(From(0,17,1,17), To(0,16,1,18), Time(0, 1));
  115.   COPY(From(0,19,1,19), To(0,18,1,20), Time(0, 1));
  116.   COPY(From(0,21,1,21), To(0,20,1,22), Time(0, 1));
  117.   COPY(From(0,23,1,23), To(0,22,1,24), Time(0, 1));
  118.   COPY(From(0,25,1,25), To(0,24,1,26), Time(0, 1));
  119.   COPY(From(0,27,1,27), To(0,26,1,28), Time(0, 1));
  120.   COPY(From(0,29,1,29), To(0,28,1,30), Time(0, 1));
  121.   COPY(From(0,31,1,31), To(0,30,1,32), Time(0, 1));
  122. END
  123.  
  124.  
  125. //------------------------------------------------------------------------------------
  126. //
  127. // Excrawl
  128. // Rectangles grow from left and right edge at the same time
  129.  
  130. WIPEDEF("ScaleStripper", Grid(1,32), TimeScale(8), CopyBackground(FALSE),
  131.     Steps(1, "Height/Speed"), Direction(South,90), ForegroundWipe(FALSE))
  132.   COPY(From(0, 1,0, 1), To(0, 0,1, 2), Time(0, 1));
  133.   COPY(From(0, 3,0, 3), To(0, 2,1, 4), Time(1, 2));
  134.  
  135.   COPY(From(1, 5,1, 5), To(0, 4,1, 6), Time(0, 1));
  136.   COPY(From(1, 7,1, 7), To(0, 6,1, 8), Time(1, 2));
  137.  
  138.   COPY(From(0, 9,0, 9), To(0, 8,1,10), Time(2, 3));
  139.   COPY(From(0,11,0,11), To(0,10,1,12), Time(3, 4));
  140.  
  141.   COPY(From(1,13,1,13), To(0,12,1,14), Time(2, 3));
  142.   COPY(From(1,15,1,15), To(0,14,1,16), Time(3, 4));
  143.  
  144.   COPY(From(0,17,0,17), To(0,16,1,18), Time(4, 5));
  145.   COPY(From(0,19,0,19), To(0,18,1,20), Time(5, 6));
  146.  
  147.   COPY(From(1,21,1,21), To(0,20,1,22), Time(4, 5));
  148.   COPY(From(1,23,1,23), To(0,22,1,24), Time(5, 6));
  149.  
  150.   COPY(From(0,25,0,25), To(0,24,1,26), Time(6, 7));
  151.   COPY(From(0,27,0,27), To(0,26,1,28), Time(7, 8));
  152.  
  153.   COPY(From(1,29,1,29), To(0,28,1,30), Time(6, 7));
  154.   COPY(From(1,31,1,31), To(0,30,1,32), Time(7, 8));
  155. END
  156.  
  157.  
  158. //------------------------------------------------------------------------------------
  159. //
  160. // Curtain
  161. // A curtain is drawn aside, revealing the new picture
  162.  
  163. WIPEDEF("Curtain", Grid(2,1), TimeScale(1), CopyBackground(FALSE),
  164.     Steps(1, "Width/Speed"), Direction(East,90))
  165.   COPY(From(1,0,1,1), To(0,0,2,1), Time(0, 1));
  166. END
  167.  
  168.  
  169. //------------------------------------------------------------------------------------
  170. //
  171. // Turn
  172. // Four rectangles reveals. Each is turned 90 degrees.
  173.  
  174. WIPEDEF("SquareDance", Grid(2,2), TimeScale(1), CopyBackground(FALSE), Steps(1, "Width/Speed"))
  175.   COPY(From(0,1,1,1), To(0,0,1,1), Time(0, 1));
  176.   COPY(From(1,0,1,1), To(1,0,2,1), Time(0, 1));
  177.   COPY(From(1,1,2,1), To(1,1,2,2), Time(0, 1));
  178.   COPY(From(1,1,1,2), To(0,1,1,2), Time(0, 1));
  179. END
  180.  
  181.  
  182. //------------------------------------------------------------------------------------
  183. //
  184. // Spiral
  185. // The new picture is revealed in a spiral towards the middle
  186.  
  187. WIPEDEF("SpiralIn", Grid(8,8), TimeScale(64), CopyBackground(FALSE), Steps(1, "Width/Speed"))
  188.   COPY(From(0,0,0,1), To(0,0,7,1), Time( 0, 7));
  189.   COPY(From(7,0,8,0), To(7,0,8,7), Time( 7,14));
  190.   COPY(From(8,7,8,8), To(1,7,8,8), Time(14,21));
  191.   COPY(From(0,8,1,8), To(0,2,1,8), Time(21,27));
  192.   COPY(From(0,1,0,2), To(0,1,6,2), Time(27,33));
  193.   COPY(From(6,1,7,1), To(6,1,7,6), Time(33,38));
  194.   COPY(From(7,6,7,7), To(2,6,7,7), Time(38,43));
  195.   COPY(From(1,7,2,7), To(1,3,2,7), Time(43,47));
  196.   COPY(From(1,2,1,3), To(1,2,5,3), Time(47,51));
  197.   COPY(From(5,2,6,2), To(5,2,6,5), Time(51,54));
  198.   COPY(From(6,5,6,6), To(3,5,6,6), Time(54,57));
  199.   COPY(From(2,6,3,6), To(2,4,3,6), Time(57,59));
  200.   COPY(From(2,3,2,4), To(2,3,4,4), Time(59,61));
  201.   COPY(From(4,3,5,3), To(4,3,5,5), Time(61,63));
  202.   COPY(From(4,4,4,5), To(3,4,4,5), Time(63,64));
  203. END
  204.  
  205.  
  206. //------------------------------------------------------------------------------------
  207. //
  208. // Swiss
  209. // The new picture is revaled from each corner
  210.  
  211. WIPEDEF("Swiss", Grid(2,2), TimeScale(1), CopyBackground(FALSE), Steps(1, "Width/Speed"))
  212.   COPY(From(0,0,0,0), To(0,0,1,1), Time(0,1));
  213.   COPY(From(2,0,2,0), To(1,0,2,1), Time(0,1));
  214.   COPY(From(2,2,2,2), To(1,1,2,2), Time(0,1));
  215.   COPY(From(0,2,0,2), To(0,1,1,2), Time(0,1));
  216. END
  217.  
  218.  
  219. //------------------------------------------------------------------------------------
  220. //
  221. // Stripes
  222. // 12 rectangle reveal
  223.  
  224. WIPEDEF("Stripes", Grid(1,12), TimeScale(2), CopyBackground(FALSE),
  225.         CopyBackground(FALSE), Direction(East,90))
  226.   COPY(From(0, 0,0, 1), To(0, 0,1, 1), Time(0,1));
  227.   COPY(From(0, 1,0, 2), To(0, 1,1, 2), Time(1,2));
  228.   COPY(From(0, 2,0, 3), To(0, 2,1, 3), Time(0,1));
  229.   COPY(From(0, 3,0, 4), To(0, 3,1, 4), Time(1,2));
  230.   COPY(From(0, 4,0, 5), To(0, 4,1, 5), Time(0,1));
  231.   COPY(From(0, 5,0, 6), To(0, 5,1, 6), Time(1,2));
  232.   COPY(From