aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/gl/texture.lisp
blob: 0aa698f269668cd0a456498b4f24a3cc153ecdde (plain)
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 :i)
   (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)))