&args tile
/* Make sure that tile corners are a multiple of 6 ft.
&Describe %tile% 
&s x [calc %grd$xmin% / 6] 
&s y [calc %grd$ymin% / 6]
&if ( [calc %x% - [trunc %x%]] ne 0 ) or ( [calc %y% - [trunc %y%]] ne 0 ) &then
/*  &typ %tile% [calc %x% - [trunc %x%]] [calc %y% - [trunc %y%]]
  &typ %tile% X[round [calc 6. * [calc %x% - [trunc %x%]]]] Y[round [calc 6. * [calc %y% - [trunc %y%]]]]