'From Smalltalk/X, Version:6.2.3jv.0 on 04-01-2014 at 01:37:36'                 !

"{ Package: 'stx:libview' }"

FontDescription subclass:#XftFontDescription

	instanceVariableNames:'device fontId drawId closestFont'

	classVariableNames:'FC_FAMILY FC_STYLE FC_SLANT FC_WEIGHT FC_SIZE FC_ASPECT

		FC_PIXEL_SIZE FC_SPACING FC_FOUNDRY FC_ANTIALIAS FC_HINTING

		FC_HINT_STYLE FC_VERTICAL_LAYOUT FC_AUTOHINT FC_WIDTH FC_FILE

		FC_INDEX FC_FT_FACE FC_RASTERIZER FC_OUTLINE FC_SCALABLE FC_SCALE

		FC_DPI FC_RGBA FC_MINSPACE FC_SOURCE FC_CHARSET FC_LANG

		FC_FONTVERSION FC_FULLNAME FC_FAMILYLANG FC_STYLELANG

		FC_FULLNAMELANG FC_CAPABILITY FC_FONTFORMAT FC_EMBOLDEN

		FC_EMBEDDED_BITMAP FC_DECORATIVE FC_LCD_FILTER FC_NAMELANG

		FC_CHAR_WIDTH FC_CHAR_HEIGHT FC_MATRIX FC_WEIGHT_THIN

		FC_WEIGHT_EXTRALIGHT FC_WEIGHT_ULTRALIGHT FC_WEIGHT_LIGHT

		FC_WEIGHT_BOOK FC_WEIGHT_REGULAR FC_WEIGHT_NORMAL

		FC_WEIGHT_MEDIUM FC_WEIGHT_DEMIBOLD FC_WEIGHT_SEMIBOLD

		FC_WEIGHT_BOLD FC_WEIGHT_EXTRABOLD FC_WEIGHT_ULTRABOLD

		FC_WEIGHT_BLACK FC_WEIGHT_HEAVY FC_WEIGHT_EXTRABLACK

		FC_WEIGHT_ULTRABLACK FC_SLANT_ROMAN FC_SLANT_ITALIC

		FC_SLANT_OBLIQUE FC_WIDTH_ULTRACONDENSED FC_WIDTH_EXTRACONDENSED

		FC_WIDTH_CONDENSED FC_WIDTH_SEMICONDENSED FC_WIDTH_NORMAL

		FC_WIDTH_SEMIEXPANDED FC_WIDTH_EXPANDED FC_WIDTH_EXTRAEXPANDED

		FC_WIDTH_ULTRAEXPANDED FC_PROPORTIONAL FC_DUAL FC_MONO

		FC_CHARCELL FC_RGBA_UNKNOWN FC_RGBA_RGB FC_RGBA_BGR FC_RGBA_VRGB

		FC_RGBA_VBGR FC_RGBA_NONE FC_HINT_NONE FC_HINT_SLIGHT

		FC_HINT_MEDIUM FC_HINT_FULL FC_LCD_NONE FC_LCD_DEFAULT

		FC_LCD_LIGHT FC_LCD_LEGACY StXFace2FCWeightMap

		StXStyle2FCSlantMap'

	poolDictionaries:''

	category:'Graphics-Support'

!

ExternalAddress subclass:#FCPatternHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:XftFontDescription

!

ExternalAddress subclass:#XftDrawHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:XftFontDescription

!

ExternalAddress subclass:#XftFontHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:XftFontDescription

!

!XftFontDescription primitiveDefinitions!

%{

/*

 * includes, defines, structure definitions

 * and typedefs come here.

 */

#undef True

#undef False

#undef Time

#define Time XTime

#ifdef XFT

extern OBJ __GLOBAL_GET_BY_NAME();

# define __HANDLE_VAL(type, externalAddress) \

        ((type)__externalAddressVal(externalAddress))

#define __HANDLE_NEW(ptr, __cls)                \

        ({                                      \

            OBJ handle;                         \

            handle = __MKEXTERNALADDRESS(ptr);  \

            __InstPtr(handle)->o_class =        \

                __GLOBAL_GET_BY_NAME(__cls);    \

            handle;                             \

        })

# define DISPLAY(x)    __HANDLE_VAL(Display*, x)

# define SCREEN(x)     ((int)(__intVal(x)))

# define DRAWABLE(x)   __HANDLE_VAL(Drawable, x)

# define GC(x)         __HANDLE_VAL(GC, x)

# define VISUAL(x)     __HANDLE_VAL(Visual*, x)

# define COLORMAP(x)   __HANDLE_VAL(Colormap, x)

/* FontConfig objects */

# define FC_PATTERN(x)                  __HANDLE_VAL(XftPattern*, x)

# define FC_PATTERN_HANDLE_NEW(x)       __HANDLE_NEW(x, "XftFontDescription::FCPatternHandle")

/* Xft Objects */

# define XFT_FONT(x)            __HANDLE_VAL(XftFont*, x)

# define XFT_FONT_HANDLE_NEW(x) __HANDLE_NEW(x, "XftFontDescription::XftFontHandle")

# define XFT_DRAW(x)            __HANDLE_VAL(XftDraw*, x)

# define XFT_DRAW_HANDLE_NEW(x) __HANDLE_NEW(x, "XftFontDescription::XftDrawHandle")

# include <X11/Xft/Xft.h>

# include <X11/Xft/XftCompat.h>

#endif

%}

! !

!XftFontDescription class methodsFor:'documentation'!

documentation

"

    WARNING: Unfinished.

    Experimental implementation of custom font rendered using

    Xft library (UNIX / X Window only), To actually use it,

    add following definitions to the end of stx/configurations/myConf

    (works on Ubuntu 12.10)

    --- snip ---

    XDEFS+=-DXFT

    XINCLUDE+=$(shell pkg-config --cflags xft)

    LIB_XFT=-l:libXft.so.2 -l:libfontconfig.so.1

    --- snip --

    NOTE: This class should be named XftFont, however then

    there would be a name clash with XftFont structure

    defined in Xft.h - therefore the class is named

    XftFontDescription to avoid that name clash.

    [author:]

	Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!XftFontDescription class methodsFor:'initialization'!

