for (i=0; i<l; i+=1)
for (j=0; j<l; j+=1)
{
mas2[i,j]=mas[l-i;l-j]
}

for (i=0; i<grid_size/2; i+=1)
       for (j=0; j<grid_size/2; j+=1)
       {
           //тут устанавливаем обьект на координаты сетки i*cell_size,j*cell_size и записываем тип обьекта в ячейку сетки i,j
           instance_create(i*cell_size,j*cell_size,object)
           ds_grid_add(grid_id,i,j,index)
           //а тут размещаем зеркальный обьект и если нужно записываем в сетку
           instance_create((grid_size-i)*cell_size,(grid_size-j)*cell_size,object)
           ds_grid_add(grid_id,grid_size-i,grid_size-j,index)
       }