<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% '--- muscle.asp --- DIM ScreenWidth, ScreenHeight DIM timeout, SID DIM msg '-- for errors '' extend the timeout to allow for long files ' timeout = Server.ScriptTimeout '' Response.Write "Initial timeout=" & timeout & "
" ' Server.ScriptTimeout = 1200 ' SID = Request.Cookies("Humble")("SID") ScreenWidth = Request.Cookies("Humble")("ScreenWidth") ScreenHeight = Request.Cookies("Humble")("ScreenHeight") ' set it up for a graph bounding box of 2000 horizontal by 1000 vertical ' the viewBox has to be larger, to allow for left (and right?) parameter stuff ' the graph should have 20 by 10 internal dividers (grid pattern) %> <%'-------- render joint circle -------------%> <%'------------------- title --------------------------------%> 3.1.3.D1: The chain from action control information to muscle control information (neural & digital), to muscle tension, to joint rotation, to bone position <%'---------------------------------------------------------------------%> <%'------------ muscle change control --------------------------%> neural action control information (6/sec, to control change or rate of change) <%'------------ vertical line with arrows (brown) -----------------------%> <%'---- *** info conversion rectangle () *** ----%> conversion machinery <%'------------ muscle control --------------------------%> neural information to muscles (1000/sec, to control tension) bone position (mechanical) <%'-------------------- legend ----------------------------------%> joint bone muscle to pull the bone up <%'---------- horizontal lines with arrows (black) ------------------%> muscle to pull the bone down <%'------------ vertical lines with arrows (brown) -----------------------%> <%'---------------------------------------------------------------------%> <%'---- *** bone position rectangle (red) *** ----%> <%'---- *** joint attachment circles (blue) *** ----%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>