initialize

    "Invoked at system start or when the class is dynamically loaded."

    " Taken from fontconfig,h "

    FC_FAMILY               := 'family'.           "/* String */

    FC_STYLE                := 'style'.            "/* String */

    FC_SLANT                := 'slant'.            "/* Int */

    FC_WEIGHT               := 'weight'.           "/* Int */

    FC_SIZE                 := 'size'.             "/* Double */

    FC_ASPECT               := 'aspect'.           "/* Double */

    FC_PIXEL_SIZE           := 'pixelsize'.        "/* Double */

    FC_SPACING              := 'spacing'.          "/* Int */

    FC_FOUNDRY              := 'foundry'.          "/* String */

    FC_ANTIALIAS            := 'antialias'.        "/* Bool (depends) */

    FC_HINTING              := 'hinting'.          "/* Bool (true) */

    FC_HINT_STYLE           := 'hintstyle'.        "/* Int */

    FC_VERTICAL_LAYOUT      := 'verticallayout'.       "/* Bool (false) */

    FC_AUTOHINT             := 'autohint'.         "/* Bool (false) */

    FC_WIDTH                := 'width'.            "/* Int */

    FC_FILE                 := 'file'.             "/* String */

    FC_INDEX                := 'index'.            "/* Int */

    FC_FT_FACE              := 'ftface'.           "/* FT_Face */

    FC_RASTERIZER           := 'rasterizer'.       "/* String */

    FC_OUTLINE              := 'outline'.          "/* Bool */

    FC_SCALABLE             := 'scalable'.         "/* Bool */

    FC_SCALE                := 'scale'.            "/* double */

    FC_DPI                  := 'dpi'.              "/* double */

    FC_RGBA                 := 'rgba'.             "/* Int */

    FC_MINSPACE             := 'minspace'.         "/* Bool use minimum line spacing */

    FC_SOURCE               := 'source'.           "/* String (deprecated) */

    FC_CHARSET              := 'charset'.          "/* CharSet */

    FC_LANG                 := 'lang'.             "/* String RFC 3066 langs */

    FC_FONTVERSION          := 'fontversion'.      "/* Int from 'head'.table */

    FC_FULLNAME             := 'fullname'.         "/* String */

    FC_FAMILYLANG           := 'familylang'.       "/* String RFC 3066 langs */

    FC_STYLELANG            := 'stylelang'.        "/* String RFC 3066 langs */

    FC_FULLNAMELANG         := 'fullnamelang'.     "/* String RFC 3066 langs */

    FC_CAPABILITY           := 'capability'.   "/* String */

    FC_FONTFORMAT           := 'fontformat'.       "/* String */

    FC_EMBOLDEN             := 'embolden'.         "/* Bool - true if emboldening needed*/

    FC_EMBEDDED_BITMAP      := 'embeddedbitmap'."/* Bool - true to enable embedded bitmaps */

    FC_DECORATIVE           := 'decorative'.       "/* Bool - true if style is a decorative variant */

    FC_LCD_FILTER           := 'lcdfilter'.        "/* Int */

    FC_NAMELANG             := 'namelang'.         "/* String RFC 3866 langs */

    "Adjust outline rasterizer"

    FC_CHAR_WIDTH           := 'charwidth'."/* Int */

    FC_CHAR_HEIGHT          := 'charheight'."/* Int */

    FC_MATRIX               := 'matrix'.   "/* FcMatrix */

    FC_WEIGHT_THIN          := 0.

    FC_WEIGHT_EXTRALIGHT    := 40.

    FC_WEIGHT_ULTRALIGHT    := FC_WEIGHT_EXTRALIGHT.

    FC_WEIGHT_LIGHT         := 50.

    FC_WEIGHT_BOOK          := 75.

    FC_WEIGHT_REGULAR       := 80.

    FC_WEIGHT_NORMAL        := FC_WEIGHT_REGULAR.

    FC_WEIGHT_MEDIUM        := 100.

    FC_WEIGHT_DEMIBOLD      := 180.

    FC_WEIGHT_SEMIBOLD      := FC_WEIGHT_DEMIBOLD.

    FC_WEIGHT_BOLD          := 200.

    FC_WEIGHT_EXTRABOLD     := 205.

    FC_WEIGHT_ULTRABOLD     := FC_WEIGHT_EXTRABOLD.

    FC_WEIGHT_BLACK         := 210.

    FC_WEIGHT_HEAVY         := FC_WEIGHT_BLACK.

    FC_WEIGHT_EXTRABLACK    := 215.

    FC_WEIGHT_ULTRABLACK    := FC_WEIGHT_EXTRABLACK.

    FC_SLANT_ROMAN          := 0.

    FC_SLANT_ITALIC         := 100.

    FC_SLANT_OBLIQUE        := 110.

    FC_WIDTH_ULTRACONDENSED := 50.

    FC_WIDTH_EXTRACONDENSED := 63.

    FC_WIDTH_CONDENSED      := 75.

    FC_WIDTH_SEMICONDENSED  := 87.

    FC_WIDTH_NORMAL         := 100.

    FC_WIDTH_SEMIEXPANDED   := 113.

    FC_WIDTH_EXPANDED       := 125.

    FC_WIDTH_EXTRAEXPANDED  := 150.

    FC_WIDTH_ULTRAEXPANDED  := 200.

    FC_PROPORTIONAL         := 0.

    FC_DUAL                 := 90.

    FC_MONO                 := 100.

    FC_CHARCELL             := 110.

    "sub-pixel order"

    FC_RGBA_UNKNOWN         := 0.

    FC_RGBA_RGB             := 1.

    FC_RGBA_BGR             := 2.

    FC_RGBA_VRGB            := 3.

    FC_RGBA_VBGR            := 4.

    FC_RGBA_NONE            := 5.

    "hinting style"

    FC_HINT_NONE            := 0.

    FC_HINT_SLIGHT          := 1.

    FC_HINT_MEDIUM          := 2.

    FC_HINT_FULL            := 3.

    "LCD filter"

    FC_LCD_NONE             := 0.

    FC_LCD_DEFAULT          := 1.

    FC_LCD_LIGHT            := 2.

    FC_LCD_LEGACY           := 3.

    StXFace2FCWeightMap := Dictionary withKeysAndValues:{

        'regular'.  FC_WEIGHT_REGULAR.

        'medium'.   FC_WEIGHT_MEDIUM.

        'bold'.     FC_WEIGHT_BOLD.

    }.

    StXStyle2FCSlantMap := Dictionary withKeysAndValues:{

        'roman'.    FC_SLANT_ROMAN.

        'italic'.   FC_SLANT_ITALIC.

        'oblique'.  FC_SLANT_OBLIQUE.

    }.

    "Modified: / 30-12-2013 / 19:48:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription class methodsFor:'examples'!

