travisshears/robot_cleaning_game
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

get cal-vision-points sorted properly

Browse source
This commit is contained in:
Travis Shears 2026-05-08 16:53:01 +02:00
parent 1045fdc386
commit 1c67c0c4a4
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
game/src/entities/player.fnl
View file

@ -47,12 +47,10 @@
(lambda player.cal-vision-points [self]
(let [pts []
(let [
(ox oy) (origin-pt self.x self.y)
add-pt (lambda [x y]
(let [(rx ry) (utils.rotate-pt x y ox oy self.rot)]
(table.insert pts [rx ry])))
]
pts []]
(lambda add-pt [x y] (table.insert pts [x y]))
(for [i 1 5]
(add-pt (- ox (* i 5) 50) (- oy (- 50 (* i 5) ))))
(for [i 1 10]
@ -62,7 +60,13 @@
(add-pt (+ ox (* i 5)) (- oy 50)))
(for [i 1 5]
(add-pt (+ ox (* i 5) 50) (- oy (- 50 (* i 5) ))))
pts
(table.sort pts (lambda [a b] (let [x1 (. a 1) x2 (. b 1)]
(> x1 x2))))
(icollect [_ pt (ipairs pts)]
(let [
[x y] pt
(rx ry) (utils.rotate-pt x y ox oy self.rot)]
[rx ry]))
)
)