fprintf ohtml "%s"
"</script>\n\
<div id='svg'>\n
- <svg id='svgimg' width='' height='' xmlns=\"http://www.w3.org/2000/svg\" version=\"1.1\">\n";
+ <svg id='svgimg' width='' height='' preserveAspectRatio='XMidYMid slice' xmlns=\"http://www.w3.org/2000/svg\" version=\"1.1\">\n";
let maxw, maxh = loop ohtml (T.root tree) T.nil T.nil 50 50 in
fprintf ohtml "</svg>\n</div><script type='text/javascript'>\n\
-window.onload = function () {\n
- var svg = document.getElementById('svgimg');\n
- svg.setAttribute('width', %i);\n
- svg.setAttribute('height', %i);\n
- activate('node0');\n
+window.onload = function () {\n\
+ var svg = document.getElementById('svgimg');\n\
+ svg.setAttribute('width', %i);\n\
+ svg.setAttribute('height', %i);\n\
+ activate('node0');\n\
};\n
</script></body></html>\n%!"
maxw maxh;