aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/assets
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2024-12-10 07:11:02 -0800
committercolin <colin@cicadas.surf>2024-12-14 08:35:58 -0800
commit8a51ba81c7df6b0b6dab7cf4b35b5ca084b653ba (patch)
tree23f5f0a5449a06473aba2ec7914a3c2193823a10 /src/assets
parent2cbb8e4114c860e1774efd40d18661aee8ab2a72 (diff)
Replaced defclass-std with defrefactor-with-def
Diffstat (limited to 'src/assets')
-rw-r--r--src/assets/asset.lisp7
-rw-r--r--src/assets/font.lisp11
-rw-r--r--src/assets/png.lisp3
3 files changed, 13 insertions, 8 deletions
diff --git a/src/assets/asset.lisp b/src/assets/asset.lisp
index 5f847da..e1b4f57 100644
--- a/src/assets/asset.lisp
+++ b/src/assets/asset.lisp
@@ -2,9 +2,10 @@
(in-package #:wheelwork)
-(defclass/std asset ()
- ((path :with :ri :std (error "An asset requires a path"))
- (loadedp :with :a)))
+(def:class asset ()
+ ((path "Path to asset") :required :ro :prefix
+ :type (or pathname string))
+ (loadedp :prefix :type boolean :initform nil))
(defmethod cleanup :around ((asset asset))
(when (asset-loadedp asset)
diff --git a/src/assets/font.lisp b/src/assets/font.lisp
index 3ff29d5..3017572 100644
--- a/src/assets/font.lisp
+++ b/src/assets/font.lisp
@@ -6,10 +6,13 @@
"
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890\".,!?-'" )
-(defclass/std font (asset)
- ((characters :i :std +standard-font-chars+)
- (oversample :i :doc "ovesampling factor to pass to cl-fond:make-font")
- (object :with :r :doc "The font as returned from cl-fond:make-font")))
+(def:class font (asset)
+ ((characters "The characters renderable with this font")
+ :prefix :type string :initform +standard-font-chars+)
+ ((oversample "Oversampling factor")
+ :prefix :type (or null number) :initform nil)
+ ((object "Stored font returned by cl-fond")
+ :prefix :ro :type cl-fond::font))
(defmethod ensure-loaded ((font font))
(with-slots (path characters oversample object) font
diff --git a/src/assets/png.lisp b/src/assets/png.lisp
index aa259f0..4408d02 100644
--- a/src/assets/png.lisp
+++ b/src/assets/png.lisp
@@ -2,7 +2,7 @@
(in-package #:wheelwork)
-(defclass/std png (asset texture) ())
+(def:class png (asset texture))
(defmethod ensure-loaded ((png png))
(with-slots
@@ -27,5 +27,6 @@
:unsigned-byte
(pngload:data data))
(gl:bind-texture :texture-2d 0)
+ ;; what does this do?
(when (texture-mipmap png)
(gl:generate-mipmap :texture-2d)))))