home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Updates / Flash / writeflash / !MakeFlash / Library / Grid < prev   
Text File  |  2000-04-24  |  800b  |  33 lines
  1. // this is not a script, but a shape which you may simply
  2. // include (using '#include ...') in a script and then
  3. // place using the macro 'PLACEGRID'
  4.  
  5. // notice you can change the grid-spacing from the main
  6. // script-file, eg.    #define GRIDSPACING 333
  7. // if you don't do this, grid-spacing will be set to 1000
  8.  
  9. #ifndef GRIDSPACING
  10. #define GRIDSPACING 1000
  11. #endif
  12. #define GRIDID      60000
  13. #define GRIDDEPTH   10000
  14. #define PLACEGRID   Place { id GRIDID depth GRIDDEPTH }
  15.  
  16. Shape {
  17.   id GRIDID
  18.   linestyle { 20 ff000000 }
  19.   selectlinestyle 1
  20. :for gridxi=0 to framesizex/GRIDSPACING
  21. :for gridyi=0 to framesizex/GRIDSPACING
  22.   moveto { gridxi*GRIDSPACING gridyi*GRIDSPACING-60 }
  23.   lineby { 0 120 }
  24.   moveby { -60 -60 }
  25.   lineby { 120 0 }
  26. :next
  27. :next
  28. }
  29.  
  30. #undef GRIDSPACING
  31. #undef GRIDID
  32. #undef GRIDDEPTH
  33.