More unit tests now, and they all pass. More work needed, but this is very promising.
81 lines
4.5 KiB
HTML
81 lines
4.5 KiB
HTML
<html>
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<link rel="stylesheet" href="../coverage.css"/> <title> walkmap/ocean.clj </title>
|
|
</head>
|
|
<body>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
001 (ns walkmap.ocean
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
002 "Deal with (specifically, at this stage, cull) ocean areas")
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
003
|
|
</span><br/>
|
|
<span class="covered" title="2 out of 2 forms covered">
|
|
004 (def ^:dynamic *sea-level*
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
005 "The sea level on heightmaps we're currently handling. If characters are to
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
006 be able to swin in the sea, we must model the sea bottom, so we need
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
007 heightmaps which cover at least the continental shelf. However, the sea
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
008 bottom is not walkable territory and can be culled from walkmaps.
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
009
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
010 **Note** must be a floating point number. `(= 0 0.0)` returns `false`!"
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
011 0.0)
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
012
|
|
</span><br/>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
013 (defn ocean?
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
014 "Of a `facet`, is the altitude of every vertice equal to `*sea-level*`?"
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
015 [facet]
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 3 forms covered">
|
|
016 (every?
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 4 forms covered">
|
|
017 #(= % *sea-level*)
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 6 forms covered">
|
|
018 (map :z (:vertices facet))))
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
019
|
|
</span><br/>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
020 (defn cull-ocean-facets
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
021 "Ye cannae walk on water. Remove all facets from this `stl` structure which
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
022 are at sea level."
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
023 [stl]
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 10 forms covered">
|
|
024 (assoc stl :facets (remove ocean? (:facets stl))))
|
|
</span><br/>
|
|
</body>
|
|
</html>
|