23.3 demo2.l

�����_�����O�v���O�����T���v���������D

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