Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
8a633d3b
Commit
8a633d3b
authored
Jul 29, 2013
by
Dave Cooper
Browse files
updated 4-bar example
parent
b253aea6
Changes
2
Hide whitespace changes
Inline
Side-by-side
documentation/tutorial/examples/4-bar-assembly.gdl
View file @
8a633d3b
...
...
@@ -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
...
...
gwl/static/gwl/js/gdlajax.js
View file @
8a633d3b
...
...
@@ -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
);
}}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment