<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% '--- memory.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 2500 vertical ' -- the horizontal centre is 1000, and the vertical centre is 1000 ' the graph should have 20 by 10 internal dividers (grid pattern) %> physical reality in steps through time (like video frames) future ... ... past frames or time-slices <%'------------------- title --------------------------------%> Skills, action, outside world cooperation between two individuals <%'----------------- applying the skill ------------------------------------%> innate plus learned skills applying active action-plan segment <%'----------------- learning as skill ------------------------------------%> editing <%'------------- getting visual info ----------------------%> focus eyes get visual info <%'------------- muscles, joints, action ----------------------%> rotate joints get action <%'------------- skilled behaviour for survival ------------------------%> <%'---------------------------------------------------------------------%> <%'---------------------------------------------------------------------%> <%'---------------------------------------------------------------------%> <%'----------------- applying the skill ------------------------------------%> innate plus learned skills applying active action-plan segment <%'----------------- learning as skill ------------------------------------%> editing <%'------------- getting visual info ----------------------%> focus eyes get visual info <%'------------- muscles, joints, action ----------------------%> rotate joints get action <%'------------- skilled behaviour for survival ------------------------%> <%'---------------------------------------------------------------------%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>