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/canvas-language.lisp | |
| parent | 2cbb8e4114c860e1774efd40d18661aee8ab2a72 (diff) | |
Replaced defclass-std with defrefactor-with-def
Diffstat (limited to 'src/canvas-language.lisp')
| -rw-r--r-- | src/canvas-language.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/canvas-language.lisp b/src/canvas-language.lisp index b90e22d..1a8b12e 100644 --- a/src/canvas-language.lisp +++ b/src/canvas-language.lisp @@ -216,6 +216,11 @@ last points in PATH)." (apply-pen-at x y))) (setf *current-pen-position* (list left bottom))) +(defun fill-region (region) + (with-slots (left bottom right top) region + (fill-rect left bottom right top))) + + (defun fill-rel-rect (dx dy) "Fills in a rectangle relative to current position." (destructuring-bind (sx sy) *current-pen-position* |