mcclim/shader-lab.lisp
in-package#:mcluv
define-presentation-typeshader-expression-presentation
define-presentation-typeshader-instruction-presentation
define-presentation-typeshader-basic-block-presentation
define-presentation-typeshader-specification-presentation
define-presentation-typeshader-definition-presentation
define-presentation-typeblock-kind-presentation
defparameter*shader-accent-ink*
make-rgb-color0.100.380.78
defparameter*shader-call-ink*
make-rgb-color0.440.200.68
defparameter*shader-reference-ink*
make-rgb-color0.020.430.47
defparameter*shader-literal-ink*
make-rgb-color0.760.300.08
defparameter*shader-muted-ink*
make-rgb-color0.360.390.43
defparameter*shader-panel-ink*
make-rgb-color0.950.9650.98
defparameter*shader-selection-ink*
make-rgb-color0.840.911.0
define-presentation-methodpresentation-typep
define-presentation-methodpresentation-typep
define-presentation-methodpresentation-typep
define-presentation-methodpresentation-typep
define-presentation-methodpresentation-typep
define-presentation-methodpresentation-typep
defclassshader-definition-entry
role:initarg:role:readershader-definition-entry-role
stage:initarg:stage:readershader-definition-entry-stage
label:initarg:label:readershader-definition-entry-label
dependent:initarg:dependent:initformnil:readershader-definition-entry-dependent
pipeline:initarg:pipeline:initformnil:readershader-definition-entry-pipeline
specification:initarg:specification:initformnil:accessorshader-definition-entry-specification
lowering:initformnil:accessorshader-definition-entry-lowering
status:initform:uncompiled:accessorshader-definition-entry-status
diagnostic:initformnil:accessorshader-definition-entry-diagnostic
defclassshader-lab-health-report
status:initarg:status:readershader-lab-health-report-status
frame-state:initarg:frame-state:readershader-lab-health-report-frame-state
process-alive-p:initarg:process-alive-p:readershader-lab-health-report-process-alive-p
mirror-count:initarg:mirror-count:initform0:readershader-lab-health-report-mirror-count
canvas-state:initarg:canvas-state:initformnil:readershader-lab-health-report-canvas-state
latency:initarg:latency:initformnil:readershader-lab-health-report-latency
problems:initarg:problems:initformnil:readershader-lab-health-report-problems
backtrace:initarg:backtrace:initformnil:readershader-lab-health-report-backtrace
:documentation
One bounded diagnosis of frame, process, mirror, canvas, and responsiveness.
defmethodprint-object
reportshader-lab-health-report
streamprint-unreadable-object
reportstream:typet
formatstream"~S, ~D mirror~:P, canvas ~S~@[; ~{~A~^, ~}~]"
shader-lab-health-report-statusreport
shader-lab-health-report-mirror-countreport
shader-lab-health-report-canvas-statereport
shader-lab-health-report-problemsreport
climi::define-event-classshader-lab-health-event
climi::standard-event
sheet:initarg:sheet:readerclim:event-sheet
function:initarg:function:readershader-lab-health-event-function
defmethodhandle-event
sheetsheet
funcall
shader-lab-health-event-functionevent
defunrefresh-shader-definition-entry
entry&keyforce
Compile entry's current method without discarding its last good lowering.
let
entrydependent
shader-definition-entry-dependententry
when
multiple-value-bind
revisionevent
declare
ignoreevent
setf
shader-definition-entry-statusentry
:compilinghandler-case
let*
specification
ifdependent
luv.shader:shader-specification-for
shader-definition-entry-roleentry
shader-definition-entry-stageentry
shader-definition-entry-specificationentry
lowering
luv.spir-v:compile-shader-specificationspecification
setf
shader-definition-entry-specificationentry
specificationshader-definition-entry-loweringentry
loweringshader-definition-entry-statusentry
:readyshader-definition-entry-diagnosticentry
nilerror
condition
setf
shader-definition-entry-statusentry
:failedshader-definition-entry-diagnosticentry
conditionwhendependent
defunmake-live-shader-definition-entry
let*
dependent
luv.shader:make-shader-definition-dependent
fdefinition'luv.shader:shader-specification-for
listrolestage
entry
make-instance'shader-definition-entry:rolerole:stagestage:labellabel:dependentdependent:pipelinepipeline
defunmake-static-shader-definition-entry
let
entry
make-instance'shader-definition-entry:role
luv.shader:shader-object-namespecification
:stageluv.shader:shader-specification-stagespecification
:label:specificationspecificationdefunrelease-shader-definition-entry
entry
let
nildependent
shader-definition-entry-dependententry
whendependent
define-application-frameshader-lab
lowering:initarg:lowering:initform:accessorshader-lab-lowering
definitions:initarg:definitions:readershader-lab-definitions
current-definition:initarg:current-definition:accessorshader-lab-current-definition
materials:initarg:materials:initform:readershader-lab-materials
atlas:initform:readershader-lab-atlas
process:initformnil:accessorshader-lab-process
health-report:initformnil:accessorshader-lab-last-health-report
selection:initformnil:accessorshader-lab-selection
:menu-barnil
:panes
materials:application:display-function'display-shader-materials:scroll-barsnil:default-text-style
make-text-style:sans-serifnil:normal
source:application:display-function'display-shader-source:scroll-bars:vertical:default-text-style
make-text-style:fixnil:normal
:text-margins':left12:right12:top10:bottom10
ssa:application:display-function'display-shader-ssa:scroll-bars:vertical:default-text-style
make-text-style:fixnil:normal
:text-margins':left12:right12:top10:bottom10
details:application:display-function'display-shader-selection:scroll-barsnil:default-text-style
make-text-style:fixnil:normal
:text-margins':left12:right12:top8:bottom8
:layouts
default
vertically
:width1120:height820:spacing8
1/5materials
3/5
horizontally
:spacing8
1/2source
1/2ssa
1/5details
defunshader-lab-specifications
Return the current successfully compiled shader method results in frame.
defunselected-shader-expression
let
selection
shader-lab-selectionframe
cond
selection
first
defunselected-shader-instructions
let
selection
shader-lab-selectionframe
cond
listselection
defunshader-type-label
string-downcase
symbol-name
luv.shader:shader-type-nametype
defunwrite-shader-name
namestream
write-string
string-downcase
streamsymbol-namename
defunshader-infix-operator-p
operator
Shader operators are ordinary symbols; arithmetic is CL's own.
defunshader-operator-label
operator
string-downcase
symbol-nameoperator
defunshader-lab-current-specification
luv.spir-v:shader-lowering-specification
shader-lab-loweringframe
defunshader-display-label
specification
case
luv.shader:shader-object-namespecification
luvcraft.shaders:block-world-fragment-specification"BLOCK SURFACE"
otherwise
string-upcase
symbol-name
luv.shader:shader-object-namespecification
defunblock-material-preview-tile
block
let
tiles
luvcraft:block-kind-face-tilesblock
defundraw-shader-tab
let
selected-p
with-output-as-presentation
streamdefinition'shader-definition-presentation:single-boxt
draw-rectangle*streamlefttop:ink:fillednil:line-thickness
ifselected-p21
defundraw-block-material-card
let*
selected-p
tile
with-output-as-presentation
streamblock'block-kind-presentation:single-boxt
draw-rectangle*stream:ink:fillednil:line-thickness
ifselected-p21
draw-text*stream
formatnil"~D ~(~A~)"number
:ink:align-y:topluvcraft:block-kind-nameblock
defundisplay-shader-materials
framestream
draw-text*stream"LUVCRAFT MATERIAL WORKBENCH"145:ink*shader-accent-ink*:align-y:top:text-style
make-text-style:sans-serif:bold:normal
defunquantity-factors-label
factors
iffactors
formatnil"~{~A~^ ~}"
"1"mapcar
lambda
factorsfactor
defunquantity-specification-label
specification
ifspecification
formatnil"~@[~(~A~) · ~]~@[kind ~(~A~) · ~]~A [~A] · ~A · ~A"
"unannotated"luv.arithmetic:quantity-specification-namespecification
luv.arithmetic:quantity-specification-kindspecification
quantity-factors-label
luv.arithmetic:dimension-factors
luv.arithmetic:quantity-specification-dimensionspecification
quantity-factors-label
luv.arithmetic:unit-expression-factors
luv.arithmetic:quantity-specification-unitspecification
case
luv.arithmetic:quantity-specification-tensor-orderspecification
0"scalar"
1"vector"
otherwise
formatnil"tensor order ~D"
luv.arithmetic:quantity-specification-tensor-orderspecification
defunquantity-projection-lanes-label
positions
defunquantity-layout-label
whenlayout
formatnil"packed {~{~A~^; ~}}"
mapcar
lambda
projection
formatnil"~A -> ~A"
quantity-projection-lanes-label
luv.arithmetic:quantity-projection-positionsprojection
quantity-specification-label
luv.arithmetic:quantity-projection-specificationprojection
luv.arithmetic:quantity-layout-projectionslayout
defunquantity-semantics-label
specificationlayout
defunwrite-shader-expression
Render expression as nested selectable mathematical presentations.
labels
write-body
etypecaseexpression
luv.shader:shader-map-application
write-string"project-point["stream
write-shader-name
luv.shader:shader-object-name
streamluv.shader:shader-map-application-definitionexpression
write-string"]("stream
write-string"; rows "stream
loopforrowin
luv.shader:shader-map-application-rowsexpression
forfirst-p=tthennilunlessfirst-pdowrite-string", "stream
dowrite-char#\)stream
luv.shader:shader-map-projection
write-string"project-sample("stream
write-char#\)stream
luv.shader:shader-interpretation
write-string"interpret("stream
formatstream", ~A)"
luv.shader:shader-quantity-construction
write-string"quantity("stream
formatstream", ~A)"
luv.shader:shader-quantity-assumption
write-string"assume("stream
formatstream", ~A)"
luv.shader:shader-representation
write-string"representation("stream
write-char#\)stream
luv.shader:shader-unit-conversion
write-string"convert-unit("stream
luv.shader:shader-call
let
operator
luv.shader:shader-call-operatorexpression
operands
luv.shader:shader-call-operandsexpression
cond
eqoperator:swizzle
shader-infix-operator-poperator
write-char#\(stream
write-char#\)stream
t
write-char#\(stream
write-char#\)stream
with-output-as-presentation
streamexpression'shader-expression-presentation:single-boxt
if
with-drawing-options
stream:ink*shader-accent-ink*:text-face:bold
write-body
with-drawing-options
stream:ink
etypecaseexpression
write-body
defundisplay-shader-interface
streamdeclaration
write-string" "stream
with-drawing-options
stream:ink:text-face:bold
write-char#\Spacestream
formatstream" : ~A [~A] · meaning ~A~%"
shader-type-label
luv.shader:shader-declaration-typedeclaration
if
luv.shader:shader-interface-built-indeclaration
quantity-semantics-label
luv.shader:shader-declaration-quantity-specificationdeclaration
luv.shader:shader-declaration-quantity-layoutdeclaration
defundisplay-shader-resource
streamresource
write-string" resource "stream
formatstream" : ~A [set ~D, binding ~D]~%"
shader-type-label
luv.shader:shader-declaration-typeresource
luv.shader:shader-resource-descriptor-setresource
luv.shader:shader-resource-bindingresource
when
or
luv.shader:shader-resource-sample-quantity-specificationresource
luv.shader:shader-resource-sample-quantity-layoutresource
formatstream" sample meaning ~A~%"
quantity-semantics-label
luv.shader:shader-resource-sample-quantity-specificationresource
luv.shader:shader-resource-sample-quantity-layoutresource
when
dolist
member
luv.shader:shader-uniform-block-membersresource
formatstream" ~2D "
luv.shader:shader-uniform-member-offsetmember
formatstream" : ~A · meaning ~A~%"
shader-type-label
luv.shader:shader-declaration-typemember
quantity-semantics-label
luv.shader:shader-declaration-quantity-specificationmember
luv.shader:shader-declaration-quantity-layoutmember
defundisplay-shader-source
framestream
let*
lowering
shader-lab-loweringframe
specification
luv.spir-v:shader-lowering-specificationlowering
definition
shader-lab-current-definitionframe
dependent
shader-definition-entry-dependentdefinition
pipeline
shader-definition-entry-pipelinedefinition
with-drawing-options
stream:text-size:large:text-face:bold
with-drawing-options
stream:ink*shader-accent-ink*
formatstream" ~(~A~)~2%"
luv.shader:shader-specification-stagespecification
formatstream"definition ~(~A~)/~(~A~) · source ~(~A~)"
shader-definition-entry-roledefinition
shader-definition-entry-stagedefinition
shader-definition-entry-statusdefinition
when
write-string" · changed"stream
terpristream
whenpipeline
formatstream"GPU ~(~A~) · installed revision ~D~%"
luv:live-shader-pipeline-statuspipeline
luv:live-shader-pipeline-installed-revisionpipeline
let
diagnostic
or
shader-definition-entry-diagnosticdefinition
whendiagnostic
with-drawing-options
stream:ink*shader-literal-ink*
formatstream"diagnostic: ~A~%"diagnostic
terpristream
with-drawing-options
stream:text-face:bold
write-string"interface"stream
terpristream
dolist
declaration
append
luv.shader:shader-specification-inputsspecification
luv.shader:shader-specification-outputsspecification
dolist
resource
luv.shader:shader-specification-resourcesspecification
terpristream
with-drawing-options
stream:text-face:bold
write-string"mathematical bindings"stream
terpristream
dolist
binding
luv.shader:shader-specification-bindingsspecification
write-string" "stream
with-drawing-options
stream:text-face:bold
let
expression
terpristream
terpristream
dolist
statement
luv.shader:shader-specification-statementsspecification
write-string" output "stream
with-drawing-options
stream:text-face:bold
write-string" = "stream
terpristream
defunwrite-spir-v-form
formstream
let
*package*
find-package'#:luv.spir-v
*print-pretty*nil
*print-case*:downcase
prin1formstream
defundisplay-shader-instruction
with-output-as-presentation
streaminstruction'shader-instruction-presentation:single-boxt
if
with-drawing-options
stream:ink*shader-accent-ink*:text-face:bold
defundisplay-shader-ssa
framestream
with-drawing-options
stream:text-size:large:text-face:bold:ink*shader-accent-ink*
write-string"lowered SSA"stream
formatstream"~%CLOS functions and basic blocks~2%"
let
module
luv.spir-v:shader-lowering-module
shader-lab-loweringframe
let
constants
whenconstants
write-string"module constants"stream
terpristream
terpristream
dolist
function
luv.spir-v:spir-v-module-function-definitionsmodule
dolist
block
luv.spir-v:spir-v-function-basic-blocksfunction
with-output-as-presentation
streamblock'shader-basic-block-presentation:single-boxt
if
with-drawing-options
stream:ink*shader-accent-ink*:text-face:bold
formatstream" block ~A"
luv.spir-v:spir-v-basic-block-labelblock
formatstream" block ~A"
luv.spir-v:spir-v-basic-block-labelblock
terpristream
defundisplay-shader-selection
framestream
let*
with-drawing-options
stream:text-face:bold
with-drawing-options
stream:ink*shader-accent-ink*
write-string"selection"stream
cond
nullselection
write-string" — click a material, mathematical expression, SSA instruction, or block"stream
let*
formatstream" — material ~A ~(~A~)~%"
ifnumber
1+number
"?"luvcraft:block-kind-nameselection
formatstream"atlas tile ~D · number key ~A in luvcraft · right click places · middle click picks"tile
ifnumber
1+number
"?"formatstream" — representation ~A · meaning ~A · source "
shader-type-label
luv.shader:shader-expression-typeselection
let
instructions
gethashselection
luv.spir-v:shader-lowering-expression-instructionslowering
write-string" — SSA instruction "stream
formatstream"~%~D associated source expression~:P"
length
gethashselection
luv.spir-v:shader-lowering-instruction-expressionslowering
formatstream" — basic block ~A, ~D instruction~:P"
luv.spir-v:spir-v-basic-block-labelselection
length
luv.spir-v:spir-v-basic-block-instructionsselection
define-shader-lab-command
com-select-shader-expression:namenil
expression'shader-expression-presentation:gesture:select
setf
shader-lab-selection*application-frame*
expressionredisplay-frame-panes*application-frame*:force-pt
define-shader-lab-command
com-select-shader-instruction:namenil
instruction'shader-instruction-presentation:gesture:select
Keep the machine occurrence selected. selected-shader-expression follows
reverse provenance so the source view still lights up at the same time.
setf
shader-lab-selection*application-frame*
instructionredisplay-frame-panes*application-frame*:force-pt
define-shader-lab-command
com-select-shader-basic-block:namenil
block'shader-basic-block-presentation:gesture:select
setf
shader-lab-selection*application-frame*
blockredisplay-frame-panes*application-frame*:force-pt
define-shader-lab-command
com-select-shader-definition:namenil
definition'shader-definition-presentation:gesture:select
Recompile on the frame's command thread. A broken edit remains visible as diagnostic state while ENTRY retains its previous successful lowering.
setf
shader-lab-current-definition*application-frame*
definitionshader-lab-lowering*application-frame*
shader-definition-entry-loweringdefinition
shader-lab-selection*application-frame*
nilredisplay-frame-panes*application-frame*:force-pt
define-shader-lab-command
com-select-block-kind:namenil
block'block-kind-presentation:gesture:select
setf
shader-lab-selection*application-frame*
blockredisplay-frame-panes*application-frame*:force-pt
defunpipeline-for-shader-definition
rolestagepipelines
find-if
lambda
pipelinespipeline
ecasestage
:vertex
eqrole
luv:live-shader-pipeline-vertex-rolepipeline
:fragment
defunmake-default-shader-definitions
pipelines
loopforin'collect
:block-surface:vertex"BLOCK GEOMETRY"
:block-surface:fragment"BLOCK SURFACE"
:block-crosshair:fragment"CROSSHAIR INK"
defunrefresh-shader-lab-now
dolist
definition
shader-lab-definitionsframe
let
framecurrent
shader-lab-current-definitionframe
when
shader-definition-entry-loweringcurrent
setf
shader-lab-loweringframe
shader-definition-entry-loweringcurrent
defuncall-in-shader-lab-process
let
process
shader-lab-processframe
if
nullprocess
handler-case
error
condition
valuestnilcondition
let
completion
sb-thread:make-semaphore:count0
resultnil
conditionnil
handler-case
let
sheet
frame-top-level-sheetframe
climi::queue-append
climi::frame-event-queueframe
make-instance'shader-lab-health-event:sheetsheet:function
lambda
unwind-protect
handler-case
setfresult
funcallfunction
error
caught
setfconditioncaught
sb-thread:signal-semaphorecompletion
error
caught
setfconditioncaught
sb-thread:signal-semaphorecompletion
if
sb-thread:wait-on-semaphorecompletion:timeouttimeout
valuestresultcondition
valuesnilnilnil
defunshader-lab-window-snapshot
Inspect frame's actual top-level mirror and native canvas on its process.
let*
unlesssheet
push"no top-level sheet"problems
unless
push"frame is not on a luv port"problems
unless
push"direct mirror is not registered on the port"problems
unless
push"top-level sheet has no luv mirror"problems
unlesscanvas
push"mirror has no native canvas"problems
when
when
push"canvas event handler is not its mirror"problems
defuncapture-shader-lab-process-backtrace
process&key
timeout0.25
Best-effort bounded backtrace capture for an unresponsive frame process.
when
let
completion
sb-thread:make-semaphore:count0
backtracenil
handler-case
sb-thread:interrupt-threadprocess
lambda
unwind-protect
setfbacktrace
sb-debug:list-backtrace:count30
sb-thread:signal-semaphorecompletion
error
when
sb-thread:wait-on-semaphorecompletion:timeouttimeout
backtracedefunshader-lab-health
Return a status and structured frame/process/mirror/canvas health report.
let*
state
frame-stateframe
process
shader-lab-processframe
alive-p
start
get-internal-real-time
units
coerceinternal-time-units-per-second'double-float
report
if
eq:disownedstate
multiple-value-bind
completed-psnapshotcondition
let*
make-instance'shader-lab-health-report:statusstatus:frame-statestate:process-alive-palive-p:mirror-count:canvas-state:latencylatency:problems
appendproblems
:backtracewhencondition
list
princ-to-stringcondition
when
eqstatus:unresponsive
setf
shader-lab-last-health-reportframe
reportvalues
shader-lab-health-report-statusreport
reportdefunrefresh-shader-lab
if
eq:disowned
frame-stateframe
multiple-value-bind
completed-presultcondition
declare
ignoreresult
defuncapture-shader-lab-screenshot
Redisplay frame and capture its direct-GPU McCLIM presentation.
multiple-value-bind
completed-presultcondition
call-in-shader-lab-processframe
lambda
timeoutlet*
unless
error"Shader lab requires a direct-GPU McCLIM mirror."
cond
condition
errorcondition
notcompleted-p
error"Shader lab screenshot timed out after ~,2F seconds."timeout
tresult
defuncapture-default-shader-lab-screenshot
pathname&keyspecification
server-path'
:luv-gpu
title"Luv mathematical shader browser"
Open a callback-only shader lab, capture it, and tear it down.
let*
definitions
ifspecification
list
make-static-shader-definition-entryspecification
list
make-static-shader-definition-entry:label"BLOCK GEOMETRY"
make-static-shader-definition-entry:label"BLOCK SURFACE"
current-definition
port
find-port:server-pathserver-path
manager
framenil
unwind-protect
progn
This frame only needs to paint once. Avoid starting a durable command loop merely to photograph its real mirror texture.
setfframe
make-application-frame'shader-lab:frame-managermanager:definitionsdefinitions:current-definitioncurrent-definition:lowering
shader-definition-entry-loweringcurrent-definition
:enabletsetf
frame-pretty-nameframe
titledolist
definitiondefinitions
defunopen-shader-lab
&keyspecificationspecificationspipelines
server-path'
:luv-gpu
startup-timeout10.0
title"Luvcraft material and shader workbench"
Open a live-definition, expression, and SSA workbench on luv's backend.
pipelines may contain a running demo's live shader artifacts; their installed
revision and last diagnostic then appear alongside the source definition.
whenspecification
let*
definitions
cond
specifications
specification
t
make-default-shader-definitionspipelines
current-definition
firstdefinitions
port
find-port:server-pathserver-path
manager
framenil
startup-errornil
startup-signaled-pnil
startup-completion
sb-thread:make-semaphore:count0
labels
run
handler-case
progn
Presentation gestures are read by the application frame's command loop, not SDL's native event thread. Construct and run the frame in one durable process.
setfframe
make-application-frame'shader-lab:frame-managermanager:definitionsdefinitions:current-definitioncurrent-definition:lowering
shader-definition-entry-loweringcurrent-definition
setf
frame-pretty-nameframe
titlesetfstartup-signaled-pt
sb-thread:signal-semaphorestartup-completion
unwind-protect
run-frame-top-levelframe
dolist
definitiondefinitions
error
condition
dolist
definitiondefinitions
unlessstartup-signaled-p
setfstartup-errorcondition
sb-thread:signal-semaphorestartup-completion
errorcondition
let
process
unless
sb-thread:wait-on-semaphorestartup-completion:timeoutstartup-timeout
ignore-errors
clim-sys:destroy-processprocess
dolist
definitiondefinitions
error"Shader lab did not create its frame within ~,2F seconds."startup-timeout
whenstartup-error
errorstartup-error
setf
frameshader-lab-processframe
processdefunclose-shader-lab
Destroy an open-shader-lab frame and its luv canvas.
unless
nileq:disowned
frame-stateframe
define-style type
Headings, paragraphs, figures and their IDs, mentions, marks.
defclass shader-lab-health-report
One bounded diagnosis of frame, process, mirror, canvas, and responsiveness.
defmethod print-object
((call tool-call) stream)defmethod handle-event
((sheet sheet) (event shader-lab-health-event))defun refresh-shader-definition-entry
(entry &key force)define-arithmetic-operator or
Logical disjunction of tests and raw truth values.
define-arithmetic-operator and
Logical conjunction of tests and raw truth values.
defun shader-definition-change-pending-p
(dependent)defun shader-definition-change-snapshot
(dependent)defgeneric shader-specification-for
(role stage)Return the current durable shader specification for ROLE and STAGE.
defun compile-shader-specification
(specification)defun acknowledge-shader-definition-change
(dependent revision)Record that the consumer finished attempting REVISION. A newer concurrent notification remains pending.
defun make-live-shader-definition-entry
(role stage label pipeline)defun make-shader-definition-dependent
(generic-function arguments)defun make-static-shader-definition-entry
(specification &key label)defgeneric shader-object-name
(object)defun release-shader-definition-dependent
(dependent)defun make-block-texture-atlas
()Return the little world's horizontal RGBA8 atlas as packed pixel words. RGB is the material's procedural colour and A is opaque coverage. The array spans the full tile capacity; tiles past the painted count stay zero, waiting for a material to claim them.
defun display-shader-materials
(frame stream)defun display-shader-source
(frame stream)defun display-shader-ssa
(frame stream)defun display-shader-selection
(frame stream)defclass frame
An explicitly owned AVFrame.
defun shader-type-label
(type)defun write-shader-name
(name stream)defun shader-infix-operator-p
(operator)define-arithmetic-operator +
Addition over compatible quantities.
define-arithmetic-operator -
Subtraction or unary negation.
define-arithmetic-operator *
Multiplication and scalar scaling.
define-arithmetic-operator /
Division of two represented quantities.
defun shader-operator-label
(operator)defun shader-display-label
(specification)defun packed-block-ink
(word)define-shader-operator ldb
Extract the unsigned bit field (BYTE SIZE POSITION) of one unsigned scalar.
defun draw-block-atlas-tile
(stream atlas tile left top &key (scale 3))defun block-atlas-tile-offset
(tile &optional (domain *block-atlas-tile-domain*))defun draw-shader-tab
(frame stream definition left top)defclass definition
One top-level defining form of a source file.
defun draw-block-material-card
(frame stream block number left top)define-arithmetic-operator =
Test whether two compatible scalars are equal.
defun quantity-factors-label
(factors)defun quantity-specification-label
(specification)defun dimension-factors
(dimension)defun quantity-specification-affine-p
(specification)defun quantity-projection-lanes-label
(positions)defun quantity-layout-label
(layout)defclass layout
How the children of a list are arranged.
defun quantity-semantics-label
(specification layout)defun write-shader-expression
(expression stream frame)defgeneric shader-literal-value
(literal)defgeneric shader-reference-target
(reference)defclass shader-map-application
The homogeneous result of applying a represented semantic map.
defclass shader-map-projection
A virtual sampling product projected from a homogeneous map application.
defclass shader-interpretation
A checked semantic name for a represented value, with no codegen effect.
defun shader-interpretation-operand
(expression)defclass shader-quantity-construction
An explicitly meaningful value constructed from semantically raw source.
defun shader-quantity-construction-operand
(expression)defclass shader-quantity-assumption
An explicit assumption that an opaque represented value has a meaning.
defun shader-quantity-assumption-operand
(expression)defclass shader-representation
An explicit exposure of a semantic value's raw machine representation.
defun shader-representation-operand
(expression)defclass shader-unit-conversion
An explicit linear unit conversion that may emit numerical scaling.
defgeneric shader-unit-conversion-operand
(expression)defgeneric shader-unit-conversion-factor
(expression)defun display-shader-interface
(stream declaration)defclass declaration
PROPERTY: VALUES; -- the property a keyword, the values a list written space-separated.
defun display-shader-resource
(stream resource)defclass shader-uniform-block
One descriptor-backed uniform block with ordered, inspectable members.
defgeneric shader-binding-expression
(binding)defgeneric shader-expression-quantity-layout
(expression)defun write-spir-v-form
(form stream)defun display-shader-instruction
(frame stream instruction)defgeneric instruction-form
(instruction)defgeneric instruction-name
(instruction-or-class)defgeneric shader-expression-source-form
(expression)defun pipeline-for-shader-definition
(role stage pipelines)defun make-default-shader-definitions
(pipelines)defun refresh-shader-lab-now
(frame)defun call-in-shader-lab-process
(frame function timeout)defclass luv-port
Renderer-independent McCLIM display connection owned by luv.
defclass canvas
A native destination with a lifetime and frame clock.
defclass luv-mirror
A McCLIM sheet's relationship with a luv presentation target. TARGET is initially a native canvas. It is intentionally not part of the mirror's identity: a later target may be a texture presented on a 3D quad.
define-arithmetic-operator not
Logical negation of one test or raw truth value.
defclass canvas-event-handler
Protocol class for objects receiving canvas events.
defun capture-shader-lab-process-backtrace
(process &key (timeout 0.25))defun shader-lab-health
(frame &key (timeout 0.5))defun refresh-shader-lab
(frame &key (timeout 1.0))defun capture-shader-lab-screenshot
(frame pathname &key (timeout 10.0))defclass luv-gpu-mirror
A direct GPU target for an ordered LUV-GPU-MEDIUM drawing stream. An embedded mirror retains an immutable prepared CPU revision for the game's final pass; a standalone mirror renders into its native canvas drawable.
defun capture-gpu-mirror-screenshot
(mirror pathname)defun capture-default-shader-lab-screenshot
(pathname &key specification
(server-path '(:luv-gpu))
(title "Luv mathematical shader browser"))defclass luv-frame-manager
A McCLIM frame manager constrained by luv's current native host.
defun open-shader-lab
(&key specification specifications pipelines
(server-path '(:luv-gpu))
(startup-timeout 10.0)
(title "Luvcraft material and shader workbench"))Open a live-definition, expression, and SSA workbench on luv's backend. PIPELINES may contain a running demo's live shader artifacts; their installed revision and last diagnostic then appear alongside the source definition.
defun run
(arguments)defun close-shader-lab
(frame)
A presentation-oriented browser for mathematical shaders and lowered SSA.