-- gives an empty zone
blankZoneGrid :: State -> Int -> Int -> BS.ByteString
blankZoneGrid state x y = BS.replicate (fromIntegral (zonew*zoneh)) nulltile
  where settings = stateSettings state
        zonew    = settingZoneW  settings
        zoneh    = settingZoneH  settings

-- generates the zone at a xy pos
blankZoneGrid :: State -> Int -> Int -> BS.ByteString
blankZoneGrid state x y = BS.replicate (fromIntegral (zonew*zoneh)) nulltile
  where settings = stateSettings state
        zonew    = settingZoneW  settings
        zoneh    = settingZoneH  settings

-- generates the zone at a xy pos
blankZoneGrid state x y = BS.replicate (fromIntegral (zonew*zoneh)) nulltile
  where settings = stateSettings state
        zonew    = settingZoneW  settings
        zoneh    = settingZoneH  settings

-- generates the zone at a xy pos