Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More concise serialization of coord-updates |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | ferrieux-nacl |
| Files: | files | file ages | folders |
| SHA1: |
7755a6cc4ca0b8f4abb67db5aeb9c6a8 |
| User & Date: | ferrieux 2011-04-18 21:53:22 |
Context
|
2011-05-04
| ||
| 02:47 | * Added new ::nacl ensemble to init.natcl, moved most support commands there * created an execll met... check-in: c9c95d03d6 user: colin tags: ferrieux-nacl | |
|
2011-04-18
| ||
| 21:53 | More concise serialization of coord-updates check-in: 7755a6cc4c user: ferrieux tags: ferrieux-nacl | |
| 21:22 | Use closures rather than strings for after and [every] check-in: 06e1f26911 user: ferrieux tags: ferrieux-nacl | |
Changes
Changes to nacl/balls.html.
| ︙ | ︙ | |||
14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
// NaTcl -- JS glue
var tclModule = null; // our singleton Tcl interp
var canvas = null;
var context = null;
var canvcoords = [];
// give it global scope. will be regen'd by canv code.
function repaint() {}
// debugging stuff
function printf(s)
| > > > > > > > > > | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
// NaTcl -- JS glue
var tclModule = null; // our singleton Tcl interp
var canvas = null;
var context = null;
var canvcoords = [];
function updateCoords(ar)
{
var i,n;
n=ar.length;
for(i=0;i<n;i+=2)
canvcoords[ar[i]]=ar[i+1];
}
// give it global scope. will be regen'd by canv code.
function repaint() {}
// debugging stuff
function printf(s)
|
| ︙ | ︙ |
Changes to nacl/canv.natcl.
| ︙ | ︙ | |||
67 68 69 70 71 72 73 74 |
\n"
append ::canv_jcode [canv_compile_repaint $::canv_tlist]
append js "repaint=function(){\n$::canv_jcode\n}\n"
set ::canv_jcnt [llength $::canv_tlist]
set repaint 1
}
}
foreach i [array names ::canv_moved] {
| > | > > | 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
\n"
append ::canv_jcode [canv_compile_repaint $::canv_tlist]
append js "repaint=function(){\n$::canv_jcode\n}\n"
set ::canv_jcnt [llength $::canv_tlist]
set repaint 1
}
}
set l {}
foreach i [array names ::canv_moved] {
#append js "canvcoords\[$i\]=\[[join $::canv_coords($i) ,]\];\n"
lappend l "$i,\[[join $::canv_coords($i) ,]\]"
}
append js "updateCoords(\[[join $l ,]\]);\n"
if {$repaint} {
append js "repaint();\n"
}
set ::canv_status_func 0
set ::canv_status_coords 0
array unset ::canv_moved
|
| ︙ | ︙ |