From 2c9b2af9ac011a871c5c02d3e2258fca73a98880 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Wed, 27 Sep 2017 10:31:16 +0200
Subject: Splits client and server into two repositories.

---
 client/elm/battlemap/src/Battlemap.elm | 91 ----------------------------------
 1 file changed, 91 deletions(-)
 delete mode 100644 client/elm/battlemap/src/Battlemap.elm

(limited to 'client/elm/battlemap/src/Battlemap.elm')

diff --git a/client/elm/battlemap/src/Battlemap.elm b/client/elm/battlemap/src/Battlemap.elm
deleted file mode 100644
index 309b538..0000000
--- a/client/elm/battlemap/src/Battlemap.elm
+++ /dev/null
@@ -1,91 +0,0 @@
-module Battlemap exposing
-   (
-      Type,
-      apply_to_tile,
-      apply_to_tile_unsafe,
-      has_location,
-      apply_to_all_tiles
-   )
-
-import Array
-
-import Battlemap.Tile
-import Battlemap.Direction
-import Battlemap.Location
-
-type alias Type =
-   {
-      width : Int,
-      height : Int,
-      content : (Array.Array Battlemap.Tile.Type)
-   }
-
-location_to_index : Type -> Battlemap.Location.Type -> Int
-location_to_index bmap loc =
-   ((loc.y * bmap.width) + loc.x)
-
-has_location : Type -> Battlemap.Location.Type -> Bool
-has_location bmap loc =
-   (
-      (loc.x >= 0)
-      && (loc.y >= 0)
-      && (loc.x < bmap.width)
-      && (loc.y < bmap.height)
-   )
-
-apply_to_all_tiles : (
-      Type -> (Battlemap.Tile.Type -> Battlemap.Tile.Type) -> Type
-   )
-apply_to_all_tiles bmap fun =
-   {bmap |
-      content = (Array.map fun bmap.content)
-   }
-
-apply_to_tile : (
-      Type ->
-      Battlemap.Location.Type ->
-      (Battlemap.Tile.Type -> Battlemap.Tile.Type) ->
-      (Maybe Type)
-   )
-apply_to_tile bmap loc fun =
-   let
-      index = (location_to_index bmap loc)
-      at_index = (Array.get index bmap.content)
-   in
-      case at_index of
-         Nothing ->
-            Nothing
-         (Just tile) ->
-            (Just
-               {bmap |
-                  content =
-                     (Array.set
-                        index
-                        (fun tile)
-                        bmap.content
-                     )
-               }
-            )
-
-apply_to_tile_unsafe : (
-      Type ->
-      Battlemap.Location.Type ->
-      (Battlemap.Tile.Type -> Battlemap.Tile.Type) ->
-      Type
-   )
-apply_to_tile_unsafe bmap loc fun =
-   let
-      index = (location_to_index bmap loc)
-      at_index = (Array.get index bmap.content)
-   in
-      case at_index of
-         Nothing -> bmap
-         (Just tile) ->
-            {bmap |
-               content =
-                  (Array.set
-                     index
-                     (fun tile)
-                     bmap.content
-                  )
-            }
-- 
cgit v1.2.3-70-g09d2