mcclim/surveyor.lisp
in-package#:mcluv
defclasssurveyor-map-snapshot
center-x:initarg:center-x:readersurveyor-snapshot-center-x
center-z:initarg:center-z:readersurveyor-snapshot-center-z
width:initarg:width:readersurveyor-snapshot-width
depth:initarg:depth:readersurveyor-snapshot-depth
heights:initarg:heights:readersurveyor-snapshot-heights
materials:initarg:materials:readersurveyor-snapshot-materials
lights:initarg:lights:readersurveyor-snapshot-lights
minimum-height:initarg:minimum-height:readersurveyor-snapshot-minimum-height
maximum-height:initarg:maximum-height:readersurveyor-snapshot-maximum-height
defunsurveyor-snapshot-offset
snapshotcolumnrow
defunsurveyor-generated-surface
worldsourcexz
if
let*
generated
multiple-value-bind
residentstatus
defuncapture-surveyor-map-snapshot
Capture one dense inspector-scale terrain product around session's player.
let*
world
luvcraft:luvcraft-session-worldsession
source
luvcraft:block-world-sourceworld
player
luvcraft:luvcraft-session-playersession
center-x
floor
luvcraft:player-xplayer
center-z
floor
luvcraft:player-zplayer
heights
make-arraycount:element-type'
unsigned-byte8
materials
make-arraycount:initial-elementnil
lights
make-arraycount:element-type'
unsigned-byte8
minimum-height255
maximum-height0
make-instance'surveyor-map-snapshot:center-xcenter-x:center-zcenter-z:widthwidth:depthdepth:heightsheights:materialsmaterials:lightslights:minimum-heightminimum-height:maximum-heightmaximum-height
defmethodhandle-repaint
region
declare
ignoreregion
with-slots
climi::armedclimi::pressedp
panelet*
define-application-framesurveyor-map
session:initarg:session:readersurveyor-map-session
snapshot:initarg:snapshot:accessorsurveyor-map-snapshot
mode:initarg:mode:initform:terrain:accessorsurveyor-map-mode
:menu-barnil
:panes
terrain-mode
make-pane'surveyor-mode-button-pane:label"TERRAIN":mode:terrain:activate-callback'activate-surveyor-mode
material-mode
make-pane'surveyor-mode-button-pane:label"MATERIAL":mode:material:activate-callback'activate-surveyor-mode
light-mode
make-pane'surveyor-mode-button-pane:label"LIGHT":mode:light:activate-callback'activate-surveyor-mode
height-mode
make-pane'surveyor-mode-button-pane:label"HEIGHT":mode:height:activate-callback'activate-surveyor-mode
refresh
:layouts
default
vertically
:width760:height520:spacing8
1/8
horizontally
:spacing8
terrain-modematerial-modelight-modeheight-mode7/8
horizontally
:spacing10
3/4map
1/4
vertically
:spacing10
4/5details
1/5refresh
defunactivate-surveyor-mode
gadget
defunrefresh-surveyor-map
gadget
let
frame
gadget-clientgadget
setf
capture-surveyor-map-snapshot
surveyor-map-sessionframe
defunsurveyor-material-color
material
ifmaterial
luvcraft:block-kind-display-colormaterial
'0.080.120.14
defunsurveyor-cell-color
snapshotoffsetmode
let*
destructuring-bind
redgreenblue
make-rgb-colorredgreenblue
defundisplay-surveyor-map
framestream
let
snapshot
with-bounding-rectangle*
lefttoprightbottom
streamdraw-rectangle*streamlefttoprightbottom:ink
make-rgb-color0.0450.0650.07
let*
dotimes
row
surveyor-snapshot-depthsnapshot
dotimes
column
surveyor-snapshot-widthsnapshot
let
draw-rectangle*streamx1y1:ink
loopforcolumnfrom0to
surveyor-snapshot-widthsnapshot
by5forx=dodraw-line*streamxmap-topxmap-bottom:ink
make-rgb-color0.100.580.60
loopforrowfrom0to
surveyor-snapshot-depthsnapshot
by5fory=dodraw-line*streammap-leftymap-righty:ink
make-rgb-color0.100.580.60
let
draw-circle*streamcenter-xcenter-y10:fillednil:line-thickness3:ink
make-rgb-color0.900.980.92
draw-line*streamcenter-ycenter-y:line-thickness2:ink
make-rgb-color0.900.980.92
defundisplay-surveyor-details
framestream
let*
snapshot
session
surveyor-map-sessionframe
player
luvcraft:luvcraft-session-playersession
x
floor
luvcraft:player-xplayer
y
floor
luvcraft:player-yplayer
z
floor
luvcraft:player-zplayer
with-bounding-rectangle*
lefttoprightbottom
streamdraw-rectangle*streamlefttoprightbottom:ink
make-rgb-color0.0650.080.085
loopfortextin
list
forlinefrom0doformatnil"X ~D"x
formatnil"Y ~D"y
formatnil"Z ~D"z
formatnil"SPAN ~D x ~D"
surveyor-snapshot-widthsnapshot
surveyor-snapshot-depthsnapshot
formatnil"HEIGHT ~D..~D"
surveyor-snapshot-minimum-heightsnapshot
surveyor-snapshot-maximum-heightsnapshot
defunopen-surveyor-map
Create and enable a surveyor instrument sampled from session.
let*
port
find-port:server-pathserver-path
manager
frame
let
setf
frameframe-pretty-nameframe
titledefunclose-surveyor-mapnil
defun surveyor-snapshot-offset
(snapshot column row)define-arithmetic-operator +
Addition over compatible quantities.
define-arithmetic-operator *
Multiplication and scalar scaling.
defun surveyor-generated-surface
(world source x z)defun little-world-surface-height
(source x z height)defun little-world-surface-material
(source x z surface height)defgeneric world-block-at
(world x y z)Return one site as BLOCK and :RESIDENT, or NIL and :ABSENT. This sparse world-coordinate accessor constructs coordinate descriptors and a chunk lookup key. It is appropriate for inspectors, ray hits, collision probes, and sparse interaction. Algorithms over many cells should select a chunk/domain once and use…
define-arithmetic-operator and
Logical conjunction of tests and raw truth values.
defun capture-surveyor-map-snapshot
(session &key (width 40) (depth 28))defun player-x
(player)defun player-z
(player)define-arithmetic-operator -
Subtraction or unary negation.
defun world-light-levels-at
(world x y z)Return sparse SKY, BLOCK, and STATE readings at world site X,Y,Z. This is the inspector-scale light counterpart to WORLD-BLOCK-AT. Dense light consumers should bind a chunk field once rather than resolving every site.
define-arithmetic-operator max
The maximum of compatible quantities.
define-arithmetic-operator min
The minimum of compatible quantities.
defmethod handle-repaint
((pane lobby-hud-pane) region)defclass frame
An explicitly owned AVFrame.
defun repaint-relief-button
(pane pressed-p color)defun activate-surveyor-mode
(gadget)defun display-surveyor-map
(frame stream)defun display-surveyor-details
(frame stream)defun refresh-surveyor-map
(gadget)defun surveyor-material-color
(material)defun surveyor-cell-color
(snapshot offset mode)define-arithmetic-operator /
Division of two represented quantities.
defclass light
One inspectable environment light, packed into raw per-frame GPU lanes.
define-arithmetic-operator =
Test whether two compatible scalars are equal.
defun player-y
(player)defun open-surveyor-map
(session &key (server-path '(:luv-gpu)) (title "surveyor map")
target context device)defclass context
A MuPDF context: its allocator, its store, and its error stack.
define-arithmetic-operator not
Logical negation of one test or raw truth value.
define-arithmetic-operator or
Logical disjunction of tests and raw truth values.
defclass luv-frame-manager
A McCLIM frame manager constrained by luv's current native host.
defun close-surveyor-map
(frame)
A compact terrain instrument whose state is sampled from a live luvcraft session and whose presentation is ordinary McCLIM drawing and gadgets.