<%@ 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) %> Innate skills and their interaction with and through the physical world <%'----------------------------------------------------------------------%> Innate skill in three states: in DNA, quiescent, and activated DNA sequence in brain, quiescent in brain, active (as task): action, inner processing, perception skill output (action): muscle tension joint rotation inner processing: conditions, planning perception: gravity, vision, etc. <%'----------------------------------------------------------------------%> action consequences: locomotion, mimicry, etc. physical environment: gravity, optics, etc. real, observable, physical world <%'----------------------------------------------------------------------%> <%'----------------------------------------------------------------------%> Interdependent skills for interactive actions skill output from skill-1 used by individual-1 perception: from skill-1 used by Individual-1 perception: from skill-2 used by Individual-2 skill output from skill-2 used by individual-2 <%'----------------------------------------------------------------------%> action consequences: mechanics, optics, for individual-1 action consequences: mechanics, optics, for individual-2 real, observable, physical world <%'----------------------------------------------------------------------%> skill & physical world information-exchange <%'----------------------------------------------------------------------%> <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>