local_point.l

(make-irtviewer :draw-origin nil)

(setq *a* (make-cube 240 150 2))
(setf (get *a* :face-color) :yellow)
(send *irtviewer* :change-background (gl::find-color :white))
(objects (list *a*))
(send (send (send *irtviewer* :viewer) :viewsurface) :color (float-vector 1 0 0))
(dotimes (i 1000)
  (dotimes (j 1000)
    (let ((x (- (* 10 i) 200))
          (y (- (* 10 j) 200)))
      (send (send (send *irtviewer* :viewer) :viewsurface) :3d-point (float-vector x y 0)))))
(send (send *irtviewer* :viewer) :flush)