From 7ee5419080320cea0d02201be1be382ec591b711 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 15 Feb 2020 10:48:03 -0800 Subject: [PATCH] we want size --- quad/quadwriter/draw.rkt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/quad/quadwriter/draw.rkt b/quad/quadwriter/draw.rkt index 25305f33..15fe9fbf 100644 --- a/quad/quadwriter/draw.rkt +++ b/quad/quadwriter/draw.rkt @@ -40,13 +40,11 @@ [elems (quad-elems q)] [tag (quad-tag q)] [attrs (quad-attrs q)] - [size (if (quad-ref q :anchor-parent) - (pt 0 0) - (match (quad-tag q) + [size (match (quad-tag q) [(== 'text eq?) (make-size-promise-for-string q (quad-ref q :string ""))] [(== 'line eq?) (pt (abs (- (quad-ref q :x1) (quad-ref q :x2))) (abs (- (quad-ref q :y1) (quad-ref q :y2))))] - [_ (pt (quad-ref q :width 0) (quad-ref q :height 0))]))] + [_ (pt (quad-ref q :width 0) (quad-ref q :height 0))])] [draw-end (λ (q doc) (when (draw-debug-draw?) (draw-debug q doc "red" "red")))]