notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rotating.

Browse Source
This commit is contained in:
=
2014-09-03 00:13:01 -07:00
parent 5c9fb09e2b
commit dfc0554d6c
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
desktop/resources/pathfind-test-big.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 11 KiB

After

Width:  |  Height:  |  Size: 10 KiB

13
desktop/src-common/advent/core.clj
View File

@@ -56,17 +56,20 @@
[target-x target-y] (first target-path)
target {:x target-x :y target-y}]
(if (and target (seq target-path))
(let [
delta-x (- (:x target) (:x ego))
(let [delta-x (- (:x target) (:x ego))
delta-y (- (:y target) (:y ego))
mag (Math/sqrt (+ (* delta-x delta-x) (* delta-y delta-y)))
vector-x (* 1.5 (/ delta-x mag))
vector-y (* 1.5 (/ delta-y mag))]
(if (< mag 1)
(update-in ego [:target-path] rest)
(-> ego
(update-in [:x] #(+ % vector-x))
(update-in [:y] #(+ % vector-y)))))
(merge (-> ego
(update-in [:x] #(+ % vector-x))
(update-in [:y] #(+ % vector-y))
(assoc-in [:anim] (if (< vector-x 0)
(:left ego)
(:right ego))))
(animation->texture screen (:anim ego)))))
(dissoc ego :target-path))))
(defscreen main-screen