face-color ( edge -- color )


Vocabulary
gml.viewer

Inputs
edgean object


Outputs
coloran object


Definition
USING: euler.b-rep kernel math math.vectors math.vectors.simd ;

IN: gml.viewer

: face-color ( edge -- color )
face-normal float-4{ 0.0 1.0 0.10000000149011612 0.0 } vdot
0.3 * 0.4 + dup dup 1.0 float-4-boa ; inline