(defun geo::default-viewsurface (&rest args) (send* (instantiate x::xwindow) :create args)) (defun homo2normal (v) (let ((w (aref v 3))) (float-vector (/ (aref v 0) w) (/ (aref v 1) w) (/ (aref v 2) w)))) ;; ;;(cd "../lisp/geo") ;;(compile-file "render.l") ;;(cd "../") ;;(load "../lib/demo/renderdemo.l") (unless (probe-file "../lisp/geo/render.dll") (cd "../lisp/geo") (compile-file "render.l") (cd "../../sample")) (cd "../lisp") (load "demo/renderdemo.l")