luvcraft/agent/surroundings.lisp
in-package#:luvcraft.agent
defparameter*surroundings-horizontal-radius*12
defparameter*surroundings-below*6
defparameter*surroundings-above*10
defparameter*surroundings-camera-distance*4.5d0
defparameter*surroundings-camera-lift*1.25d0
defparameter*surroundings-look-ahead*3.0d0
defclassneighborhood-census
minimum:initarg:minimum:readercensus-minimum
maximum:initarg:maximum:readercensus-maximum
total:initarg:total:readercensus-total
resident:initarg:resident:readercensus-resident
unavailable:initarg:unavailable:readercensus-unavailable
air:initarg:air:readercensus-air
kind-counts:initarg:kind-counts:readercensus-kind-counts
:documentation
An exact material census over one inclusive integer world box.
defclasssurroundings-observation
png:initarg:png:readersurroundings-png
width:initarg:width:readersurroundings-width
height:initarg:height:readersurroundings-height
subject:initarg:subject:readersurroundings-subject
subject-position:initarg:subject-position:readersurroundings-subject-position
facing-yaw:initarg:facing-yaw:readersurroundings-facing-yaw
camera-position:initarg:camera-position:readersurroundings-camera-position
camera-yaw:initarg:camera-yaw:readersurroundings-camera-yaw
camera-pitch:initarg:camera-pitch:readersurroundings-camera-pitch
player-position:initarg:player-position:readersurroundings-player-position
player-offset:initarg:player-offset:readersurroundings-player-offset
player-distance:initarg:player-distance:readersurroundings-player-distance
world-revision:initarg:world-revision:readersurroundings-world-revision
nearby-edit-count:initarg:nearby-edit-count:readersurroundings-nearby-edit-count
census:initarg:census:readersurroundings-census
:documentation
One clean third-person PNG and the compact world reading captured with it.
defuninclusive-box-volume
minimummaximum
defunembodied-agent-neighborhood-bounds
agent
defuncensus-block-neighborhood
worldminimummaximum
Count each resident dense lane of world inside inclusive minimum..maximum.
destructuring-bind
minimum-xminimum-yminimum-z
minimumdestructuring-bind
maximum-xmaximum-ymaximum-z
maximumlet
resident0
air0
counts
make-hash-table:test#'eq
dolist
chunk
let*
multiple-value-bind
origin-xorigin-yorigin-z
let
when
world:with-block-content-storage
dense-domainpaletteindices
chunkdeclare
ignoredense-domain
loopforworld-zfromfrom-ztoto-zdo
let
total
make-instance'neighborhood-census:minimumminimum:maximummaximum:totaltotal:residentresident:unavailable:airair:kind-counts
defunauthored-edits-in-box
worldminimummaximum
let
source
world:block-world-sourceworld
if
destructuring-bind
0minimum-xminimum-yminimum-z
minimumdefunsurroundings-camera-pose-for
agent
Return an above-and-behind pose looking forward over agent.
let*
defunread-binary-file
pathname
with-open-file
streampathname:direction:input:element-type'
unsigned-byte8
let
octets
make-array
file-lengthstream
:element-type'unsigned-byte8
read-sequenceoctetsstream
octetsdefuncapture-surroundings-observation
agent
Capture one clean agent glance, including its bounded dense census.
let*
session
gnome-sessionagent
world
luvcraft:luvcraft-session-worldsession
player
luvcraft:luvcraft-session-playersession
posenil
factsnil
pathname
merge-pathnames
uiop:temporary-directory
unwind-protect
multiple-value-bind
luvcraft:capture-luvcraft-screenshotsessionpathname:camera-pose:metadata-function
lambda
:include-hud-pnil:include-viewmodel-pnilignored-session
declare
ignoreignored-session
multiple-value-bind
minimummaximum
let*
census
agent-position
player-position
offset
setffacts
list:subject
embodied-agent-nameagent
:subject-positionagent-position:facing-yawembodied-agent-facing-yawagent
:player-positionplayer-position:player-offsetoffset:player-distancedistance:world-revisionworld:block-world-revisionworld
:nearby-edit-count:censuscensusdeclare
ignorepixelsformatmetadata
let
camera-position
luvcraft::camera-pose-positionpose
make-instance'surroundings-observation:png
read-binary-filewritten
:widthwidth:heightheight:subjectgetffacts:subject
:subject-positiongetffacts:subject-position
:facing-yawgetffacts:facing-yaw
:camera-positionlist
:camera-yawluvcraft::vec3-xcamera-position
luvcraft::vec3-ycamera-position
luvcraft::vec3-zcamera-position
luvcraft::camera-pose-yawpose
:camera-pitchluvcraft::camera-pose-pitchpose
:player-positiongetffacts:player-position
:player-offsetgetffacts:player-offset
:player-distancegetffacts:player-distance
:world-revisiongetffacts:world-revision
:nearby-edit-countgetffacts:nearby-edit-count
:censusgetffacts:census
when
probe-filepathname
delete-filepathname
defunpresent-position
positionstream
destructuring-bind
xyz
positionformatstream"(~,2F, ~,2F, ~,2F)"xyz
define-presentation-methodpresent
let
census
surroundings-censusobservation
formatstream"~:(~A~) sees a ~Dx~D third-person view, facing ~A.~%"
surroundings-subjectobservation
surroundings-widthobservation
surroundings-heightobservation
compass-word
surroundings-facing-yawobservation
write-string"Agent "stream
write-string"; camera "stream
formatstream" yaw=~,3F pitch=~,3F.~%"
surroundings-camera-yawobservation
surroundings-camera-pitchobservation
write-string"Player "stream
write-string"; offset from agent "stream
formatstream"; distance ~,2F.~%"
surroundings-player-distanceobservation
formatstream"Sampled neighbourhood ~S..~S: ~:D cells; ~:D resident (~:D air), ~:D unavailable.~%"
census-minimumcensus
census-maximumcensus
census-totalcensus
census-residentcensus
census-aircensus
census-unavailablecensus
if
census-kind-countscensus
formatstream"Blocks: ~{~(~A~)=~:D~^, ~}.~%"
loopfor
name.count
incensus-kind-countscensus
appendlistnamecount
write-string"Blocks: none.~%"stream
formatstream"World revision ~D; ~:D authored edit~:P in the sampled box."
surroundings-world-revisionobservation
surroundings-nearby-edit-countobservation
define-command"Look forward from just above and behind your body. Return a clean third-person image together with agent, camera, and player coordinates and an exact material census of a nearby sampled voxel box. Unavailable cells are distinct from air."
let*
subject
command-subjectsession
unless
error"View Surroundings needs an embodied agent presence."
defmethodcommand-tool-runs-on-canvas-pnil
command
eql'com-view-surroundings
capture-luvcraft-screenshot owns its own canvas request and waits for the
readback; nesting it inside execute-command-for-agent would deadlock.
defmethodcommand-provider-output
command
valuestexteql'com-view-surroundings
declare
ignorecommand
let
observation
firstvalues
openai:make-tool-output:texttext:images
list
openai:make-tool-output-image
surroundings-pngobservation
:media-type"image/png":detail"high"defclass neighborhood-census
An exact material census over one inclusive integer world box.
defclass surroundings-observation
One clean third-person PNG and the compact world reading captured with it.
defun inclusive-box-volume
(minimum maximum)define-arithmetic-operator *
Multiplication and scalar scaling.
define-arithmetic-operator -
Subtraction or unary negation.
defun body-cell
(body)define-arithmetic-operator +
Addition over compatible quantities.
defun census-block-neighborhood
(world minimum maximum)defun resident-world-chunks
(world)defun chunk-domain-world-components
(domain local-x local-y local-z)define-arithmetic-operator max
The maximum of compatible quantities.
define-arithmetic-operator min
The minimum of compatible quantities.
define-arithmetic-operator and
Logical conjunction of tests and raw truth values.
define-arithmetic-operator <=
Test whether one compatible scalar is at most another.
defmacro with-block-content-storage
((domain palette indices) chunk &body body)defun palette
(scheme)define-arithmetic-operator =
Test whether two compatible scalars are equal.
defun chunk-domain-offset-components
(domain x y z)define-arithmetic-operator >
Test whether one compatible scalar is greater than another.
defun authored-edits-in-box
(world minimum maximum)defun body-x
(body)defun body-y
(body)defun body-z
(body)defun camera-y
(camera)defgeneric embodied-agent-body-height
(agent)AGENT's visible height above its occupied cell, in blocks.
defun camera-x
(camera)defun camera-z
(camera)define-arithmetic-operator sqrt
The componentwise square root of a raw value.
define-arithmetic-operator expt
Raise a dimensionless value to a dimensionless power.
defun make-vec3
(x y z)define-quantity-constant +luvcraft-camera-focused-vertical-field-of-view+
The 50-degree vertical field of view used during modal focus.
defun read-binary-file
(pathname)defclass embodied-agent
One embodied agent at a discrete cell: its thread, figure, and voice.
defun capture-luvcraft-screenshot
(session pathname &key camera-pose metadata-function
(include-hud-p t) (include-viewmodel-p t))Render SESSION once offscreen and write its native GPU frame to PNG. This works for both live and hidden sessions. The call returns only after GPU readback and compressed PNG writing have completed; it does not inspect the host window or depend on the window being visible. CAMERA-POSE may be a pose or a function of…
defun player-x
(player)defun player-y
(player)defun player-z
(player)defun present-position
(position stream)defun present
(queue swapchain image-index
&key (wait-semaphores #()) present-id present-stage time-domain-id
target-time target-time-domain-present-stage)define-style type
Headings, paragraphs, figures and their IDs, mentions, marks.
defun compass-word
(yaw)defmacro define-command
(name (&rest lambda-list) documentation &body body)defun command-subject
(session)defgeneric command-tool-runs-on-canvas-p
(command)Whether COMMAND must execute at its application's frame boundary.
defun execute-command-for-agent
(agent command)defgeneric command-provider-output
(command values text)Return the provider result after VALUES produced TEXT.
An embodied glance has two inseparable products: a perspective image and a small exact reading of the resident world around the body. The image is what the figure can see; the axis-aligned census is explicitly a sampled neighbourhood rather than a fictitious bounding box for the view frustum.