<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% '--- muscle.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) %> Humble Graphic Mechanics of turning the foot relative to the hip <% '-- left foot, scan (photoshop) -> trace (AI) -> svg ---%> <% '-- left foot image, flipped right foot image, separated by x:240 translation ---%> <% '-- single foot -- width=x=114.12, length=height=y=300.96 -- %> <% '-- left hip x=56 y=165 - centre x=146 y=165 - right hip x=236 y=165 ---%> <% '-translate all to hip-centre coordinates, then rotate, translate back ---%> <%'------------------- intro --------------------------------%> 2.2.3.D1: Showing the attachment of the muscles for right and left turns: from the hip past the hip-joint to the attached upper-leg bone. The right-turn muscle, when contracted, turns the leg and foot to the right. The left-turn muscle, when contracted, turns the leg and foot to the left. The right turn muscle and the left-turn muscle balance each other for the intended amount (degrees) of leg and foot turning. <%'--------------- hip, joint, upper-leg bone ---------------------------%> <%'-------------------- legend -------------------------------------%> upper-leg hip- joint hip right-turn muscle (on contraction) left-turn muscle <%'-------------------- neuron lines -------------------------------------%> neural signal to right-turn muscle neural signal to left-turn muscle <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>