<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% DIM ScreenWidth, ScreenHeight DIM timeout '' extend the timeout to allow for long files timeout = Server.ScriptTimeout '' Response.Write "Initial timeout=" & timeout & "
" Server.ScriptTimeout = 1200 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) %> Architecture for innate skill automata: single individual physical world, environment individual 1 individual 2 <%'----------------------------------------------------------------------%> Perception: visual search & recognition single, innate skill automaton: mechanism for generating a stream of control information for muscle tension Action: turn head, eyes, & focus <%'----------------------------------------------------------------------%> Perception: visual search & recognition single, innate skill automaton: mechanism for generating a stream of control information for muscle tension Action: turn head, eyes, & focus <%'----------------------------------------------------------------------%> Public phenomena: gravity, action consequences for individual 1 & individual 2 including communication (information exchange) Action consequences: light from different visual scenes Action consequences: light from different visual scenes Group action: mating, herd, etc. <%'----------------------------------------------------------------------%> <%'----------------------------------------------------------------------%> <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>