1 ! Copyright (C) 2008 Matthew Willis.
2 ! Copyright (C) 2009 Slava Pestov.
3 ! See http://factorcode.org/license.txt for BSD license
4 USING: pango alien.syntax alien.c-types alien.destructors
5 kernel glib accessors combinators destructors init fonts
11 TYPEDEF: int PangoStyle
17 TYPEDEF: int PangoWeight
19 C-TYPE: PangoFontFamily
22 C-TYPE: PangoFontMetrics
23 C-TYPE: PangoFontDescription
24 C-TYPE: PangoGlyphString
27 CONSTANT: PANGO_WEIGHT_THIN 100
28 CONSTANT: PANGO_WEIGHT_ULTRALIGHT 200
29 CONSTANT: PANGO_WEIGHT_LIGHT 300
30 CONSTANT: PANGO_WEIGHT_BOOK 380
31 CONSTANT: PANGO_WEIGHT_NORMAL 400
32 CONSTANT: PANGO_WEIGHT_MEDIUM 500
33 CONSTANT: PANGO_WEIGHT_SEMIBOLD 600
34 CONSTANT: PANGO_WEIGHT_BOLD 700
35 CONSTANT: PANGO_WEIGHT_ULTRABOLD 800
36 CONSTANT: PANGO_WEIGHT_HEAVY 900
37 CONSTANT: PANGO_WEIGHT_ULTRAHEAVY 1000
39 FUNCTION: PangoFontDescription*
40 pango_font_description_new ( ) ;
43 pango_font_description_free ( PangoFontDescription* desc ) ;
45 DESTRUCTOR: pango_font_description_free
47 FUNCTION: PangoFontDescription*
48 pango_font_description_from_string ( char* str ) ;
51 pango_font_description_to_string ( PangoFontDescription* desc ) ;
54 pango_font_description_to_filename ( PangoFontDescription* desc ) ;
57 pango_font_description_set_family ( PangoFontDescription* desc, char* family ) ;
60 pango_font_description_set_style ( PangoFontDescription* desc, PangoStyle style ) ;
63 pango_font_description_set_weight ( PangoFontDescription* desc, PangoWeight weight ) ;
66 pango_font_description_set_size ( PangoFontDescription* desc, gint size ) ;
69 pango_font_map_list_families ( PangoFontMap* fontmap, PangoFontFamily*** families, int* n_families ) ;
72 pango_font_family_get_name ( PangoFontFamily* family ) ;
75 pango_font_family_is_monospace ( PangoFontFamily* family ) ;
78 pango_font_family_list_faces ( PangoFontFamily* family, PangoFontFace*** faces, int* n_faces ) ;
81 pango_font_face_get_face_name ( PangoFontFace* face ) ;
84 pango_font_face_list_sizes ( PangoFontFace* face, int** sizes, int* n_sizes ) ;
86 FUNCTION: void pango_font_metrics_unref ( PangoFontMetrics* metrics ) ;
88 DESTRUCTOR: pango_font_metrics_unref
90 FUNCTION: int pango_font_metrics_get_ascent ( PangoFontMetrics* metrics ) ;
92 FUNCTION: int pango_font_metrics_get_descent ( PangoFontMetrics* metrics ) ;
94 FUNCTION: PangoFont* pango_font_map_load_font ( PangoFontMap* fontmap, PangoContext* context, PangoFontDescription* desc ) ;
96 FUNCTION: PangoFontMetrics* pango_context_get_metrics ( PangoContext* context, PangoFontDescription* desc, PangoLanguage* language ) ;
98 FUNCTION: PangoFontMetrics* pango_font_get_metrics ( PangoFont* font, PangoLanguage* language ) ;
100 MEMO: (cache-font-description) ( font -- description )
102 [ pango_font_description_new |pango_font_description_free ] dip {
103 [ name>> pango_font_description_set_family ]
104 [ size>> float>pango pango_font_description_set_size ]
105 [ bold?>> PANGO_WEIGHT_BOLD PANGO_WEIGHT_NORMAL ? pango_font_description_set_weight ]
106 [ italic?>> PANGO_STYLE_ITALIC PANGO_STYLE_NORMAL ? pango_font_description_set_style ]
111 : cache-font-description ( font -- description )
112 strip-font-colors (cache-font-description) ;
114 [ \ (cache-font-description) reset-memoized ] "pango.fonts" add-init-hook