lincomb ( a b x -- w )

Vocabulary

rosetta-code.raycasting

Inputs

a	an object
b	an object
x	an object

Outputs

w

an object

Definition

USING: kernel math math.vectors sequences ;

IN: rosetta-code.raycasting

: lincomb ( a b x -- w )
    3dup [ last ] tri@ [ - ] curry bi@ nipd neg 2dup +
    [ / ] curry bi@ [ [ v*n ] curry ] bi@ bi* v+ ;