-- Convert a square to a nice colorful pixel
squareToColor :: Square -> Image.RGBPixel
squareToColor sq = case sq of
                     0 -> (Image.RGBPixel 0   0   0)   -- Blocked
                     1 -> (Image.RGBPixel 255 255 255) -- Open 
                     2 -> (Image.RGBPixel 255   0 255)   -- Start
                     3 -> (Image.RGBPixel 0   0   255) -- Finish
                     4 -> (Image.RGBPixel 244 158 66)  -- Visited
                     5 -> (Image.RGBPixel 66 212 244)  -- On Path
                      
-- Convert an RGB image into a Grid 
squareToColor :: Square -> Image.RGBPixel
squareToColor sq = case sq of
                     0 -> (Image.RGBPixel 0   0   0)   -- Blocked
                     1 -> (Image.RGBPixel 255 255 255) -- Open 
                     2 -> (Image.RGBPixel 255   0 255)   -- Start
                     3 -> (Image.RGBPixel 0   0   255) -- Finish
                     4 -> (Image.RGBPixel 244 158 66)  -- Visited
                     5 -> (Image.RGBPixel 66 212 244)  -- On Path
                      
-- Convert an RGB image into a Grid 
squareToColor sq = case sq of
                     0 -> (Image.RGBPixel 0   0   0)   -- Blocked
                     1 -> (Image.RGBPixel 255 255 255) -- Open 
                     2 -> (Image.RGBPixel 255   0 255)   -- Start
                     3 -> (Image.RGBPixel 0   0   255) -- Finish
                     4 -> (Image.RGBPixel 244 158 66)  -- Visited
                     5 -> (Image.RGBPixel 66 212 244)  -- On Path
                      
-- Convert an RGB image into a Grid 