25 lines
731 B
Common Lisp
25 lines
731 B
Common Lisp
(in-package #:flight-sim)
|
|
|
|
(defun draw-triangle (tri colors)
|
|
(declare (type shape-vector tri))
|
|
(declare (type shape-vector colors))
|
|
(gl:with-primitive :triangles
|
|
(let ((c (aref colors 0)))
|
|
(gl:color (aref c 0) (aref c 1) (aref c 2)))
|
|
(let ((v (aref tri 0)))
|
|
(gl:vertex (aref v 0) (aref v 1) (aref v 2)))
|
|
|
|
(let ((c (aref colors 1)))
|
|
(gl:color (aref c 0) (aref c 1) (aref c 2)))
|
|
(let ((v (aref tri 1)))
|
|
(gl:vertex (aref v 0) (aref v 1) (aref v 2)))
|
|
|
|
(let ((c (aref colors 2)))
|
|
(gl:color (aref c 0) (aref c 1) (aref c 2)))
|
|
(let ((v (aref tri 2)))
|
|
(gl:vertex (aref v 0) (aref v 1) (aref v 2)))))
|
|
|
|
;(defun draw-entity (entity)
|
|
|
|
|
|
(defgeneric draw (object time)) |