From 82f71b0d13788b1cff9a24c5b652effd11631523 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Wed, 29 Jun 2022 11:54:24 -0500
Subject: [refactor] [structure] modularized project file structure

---
 src/gl/texture.lisp | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 src/gl/texture.lisp

(limited to 'src/gl/texture.lisp')

diff --git a/src/gl/texture.lisp b/src/gl/texture.lisp
new file mode 100644
index 0000000..ad753a1
--- /dev/null
+++ b/src/gl/texture.lisp
@@ -0,0 +1,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)))
-- 
cgit v1.2.3