Commit 8a633d3b authored by Dave Cooper's avatar Dave Cooper

updated 4-bar example

parent b253aea6
......@@ -11,19 +11,30 @@
(str (the main-area main-div))
(str (the drop-coord-section main-div))))
(dropped-x-y (the main-area dropped-x-y)))
(dropped-x-y (the main-area dropped-x-y))
(input-link-angle-d nil :settable)
)
:objects ((assembly :type 'assembly
:input-link-angle-d (if (the dropped-x-y)
(angle-between-vectors-d (the (face-normal-vector :right))
(subtract-vectors (the dropped-x-y)
(the assembly ground-2))
(the (face-normal-vector :top)))
90)))
:input-link-angle-d (or nil ;;(the input-link-angle-d)
(if (the dropped-x-y)
(angle-between-vectors-d (the (face-normal-vector :right))
(subtract-vectors (the dropped-x-y)
(the assembly ground-2))
(the (face-normal-vector :top)))
90))))
:hidden-objects ((drop-coord-section :type 'sheet-section
:inner-html (with-cl-who-string ()
(str (the main-area dropped-x-y))))
:js-to-eval :parse
:inner-html (with-cl-who-string ()
(str (the main-area dropped-x-y))
(str (the input-link-angle-d))
#+nil
(:script
(str (the (gdl-ajax-call :function-key :set-slot!
:arguments (list :input-link-angle-d (if (the input-link-angle-d)
(1+ (the input-link-angle-d)) 90 ))))))))
(main-area :type 'base-ajax-graphics-sheet
:respondent self
:vector-graphics-onclick? nil
......
......@@ -173,8 +173,9 @@ function gdlUpdate (request) {
if (jsToEval && (jsToEval == 'parseme'))
{
codes = myelem.getElementsByTagName("script");
for(var j=0;j<codes.length;j++)
{
{ //alert(codes[j].text);
eval(codes[j].text); }}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment