edgeZoneGrid :: Int -> Int -> BS.ByteString -> BS.ByteString
edgeZoneGrid zonew zoneh str = listToBS (map edgeTile (L.zip5 tn tw te ts strlist)) 1
  where (tn, ts, te, tw) = cardinals zonew zoneh strlist
        strlist          = bsToList str 1
edgeZoneGrid :: Int -> Int -> BS.ByteString -> BS.ByteString
edgeZoneGrid zonew zoneh str = listToBS (map edgeTile (L.zip5 tn tw te ts strlist)) 1
  where (tn, ts, te, tw) = cardinals zonew zoneh strlist
        strlist          = bsToList str 1
edgeZoneGrid zonew zoneh str = listToBS (map edgeTile (L.zip5 tn tw te ts strlist)) 1
  where (tn, ts, te, tw) = cardinals zonew zoneh strlist
        strlist          = bsToList str 1