2D tilemap Level for pathfinding code

Level.fs

module Level
open Tools
 
type MapPoint =
    {x:int;y:int;value:int} (* a point in 2d map space *)
    (*Calculate distance to other map point*)
    member this.Distance mp = sqrt (sqr(this.x+mp.x) + sqr(this.y+mp.y))
 
(*Simple construct to hold the 2D map data*)
type Map =  
    (* Width & Height of map and map data in 1D array *)
    {width:int; height:int; map:int list}

    (* function to wrap 1D array into 2D array to retrive map point *)
    member this.GetElement x y = {x=x;y=y;value=this.map.[x % this.height + y * this.width]} 
    
    (* return list of map points that surround current map point *)
    member this.GetNeighborsOf p =  
        [for y in p.y-1..p.y+1 do
            for x in p.x-1..p.x+1 do
               if ((y<>p.y || x <>p.x) (*bounds checking *)
                   && y>=0 && x>=0 
		   && x<this.width  
		   && y<this.height) 
               then yield this.GetElement  x y]