<%@ 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, spontaneously turning 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 distracted by sight of the food and may or may not explore the cage to find the way around the barrier <%'----------------- 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 '-----------------------------------------------------------%>