diff options
| author | colin <colin@cicadas.surf> | 2024-12-10 07:11:02 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-12-10 07:11:02 -0800 |
| commit | 03cdbb6a15e130a012377ab8d54074b6864e3480 (patch) | |
| tree | ad8c5cfbd7262a5bf9555729e9b57b26457de027 /src/canvas-language.lisp | |
| parent | 2cbb8e4114c860e1774efd40d18661aee8ab2a72 (diff) | |
cleanup, examples use 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* |