<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% '--- info_1.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) %> <%'------------------- public --------------------------------%> 2.6.2.D1: public and private (hidden) information - at a single instant of time - Cartesian 3D world - (mechanical) Cartesian 3D world (optical) <%'------------ private 1: bottom right, top left --------------------------%> 1 muscle tension, joint rotations, bone positions 2D visual perception (eyeball & retina) <%'-------------------- private 2 -------------------------------------%> 2 optical nerve feelings memory + plans & predictions neural control of <%'--------------- inner lines with arrows ---------------------------%> <%'--------------- inner circle with text ---------------------------%> 'inner language' description commands <%'------------------- outer lines with arrows --------------------------%> <%'---------------------------------------------------------------------%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>