reflection-frustum ( gadget -- -x x -y y near far )


Vocabulary
spheres

Inputs
gadgetan object


Outputs
-xan object
xan object
-yan object
yan object
nearan object
faran object


Definition
USING: kernel opengl.demo-support ;

IN: spheres

: reflection-frustum ( gadget -- -x x -y y near far )
[ near-plane ] [ far-plane ] bi
[ drop dup [ -+ ] bi@ ] 2keep ;