Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / unmaintained / 4DNav / camera / camera.factor

diff --git a/unmaintained/4DNav/camera/camera.factor b/unmaintained/4DNav/camera/camera.factor
index 93e8271f1b96dcb83bc746ec03969906a010ddce..1e492fe8d913e6da0fbfbc3b082efaf3d62579a0 100755 (executable)
--- a/unmaintained/4DNav/camera/camera.factor
+++ b/unmaintained/4DNav/camera/camera.factor
@@ -1,15 +1,19 @@
-USING: kernel namespaces math.vectors opengl 4DNav.turtle self ;
+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-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 ;
+[ 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 ;
+[ >self camera-eye camera-focus camera-up gl-look-at ] 
+    with-scope ;