// this is not a script, but a shape which you may simply
// include (using '#include ...') in a script and then
// place using the macro 'PLACEGRID'

// notice you can change the grid-spacing from the main
// script-file, eg.    #define GRIDSPACING 333
// if you don't do this, grid-spacing will be set to 1000

#ifndef GRIDSPACING
#define GRIDSPACING 1000
#endif
#define GRIDID      60000
#define GRIDDEPTH   10000
#define PLACEGRID   Place { id GRIDID depth GRIDDEPTH }

Shape {
  id GRIDID
  linestyle { 20 ff000000 }
  selectlinestyle 1
:for gridxi=0 to framesizex/GRIDSPACING
:for gridyi=0 to framesizex/GRIDSPACING
  moveto { (gridxi*GRIDSPACING) (gridyi*GRIDSPACING-60) }
  lineby { 0 120 }
  moveby { -60 -60 }
  lineby { 120 0 }
:next
:next
}

#undef GRIDSPACING
#undef GRIDID
#undef GRIDDEPTH
