<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% '--- plan_d.asp --- DIM ScreenWidth, ScreenHeight DIM timeout, SID DIM msg '-- for errors DIM aAngle(12), aA, a1, a2 DIM a_x(12), x1 DIM a_y(12), y1 DIM i1 '' 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") a1 = 0 aAngle(0) = a1 x1 = 0 a_x(0) = x1 y1 = 1200 a_y(0) = y1 i1 = 0 FOR EACH a1 IN aAngle x1 = x1 + 120 a_x(0) = x1 aAngle(i1) = a1 i1 = i1 + 1 NEXT ' 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 --------------------------------%> Predator chasing prey, using the shortest path based on prediction line of sight from the predator to the prey straight line from the predator to the predicted position of the prey <%'----------------- headings ------------------------------------%> Prey Predator <%'--------------- prey circle and lines with arrows ---------------------------%> <%'--------------- predator circle and lines with arrows ---------------------------%> <%'------------------- diagonal line --------------------------%> <%'---------------------------------------------------------------------%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>