<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% 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) %> <%'----------------------------------------------------------------------%> o4a-World: public information Cartesian 3D, time in steps (frames) Timing, coordination choreography, Stage directions action: new bone positions for self in world - Cartesian 3D - - time in frames - 2D visual perception Hearing - rhythm Plan Plan 3D world model with objects, self beats Position & timing conditions, Commands, macros joint rotations - 3D polar - - time in beats - uncond. bone position goals in 3D Cartesian, sync. in beats estimate distance, rotation detailed & synchronized conditional commands start, beat counter, stop Next Previous <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>