---------------------------------
--Grid Manipulation Sample Code--
--     Follow us on Twitter    --
--       @ninjapigstudios      --
--      Like us on Facebook    --
-- facebook.com/ninjapigstudios--
---------------------------------
 
_W = display.contentWidth --Assign Varibles--
_H = display.contentHeight
 
grid = display.newGroup()  --Make a new group for the grid object--
 
------Spawn Enemy's This is where it laggs------
local enemies = {}
local enemySpawn = {
        {100,200},
        {200,400},
        {0,300},
        {math.random(0,600),math.random(0,600)}
}
 
                local function newEnemy(e)
                        local spawnpoint = enemySpawn[math.random(1,#enemySpawn)]
                        enemy = display.newRect(spawnpoint[1],spawnpoint[2],25,25)
                        enemies[#enemies+1] = enemy
                        enemy:setFillColor(255,255,0)
                        transition.to(enemy, {time=2000, x=_W/math.random(1,9), y=_H/math.random(1,9)})
                end
 
                --spawnTimer = timer.performWithDelay(1000, newEnemy, 50)
-------------------------------------------------
 
local function dist( x,y, u,v )
        return math.sqrt((x-u)^2+ (y-v)^2) --Distance Equation--
end
 
--Set up some open tables for data--
local originalpoints = {}
local _points = {} 
local points = {} 
local lines = {} 
local displayLines = {}
displayLines._mode = "kv"
 
--Creates the vertical lines--
local  k = 1
for j = 0, 320, 20 do
lines[ k ] = {}
points[j] = {}
        for i = 0, 480, 20 do
                points[j][i] = { i, j }
                originalpoints[#originalpoints + 1] =  {points[j][i][1], points[j][i][2]}
                _points[#_points + 1] = points[j][i]
                lines[ k ][ #lines[ k ]+1  ] = points[j][i]
        end
 k = k + 1
end
 
--Creates the horizontal lines--
for i = 0, 480, 20 do
lines[ k ] = {}
 
        for j = 0, 320, 20 do
                lines[ k ][ #lines[ k ]+1  ] = points[j][i]
        end
         k = k + 1
end
 
local player = display.newImage("glowingplayer.png") --Add the glowing player--
 
Runtime:addEventListener("touch", function( event)  --Add some touch listeners to the player--
        player.x = event.x  --Download the code off http://bit.ly/zK7AiH for all of the sample images--
        player.y = event.y
end )
 
--Draw the grid--
function drawGrid() 
for _,line in ipairs(displayLines) do
        if line and line.removeSelf then
                line:removeSelf()
        end
end
displayLines ={}
displayLines._mode = "kv"
 
 
for p = 1,#_points do
        local point = _points[p]
        local u,v =  originalpoints[p][1], originalpoints[p][2]
        local d = dist( u,v, player.x ,player.y )
        if d < 20 then
                d=20
        end
        
        local f = 6.67300 * (10000 / d^2 )
        if f > 20 then f = 20 end
        local q, w = (u-player.x ), (v-player.y)
        q = (q / d) * f
        w = (w / d) * f
        point[1] = u + q
        point[2] = v + w
end 
 
--Set up some code for the enemies to effect the grid--
for p = 1,#_points do
        local point = _points[p]
        --local u,v =  originalpoints[i][1], originalpoints[i][2]
        for i= 1, #enemies do
                local ex, ey = enemies[i].x, enemies[i].y
                --local d = dist( point[1],point[2], enemy.x ,enemy.y )
                local d = math.sqrt((point[1]-ex)^2+ (point[2]-ey)^2)
                
                if d < 100 then
                        if d < 10 then
                                d=10
                        end
        
                        local f = 6.67300 * (5000 / d^2 )
                        if f > 20 then f = 20 end
                        local q, w = (point[1]-ex ), (point[2]-ey)
                        q = (q / d) * f
                        w = (w / d) * f
                        point[1] = point[1] + q
                        point[2] = point[2]  + w
                end
end
 
 
 
end
 
--Actually draws the lines on the screen--
for _,line in ipairs(lines ) do
        local displayline = display.newLine( 0,0,0,0 )
        for _, point in ipairs( line ) do
                displayline:append( point[1], point[2]  )
        end
        displayline.width = 3
        grid:insert(displayline)
        displayline:setColor( 0,0,255,155) --Change color here--
        --Optional, set up some random colors every frame--
        --displayline:setColor( math.random(0,0),math.random(0,200),math.random(0,200), 200)
        displayLines[ #displayLines + 1 ] = displayline
end
end
 
Runtime:addEventListener( "enterFrame",drawGrid  )