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

split font maps for different smoothing (matters for Quartz and Win32)

Browse Source
This commit is contained in:
Matthew Flatt 2010-10-12 15:31:33 -06:00
parent 3f3d5f0f21
commit fdff76c18c
2 changed files with 69 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
collects/racket/draw/dc.rkt
View File

@ -218,6 +218,13 @@
(define-local-member-name (define-local-member-name
draw-bitmap-section/mask-offset) draw-bitmap-section/mask-offset)
;; We make different font map for each smoothing
;; kind because the smoothing choice the first
;; time a font is used in a given map seems to stick,
;; at least for the Quartz and Win32 back-ends.
;; (But we create the font maps on demand.)
(define font-maps (make-vector 4 #f))
(define (dc-mixin backend%) (define (dc-mixin backend%)
(defclass* dc% backend% (dc<%>) (defclass* dc% backend% (dc<%>)
(super-new) (super-new)
@ -255,8 +262,9 @@
(define/public (in-cairo-context cb) (define/public (in-cairo-context cb)
(with-cr (void) cr (cb cr))) (with-cr (void) cr (cb cr)))
;; pango context: ;; pango contexts, one per smoothing kind:
(define context #f) (define contexts (make-vector (vector-length font-maps) #f))
(define desc-layoutss (make-vector (vector-length font-maps) #f))
(define black (send the-color-database find-color "black")) (define black (send the-color-database find-color "black"))
(define pen (send the-pen-list find-or-create-pen "black" 1 'solid)) (define pen (send the-pen-list find-or-create-pen "black" 1 'solid))
@ -438,9 +446,8 @@
(get-font-metrics-key effective-scale-x effective-scale-y)) (get-font-metrics-key effective-scale-x effective-scale-y))
(define/override (reset-cr cr) (define/override (reset-cr cr)
(set! context #f) (set! contexts (make-vector (vector-length font-maps) #f))
(set! current-smoothing #f) (set! desc-layoutss (make-vector (vector-length font-maps) #f))
(reset-layouts!)
(do-reset-matrix cr) (do-reset-matrix cr)
(when clipping-region (when clipping-region
(send clipping-region install-region cr scroll-dx scroll-dy))) (send clipping-region install-region cr scroll-dx scroll-dy)))
@ -474,22 +481,21 @@
(define current-smoothing #f) (define current-smoothing #f)
(define (set-font-antialias context smoothing) (define (set-font-antialias context smoothing)
(let ([smoothing (dc-adjust-smoothing smoothing)]) (let ([o (pango_cairo_context_get_font_options context)]
(unless (eq? current-smoothing smoothing) [o2 (cairo_font_options_create)])
(set! current-smoothing smoothing) (when o
(let ([o (pango_cairo_context_get_font_options context)] (cairo_font_options_copy o2 o))
[o2 (cairo_font_options_create)]) (cairo_font_options_set_antialias
(when o o2
(cairo_font_options_copy o2 o)) (case smoothing
(cairo_font_options_set_antialias [(default) (if (eq? (system-type) 'macosx)
o2 CAIRO_ANTIALIAS_SUBPIXEL
(case smoothing CAIRO_ANTIALIAS_DEFAULT)]
[(default) CAIRO_ANTIALIAS_SUBPIXEL] ; should be DEFAULT? [(unsmoothed) CAIRO_ANTIALIAS_NONE]
[(unsmoothed) CAIRO_ANTIALIAS_NONE] [(partly-smoothed) CAIRO_ANTIALIAS_GRAY]
[(partly-smoothed) CAIRO_ANTIALIAS_GRAY] [(smoothed) CAIRO_ANTIALIAS_SUBPIXEL]))
[(smoothed) CAIRO_ANTIALIAS_SUBPIXEL])) (pango_cairo_context_set_font_options context o2)
(pango_cairo_context_set_font_options context o2) (cairo_font_options_destroy o2)))
(cairo_font_options_destroy o2)))))
(define alpha 1.0) (define alpha 1.0)
(def/public (get-alpha) alpha) (def/public (get-alpha) alpha)
@ -998,9 +1004,6 @@
(draw cr #t #t))) (draw cr #t #t)))
(cairo_restore cr))) (cairo_restore cr)))
(define desc-layouts (make-weak-hasheq))
(define/private (reset-layouts!) (set! desc-layouts (make-weak-hasheq)))
(inherit get-size) (inherit get-size)
(def/public (draw-text [string? s] [real? x] [real? y] (def/public (draw-text [string? s] [real? x] [real? y]
[any? [combine? #f]] [any? [combine? #f]]
@ -1064,10 +1067,23 @@
(substring s offset))] (substring s offset))]
[blank? (string=? s "")] [blank? (string=? s "")]
[s (if (and (not draw?) blank?) " " s)] [s (if (and (not draw?) blank?) " " s)]
[rotate? (and draw? (not (zero? angle)))]) [rotate? (and draw? (not (zero? angle)))]
(unless context [smoothing-index (case (dc-adjust-smoothing (send font get-smoothing))
(set! context (pango_cairo_create_context cr))) [(default) 0]
(set-font-antialias context (send font get-smoothing)) [(unsmoothed) 1]
[(partly-smoothed) 2]
[(smoothed) 3])]
[context (or (vector-ref contexts smoothing-index)
(let ([c (pango_font_map_create_context
(let ([fm (vector-ref font-maps smoothing-index)])
(or fm
(let ([fm (pango_cairo_font_map_new)])
(vector-set! font-maps smoothing-index fm)
fm))))])
(pango_cairo_update_context cr c)
(vector-set! contexts smoothing-index c)
(set-font-antialias c (dc-adjust-smoothing (send font get-smoothing)))
c))])
(when draw? (when draw?
(when (eq? text-mode 'solid) (when (eq? text-mode 'solid)
(unless rotate? (unless rotate?
@ -1161,9 +1177,15 @@
(not (fl= 1.0 effective-scale-y))) (not (fl= 1.0 effective-scale-y)))
#f #f
(get-size-cache desc))] (get-size-cache desc))]
[layouts (let ([attr-layouts (or (hash-ref desc-layouts desc #f) [layouts (let ([attr-layouts (or (hash-ref (let ([t (vector-ref desc-layoutss smoothing-index)])
(or t
(let ([t (make-weak-hasheq)])
(vector-set! desc-layoutss smoothing-index t)
t)))
desc
#f)
(let ([layouts (make-hasheq)]) (let ([layouts (make-hasheq)])
(hash-set! desc-layouts desc layouts) (hash-set! (vector-ref desc-layoutss smoothing-index) desc layouts)
layouts))]) layouts))])
(or (hash-ref attr-layouts attrs #f) (or (hash-ref attr-layouts attrs #f)
(let ([layouts (make-hasheq)]) (let ([layouts (make-hasheq)])
@ -1573,9 +1595,10 @@
#f #f
cr cr
(let ([desc (get-pango font)] (let ([desc (get-pango font)]
[attrs (send font get-pango-attrs)]) [attrs (send font get-pango-attrs)]
(unless context [context (or (for/or ([c (in-vector contexts)])
(set! context (pango_cairo_create_context cr))) c)
(pango_cairo_create_context cr))])
(let ([layout (pango_layout_new context)]) (let ([layout (pango_layout_new context)])
(pango_layout_set_font_description layout desc) (pango_layout_set_font_description layout desc)
(pango_layout_set_text layout (string c)) (pango_layout_set_text layout (string c))

36
collects/racket/draw/pango.rkt
View File

@ -111,30 +111,20 @@
#:wrap (deallocator)) #:wrap (deallocator))
(define-pangocairo pango_cairo_font_map_get_default (_fun -> PangoFontMap)) ;; not an allocator (define-pangocairo pango_cairo_font_map_get_default (_fun -> PangoFontMap)) ;; not an allocator
(define-pangocairo pango_cairo_font_map_new (_fun -> PangoFontMap)
#:wrap (allocator g_object_unref))
(define-pangocairo pango_cairo_create_context (_fun _cairo_t -> PangoContext) (define-pango pango_font_map_create_context (_fun PangoFontMap -> PangoContext)
#:wrap (allocator g_object_unref) #:wrap (allocator g_object_unref))
;; The convenince function pango_cairo_create_context() is in 1.22 and later (define-pangocairo pango_cairo_update_context (_fun _cairo_t PangoContext -> _void))
#:make-fail (lambda (id)
(let ([pango_cairo_font_map_create_context ;; The convenince function pango_cairo_create_context() is in 1.22 and later
(get-ffi-obj 'pango_cairo_font_map_create_context pangocairo-lib (provide pango_cairo_create_context)
(_fun PangoFontMap -> PangoContext) (define (pango_cairo_create_context cr)
(lambda () #f))] (let ([ctx (pango_font_map_create_context
[pango_cairo_update_context (pango_cairo_font_map_get_default))])
(get-ffi-obj 'pango_cairo_update_context pangocairo-lib (pango_cairo_update_context cr ctx)
(_fun _cairo_t PangoContext -> _void) ctx))
(lambda () #f))])
(if (and pango_cairo_font_map_create_context
pango_cairo_update_context)
(lambda ()
(lambda (cr)
(call-as-atomic
(lambda ()
(let ([ctx (pango_cairo_font_map_create_context
(pango_cairo_font_map_get_default))])
(pango_cairo_update_context cr ctx)
ctx)))))
(make-not-available id)))))
(define-pangocairo pango_cairo_create_layout (_fun _cairo_t -> PangoLayout) (define-pangocairo pango_cairo_create_layout (_fun _cairo_t -> PangoLayout)
#:wrap (allocator g_object_unref)) #:wrap (allocator g_object_unref))