Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix wobbling by int($x+0.5) |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | ferrieux-nacl |
Files: | files | file ages | folders |
SHA1: |
164a94c046918326cf53e95a5f756bc0 |
User & Date: | ferrieux 2011-04-11 21:40:28 |
Context
2011-04-12
| ||
21:52 | Allow to build both 32 and 64-bit nexes, and serve them together. check-in: d0dd0f5238 user: ferrieux tags: ferrieux-nacl | |
2011-04-11
| ||
21:40 | Fix wobbling by int($x+0.5) check-in: 164a94c046 user: ferrieux tags: ferrieux-nacl | |
21:11 | Full emulation of the Google-balls demo. 40fps, but 3x CPU consumption check-in: ab96ed1ba7 user: ferrieux tags: ferrieux-nacl | |
Changes
Changes to nacl/balls.natcl.
︙ | ︙ | |||
198 199 200 201 202 203 204 | } # left wall condition if {$x<$::ballRadius} { set x [expr {$::ballRadius+2}] set vx [expr {-$vx*(1.0-$::collisionDamper)}] } set ::b($id) [list $x $y $vx $vy $rx $ry] | | | 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 | } # left wall condition if {$x<$::ballRadius} { set x [expr {$::ballRadius+2}] set vx [expr {-$vx*(1.0-$::collisionDamper)}] } set ::b($id) [list $x $y $vx $vy $rx $ry] canv_moveto $id [expr {int($x+0.5)}] [expr {int($y+0.5)}] } } proc motioncb {x y} { set ::mouseX $x set ::mouseY $y |
︙ | ︙ |