From 7e42de33ec7f376b5c551948be6a9af534b4a1bd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 27 Apr 2014 12:20:09 -0600 Subject: [PATCH] racket/draw: fix problem with rotated text, font substition, and kerning Closes PR 14469 original commit: 520f7f839dc718b71519313dcadbc4f09e912917 --- pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt b/pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt index 55e43173..9228d01e 100644 --- a/pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt +++ b/pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt @@ -676,6 +676,8 @@ (let-values ([(w h d a) (send dc get-text-extent s cfnt kern?)]) (send dc draw-rectangle x y w h) (send dc draw-line x (+ y (- h d)) (+ x w) (+ y (- h d))) + ;; Rotated Chinese character: + (send dc draw-text s (+ x h (- d)) (+ y h 2) kern? 0 (* pi -1/2)) ;; Mathematical "A" (beyond UCS-2) (let ([s "\U1D670"] [x (+ x (* 1.5 w))])