clean up some stuff in gpu.util.wasd

db4
Joe Groff 2009-10-26 14:25:51 -05:00
parent eb5a4383e1
commit ab04d4479e
1 changed files with 8 additions and 5 deletions
extra/gpu/util/wasd

View File

@ -49,6 +49,9 @@ M: wasd-world wasd-fly-vertically? drop t ;
: wasd-p-matrix ( world -- matrix )
p-matrix>> ;
: <mvp-uniforms> ( world -- uniforms )
[ wasd-mv-matrix ] [ wasd-p-matrix ] bi mvp-uniforms boa ;
CONSTANT: fov 0.7
:: generate-p-matrix ( world -- matrix )
@ -107,12 +110,12 @@ CONSTANT: fov 0.7
:: wasd-keyboard-input ( world -- )
read-keyboard keys>> :> keys
key-w keys nth key-, keys nth or [ world walk-forward ] when
key-s keys nth key-o keys nth or [ world walk-backward ] when
key-a keys nth [ world walk-leftward ] when
key-d keys nth key-e keys nth or [ world walk-rightward ] 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 key-j keys nth or [ world walk-downward ] when
key-c keys nth [ world walk-downward ] when
key-escape keys nth [ world close-window ] when ;
: wasd-mouse-input ( world -- )