1 ! Copyright (C) 2007 Alex Chapman
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel opengl arrays sequences jamshred.tunnel
4 jamshred.player math.vectors ;
7 TUPLE: jamshred tunnel players running ;
9 : <jamshred> ( -- jamshred )
10 <random-tunnel> "Player 1" <player> 2dup swap play-in-tunnel 1array f
13 : jamshred-player ( jamshred -- player )
14 ! TODO: support more than one player
15 jamshred-players first ;
17 : jamshred-update ( jamshred -- )
18 dup jamshred-running [
19 jamshred-player update-player
22 : toggle-running ( jamshred -- )
23 dup jamshred-running not swap set-jamshred-running ;
25 : mouse-moved ( x-radians y-radians jamshred -- )
26 jamshred-player -rot turn-player ;