Commit 95a3a92d authored by Dave Cooper's avatar Dave Cooper

updated training documentation

parent 3a96d1c1
5:42 "What would happen if we call this with a list which is not a proper plist, and which doesn't contain the key?"
9:34 "is the name 'function' just an arbitrary name you have chosen for that function argument?"
10:21 "What do you think of prepending argument names with 'arg-'
('arg dash') ? I've seen that done before. Is it a matter of
personal preference?"
30:15: "I assume there is a way to add tag attributes ?"
31:26: "Can this kind of HTML output be sent directly to a web browser?"
......@@ -54,7 +54,8 @@ simplest geometry primitive is <span class=gdl-object-def>box</span>:"
:examples
((:define-object single-box
:include-sample-drawing? t)))
:include-sample-drawing? nil ;;t
)))
(:description
"Typically, your the actual geometry will end up in
leaf-level child objects, while higher-level nodes might be simple
......@@ -150,7 +151,9 @@ and <span class=lisp-code>:down</span>")
and <span class=lisp-code>:top</span> is the Z axis:"
:examples
((:define-object five-boxes
:include-sample-drawing? t)))))
:include-sample-drawing? ;;nil
t
)))))
(:title
......@@ -167,7 +170,9 @@ transformation matrix suitable for use as an
is only necessary if you want to force a left-handed coordinate system):"
:examples
((:define-object tilted-monolith
:include-sample-drawing? t)))))
:include-sample-drawing? ;; nil
t
)))))
(:title
"<i>Exercises</i> 4 and 5"
......@@ -193,17 +198,29 @@ properties, parametric evaluation")
"Common wireframe primitives:"
:examples
((:define-object cylinder-sample
:include-sample-drawing? t)
:include-sample-drawing? ;;nil
t
)
(:define-object cone-sample
:include-sample-drawing? t)
:include-sample-drawing? ;; nil
t
)
(:define-object sphere-sample
:include-sample-drawing? t)
:include-sample-drawing? ;; nil
t
)
(:define-object spherical-cap-sample
:include-sample-drawing? t)
:include-sample-drawing? ;; nil
t
)
(:define-object torus-sample
:include-sample-drawing? t)
:include-sample-drawing? ;; nil
t
)
(:define-object global-filleted-polygon-projection-sample
:include-sample-drawing? t)))
:include-sample-drawing? ;; nil
t
)))
(:description
"See full documentation for these in
......
......@@ -58,6 +58,6 @@
(write-the cad-output)))
(:png
(with-format (png output-file :page-length (the page-length)
:page-width (the page-width))
:page-width (the page-width) :element-type '(unsigned-byte 8))
(write-the cad-output)))))))
......@@ -310,7 +310,7 @@
;; implementations, get it working that way, and remove this
;; compiler conditional.
;;
;;#+clozure
;;#+nil
(let ((command
(if (or (null *gs-path*)
(and (or (stringp *gs-path*)
......@@ -344,10 +344,13 @@
(glisp:run-gs command))
(when *stream*
(with-open-file (image-stream temp-png :element-type 'unsigned-byte)
(with-open-file (image-stream temp-png :element-type 'unsigned-byte)
(do ((val (read-byte image-stream nil nil)
(read-byte image-stream nil nil)))
((null val))
;;(print-variables *stream* val)
(write-byte val *stream*))))
(delete-file temp-pdf)
......
......@@ -84,7 +84,7 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(usocket:socket-close sock))
(usocket:address-in-use-error (e) :in-use)
(t (e) :unknown))))
(unless (member result1 '(:in-use :unknown) port))))
(unless (member result '(:in-use :unknown)) port)))
......
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