mcclim/compositor.lisp
in-package#:mcluv
shader:define-shaderspinning-texture-vertex-specification
:stage:vertex:inputs:resources:outputs
vertex-index:uint:built-in:vertex-index
state:uniform-block:set0:binding2:members
center:vec4
right:vec4
up:vec4
clip-position:vec4:built-in:position
texture-coordinate:vec2:location0
let*
shader:define-shaderspinning-texture-fragment-specification
:stage:fragment:inputs:resources:outputs
texture-coordinate:vec2:location0
image:texture-2d:set0:binding0:sample-transfer:identity
texture-sampler:sampler:set0:binding1
color-output:vec4:location0
let*
texel
shader:set-outputcolor-outputtexel
shader:define-shaderlisp-machine-chassis-vertex-specification
:stage:vertex:inputs:resources:outputs
vertex-index:uint:built-in:vertex-index
state:uniform-block:set0:binding2:members
center:vec4
right:vec4
up:vec4
clip-position:vec4:built-in:position
chassis-color:vec4:location0
let*
two
shader:uint2.0
four
shader:uint4.0
layer
local-index
body-p
scale-x
ifshadow-p1.2058824
ifbody-p1.17647061.0735294
scale-y
ifshadow-p1.2647059
ifbody-p1.23529411.0882353
offset-x
ifshadow-p0.051470590.0
offset-y
ifshadow-p0.08088235
ifbody-p0.017647060.0
color-r
ifshadow-p0.035
ifbody-p0.500.075
color-g
ifshadow-p0.045
ifbody-p0.470.095
color-b
ifshadow-p0.043
ifbody-p0.380.085
color
shader:set-outputchassis-colorcolor
shader:define-shaderlisp-machine-chassis-fragment-specification
:stage:fragment:inputs:outputs
chassis-color:vec4:location0
color-output:vec4:location0
let*
shader:set-outputcolor-outputchassis-color
defclassspinning-compositor-frame-state
buffer:initarg:buffer:readerspinning-frame-state-buffer
bind-group:initarg:bind-group:readerspinning-frame-state-bind-group
relief-buffer:initformnil:accessorspinning-frame-state-relief-buffer
relief-capacity:initform0:accessorspinning-frame-state-relief-capacity
defclassspinning-texture-compositor
speed:initarg:speed:initform0.12:readerspinning-compositor-speed
start-time:initformnil:accessorspinning-compositor-start-time
device:initformnil:accessorspinning-compositor-device
source:initformnil:accessorspinning-compositor-source
size:initformnil:accessorspinning-compositor-size
depth-format:initformnil:accessorspinning-compositor-depth-format
depth-compare:initformnil:accessorspinning-compositor-depth-compare
target-format:initformnil:accessorspinning-compositor-target-format
output:initformnil:accessorspinning-compositor-output
source-view:initformnil:accessorspinning-compositor-source-view
output-view:initformnil:accessorspinning-compositor-output-view
sampler:initformnil:accessorspinning-compositor-sampler
vertex-module:initformnil:accessorspinning-compositor-vertex-module
fragment-module:initformnil:accessorspinning-compositor-fragment-module
chassis-vertex-module:initformnil:accessorspinning-compositor-chassis-vertex-module
chassis-fragment-module:initformnil:accessorspinning-compositor-chassis-fragment-module
layout:initformnil:accessorspinning-compositor-layout
pipeline:initformnil:accessorspinning-compositor-pipeline
chassis-pipeline:initformnil:accessorspinning-compositor-chassis-pipeline
frame-states:initform
make-hash-table:test#'eq
:readerspinning-compositor-frame-statesdefunspinning-compositor-resources
compositor
removenil
list
spinning-compositor-pipelinecompositor
spinning-compositor-chassis-pipelinecompositor
spinning-compositor-layoutcompositor
spinning-compositor-chassis-fragment-modulecompositor
spinning-compositor-chassis-vertex-modulecompositor
spinning-compositor-fragment-modulecompositor
spinning-compositor-vertex-modulecompositor
spinning-compositor-samplercompositor
spinning-compositor-output-viewcompositor
spinning-compositor-source-viewcompositor
spinning-compositor-outputcompositor
defunclear-spinning-compositor-resources
compositor
maphash
lambda
surfacestate
declare
ignoresurface
alexandria:when-let
buffer
spinning-frame-state-relief-bufferstate
luv:destroybuffer
luv:destroy
spinning-frame-state-bind-groupstate
luv:destroy
spinning-frame-state-bufferstate
spinning-compositor-frame-statescompositor
clrhash
spinning-compositor-frame-statescompositor
dolist
resource
spinning-compositor-resourcescompositor
luv:destroyresource
setf
compositorspinning-compositor-devicecompositor
nilspinning-compositor-sourcecompositor
nilspinning-compositor-sizecompositor
nilspinning-compositor-depth-formatcompositor
nilspinning-compositor-depth-comparecompositor
nilspinning-compositor-target-formatcompositor
nilspinning-compositor-outputcompositor
nilspinning-compositor-source-viewcompositor
nilspinning-compositor-output-viewcompositor
nilspinning-compositor-samplercompositor
nilspinning-compositor-vertex-modulecompositor
nilspinning-compositor-fragment-modulecompositor
nilspinning-compositor-chassis-vertex-modulecompositor
nilspinning-compositor-chassis-fragment-modulecompositor
nilspinning-compositor-layoutcompositor
nilspinning-compositor-pipelinecompositor
nilspinning-compositor-chassis-pipelinecompositor
nildefmethodrelease-raster-mirror-compositor
compositorspinning-texture-compositor
clear-spinning-compositor-resourcescompositor
values
defunensure-spinning-compositor-resources
let*
compositorsize
luv:gpu-texture-sizesource
format
luv:gpu-texture-formatsource
target-format
unless
and
eqdevice
spinning-compositor-devicecompositor
eqsource
spinning-compositor-sourcecompositor
equalsize
spinning-compositor-sizecompositor
eqdepth-format
spinning-compositor-depth-formatcompositor
eqdepth-compare
spinning-compositor-depth-comparecompositor
eqtarget-format
spinning-compositor-target-formatcompositor
clear-spinning-compositor-resourcescompositor
let
creatednil
completed-pnil
unwind-protect
labels
create-resource
descriptor
let*
output
create-resource
luv:make-texture-descriptor:label"McCLIM composited frame":sizesize:dimensions:2d:formatformat:usage'
:render-attachment:copy-src
source-view
create-resource
luv:make-texture-view-descriptor:texturesource
output-view
create-resource
luv:make-texture-view-descriptor:textureoutput
sampler
create-resource
luv:make-sampler-descriptor:label"McCLIM linear sampler"
vertex-module
create-resource
luv:make-shader-module-descriptor:label"spinning McCLIM vertex shader":language:mathematical:code
fragment-module
create-resource
luv:make-shader-module-descriptor:label"spinning McCLIM fragment shader":language:mathematical:code
chassis-vertex-module
create-resource
luv:make-shader-module-descriptor:label"Lisp machine chassis vertex shader":language:mathematical:code
chassis-fragment-module
create-resource
luv:make-shader-module-descriptor:label"Lisp machine chassis fragment shader":language:mathematical:code
layout
create-resource
luv:make-bind-group-layout-descriptor:label"sampled McCLIM texture layout":entries'
:binding0:type:texture
:binding1:type:sampler
:binding2:type:uniform-buffer
pipeline
create-resource
luv:make-render-pipeline-descriptor:label"spinning McCLIM quad":layoutlayout:vertex`
:module,vertex-module
:fragment`:module,fragment-module:targets
:depth-stencil:format,target-format
whendepth-format`
:primitive':format,depth-format:depth-write-enablednil:depth-compare,depth-compare
:topology:triangle-strip
chassis-pipeline
create-resource
luv:make-render-pipeline-descriptor:label"Lisp machine terminal chassis":layoutlayout:vertex`
:module,chassis-vertex-module
:fragment`:module,chassis-fragment-module:targets
:depth-stencil:format,target-format
whendepth-format`
:primitive':format,depth-format:depth-write-enablednil:depth-compare,depth-compare
:topology:triangle-strip
setf
spinning-compositor-devicecompositor
devicespinning-compositor-sourcecompositor
sourcespinning-compositor-sizecompositor
sizespinning-compositor-depth-formatcompositor
depth-formatspinning-compositor-depth-comparecompositor
depth-comparespinning-compositor-target-formatcompositor
target-formatspinning-compositor-outputcompositor
outputspinning-compositor-source-viewcompositor
source-viewspinning-compositor-output-viewcompositor
output-viewspinning-compositor-samplercompositor
samplerspinning-compositor-vertex-modulecompositor
vertex-modulespinning-compositor-fragment-modulecompositor
fragment-modulespinning-compositor-chassis-vertex-modulecompositor
chassis-vertex-modulespinning-compositor-chassis-fragment-modulecompositor
chassis-fragment-modulespinning-compositor-layoutcompositor
layoutspinning-compositor-pipelinecompositor
pipelinespinning-compositor-chassis-pipelinecompositor
chassis-pipelinecompleted-ptunlesscompleted-p
dolist
resourcecreated
ignore-errors
luv:destroyresource
defunensure-spinning-compositor-frame-state
compositorsurface
A swapchain image is only acquired again after its previous presentation, so its matching uniform buffer is no longer being read by the GPU.
or
gethashsurface
spinning-compositor-frame-statescompositor
let*
device
spinning-compositor-devicecompositor
buffernil
bind-groupnil
completed-pnil
unwind-protect
progn
setfbufferbind-group
luv:createdevice
luv:make-bind-group-descriptor:label"sampled McCLIM raster and uniform state":layout
spinning-compositor-layoutcompositor
:entries`:binding0:resource,
spinning-compositor-source-viewcompositor
:binding1:resource,
spinning-compositor-samplercompositor
:binding2:resource,buffer
let
state
setf
stategethashsurface
statecompleted-ptspinning-compositor-frame-statescompositor
defunspinning-compositor-state
compositortimestamp&key
aspect-scale1.0
unless
spinning-compositor-start-timecompositor
setf
spinning-compositor-start-timecompositor
timestamplet
defunrender-spinning-mirror-frame
mirrortimestamp
let
mirrorwhen
let
state
luv:present-canvas-framecontext
lambda
surfaceencoder
let
frame-state
let
pass
luv:begin-render-passencoder
luv:make-render-pass-descriptor:label"McCLIM offscreen pass":color-attachments`
:view,
spinning-compositor-output-viewcompositor
:load-op:clear:store-op:store:clear-value0.0250.0250.041.0
luv:encodepass
luv:make-gpu-set-pipeline-command:pipeline
spinning-compositor-chassis-pipelinecompositor
luv:encodepass
luv:make-gpu-set-bind-group-command:index0:bind-group
spinning-frame-state-bind-groupframe-state
dotimes
layer3
luv:encodepass
luv:make-gpu-set-bind-group-command:index0:bind-group
spinning-frame-state-bind-groupframe-state
luv:end-passpass
luv:encodeencoder
luv:make-gpu-copy-texture-command:source
spinning-compositor-outputcompositor
:destinationsurfacedefmethodpresent-raster-mirror-texture
declare
defunenable-spinning-mirror
mirror&key
frames-per-second60
speed0.12
Make mirror orbit as a sampled texture and return its compositor.
release-raster-mirror-compositor
mirror-compositormirror
let*compositor
compositor
canvas
mirror-targetmirror
defundisable-spinning-mirror
mirror
Return mirror to direct texture presentation.
let
mirrorcanvas
mirror-targetmirror
release-raster-mirror-compositor
mirror-compositormirror
setf
mirror-compositormirror
nilsetf
mcclim-render:image-dirty-regionmirror
+everywhere+present-mirrormirror
defunopen-spinning-widget-lab
&key
title"McCLIM widget drifting through luv space"
frames-per-second60
speed0.12
Open widget-lab and immediately composite it as a spinning 3D quad.
defmacro define-shader
(name options &body body)define-shader-operator uint
Convert one scalar float or unsigned value to a 32-bit unsigned integer.
define-arithmetic-operator mod
The non-negative remainder of integer division.
define-arithmetic-operator /
Division of two represented quantities.
define-shader-operator float
Convert one scalar float or unsigned value to a 32-bit float.
define-arithmetic-operator -
Subtraction or unary negation.
define-arithmetic-operator *
Multiplication and scalar scaling.
define-arithmetic-operator +
Addition over compatible quantities.
define-shader-operator sample
Sample a two-dimensional texture through a sampler at a UV coordinate.
define-arithmetic-operator <
Test whether one compatible scalar is less than another.
defclass layout
How the children of a list are arranged.
defun spinning-compositor-resources
(compositor)defun clear-spinning-compositor-resources
(compositor)defgeneric destroy
(handle)Logically invalidate HANDLE immediately. Native teardown may be deferred until submitted work which captured HANDLE has completed.
defgeneric release-raster-mirror-compositor
(compositor)Legacy adapter for the application-neutral RELEASE-MIRROR-COMPOSITOR.
defun ensure-spinning-compositor-resources
(compositor context source
&key depth-format (depth-compare :less) target-format)defclass context
A MuPDF context: its allocator, its store, and its error stack.
defgeneric context-device
(context)Return the GPU device used by CONTEXT, or NIL before first configuration.
define-arithmetic-operator or
Logical disjunction of tests and raw truth values.
define-arithmetic-operator and
Logical conjunction of tests and raw truth values.
defgeneric create
(device descriptor)Asks the DEVICE for a handle to newly created instance of some object fulfilling the DESCRIPTOR.
defun ensure-spinning-compositor-frame-state
(compositor surface)defun spinning-compositor-state
(compositor timestamp &key (aspect-scale 1.0))defun render-spinning-mirror-frame
(mirror timestamp)defun present-canvas-frame
(context function)defgeneric begin-render-pass
(encoder descriptor)defgeneric end-pass
(pass-encoder)defgeneric present-raster-mirror-texture
(mirror context texture compositor)Present an uploaded McCLIM TEXTURE through an optional COMPOSITOR.
defclass luv-raster-mirror
A luv mirror retaining McCLIM's CPU raster image for later upload.
defun enable-spinning-mirror
(mirror &key (frames-per-second 60) (speed 0.12))defclass canvas
A native destination with a lifetime and frame clock.
defclass canvas-clock
A policy object deciding when a canvas should run frames.
defun make-cadence-clock
(frame-function &key (frames-per-second 60))defgeneric request-canvas-frame
(canvas function)Run FUNCTION with a timestamp on CANVAS's native frame/event thread. The initial native implementation is synchronous: the caller waits for the function's values. The protocol leaves room for a real frame scheduler.
defun disable-spinning-mirror
(mirror)defun open-spinning-widget-lab
(&key (title "McCLIM widget drifting through luv space")
(frames-per-second 60) (speed 0.12))defclass frame
An explicitly owned AVFrame.
defun open-widget-lab
(&key (server-path '(:luv-gpu))
(title "McCLIM widgets on luv")
target context device)
A first deliberately theatrical McCLIM compositor.
McCLIM still paints an ordinary CPU raster. The raster mirror uploads it to a sampled GPU texture; this object renders that texture as a perspective-spinning quad into an offscreen color attachment, after which the canvas context performs its familiar texture-to-swapchain copy.