diff options
Diffstat (limited to 'Core/extended-output/output-record.lisp')
-rw-r--r-- | Core/extended-output/output-record.lisp | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Core/extended-output/output-record.lisp b/Core/extended-output/output-record.lisp index 2fa58ec4..9d4562ae 100644 --- a/Core/extended-output/output-record.lisp +++ b/Core/extended-output/output-record.lisp @@ -1542,15 +1542,15 @@ the associated sheet can be determined." &optional region (x-offset 0) (y-offset 0)) (declare (ignore region)) (with-identity-transformation (stream) - (with-translation (stream x-offset y-offset) - (let ((rect (copy-bounding-rectangle record)) - (ink1 (compose-in +blue+ (make-opacity .1))) - (ink2 +black+) - (ink3 (compose-in +black+ (make-opacity .5)))) - (draw-design stream rect :filled t :ink ink1) - (draw-design stream rect :filled nil :ink ink2 :line-thickness .5) - (with-bounding-rectangle* (:center-x cx :center-y cy) rect - (draw-point* stream cx cy :line-thickness 10 :ink ink3)))))) + (with-translation (stream x-offset y-offset) + (let ((rect (copy-bounding-rectangle record)) + (ink1 (compose-in +blue+ (make-opacity .1))) + (ink2 +black+) + (ink3 (compose-in +black+ (make-opacity .5)))) + (draw-design stream rect :filled t :ink ink1) + (draw-design stream rect :filled nil :ink ink2 :line-thickness .5) + (with-bounding-rectangle* (:center-x cx :center-y cy) rect + (draw-point* stream cx cy :line-thickness 10 :ink ink3)))))) (defrecord-predicate draw-text-output-record (string start end |