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

(defvar *coords*)

(defun init-coords ()
  (setq *coords* (gl:gen-lists 1))
  (gl:new-list *coords* :compile)
  (gl:push-matrix)
  (gl:with-primitive :lines
    (gl:color  0.7 0.2 0.1)
    (gl:vertex 0.0 0.0 0.0)
    (gl:vertex 2.0 0.0 0.0)

    (gl:color  0.1 0.7 0.2)
    (gl:vertex 0.0 0.0 0.0)
    (gl:vertex 0.0 2.0 0.0)

    (gl:color  0.2 0.1 0.7)
    (gl:vertex 0.0 0.0 0.0)
    (gl:vertex 0.0 0.0 2.0) )
  (gl:pop-matrix)
  (gl:end-list) )

(defun draw-coords ()
  (gl:call-list *coords*) )