local function swap(a,b)
        local temp = b
        b = a
        a = temp
        return a, b
end

-- Bresenham's line algorithm
local function drawLine(x0, y0, x1, y1)
        local steep = false
        if math.abs(y1 - y0) > math.abs(x1 - x0) then steep = true end

        if steep then
                x0, y0 = swap(x0, y0)
                x1, y1 = swap(x1, y1)
        end             

 
        if x0 > x1 then
                x0, x1 = swap(x0, x1)
                y0, y1 = swap(y0, y1)
        end

        local deltax = x1 - x0
        local deltay = math.abs(y1 - y0)
        local err = deltax / 2
        local ystep = 0
        local y = y0
        if y0 < y1 then ystep = 1 else ystep = -1 end

        for x=x0,x1 do
                if steep then 
                        local c = display.newCircle( y, x, 2 )
                        c:setFillColor(0,0,0)
                        llGroup:insert(c)                 
                 else 
                        local c = display.newCircle( x, y, 2 )
                        c:setFillColor(0,0,0)
                        llGroup:insert(c)                 
                 end             
                 err = err - deltay
                 if err < 0 then
                         y = y + ystep
                         err = err + deltax
                 end
        end
end