;; this file:
;;   https://dataswamp.org/~incal/common-lisp/general-base/point.lisp

(defun draw-point (pts &optional r g b)
  (gl:with-primitive :points
    (let ((rnd nil))
      (if (and r g b)
          (gl:color r g b)
          (when (eq r 'random)
            (setf rnd t) ))
      (loop for (x y z) in pts do
        (when rnd (random-color))
        (gl:vertex x y z) ))))

(defun draw-point-test (&optional (pts 10000))
  (let ((point ()))
    (dotimes (_ pts)
      (push (random-xyz) point) )
    (draw-point point 'random) ))