diff options
| author | colin <colin@cicadas.surf> | 2024-12-10 07:11:02 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-12-14 08:35:58 -0800 |
| commit | 8a51ba81c7df6b0b6dab7cf4b35b5ca084b653ba (patch) | |
| tree | 23f5f0a5449a06473aba2ec7914a3c2193823a10 /src/assets/font.lisp | |
| parent | 2cbb8e4114c860e1774efd40d18661aee8ab2a72 (diff) | |
Replaced defclass-std with defrefactor-with-def
Diffstat (limited to 'src/assets/font.lisp')
| -rw-r--r-- | src/assets/font.lisp | 11 |
1 files changed, 7 insertions, 4 deletions
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 |