normals ( vs is -- ns )


Vocabulary
bunny.model

Inputs
vsan object
isan object


Outputs
nsan object


Definition
USING: arrays kernel math.vectors sequences ;

IN: bunny.model

: normals ( vs is -- ns )
[ [ length { 0.0 0.0 0.0 } <array> ] keep ] dip
[ [ 2dup ] dip normal ] each drop [ normalize ] map ;