Tcl Source Code

Check-in [164a94c046]
Login

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: 164a94c046918326cf53e95a5f756bc093f7528e
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to nacl/balls.natcl.

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)}] [expr {int($y)}]
    }
}
    

proc motioncb {x y} {
    set ::mouseX $x
    set ::mouseY $y







|







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