suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/draw: fix problem with rotated text, font substition, and kerning

Browse Source 
Closes PR 14469

original commit: 520f7f839dc718b71519313dcadbc4f09e912917
This commit is contained in:
Matthew Flatt 2014-04-27 12:20:09 -06:00
parent 7fa382030d
commit 7e42de33ec
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt
View File

@ -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))])