Commit 9ea0bbd4 authored by Dave Cooper's avatar Dave Cooper
Browse files

made viewpoint keywords case-sensitive

parent 756d6d31
...@@ -55,18 +55,18 @@ ...@@ -55,18 +55,18 @@
(cl-who:htm (cl-who:htm
((:|Viewpoint| ((:|Viewpoint|
:position (format nil "~a ~a ~a" (get-x position) (get-y position) (get-z position)) :|position| (format nil "~a ~a ~a" (get-x position) (get-y position) (get-z position))
:orientation (format nil "~a ~a ~a ~a" :|orientation| (format nil "~a ~a ~a ~a"
(get-x orientation) (get-x orientation)
(get-y orientation) (get-y orientation)
(get-z orientation) (get-z orientation)
(get-w orientation)) (get-w orientation))
:|fieldOfView| field-of-view :|fieldOfView| field-of-view
:description (string-capitalize key))) :|description| (string-capitalize key)))
((:|navigationinfo| :type "Examine" ((:|navigationinfo| :type "Examine"
:headlight "TRUE" :|headlight| "TRUE"
:speed (format nil "~a" (getf viewpoint :speed))))))) :|speed| (format nil "~a" (getf viewpoint :speed)))))))
(plist-keys (the viewpoints)) (plist-keys (the viewpoints))
(plist-values (the viewpoints))) (plist-values (the viewpoints)))
...@@ -214,7 +214,7 @@ ...@@ -214,7 +214,7 @@
((and *onclick-function* (or (getf (the display-controls) :billboard) ((and *onclick-function* (or (getf (the display-controls) :billboard)
(getf (the display-controls) :billboard-vector))) (getf (the display-controls) :billboard-vector)))
(cl-who:htm (cl-who:htm
((:|Anchor| :url (format nil "javascript:~a;" ((:|Anchor| :|url| (format nil "javascript:~a"
(funcall *onclick-function* self))) (funcall *onclick-function* self)))
((:|Billboard| :|axisOfRotation| (if (getf (the display-controls) :billboard-vector) ((:|Billboard| :|axisOfRotation| (if (getf (the display-controls) :billboard-vector)
(let ((vector (getf (the display-controls) :billboard-vector))) (let ((vector (getf (the display-controls) :billboard-vector)))
...@@ -226,7 +226,7 @@ ...@@ -226,7 +226,7 @@
#+nil #+nil
(*onclick-function* (*onclick-function*
(cl-who:htm (cl-who:htm
((:|Anchor| :url (format nil "javascript:~a;" ((:|Anchor| :|url| (format nil "javascript:~a"
(funcall *onclick-function* self))) (funcall *onclick-function* self)))
(write-the shape)))) (write-the shape))))
...@@ -338,7 +338,7 @@ ...@@ -338,7 +338,7 @@
((and *onclick-function* (or (getf (the display-controls) :billboard) ((and *onclick-function* (or (getf (the display-controls) :billboard)
(getf (the display-controls) :billboard-vector))) (getf (the display-controls) :billboard-vector)))
(cl-who:htm (cl-who:htm
((:|Anchor| :url (format nil "javascript:~a;" ((:|Anchor| :|url| (format nil "javascript:~a"
(funcall *onclick-function* self))) (funcall *onclick-function* self)))
((:|Billboard| :|axisOfRotation| (if (getf (the display-controls) :billboard-vector) ((:|Billboard| :|axisOfRotation| (if (getf (the display-controls) :billboard-vector)
(let ((vector (getf (the display-controls) :billboard-vector))) (let ((vector (getf (the display-controls) :billboard-vector)))
...@@ -350,7 +350,7 @@ ...@@ -350,7 +350,7 @@
#+nil #+nil
(*onclick-function* (*onclick-function*
(cl-who:htm (cl-who:htm
((:|Anchor| :url (format nil "javascript:~a;" ((:|Anchor| :|url| (format nil "javascript:~a"
(funcall *onclick-function* self))) (funcall *onclick-function* self)))
(write-the shape)))) (write-the shape))))
......
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