20 Dec
2007
20 Dec
'07
12:11 a.m.
I think if you changed your mouse code a tad it wouldn't cons so much while mousing;
(defvar origclick (cons 0 0)) (defvar origrot (cons 0.0 0.0))
(defmethod glut:mouse ((window mol-window) button state x y) (when (eq button :left-button) (when (eq state :down) (setf (car origrot) view-rotx (cdr origrot) view-roty (car origclick) x (cdr origclick) y))))
I didn't test the above code at all but it should work and apologies for any formatting nastiness that gmail might add. Finally, you'll have to change all the cadr references to cdr for all the methods using origclick and origrot
Charlie Mac