50 lines
2.3 KiB
Haskell
50 lines
2.3 KiB
Haskell
module Map.StaticMaps
|
|
where
|
|
|
|
import Map.Types
|
|
import Data.Array
|
|
|
|
-- entirely empty map, only uses the minimal constructor
|
|
mapEmpty :: PlayMap
|
|
mapEmpty = array ((0,0), (199,199)) [((a,b), Minimal (a,b)) | a <- [0..199], b <- [0..199]]
|
|
|
|
--mapCenterMountain :: PlayMap
|
|
--mapCenterMountain = array ((0,0),(199,199)) nodes
|
|
-- where
|
|
-- nodes = water ++ beach ++ grass ++ hill ++ mountain
|
|
-- water = [((a,b), Full (a,b) 0.0 Ocean BNothing NoPlayer NoPath Plain []) | a <- [0..199], b <- [0..199], m2d (a,b) > 95]
|
|
-- beach = [((a,b), Full (a,b) (g2d a b) Beach BNothing NoPlayer NoPath Plain []) | a <- [0..199], b <- [0..199], m2d (a,b) <= 95, m2d (a,b) > 75]
|
|
-- grass = [((a,b), Full (a,b) (g2d a b) Grass BNothing NoPlayer NoPath Plain []) | a <- [0..199], b <- [0..199], m2d (a,b) <= 75, m2d (a,b) > 25]
|
|
-- hill = [((a,b), Full (a,b) (g2d a b) Hill BNothing NoPlayer NoPath Plain []) | a <- [0..199], b <- [0..199], m2d (a,b) <= 25, m2d (a,b) > 10]
|
|
-- mountain = [((a,b), Full (a,b) (g2d a b) Mountain BNothing NoPlayer NoPath Plain []) | a <- [0..199], b <- [0..199], m2d (a,b) <= 10]
|
|
|
|
-- g2d :: Int -> Int -> Float
|
|
-- g2d x y = gauss3D (fromIntegral x) (fromIntegral y)
|
|
|
|
-- m2d :: (Int,Int) -> Int
|
|
-- m2d (x,y) = mnh2D (x,y) (100,100)
|
|
|
|
-- small helper for some hills. Should be replaced by multi-layer perlin-noise
|
|
-- TODO: Replace as given in comment.
|
|
--_noisyMap :: (Floating q) => q -> q -> q
|
|
--_noisyMap x y = gauss3Dgeneral 15 100.0 100.0 15.0 15.0 x y
|
|
-- + gauss3Dgeneral 5 10.0 10.0 10.0 10.0 x y
|
|
-- + gauss3Dgeneral 5 150.0 120.0 10.0 10.0 x y
|
|
-- + gauss3Dgeneral 5 50.0 75.0 10.0 10.0 x y
|
|
|
|
-- generates a noisy map
|
|
-- TODO: add real noise to a simple pattern
|
|
--mapNoise :: PlayMap
|
|
--mapNoise = array ((0,0),(199,199)) nodes
|
|
-- where
|
|
-- nodes = [((a,b), Full (a,b)
|
|
-- (height a b)
|
|
-- (heightToTerrain GrassIslandMap $ height a b)
|
|
-- BNothing
|
|
-- NoPlayer
|
|
-- NoPath
|
|
-- Plain
|
|
-- []) | a <- [0..199], b <- [0..199]]
|
|
-- where
|
|
-- height a b = _noisyMap (fromIntegral a) (fromIntegral b)
|