example1

    "

    XftFontDescription example1

    "

    |top textView|

    top := StandardSystemView new.

    top extent:300@200.

    textView := EditTextView new.

    textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.

    textView basicFont: (XftFontDescription family: 'DejaVu Sans' size: 16).

    top addSubView:textView.

    textView contents:('/etc/hosts' asFilename contentsOfEntireFile asText).

    top open.

    "Created: / 20-12-2013 / 00:04:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 30-12-2013 / 19:11:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

example2

    "

    XftFontDescription example2

    "

    |top textView|

    top := StandardSystemView new.

    top extent:300@200.

    textView := EditTextView new.

    textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.

    textView basicFont: (XftFontDescription family: 'DejaVu Sans' size: 30) asItalic.

    top addSubView:textView.

    textView contents:('/etc/hosts' asFilename contentsOfEntireFile).

    top open.

    "Created: / 30-12-2013 / 19:49:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription methodsFor:'accessing-private'!

getDevice

    ^ device

    "Created: / 02-01-2014 / 23:22:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

getFontId

    ^ fontId

    "Created: / 02-01-2014 / 23:29:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription methodsFor:'displaying'!

    "display a partial string at some position in aGC."

    | bitsPerCharacter clipR clipX clipY clipW clipH fg fgR fgG fgB fgA fgPixel bg bgR bgG bgB bgA bgPixel displayId screen drawableId error |

    self primitiveFailedIfNoXft.

    bitsPerCharacter := aString bitsPerCharacter.

    clipR := aGC clippingBounds.

    clipR notNil ifTrue:[

        clipX := clipR left.

        clipY := clipR top.

        clipW := clipR width.

        clipH := clipR height.

    ].

    fg  :=  aGC paint.

    fgR := fg scaledRed.

    fgG := fg scaledGreen.

    fgB := fg scaledBlue.

    fgA := fg alpha * 65535.

    fgPixel := fg colorId.

    opaque ifTrue:[

        bg  := aGC backgroundPaint.

        bgR := bg scaledRed.

        bgG := bg scaledGreen.

        bgB := bg scaledBlue.

        bgA := bg alpha * 65535.

        bgPixel := bg colorId.

    ].

    displayId := device displayId.

    screen := device screen.

    drawableId := aGC id.

