generateZone :: State -> Int -> Int -> Zone
generateZone state x y = genZone state x y zc0 conts seeds rands nconts
  where zc0      = blankZoneGrid state x y
        wparams  = stateWParams  state
        conts    = wpConts       wparams
        seeds    = wpSeeds       wparams
        rands    = wpRands       wparams
        nconts   = wpNConts      wparams
        zonew    = settingZoneW  settings
        zoneh    = settingZoneH  settings
        settings = stateSettings state
generateZone :: State -> Int -> Int -> Zone
generateZone state x y = genZone state x y zc0 conts seeds rands nconts
  where zc0      = blankZoneGrid state x y
        wparams  = stateWParams  state
        conts    = wpConts       wparams
        seeds    = wpSeeds       wparams
        rands    = wpRands       wparams
        nconts   = wpNConts      wparams
        zonew    = settingZoneW  settings
        zoneh    = settingZoneH  settings
        settings = stateSettings state
generateZone state x y = genZone state x y zc0 conts seeds rands nconts
  where zc0      = blankZoneGrid state x y
        wparams  = stateWParams  state
        conts    = wpConts       wparams
        seeds    = wpSeeds       wparams
        rands    = wpRands       wparams
        nconts   = wpNConts      wparams
        zonew    = settingZoneW  settings
        zoneh    = settingZoneH  settings
        settings = stateSettings state