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

use inline and TYPED: in terrain so that vector math can optimize

db4
Joe Groff 2010-02-11 10:55:50 -08:00
parent ce11431fdb
commit 72013c88c9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/terrain/terrain.factor
View File

@ -178,9 +178,9 @@ terrain-world H{
[ [
{ 0 2 3 3 } vshuffle terrain-height-at PLAYER-HEIGHT + { 0 2 3 3 } vshuffle terrain-height-at PLAYER-HEIGHT +
-1/0. swap -1/0. -1/0. float-4-boa -1/0. swap -1/0. -1/0. float-4-boa
] keep vmax ; ] keep vmax ; inline
:: collide ( world player -- ) TYPED:: collide ( world: terrain-world player: player -- )
world terrain-segment>> :> segment world terrain-segment>> :> segment
player location>> :> location player location>> :> location
segment location (collide) :> location' segment location (collide) :> location'