home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Updates / Flash / writeflash / Examples / fade < prev    next >
Encoding:
Text File  |  2000-04-19  |  626 b   |  45 lines
  1.  
  2. #include FlashLibrary:Colours
  3.  
  4. FileVersion 1
  5.  
  6. FrameArea {
  7.   width  4000
  8.   height 3000
  9. }
  10.  
  11. FrameRate 12.5
  12.  
  13. BgColour BLACK
  14.  
  15. // define a box that fills the entire screen
  16. Shape {
  17.   id 1
  18.   fillstyle { solid BLACK }   // fillstyle #1
  19.   selectfillstyle0 1
  20.   lineby { 0 3000 }
  21.   lineby { 4000 0 }
  22.   lineby { 0 -3000 }
  23.   lineby { -4000 0 }
  24. }
  25.  
  26. // put the box on the screen
  27. Place {
  28.   id 1
  29.   depth 1
  30.   matrix { 65536 0 0 }
  31. }
  32. ShowFrame { }
  33.  
  34. // fade in from black to white using a cxform
  35. :for i = 1 to 15
  36.   // modify the character at depth 0
  37.   Place {
  38.     depth 1
  39.     cxform { 255 255 255 255 16*i 16*i 16*i 0 }
  40.   }
  41.  
  42.   ShowFrame { }
  43. :next
  44.  
  45.