calc-bunny-normal ( a b c vertexes -- )

Vocabulary

gpu.demos.bunny

Inputs

a	an object
b	an object
c	an object
vertexes	an object

Outputs

None

Definition

USING: accessors kernel math.vectors sequences ;

IN: gpu.demos.bunny

:: calc-bunny-normal ( a b c vertexes -- )
    a b c [ vertexes nth vertex>> ] tri@ normal :> n a b c
    [ vertexes nth [ n v+ ] change-normal drop ] tri@ ; inline