From 3ef91a0f4b25787f28b4b538426f489d12051118 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 7 Feb 2019 13:55:25 -0800 Subject: [PATCH] resize text alignment fixed --- quad/quad/position.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/quad/quad/position.rkt b/quad/quad/position.rkt index e01a5d84..347bcf52 100644 --- a/quad/quad/position.rkt +++ b/quad/quad/position.rkt @@ -20,20 +20,20 @@ (define ascender-cache (make-hash)) (define (ascender q) - (define font-key-val (hash-ref (quad-attrs q) font-path-key "Courier")) + (define font-key-val (quad-ref q font-path-key "Courier")) (unless font-key-val (error 'ascender-no-font-key)) (hash-ref! ascender-cache font-key-val (λ () (font-ascent (get-font font-key-val))))) (define units-cache (make-hash)) (define (units-per-em q) - (define font-key-val (hash-ref (quad-attrs q) font-path-key "Courier")) + (define font-key-val (quad-ref q font-path-key "Courier")) (unless font-key-val (error 'units-per-em-no-font-key)) (hash-ref! units-cache font-key-val (λ () (font-units-per-em (get-font font-key-val))))) (define (fontsize q) - (define val (hash-ref (quad-attrs q) 'fontsize current-default-font-size)) + (define val (quad-ref q 'font-size current-default-font-size)) ((if (number? val) values string->number) val)) (define (vertical-baseline-offset q) @@ -173,6 +173,6 @@ (define q (q (list 'in 'bi 'out 'bo 'size '(10 10) font-path-key fira 'fontsize 12))) (check-equal? (ascender q) 935) (check-equal? (units-per-em q) 1000) - (define ascender-scaled (* (/ (ascender q) (units-per-em q)) (hash-ref (quad-attrs q) 'fontsize) 1.0)) + (define ascender-scaled (* (/ (ascender q) (units-per-em q)) (quad-ref q 'fontsize) 1.0)) (check-equal? (in-point q) (list 0 ascender-scaled)) (check-equal? (out-point q) (list 10 ascender-scaled))) \ No newline at end of file