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

clamp coordinates when doing terrain collision detection past the edge of the segment

db4
Joe Groff 2009-05-09 20:15:55 -05:00
parent cbb1f1c60b
commit e4059d8393
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/terrain/terrain.factor
View File

@ -138,8 +138,11 @@ M: terrain-world tick-length
: apply-gravity ( velocity -- velocity' )
1 over [ GRAVITY - ] change-nth ;
: clamp-coords ( coords dim -- coords' )
[ { 0 0 } vmax ] dip { 2 2 } v- vmin ;
:: pixel-indices ( coords dim -- indices )
coords vfloor [ >integer ] map :> floor-coords
coords vfloor [ >integer ] map dim clamp-coords :> floor-coords
floor-coords first2 dim first * + :> base-index
base-index dim first + :> next-row-index