81 lines
4.8 KiB
HTML
81 lines
4.8 KiB
HTML
<html>
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<link rel="stylesheet" href="../coverage.css"/> <title> walkmap/geometry.clj </title>
|
|
</head>
|
|
<body>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
001 (ns walkmap.geometry
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
002 (:require [clojure.math.combinatorics :as combo]
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
003 [clojure.math.numeric-tower :as m]
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
004 [walkmap.edge :as e]
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
005 [walkmap.path :refer [path? polygon->path]]
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
006 [walkmap.polygon :refer [polygon?]]
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
007 [walkmap.vertex :as v]))
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
008
|
|
</span><br/>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
009 (defn on?
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
010 "True if the vertex `v` is on the edge `e`."
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
011 [e v]
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 6 forms covered">
|
|
012 (let [p (v/ensure3d (:start e))
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 3 forms covered">
|
|
013 q (v/ensure3d v)
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 5 forms covered">
|
|
014 r (v/ensure3d (:end e))]
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 25 forms covered">
|
|
015 (and
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 5 forms covered">
|
|
016 (e/collinear? p q r)
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 13 forms covered">
|
|
017 (<= (:x q) (max (:x p) (:x r)))
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 13 forms covered">
|
|
018 (>= (:x q) (min (:x p) (:x r)))
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 13 forms covered">
|
|
019 (<= (:y q) (max (:y p) (:y r)))
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 13 forms covered">
|
|
020 (>= (:y q) (min (:y p) (:y r)))
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 13 forms covered">
|
|
021 (<= (:z q) (max (:z p) (:z r)))
|
|
</span><br/>
|
|
<span class="not-covered" title="0 out of 12 forms covered">
|
|
022 (>= (:z q) (min (:z p) (:z r))))))
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
023
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
024
|
|
</span><br/>
|
|
</body>
|
|
</html>
|