<%@ 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 <%'------------------- intro: legend --------------------------------%> Showing the centre of gravity <%'--- translate to centre the image, and position relative to the stage ---%> <%'----------------------------------------------------------------------%> <%'- units mm/4 -%> <%'---------- hip (170-200mm - hip-joint later, to paint over top) ---------%> hip <%'----------------------------------------------------------------------%> <%'----------------- back leg - drawn first ----------------------------%> <%'------------- rotate upper leg at the hip-joint ------------------------%> <% '------------ upper-leg (430mm) ------------------%> upper-leg <%'---------------- rotate lower leg at the knee -------------------------%> <% '------------ lower-leg (380mm) ------------------%> lower-leg <%'---------------- rotate foot at the ankle -------------------------%> <% '-- foot as rectangle (290mm: 220:60-70mm ankle to toe:heel) no separate toes --%> foot <%'-- end rotation of foot at the ankle: transform="rotate(-20,66,220)" --%> <% '------------ ankle-joint as circle ------------------%> ankle <%'-- end rotation of lower leg at the knee: transform="rotate(-20,66,220)" --%> <% '------------ knee as circle ------------------%> knee <%'-- end rotation of upper leg at the hip-joint: transform="rotate(20,66,115)" --%> <%'----------------------------------------------------------------------%> <%'----------------- front leg - drawn second -----------------------------%> <%'------------- rotate upper leg at the hip-joint ------------------------%> <% '------------ upper-leg (430mm) ------------------%> <%'---------------- rotate lower leg at the knee -------------------------%> <% '------------ lower-leg (380mm) ------------------%> lower-leg <%'---------------- rotate foot at the ankle -------------------------%> <% '-- foot as rectangle (290mm: 220:60-70mm ankle to toe:heel) no separate toes --%> foot <%'-- end rotation of foot at the ankle: transform="rotate(-20,66,220)" --%> <% '------------ ankle-joint as circle ------------------%> ankle <%'-- end rotation of lower leg at the knee: transform="rotate(-20,66,220)" --%> <% '------------ knee as circle ------------------%> knee <%'-- end rotation of upper leg at the hip-joint: transform="rotate(-20,66,115)" --%> <% '------------ hip joint as circle ------------------%> hip- joint <%'----------------------------------------------------------------------%> <%'--- translate to position the image: transform="translate(100,-10)" ---%> <%'------------- stage as horizontal line ------------------------------%> Stage <%'-------------------- plumb line -------------------------------------%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>