%{

#ifdef XFT

    XftFont *font;

    XftDraw *draw;

    XftColor color;

    XGlyphInfo extents;

    XRectangle clipRX;

    char* string;

    int len;

    int bytesPerCharacter;

    bytesPerCharacter = __intVal(bitsPerCharacter) / 8;

    if ( __INST(drawId) == nil ) {

        __INST(drawId) = XFT_DRAW_HANDLE_NEW ( XftDrawCreate ( DISPLAY( displayId ) ,

                                               DRAWABLE( drawableId ) ,

                                               DefaultVisual( DISPLAY( displayId), SCREEN (screen) ) ,

                                               DefaultColormap( DISPLAY( displayId), SCREEN (screen) ) ) );

        __STORE(self, __INST(drawId));

    }

    if ( XftDrawDrawable ( XFT_DRAW ( __INST(drawId) ) ) != DRAWABLE( drawableId ) ) {

        XftDrawChange( XFT_DRAW( __INST(drawId) ) , DRAWABLE( drawableId ) );

    }

    string = __stringVal( aString ) + (( __intVal(index1) - 1 ) * bytesPerCharacter);

    len = __intVal(index2) - __intVal(index1) + 1;

    if (clipR != nil) {

        clipRX.x = __intVal(clipX);

        clipRX.y = __intVal(clipY);

        clipRX.width = __intVal(clipW);

        clipRX.height = __intVal(clipH);

        XftDrawSetClipRectangles( XFT_DRAW( __INST( drawId ) ) , 0, 0, &clipRX, 1);

    } else {

        XftDrawSetClipRectangles( XFT_DRAW( __INST( drawId ) ) , 0, 0, (XRectangle*)NULL, 0);

    }

    if ( opaque == true ) {

        color.pixel = (unsigned long)__intVal(bgPixel);

        color.color.red = __intVal(bgR);

        color.color.green = __intVal(bgG);

        color.color.blue = __intVal(bgB);

        color.color.alpha = __intVal(bgA);

        switch (bytesPerCharacter) {

        case 1:

            XftTextExtents8( DISPLAY( displayId ), XFT_FONT( __INST( fontId ) ), (FcChar8*)string, len, &extents);

            break;

        case 2:

            XftTextExtents16( DISPLAY( displayId ), XFT_FONT( __INST( fontId ) ), (FcChar16*)string, len, &extents);

            break;

        case 4:

            XftTextExtents32( DISPLAY( displayId ), XFT_FONT( __INST( fontId ) ), (FcChar32*)string, len, &extents);

            break;

        }

    }

    color.pixel = (unsigned long)__intVal(fgPixel);

    color.color.red = __intVal(fgR);

    color.color.green = __intVal(fgG);

    color.color.blue = __intVal(fgB);

    color.color.alpha = __intVal(fgA);

    switch (bytesPerCharacter) {

    case 1:

        XftDrawString8( XFT_DRAW ( __INST( drawId ) ), &color, XFT_FONT( __INST( fontId ) ),

                        (FcChar8*)string,

                        len);

        RETURN ( self );

        break;

    case 2:

        XftDrawString16( XFT_DRAW ( __INST( drawId ) ), &color, XFT_FONT( __INST( fontId ) ),

                        (FcChar16*)string,

                        len);

        RETURN ( self );

        break;

    case 4:

        XftDrawString32( XFT_DRAW ( __INST( drawId ) ), &color, XFT_FONT( __INST( fontId ) ),

                        (FcChar32*)string,

                        len);

        RETURN ( self );

        break;

    }

    err:;

#endif

%}.

    self primitiveFailed: error.

    "Created: / 21-12-2013 / 21:11:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 04-01-2014 / 01:37:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription methodsFor:'error reporting'!

primitiveFailedIfNoXft

    <resource: #skipInDebuggersWalkBack>

%{

#ifdef XFT

    RETURN ( self );

#endif

%}.

    self primitiveFailed: 'Xft support not available'

    "Created: / 20-12-2013 / 21:13:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription methodsFor:'getting a device font'!

onDevice:aGraphicsDevice

    "Create a new XftFont representing the closes font as

     myself on aDevice; if one already exists, return the one."

    | myPatternId closestPatternId1 closestPatternId2 newFontId |