luv

Workshop wiki

surroundings.lisp

luvcraft/agent/tests/surroundings.lisp

system luvcraft/agent/test · 3 definitions · on GitHub

in-package#:luvcraft.agent.tests
deftestdense-neighborhood-census-distinguishes-air-and-unavailable
let
world
world:make-block-world:chunk-width2:chunk-height2:chunk-depth2
let
ok
=12
agent::census-totalcensus
ok
=8
agent::census-residentcensus
ok
=4
agent::census-unavailablecensus
ok
=6
agent::census-aircensus
ok
equal'
:grass.1
:stone.1
agent::census-kind-countscensus
deftestthird-person-pose-follows-retained-body-facing
let*
gnome
make-instance'agent:gnome:sessionnil:x2:y3:z4:position
luvcraft::make-vec32.5d03d04.5d0
:facing-yaw
/pi2
position
luvcraft::camera-pose-positionpose
ok
<
luvcraft::vec3-xposition
2.5d0
ok
<
abs
-
luvcraft::vec3-zposition
4.5d0
1d-9
ok
<
abs
-
luvcraft::camera-pose-yawpose
/pi2
1d-9
ok
minusp
luvcraft::camera-pose-pitchpose