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

racket/draw: generalize "face" in a font% to be a description

Browse Source 
Also add an option to `get-face-list' so that it can actually
return faces, instead of just families.
This commit is contained in:
Matthew Flatt 2011-11-26 08:48:35 -07:00
parent 161934c354
commit 567ee96c61
5 changed files with 86 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
collects/racket/draw/private/font.rkt
View File

@ -133,27 +133,27 @@
(and desc (and desc
(install! desc) (install! desc)
desc)) desc))
(let* ([desc (pango_font_description_new)]) (let* ([desc (pango_font_description_from_string (if ps?
(pango_font_description_set_family desc (send the-font-name-directory
(if ps? get-post-script-name
(send the-font-name-directory id
get-post-script-name weight
id style)
weight (send the-font-name-directory
style) get-screen-name
(send the-font-name-directory id
get-screen-name weight
id style)))])
weight (unless (eq? style 'normal)
style))) (pango_font_description_set_style desc (case style
(pango_font_description_set_style desc (case style [(normal) PANGO_STYLE_NORMAL]
[(normal) PANGO_STYLE_NORMAL] [(italic) PANGO_STYLE_ITALIC]
[(italic) PANGO_STYLE_ITALIC] [(slant) PANGO_STYLE_OBLIQUE])))
[(slant) PANGO_STYLE_OBLIQUE])) (unless (eq? weight 'normal)
(pango_font_description_set_weight desc (case weight (pango_font_description_set_weight desc (case weight
[(normal) PANGO_WEIGHT_MEDIUM] [(normal) PANGO_WEIGHT_MEDIUM]
[(light) PANGO_WEIGHT_LIGHT] [(light) PANGO_WEIGHT_LIGHT]
[(bold) PANGO_WEIGHT_BOLD])) [(bold) PANGO_WEIGHT_BOLD])))
(if size-in-pixels? (if size-in-pixels?
(pango_font_description_set_absolute_size desc (* size PANGO_SCALE)) (pango_font_description_set_absolute_size desc (* size PANGO_SCALE))
(pango_font_description_set_size desc (inexact->exact (floor (* size PANGO_SCALE))))) (pango_font_description_set_size desc (inexact->exact (floor (* size PANGO_SCALE)))))
@ -287,14 +287,25 @@
(define the-font-list (new font-list%)) (define the-font-list (new font-list%))
(define (get-face-list [mode 'all]) (define (get-face-list [mode 'all] #:all-variants? [all-variants? #f])
(unless (or (eq? mode 'all) (eq? mode 'mono))
(raise-type-error get-face-list "'all or 'mono" mode))
(sort (sort
(map pango_font_family_get_name (apply
(let ([fams (pango_font_map_list_families append
(pango_cairo_font_map_get_default))]) (for/list ([fam (in-list
(if (eq? mode 'mono) (let ([fams (pango_font_map_list_families
(filter pango_font_family_is_monospace fams) (pango_cairo_font_map_get_default))])
fams))) (if (eq? mode 'mono)
(filter pango_font_family_is_monospace fams)
fams)))])
(if (not all-variants?)
(list (pango_font_family_get_name fam))
(for/list ([face (in-list (pango_font_family_list_faces fam))])
(string-append
(pango_font_family_get_name fam)
" "
(pango_font_face_get_face_name face))))))
string<?)) string<?))
(define (make-font #:size [size 12] (define (make-font #:size [size 12]

10
collects/racket/draw/unsafe/pango.rkt
View File

@ -52,6 +52,7 @@
(define PangoLayout (_cpointer 'PangoLayout)) (define PangoLayout (_cpointer 'PangoLayout))
(define PangoFontDescription (_cpointer 'PangoFontDescription)) (define PangoFontDescription (_cpointer 'PangoFontDescription))
(define PangoFontFamily (_cpointer 'PangoFontFamily)) (define PangoFontFamily (_cpointer 'PangoFontFamily))
(define PangoFontFace (_cpointer 'PangoFontFace))
(define PangoFont (_cpointer 'PangoFont)) (define PangoFont (_cpointer 'PangoFont))
(define PangoFontMap (_cpointer 'PangoFontMap)) (define PangoFontMap (_cpointer 'PangoFontMap))
(define PangoFontMetrics (_cpointer 'PangoFontMetrics)) (define PangoFontMetrics (_cpointer 'PangoFontMetrics))
@ -270,6 +271,15 @@
(for/list ([i (in-range len)]) (for/list ([i (in-range len)])
(ptr-ref fams PangoFontFamily i)) (ptr-ref fams PangoFontFamily i))
(g_free fams)))) (g_free fams))))
(define-pango pango_font_family_list_faces (_pfun PangoFontFamily
(faces : (_ptr o _pointer))
(len : (_ptr o _int))
-> _void
-> (begin0
(for/list ([i (in-range len)])
(ptr-ref faces PangoFontFace i))
(g_free faces))))
(define-pango pango_font_face_get_face_name (_pfun PangoFontFace -> _string))
(define-pango pango_font_description_free (_pfun PangoFontDescription -> _void) (define-pango pango_font_description_free (_pfun PangoFontDescription -> _void)
#:wrap (deallocator)) #:wrap (deallocator))

22
collects/scribblings/draw/draw-funcs.scrbl
View File

@ -8,18 +8,22 @@
@defparam[current-ps-setup pss (is-a?/c ps-setup%)]{ @defparam[current-ps-setup pss (is-a?/c ps-setup%)]{
A parameter that determines the current PostScript configuration A parameter that determines the current PostScript configuration
settings. See @racket[post-script-dc%] and @racket[printer-dc%]. settings. See @racket[post-script-dc%] and @racket[printer-dc%].}
}
@defproc[(get-face-list [family (one-of/c 'mono 'all) 'all]) @defproc[(get-face-list [kind (one-of/c 'mono 'all) 'all]
[#:all-variants? all-variants? any/c #f])
(listof string?)]{ (listof string?)]{
Returns a list of font face names available on the current system. If Returns a list of font face names available on the current system. If
@racket['mono] is provided as the argument, then only faces that are @racket[kind] is @racket['mono], then only faces that are known to
known to correspond to monospace fonts are included in the list. correspond to monospace fonts are included in the list.
} If @racket[all-variants?] is @racket[#f] (the default), then the
result is in more standard terminology a list of font
family names, which are combined with style and weight options to
arrive at a face; if @racket[all-variants?] is true, then the result
includes a string for each available face in the family.}
@defproc[(get-family-builtin-face [family (one-of/c 'default 'decorative 'roman 'script @defproc[(get-family-builtin-face [family (one-of/c 'default 'decorative 'roman 'script
@ -29,9 +33,7 @@ Returns a list of font face names available on the current system. If
Returns the built-in default face mapping for a particular font Returns the built-in default face mapping for a particular font
family. family.
See @racket[font%] for information about @racket[family]. See @racket[font%] for information about @racket[family].}
}
@defproc[(make-bitmap [width exact-positive-integer?] @defproc[(make-bitmap [width exact-positive-integer?]

14
collects/scribblings/draw/font-class.scrbl
View File

@ -28,11 +28,15 @@ A @defterm{font} is an object which determines the appearance of text,
but see @racket[normal-control-font])} but see @racket[normal-control-font])}
] ]
@margin-note{The terminology ``family'' and ``face'' is mangled relative @margin-note{The terminology ``family'' and ``face'' is mangled
to its usual meaning. A @racket[font%] ``face'' is really relative to its usual meaning. A @racket[font%] ``face''
a font family in the usual terminology, while a @racket[font%] is really used more like a font family in the usual
``family'' is a kind of abstract font family that is mapped to a terminology, or more generally as a face-description
particular font family on a given platform.}} string that is combined with other @racket[font%]
attributes to arrive at a face. A @racket[font%]
``family'' is a kind of abstract font family that is
mapped to a particular font family on a given
platform.}}
@item{face --- A string face name, such as @racket["Courier"]. The format @item{face --- A string face name, such as @racket["Courier"]. The format
and meaning of a face name is platform- and and meaning of a face name is platform- and

23
collects/scribblings/draw/font-name-directory-intf.scrbl
View File

@ -26,11 +26,20 @@ To extract mapping information from @racket[the-font-name-directory],
For a family without a face string, the corresponding font ID has a For a family without a face string, the corresponding font ID has a
useful built-in mapping for every platform and device. For a family with a useful built-in mapping for every platform and device. For a family with a
face string, @racket[the-font-name-directory] interprets the string face string, @racket[the-font-name-directory] interprets the string
(in a platform-specific way) to generate a mapping for ``screen'' (in a platform-specific way) to generate a mapping for
drawing (to a canvas's @racket[dc<%>], a @racket[bitmap-dc%], or a drawing (to a canvas's @racket[dc<%>], a @racket[bitmap-dc%], or a
@racket[printer-dc%]). When drawing to a @racket[post-script-dc%] @racket[printer-dc%]).
object, the face-specific mapping defaults to the family's mapping.
Currently, on all platforms, a face string is interpreted as a
@hyperlink["http://www.pango.org"]{Pango} font description. A
description can be a family name such as @racket["Helvetica"], a face
name such as @racket["Helvetica Bold"], or a list of comma-separated
families followed by space-separated font options such as
@racket["Helvetica,Arial bold italic"]. Any size in a font
description is overridden by a given @racket[font%]'s size. Any
(slant) style or weight options in a font description are overridden
by a non-@racket['normal] value for a given @racket[font%]'s style
or weight, respectively.
@defmethod[(find-family-default-font-id [family (one-of/c 'default 'decorative 'roman 'script @defmethod[(find-family-default-font-id [family (one-of/c 'default 'decorative 'roman 'script
'swiss 'modern 'symbol 'system)]) 'swiss 'modern 'symbol 'system)])
@ -91,7 +100,7 @@ Font ID are useful only as mapping indices for
[style (one-of/c 'normal 'italic 'slant)]) [style (one-of/c 'normal 'italic 'slant)])
(or/c string? false/c)]{ (or/c string? false/c)]{
Gets a PostScript font name for a font ID, weight, and style Gets a PostScript font description for a font ID, weight, and style
combination. combination.
See @racket[font%] for information about @racket[weight] and See @racket[font%] for information about @racket[weight] and
@ -104,7 +113,7 @@ See @racket[font%] for information about @racket[weight] and
[style (one-of/c 'normal 'italic 'slant)]) [style (one-of/c 'normal 'italic 'slant)])
(or/c string? false/c)]{ (or/c string? false/c)]{
Gets a platform-dependent screen font name (used for drawing to a Gets a platform-dependent screen font description (used for drawing to a
canvas's @racket[dc<%>], a @racket[bitmap-dc%], or a canvas's @racket[dc<%>], a @racket[bitmap-dc%], or a
@racket[printer-dc%]) for a font ID, weight, and style combination. @racket[printer-dc%]) for a font ID, weight, and style combination.
@ -119,7 +128,7 @@ See @racket[font%] for information about @racket[weight] and
[name string?]) [name string?])
void?]{ void?]{
Sets a PostScript font name for a font ID, weight, and style Sets a PostScript font description for a font ID, weight, and style
combination. See also @method[font-name-directory<%> combination. See also @method[font-name-directory<%>
get-post-script-name]. get-post-script-name].
@ -133,7 +142,7 @@ See @racket[font%] for information about @racket[weight] and @racket[style].
[name string?]) [name string?])
void?]{ void?]{
Sets a platform-dependent screen font name (used for drawing to a Sets a platform-dependent screen font description (used for drawing to a
canvas's @racket[dc<%>], a @racket[bitmap-dc%], or a canvas's @racket[dc<%>], a @racket[bitmap-dc%], or a
@racket[printer-dc%]) for a font ID, weight, and style combination. @racket[printer-dc%]) for a font ID, weight, and style combination.