<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% DIM ScreenWidth, ScreenHeight DIM timeout DIM ownername DIM Tx 'TO joint DIM Ty 'TO joint DIM Fx 'FROM joint DIM Fy 'FROM joint DIM Min_PS_fy, Min_PS_ty, Min_PS_Y DIM msg '-- for errors DIM CS_1 'Connection String DIM RS_0, Q_0, SID 'RecordSet, Query - for sessionID DIM RS_1, RS_2, RS_3, RS_4, RS_5 'RecordSet DIM Q_1, Q_2, Q_3, Q_4, Q_5 'SQL query against the db DIM distance, direction, level DIM diam, colour '' extend the timeout to allow for long files timeout = Server.ScriptTimeout '' Response.Write "Initial timeout=" & timeout & "
" Server.ScriptTimeout = 1200 CS_1 = "DSN=f_humble" SID = Request.Cookies("Humble")("SID") IF SID > 0 THEN Q_0 = "SELECT * FROM Audience WHERE SID=" & SID ' Response.Write Q_0 & "
" SET RS_0 = Server.CreateObject("ADODB.Recordset") RS_0.Open Q_0, CS_1, adOpenKeySet, adLockPessimistic, adCmdText IF RS_0.EOF THEN Response.Redirect("http:../help/session.htm") END IF ScreenWidth = RS_0.Fields("ScreenWidth") ScreenHeight = RS_0.Fields("ScreenHeight") direction = RS_0.Fields("direction") level = RS_0.Fields("level") distance = RS_0.Fields("distance") ELSE ScreenWidth = Request.Cookies("Humble")("ScreenWidth") ScreenHeight = Request.Cookies("Humble")("ScreenHeight") direction = 0 level = 0 distance = 1000 END IF ownername = "Skelly_body" ' 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) %> <%'------------------- public --------------------------------%> public information: stage in Cartesian 3D, time in steps (frames) Timing, coordination choreography, Stage directions - Cartesian 3D world - - time in frames - <%'----------------- private 1 ------------------------------------%> 1 action: new bone positions for self in world Plan 2D visual perception Hearing - rhythm <%'-------------------- private 2 -------------------------------------%> 2 3D world model with objects, self beats Directions for movement, based on a 3D world model neural & muscle control of joint rotations, up to 3D polar coord. per joint <%'------------------ private 3 -------------------------------%> 3 stepwise goals - bone positions in 3D Cartesian, (synchronized) estimate distance, direction detailed & synchronized conditional commands start, beat counter, stop <%'---------------------------------------------------------------------%> 4 integrate perception and plan, generate detailed task sequence execute task in sequence dependent on start & timing <%'---------------------------------------------------------------------%> <%'---------------------------------------------------------------------%> Next Previous StageFront <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>