[modify] how apply-pen-at handles pen width

1 files changed, 2 insertions, 2 deletions

diff --git a/src/canvas-language.lisp b/src/canvas-language.lisp
index 05cddfd..83e510f 100644
--- a/src/canvas-language.lisp
+++ b/src/canvas-language.lisp
@@ -109,14 +109,14 @@ saved by WITH-PEN-STATE"
 
 (defun apply-pen-at (x y)
   (let ((w
-          (max 0 (floor (* 0.5 *current-pen-width*)))))
+          (max 0 (1- *current-pen-width*))))
     (destructuring-bind
         (cr cg cb ca)
         (etypecase *current-pen-color*
           (null (list 0 0 0 255))
           (list *current-pen-color*)
           (function (funcall *current-pen-color* x y))) 
-      (with-grid-rect (rx ry) ((- x w) (- y w) (+ x w) (+ y w))
+      (with-grid-rect (rx ry) (x y (+ x w) (+ y w))
         (when (can-fill-canvas-at-p rx ry) 
           (with-pixel (r g b a) (pixel *current-canvas* rx ry)
             (setf r cr g cg b cb a ca)))))))