home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Updates / Flash / writeflash / Examples / macros < prev    next >
Encoding:
Text File  |  2000-04-18  |  765 b   |  49 lines
  1.  
  2. #include FlashLibrary:Colours
  3.  
  4. #define FRAMERATE   1.0
  5. #define WIDTH       4000
  6. #define ASPECT      1.0
  7. #define HALFSIZE
  8.  
  9. FileVersion 1
  10.  
  11. // all units are in 1/20th of a pixel
  12. FrameArea {
  13.   width WIDTH
  14.   height WIDTH*ASPECT
  15. }
  16.  
  17. // frames per second
  18. FrameRate FRAMERATE
  19.  
  20. BackgroundColour BLUE
  21.  
  22. // define the shape
  23. DefineShape {
  24.   id 1
  25.   fillstyle { solid GREEN }
  26.   selectfillstyle0 1
  27.   moveby { 1000 1000 }
  28.   lineby { 1000 1000 }
  29.   lineby { 1000 -1000 }
  30.   lineby { -1000 -1000 }
  31.   lineby { -1000 1000 }
  32. }
  33.  
  34. // place the shape on the screen
  35. PlaceObject {
  36.   depth 1
  37.   id 1
  38.   matrix {
  39. #ifdef HALFSIZE
  40.     0.5*65536       // scale x and y
  41. #else
  42.     65536           // scale x and y
  43. #endif
  44.     0 500           // translate
  45.   }
  46. }
  47. // show what we've got so far
  48. ShowFrame { }
  49.