vertex-color ( position -- rgba )


Vocabulary
gml.printer

Inputs
positionan object


Outputs
rgbaan object


Definition
USING: kernel math sequences ;

IN: gml.printer

: vertex-color ( position -- rgba )
first3 [ [ >float double>bits ] [ >integer ] bi + ] tri@
bitxor bitxor vertex-colors length mod vertex-colors nth ;