demo-world-frustum ( world -- -x x -y y near far )


Vocabulary
opengl.demo-support

Inputs
worldan object


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


Definition
USING: kernel math math.vectors sequences ;

IN: opengl.demo-support

: demo-world-frustum ( world -- -x x -y y near far )
[ near-plane ] [ far-plane ] [ fov-ratio ] tri
[ nip swap FOV / v*n first2 [ -+ ] bi@ ] 2keepd ;