steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jamshred.player: Use nano-count instead of system-micros.

db4
Doug Coleman 2014-10-26 17:22:20 -07:00
parent 6f5ff6579e
commit 37b5ef7577
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/jamshred/player/player.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2007, 2008 Alex Chapman ! Copyright (C) 2007, 2008 Alex Chapman
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors calendar.unix colors.constants combinators jamshred.log USING: accessors colors.constants combinators jamshred.log
jamshred.oint jamshred.sound jamshred.tunnel kernel locals math jamshred.oint jamshred.sound jamshred.tunnel kernel locals math
math.constants math.order math.ranges math.vectors math.matrices math.constants math.order math.ranges math.vectors math.matrices
sequences shuffle specialized-arrays strings system ; sequences shuffle specialized-arrays strings system ;
@ -37,11 +37,11 @@ CONSTANT: max-speed 30.0
: play-in-tunnel ( player segments -- ) : play-in-tunnel ( player segments -- )
>>tunnel to-tunnel-start ; >>tunnel to-tunnel-start ;
: update-time ( player -- seconds-passed ) : update-time ( player -- seconds-passed )
system-micros swap [ last-move>> - 1000000 / ] [ last-move<< ] 2bi ; nano-count swap [ last-move>> - 1,000,000,000 / ] [ last-move<< ] 2bi ;
: moved ( player -- ) system-micros swap last-move<< ; : moved ( player -- ) nano-count swap last-move<< ;
: speed-range ( -- range ) : speed-range ( -- range )
max-speed [0,b] ; max-speed [0,b] ;