diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-19 10:58:40 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-19 10:58:40 -0500 |
| commit | 9920cd41fe11871a835ad3f8325d779b172d2c33 (patch) | |
| tree | cd311c932856f67ebc550a3c11ff41a64caca4f1 /src/canvas-language.lisp | |
| parent | 24b0c51a3b51c52dbba855787170107a6a7e47fb (diff) | |
[example] fiddling with the example
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 24a3394..b77ad02 100644 --- a/src/canvas-language.lisp +++ b/src/canvas-language.lisp @@ -27,6 +27,11 @@ (defun canvas-pen-color (r g b a) (setf *current-pen-color* (mapcar #'colfix (list r g b a)))) +(defun canvas-pen-color-function (fn) + (setf *current-pen-color-function* + (lambda (x y) + (mapcar #'colfix (funcall fn x y))))) + (defun canvas-pen-width (n) (setf *current-pen-width* (round n))) |