luv

Workshop wiki

gazetteer.lisp

luvcraft/tools/gazetteer.lisp

system luvcraft/tools · 2 definitions · on GitHub

in-package#:luvcraft.tools
defuncommand-gazetteer
arguments
multiple-value-bind
positionalsoptions
parse-keyword-optionsarguments`
"--backend":backend,#'parse-backend-option
"--view":view,#'parse-gazetteer-view-name-option
"--width":width,#'parse-integer-option
"--height":height,#'parse-integer-option
"--count":count,#'parse-integer-option
"--forward-step":forward-step,#'parse-real-option
"--yaw-step":yaw-step,#'parse-real-option
"--day-start":day-start,#'parse-real-option
"--day-step":day-step,#'parse-real-option
"--difference-scale":difference-scale,#'parse-real-option
"--shadow-only":shadow-only,#'parse-integer-option
unless
=1
lengthpositionals
command-line-error"gazetteer expects exactly one TARGET directory."
let
target
pathname
firstpositionals
view
getfoptions:view
width
getfoptions:width
height
getfoptions:height
count
getfoptions:count
provider
make-backend-provider
getfoptions:backend
when
andcount
nullview
command-line-error"gazetteer --count requires one --view."
let
pathnames
ifcount
luvcraft:capture-luvcraft-gazetteer-sequenceviewtarget:countcount:forward-step
or
getfoptions:forward-step
0.2
:yaw-step
or
getfoptions:yaw-step
0.0
:day-start
getfoptions:day-start
:day-step
or
getfoptions:day-step
0.0
:difference-scale
getfoptions:difference-scale
:shadow-diagnostic-p
getfoptions:shadow-only
:providerprovider:widthwidth:heightheight
luvcraft:capture-luvcraft-gazetteertarget:views
andview
listview
:providerprovider:widthwidth:heightheight
if
getfoptions:difference-scale
formatt"Wrote ~D temporal artifacts under ~A~%"
lengthpathnames
target
dolist
pathnamepathnames
formatt"~A~%"pathname