<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% '--- cage_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) %> <%'------------------- title --------------------------------%> Animal in cage with opaque barrier, turning and moving to see the food initial line of sight from the animal as placed in the cage line of sight from the animal to the food the animal is not distracted by sight of the food until the position shown <%'----------------- headings ------------------------------------%> Animal in initial position <%'--------------- animal circle and lines with arrows ---------------------------%> <%'--------------- food circle and lines with arrows ---------------------------%> <%'------------------- lines --------------------------%> <%'------------------- barrier --------------------------%> <%'---------------------------------------------------------------------%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>