Commit 254fb8ef authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed arc documentation, added 1580-frozen archive for gwl

parent 03ebb80b
......@@ -117,7 +117,7 @@ angles are measured anti-clockwise."
("3D Vector. Returns the tangent to the arc at the given point (which should be on the arc).
:arguments (point \"3D point. The point at which you want the tangent.\""
:arguments (point \"3D point. The point at which you want the tangent.\")"
tangent
(point)
(let ((top (the (face-normal-vector :top)))
......
......@@ -43,7 +43,7 @@
:computed-slots
(
(view-toggle nil :settable)
(pdf-url (let ((url
......@@ -745,115 +745,18 @@ to call the :write-embedded-x3d-world function."))
((:x3d :id "the_element"
:width (the view-object page-width)
:height (the view-object page-length))
(:scene
(with-format (x3d *stream*) (write-the view-object cad-output))
))
((:script :type "text/javascript"
:src "/static/3rdpty/x3dom/x3dom.js" :id "xdom_script"))
))
(:scene
(with-format (x3d *stream*) (write-the view-object cad-output)))
((:script :type "text/javascript"
:src "/static/3rdpty/x3dom/x3dom.js" :id "xdom_script")))))
(:tr (:td ((:span :style "color: blue; cursor: pointer;"
:onclick "document.getElementById('the_element').runtime.showAll();")
"Show All")
)))
#+nil
(:script
"
var $element;
var debug = false;
var pick_mode_info;
var nav_mode_info;
var ab_info;
function init() {
$element = document.getElementById('the_element');
updateAbInfo('Viewpoint');
updateNavInfo();
}
function updateNavInfo() {
nav_mode_info = document.getElementById('nav_mode_info');
nav_mode_info.innerHTML = $element.runtime.navigationType();
}
function updateAbInfo(typeName) {
var bindable = $element.runtime.getActiveBindable(typeName);
ab_info = document.getElementById('ab_info');
ab_info.innerHTML = bindable.tagName + \" / \" + bindable.getAttribute('description');
}
function toggleStats(link) {
stats = $element.runtime.statistics();
if (stats) {
$element.runtime.statistics(false);
link.innerHTML = 'Show statistics';
} else {
$element.runtime.statistics(true);
link.innerHTML = 'Hide statistics';
}
}
function toggleDebug(link) {
if (debug) {
$element.runtime.debug(false);
link.innerHTML = 'Show debug';
} else {
$element.runtime.debug(true);
link.innerHTML = 'Hide debug';
}
debug = !debug
init();
")
)))))
"Show All")))))))))
#+nil
("Void. Writes an embedded X3D tag and included content for the <tt>view-object</tt> child of this object.
The <tt>view-object</tt> child should exist and be of type <tt>web-drawing</tt>."
embedded-x3dom-world
(&key (include-view-controls? nil))
(declare (ignore include-view-controls?))
(the (restore-slot-default! :js-to-eval))
(when (typep (the :view-object) 'null-part)
(error "A valid :view-object of type web-drawing is required in the sheet
to call the :write-embedded-x3d-world function."))
(cond ((and (null (the :view-object :object-roots))
(null (the :view-object :objects)))
(html-stream *stream*
((:table :cellspacing 0 :cellpadding 0 :bgcolor :white)
(:tr
((:td :width (the :view-object :width) :height
(the :view-object :height) :align :center :valign :center)
(:big (:b "No Graphics Object Specified")))))))
(t
(with-cl-who ()
((:table :cellspacing 0 :cellpadding 0)
(:tr
(:td
((:x3d :width (the view-object page-width)
:height (the view-object page-length))
(:scene (:shape (:appearance ((:material :diffuseColor "red")))
(:box))))
((:script :type "text/javascript" :src "http://www.x3dom.org/x3dom/release/x3dom.js" :id "xdom_script"))
)))))))
("Void. Writes an OBJECT tag and publishes an X3D world for the <tt>view-object</tt> child of this object.
The <tt>view-object</tt> child should exist and be of type <tt>web-drawing</tt>."
......
This diff is collapsed.
Supports Markdown
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