next up previous
Next: 23.4 demo5.l Up: 23 eus/sampleデモプログラム Previous: 23.2 demo1.l

23.3 demo2.l

レンダリングプログラムサンプルである.

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


generated through LaTeX2HTML. M.Inaba 平成18年5月7日