src/gl/texture.lisp


1
2
3
4
5
6
7
8
9
10
11
12

;;;; texture.lisp

(in-package #:wheelwork)

(defclass/std texture ()
  ((width height id mipmap :with :r)
   (internal-format image-format :ri :with :std :rgba)
   (wrap-s wrap-t :ri :with :std :repeat)
   (min-filter mag-filter :ri :with :std :nearest)))

(defmethod cleanup ((texture texture))
  (gl:delete-texture (texture-id texture)))