(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)