core, basis, extra: Remove DOS line endings from files.

[factor.git] / extra / gpu / util / wasd / wasd.factor

diff --git a/extra/gpu/util/wasd/wasd.factor b/extra/gpu/util/wasd/wasd.factor
index 54d6beeb451a34d77c6e892c98fd1c4a508af756..17404c32e27286c78c46c90a17c8d6aa7538d02d 100644 (file)
--- a/extra/gpu/util/wasd/wasd.factor
+++ b/extra/gpu/util/wasd/wasd.factor
@@ -65,7 +65,7 @@ CONSTANT: fov 0.7
     near-plane far-plane frustum-matrix4 ;
 
 :: wasd-pixel-ray ( world loc -- direction )
-    loc world dim>> [ /f 0.5 - 2.0 * ] 2map 
+    loc world dim>> [ /f 0.5 - 2.0 * ] 2map
     world wasd-fov-vector v*
     first2 neg -1.0 0.0 4array
     world wasd-mv-inv-matrix swap m.v ;
@@ -123,12 +123,12 @@ M: wasd-world audio-orientation
 
 :: wasd-keyboard-input ( world -- )
     read-keyboard keys>> :> keys
-    key-w keys nth [ world walk-forward   ] when 
-    key-s keys nth [ world walk-backward  ] when 
-    key-a keys nth [ world walk-leftward  ] when 
-    key-d keys nth [ world walk-rightward ] when 
-    key-space keys nth [ world walk-upward ] when 
-    key-c keys nth [ world walk-downward ] when 
+    key-w keys nth [ world walk-forward   ] when
+    key-s keys nth [ world walk-backward  ] when
+    key-a keys nth [ world walk-leftward  ] when
+    key-d keys nth [ world walk-rightward ] when
+    key-space keys nth [ world walk-upward ] when
+    key-c keys nth [ world walk-downward ] when
     key-escape keys nth [ world close-window ] when ;
 
 : wasd-mouse-input ( world -- )
@@ -143,4 +143,3 @@ M: wasd-world tick-game-world
 M: wasd-world resize-world
     [ <viewport-state> set-gpu-state* ]
     [ dup generate-p-matrix >>p-matrix drop ] bi ;
-