"{ 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'!

displayString:aString from:index1 to:index2 x:xArg y:yArg in:aGC opaque:opaque

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

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

    bytesPerCharacter := aString bitsPerCharacter // 8.

    transformation := aGC transformation.

    transformation isNil ifTrue:[

        drawX := xArg.

        drawY := yArg.

    ] ifFalse:[

        drawX := transformation applyToX: xArg.

        drawY := transformation applyToY: yArg.

    ].

    clipR notNil ifTrue:[

        clipX := clipR left.

        clipY := clipR top.

        clipW := clipR width.

        clipH := clipR height.

        transformation notNil ifTrue:[

            clipX := transformation applyToX: clipX.

            clipY := transformation applyToY: clipY.

            clipW := transformation applyScaleX: clipW.

            clipH := transformation applyScaleY: clipH.

        ].

    ].

    fg  :=  aGC paint.

    fgR := fg scaledRed.

    fgG := fg scaledGreen.

    fgB := fg scaledBlue.

    fgA := (fg alpha * 65535) asInteger.

    fgPixel := fg colorId.

    opaque ifTrue:[

        bg  := aGC backgroundPaint.

        bgR := bg scaledRed.

        bgG := bg scaledGreen.

        bgB := bg scaledBlue.

        bgA := (bg alpha * 65535) asInteger.

        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;

    if (!(__bothSmallInteger(drawX, drawY)

          && __bothSmallInteger(index1, index2)

          && __bothSmallInteger(bytesPerCharacter, fgR)

          && __isNonNilObject(aString)

    )) {

//        printf("drawX/Y: %d %d\n", __intVal(drawX), __intVal(drawY));

        goto err;

    }

    __bytesPerCharacter = __intVal(bytesPerCharacter);

    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 {

    }

    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;

        }

        XftDrawRect( XFT_DRAW ( __INST( drawId ) ), &color, __intVal(drawX) - extents.x, __intVal(drawY) - XFT_FONT( __INST( fontId ) )->ascent, extents.width, XFT_FONT(__INST (fontId ) )->height);

    }

    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 ) ),

                        __intVal(drawX),

                        __intVal(drawY),

                        (FcChar8*)string,

                        len);

        RETURN ( self );

        break;

    case 2:

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

                        __intVal(drawX),

                        __intVal(drawY),

                        (FcChar16*)string,

                        len);

        RETURN ( self );

        break;

    case 4:

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

                        __intVal(drawX),

                        __intVal(drawY),

                        (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: / 10-01-2014 / 11:13:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"