23.2 demo1.l

���{�b�g�}�j�s�����[�^eta3���A�j���[�V���� �����������D

(setq x::*defaultgc* x::*whitegc*)
(in-package "GEOMETRY")
(defmethod viewer
 (:adjust-viewport (&optional (w (send surface :width))
			      (h (send surface :height))
			      (cx (/ w 2)) (cy (/ h 2)))
    (unless w 
	(setq w (send surface :width)
	      h (send surface :height)))
    (send port :center cx cy)
    (send port :size w (- h)))
)
(in-package "USER")
(defun geo::default-viewsurface (&rest args)
   (send* (instantiate x::xwindow)  :create args))

(defun animdemo nil
  (when (not (boundp 'eta30body))
    (load (format nil "~A/robot/eta3/eta3.Brep" *eusdir*))
    (warn "eta3.brep has been read.~%"))
  (load "../lib/demo/animdemo.l")
)

(animdemo)