hal/png.lisp

system luv · 2 definitions · on GitHub

PNG output for renderer readbacks.

in-package#:luv

pixelswidthheightformat

unless

error"Expected ~D pixel bytes, got ~D."

ecaseformat

:rgba8-unorm:rgba8-unorm-srgb

pixels

:bgra8-unorm:bgra8-unorm-srgb

let

copy-seqpixels

loopforoffsetbelow

by4do

rotatef

arefrgbaoffset

+offset2

pathnamepixelswidthheightformat

Write tightly packed rgba or BGRA byte pixels to pathname as a PNG.

zpng:write-png

make-instance'zpng:png:widthwidth:heightheight:color-type:truecolor-alpha:image-data

pathname:if-exists:supersede

pathname