luft/mesh-variation-emit.lisp
Emit one already-proved transition plan, preserving every source owner.
(field realized-witnesses output-set builder-by-owner
live-triangle-counts-by-owner packing plan)((site-width) field &body body)Execute BODY with an inline SITE-WIDTH lookup over FIELD. The representation is unpacked once around an entire planning or emission stage, keeping the scalar triangle loop independent of the policy compiler without paying structure-access or generic-call costs per vertex.
(packing lx ly lz rx ry rz)Return one bounded-box key and the directed local endpoints of an edge. PACKING supplies only the anchor's horizontal frame. The low 24 key bits are the two undirected 12-bit endpoint coordinates inside their shared eighth-cell anchor. This codec is shared by open-sheet boundary assembly and by local variable-bevel…
Test whether one compatible scalar is less than another.
A simple Org table without formulas.
(left right)((tax tay taz tbx tby tbz tcx tcy tcz)
site-width ax ay az bx by bz cx cy cz
&body body)(ax ay az bx by bz cx cy cz)Logical conjunction of tests and raw truth values.
Addition over compatible quantities.
Multiplication and scalar scaling.
Logical negation of one test or raw truth value.
Logical disjunction of tests and raw truth values.
(builder kind stock ambient mask nx ny nz
ax ay az bx by bz cx cy cz)(loop normal)(builder kind stock ambient mask normal triangle)(builder face-triangles band-triangles fan-triangles)((mesh kind stock ambient mask
ax ay az bx by bz cx cy cz)
&body body)Iterate MESH's packed triangles with scalar coordinates and no callback. This is the dense-loop counterpart to %MAP-SURFACE-MESH-TRIANGLE-RECORDS. The latter deliberately materializes convenient point and normal lists for cold transformations and inspection; performance-sensitive compilers should keep the packed…
(filter ax ay az bx by bz cx cy cz)(builder)