1 USING: kernel namespaces math.vectors opengl opengl.glu 4DNav.turtle ;
5 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
7 : camera-eye ( -- point ) turtle-pos> ;
9 : camera-focus ( -- point )
10 [ 1 step-turtle turtle-pos> ] save-self ;
12 : camera-up ( -- dirvec )
13 [ 90 pitch-up turtle-pos> 1 step-turtle turtle-pos> swap v- ]
16 : do-look-at ( camera -- )
17 [ >self camera-eye camera-focus camera-up gl-look-at ]