20 lines
473 B
Factor
20 lines
473 B
Factor
|
USING: kernel namespaces math.vectors opengl 4DNav.turtle
|
||
|
|
self ;
|
||
|
|
|
||
|
|
IN: 4DNav.camera
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: camera-eye ( -- point ) turtle-pos> ;
|
||
|
|
|
||
|
|
: camera-focus ( -- point )
|
||
|
|
[ 1 step-turtle turtle-pos> ] save-self ;
|
||
|
|
|
||
|
|
: camera-up ( -- dirvec )
|
||
|
|
[ 90 pitch-up turtle-pos> 1 step-turtle turtle-pos> swap v- ]
|
||
|
|
save-self ;
|
||
|
|
|
||
|
|
: do-look-at ( camera -- )
|
||
|
|
[ >self camera-eye camera-focus camera-up gl-look-at ]
|
||
|
|
with-scope ;
|