This repository is a mirror!

Legend:

[+] - Fully implemented (more or less).
[?] - Partially implemented/work in progress.
[ ] - Not even started.

Needed GUI controls in order to start work on Fresh IDE 3.0:

  [+]   TForm
  [+]   TSplitGrid
  [+]   TAction (and Action lists)
  [+]   TButton
  [+]   TCheckbox
  [?]   TTreeView
  [ ]   TabControl
  [?]   TSourceEditor
  [ ]   TToolbar
  [?]   TMenu
  [ ]   TMenuBar
  [ ]   TStatusbar
  [+]   TProgressbar
  [ ]   TListView, TListbox or other kind of table/grid control with columns.
  [?]   TEdit - line editor
  [ ]   THint

  [+]   General message dialog.
  [ ]   Open/Save dialogs.
  [ ]   Color selection dialog. (not so important).
  [ ]   Font select dialog.

include 'i18n.asm'
include 'arrays.asm'
include 'strlib.asm'
include 'base64.asm'
include 'uconfig.asm'
include 'memstream.asm'
include 'markdown.asm'
include 'hashes.asm'

include 'bitstream.asm'
include 'bytestream.asm'

; Frees all elements of the list calling
; [FreeProc] on every element.
; (proc FreeProc, ptrItem)
; Frees the array of items
;--------------------------------------------
proc ListFree, .ptrList, .FreeProc
begin
        push    edi ebx
        pushad

        mov     edi, [.ptrList]
        mov     ebx, [edi+TArray.count]

        cmp     [.FreeProc], 0
        je      .endwhile

.freeloop:
        dec     ebx
        js      .endwhile

        stdcall [.FreeProc], [edi+4*ebx+TArray.array]
        jmp     .freeloop

.endwhile:
        stdcall FreeMem, edi

.finish:
        pop     ebx edi
        popad
        return
endp


endmodule

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: OS independent string manipulation library.
;
;  Target OS: Any
;
;  Dependencies:
;
;  Notes: Author of this library is Decard (Mateusz Tymek)
;
;_________________________________________________________________________________________

module "Base64 library"

if used base64_table
  base64_table db "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
               db "abcdefghijklmnopqrstuvwxyz"
               db "0123456789+/"
end if


; calculates size of base64 stream after encoding

proc Base64Size, .DataLen
begin
        push    ebx ecx edx

        mov     eax, [.DataLen]
        mov     ebx, eax
        add     eax, 2

        xor     edx, edx

        mov     ecx, 3
        div     ecx

        add     ebx, 3

        sub     ebx, edx

        mov     eax, ebx

        xor     edx, edx
        div     ecx
        shl     eax, 2

        pop     edx ecx ebx
        return
endp


; encodes given buffer into base64 stream

proc EncodeBase64, .pData, .Length
begin
        push    ecx edx esi edi

        mov     esi, [.pData]
        mov     ecx, [.Length]

        stdcall StrNew
        mov     edi, eax

        stdcall Base64Size, ecx
        stdcall StrSetCapacity, edi, eax

        push    edi

        stdcall StrPtr, edi
        mov     edi, eax

        push    edi

.loop:
        mov     edx, [esi]
        cmp     ecx, 3
        jae     .remainder_ok
        and     edx, 0xffff
        cmp     ecx, 2
        jae     .remainder_ok
        and     edx, 0xff

.remainder_ok:
        bswap   edx

        mov     eax, edx
        shr     eax, 26
        and     eax, 111111b
        mov     al, [base64_table+eax]
        mov     [edi], al
        inc     edi

        mov     eax, edx
        shr     eax, 20
        and     eax, 111111b
        mov     al, [base64_table+eax]
        mov     [edi], al
        inc     edi
        dec     ecx
        jz      .r2

        mov     eax, edx
        shr     eax, 14
        and     eax, 111111b
        mov     al, [base64_table+eax]
        mov     [edi], al
        inc     edi
        dec     ecx
        jz      .r1

        mov     eax, edx
        shr     eax, 8
        and     eax, 111111b
        mov     al, [base64_table+eax]
        mov     [edi], al
        inc     edi

        add     esi, 3
        dec     ecx
        jnz     .loop
        jmp     .finish

.r2:
        mov     byte [edi], '-'
        inc     edi

.r1:
        mov     byte [edi], '-'
        inc     edi

.finish:
        mov     byte [edi], 0

        mov     ecx, edi
        pop     edi

        sub     ecx, edi    ; string length.
        mov     [edi+string.len], ecx

        pop     eax             ; string handle

        pop     edi esi edx ecx
        return
endp





; decodes base64 stream into given buffer

proc DecodeBase64, .hString
.decode_table rb 0x100
.ret          dd ?
begin
        push    ebx ecx edx esi edi

        xor     eax, eax
        mov     ebx, 63

.make_table:
        mov     al, [base64_table+ebx]
        mov     [.decode_table+eax], bl
        dec     ebx
        jns     .make_table

        mov     [.decode_table+'-'], 0

        stdcall StrPtr, [.hString]
        mov     esi, eax

        stdcall StrLen, [.hString]
        mov     ecx, eax

        lea     eax, [ecx+4]
        stdcall GetMem, eax
        lea     edi, [eax+4]
        mov     [.ret], edi

        xor     ebx, ebx
        xor     eax, eax

.load_dword:
        mov     edx, [esi]
        bswap   edx
        add     esi, 4
        mov     al, dl
        mov     al, [.decode_table+eax]
        shrd    ebx, eax, 6
        shr     edx, 8
        mov     al, dl
        mov     al, [.decode_table+eax]
        shrd    ebx, eax, 6
        shr     edx, 8
        mov     al, dl
        mov     al, [.decode_table+eax]
        shrd    ebx, eax, 6
        shr     edx, 8
        mov     al, dl
        mov     al, [.decode_table+eax]
        shrd    ebx, eax, 6
        bswap   ebx

        mov     [edi], ebx
        add     edi, 3
        sub     ecx, 4
        js      .exit_loop      ; this jump should be never taken
        jnz     .load_dword     ; (src_size should be a multiple of four)

.exit_loop:
        sub     edi, 2
        cmp     byte [edi], 0
        je      .size_ok

        inc     edi
        cmp     byte [edi], 0
        je      .size_ok

        inc     edi

.size_ok:
        mov     eax, [.ret]
        sub     edi, eax
        mov     [eax-4], edi

        pop     edi esi edx ecx ebx
        return
endp



endmodule

@@:

; read 2 bit header BTYPE
        mov     edx, eax
        shr     eax, 2
        and     edx, 3

        sub     ch, 2

        dec     edx
        js      .uncompressed     ; BTYPE == 0 uncompressed type

        mov     [.b_type], edx    ; 0 if fixed tree; <>0 if dynamic tree
        jnz     .dynamic_tree


; BTYPE == 1 compressed with fixed huffman tree.

; load the fixed huffman tree for literal/lengths.
        pushad

        lea     edi, [.lengths]
        lea     esi, [.TreeFixed]
        mov     ebx, edi

        xor     eax, eax
        xor     ecx, ecx
        mov     dl, 4
        mov     dl, 4      ; edx == 0 here.

.loop_fx:
        lodsw
        mov     cl, ah
        rep stosb
        dec     edx
        jnz     .loop_fx

        sub     edi, ebx
        lea     eax, [.len_tree]

        stdcall __tree_by_lengths2, ebx, edi, eax
        stdcall __tree_by_lengths, ebx, edi, eax

        popad

        jmp     .decode


.dynamic_tree:
        dec     edx
        jnz     .error3           ; BTYPE == 3 invalid block type

        rol     eax, cl

@@:
        dec     edx
        jnz     .loop_hc

        lea     ebx, [.ll_tree]
        stdcall __tree_by_lengths2, edi, 19, ebx
        stdcall __tree_by_lengths, edi, 19, ebx
        jnz     .error6

; now create the two remaining huffman trees: for literal/lengths and for distances.

; First the literal/lengths huffman tree

        mov     edx, [.LLCount]

        xor     edx, [.len_tree+4*edx]
        jns     .bitloop1

        not     edx

        cmp     edx, 255
        ja      .copy_from_older        ; if EDX <= 255 then it is simple encoded byte, so store it.


;        OutputValue "Literal: ", edx, 16, 2


; Store literal value.
        mov     [edi], dl
        inc     edi
        jmp     .decode



.copy_from_older:
;        OutputValue "Length code:", edx, 10, 3

        sub     edx, 257
        js      .next_block             ; if EDX == 256 then end of block flag.

; The code is a length code. Compute the length of string to be copied from the previous decoded data.

; Compute the additional length and the extra bit count.
; 2^n(4 + edx mod 4)

        or      edx, -1
        shl     edx, cl
        not     edx

        and     edx, eax
        shr     eax, cl

;        OutputValue "Additional value:", edx, 10, 2

        sub     ch, cl
        jg      .length_ok

        add     esi, 2

        mov     cl, ch
        mov     eax, [esi]
        add     ch, $10
        rol     eax, cl

.length_ok:
        lea     ebx, [ebx+edx+3]


;        OutputValue "Copy length:", ebx, 10, 3

; ... so now decode the distance code

        cmp     [.b_type], 0
        jne     .decode_dist  ; when there is fixed huffman table, then the distances are encoded with 5 bit fixed code

; read fixed 5 bit distance.

        mov     edx, eax
        shr     eax, 5
        mov     cl, 5
        xor     edx, edx

.bitloop4:
        shr     eax, 1
        rcl     edx, 1

        and     edx, $1f
        dec     cl
        jnz     .bitloop4

;        OutputValue "Distance code:", edx, 10, 2

        sub     ch, 5
        jg      .compute_distance

        add     esi, 2

        mov     cl, ch

        not     [.final]          ; Tricky makes CF=1 on exit.

.next_block:
        mov     [.pCurrent], edi
        cmp     [.final], 0
        je      .main_loop

; free the memory and exit!
; exit!
;        stdcall FreeMem;  , [.p_len_tree] ; argument is already in the stack!

        shl     [.final], 1      ; If normal end [.final] is always 1; If error, [.final] is $ffffffff or $fffffffe

        popad
        return

        jnz     .rep_loop

; next length
        cmp     edi, [.p_lengths_end]
        jb      .loop_len
        ja      .errordl

        stdcall __tree_by_lengths2   ; the arguments are already in the stack.
        stdcall __tree_by_lengths   ; the arguments are already in the stack.
        retn

; The assembly way of error handling. ;)
.errordl:
        add     esp, 3*4 + 4 ; pushed arguments and the return address.
        jmp     .error

;         and contains NOT-ed symbol value instead of index in the array.
;
;   ZF=0  Error. The provided length list describes not valid Huffman tree.
;         In this case no values are filled in the tree.
;
; The comments in the code are according to the RFC-1951
;
proc __tree_by_lengths2, .pLengths, .count, .pTree
proc __tree_by_lengths, .pLengths, .count, .pTree

.bl_count  rd DEFLATE_MAX_BITS + 1
.next_code rd DEFLATE_MAX_BITS + 1      ; keep immediately after .bl_count

begin
        pushad

endp



;_______________________________________________________________________
; proc StrClipQuotes
;   First removes the spaced from the beginning and from the end of the
;   string. Then chech whether the string is quoted string - i.e. starts
;   string. Then check whether the string is quoted string - i.e. starts
;   and ends with equal characters single or double quote. If so, removes
;   them as well.
;
; Arguments:
;   hString - string to be processed
; Returns:
;   CF=1 - invalid string handle.

; UTF-8 support functions.
; Some of the above functions also need some revision in order to support
; utf-8 strings properly.




;  Bug - on [.len]=-1 sometimes in Linux returns error on normal strings.
;!  Bug - on [.len]=-1 sometimes in Linux returns error on normal strings.

proc StrLenUtf8, .hString, .len
.maxptr dd ?
begin
        push    esi ecx edx

        stdcall StrPtr, [.hString]

ends

struct POINT
  .x  dd ?
  .y  dd ?
ends


struct TBounds
  .x      dd ?
  .y      dd ?
  .width  dd ?
  .height dd ?
ends

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: FreeType library constants and structures.
;
;  Target OS: Linux
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


FT_FACE_FLAG_SCALABLE           = $0001
FT_FACE_FLAG_FIXED_SIZES        = $0002
FT_FACE_FLAG_FIXED_WIDTH        = $0004
FT_FACE_FLAG_SFNT               = $0008
FT_FACE_FLAG_HORIZONTAL         = $0010
FT_FACE_FLAG_VERTICAL           = $0020
FT_FACE_FLAG_KERNING            = $0040
FT_FACE_FLAG_FAST_GLYPHS        = $0080
FT_FACE_FLAG_MULTIPLE_MASTERS   = $0100
FT_FACE_FLAG_GLYPH_NAMES        = $0200
FT_FACE_FLAG_EXTERNAL_STREAM    = $0400
FT_FACE_FLAG_HINTER             = $0800
FT_FACE_FLAG_CID_KEYED          = $1000
FT_FACE_FLAG_TRICKY             = $2000


FT_LOAD_DEFAULT                         =  $0
FT_LOAD_NO_SCALE                        =  $1
FT_LOAD_NO_HINTING                      =  $2
FT_LOAD_RENDER                          =  $4
FT_LOAD_NO_BITMAP                       =  $8
FT_LOAD_VERTICAL_LAYOUT                 =  $10
FT_LOAD_FORCE_AUTOHINT                  =  $20
FT_LOAD_CROP_BITMAP                     =  $40          ; deprecated, ignored
FT_LOAD_PEDANTIC                        =  $80
FT_LOAD_ADVANCE_ONLY                    =  $100
FT_LOAD_IGNORE_GLOBAL_ADVANCE_WIDTH     =  $200         ; deprecated, ignored
FT_LOAD_NO_RECURSE                      =  $400
FT_LOAD_IGNORE_TRANSFORM                =  $800
FT_LOAD_MONOCHROME                      =  $1000
FT_LOAD_LINEAR_DESIGN                   =  $2000
FT_LOAD_SBITS_ONLY                      =  $4000
FT_LOAD_NO_AUTOHINT                     =  $8000
FT_LOAD_COLOR                           =  $100000

FT_ADVANCE_FLAG_FAST_ONLY               =  $20000000


FT_RENDER_MODE_NORMAL = 0
FT_RENDER_MODE_LIGHT  = 1
FT_RENDER_MODE_MONO   = 2
FT_RENDER_MODE_LCD    = 3
FT_RENDER_MODE_LCD_V  = 4
FT_RENDER_MODE_MAX    = 5

struc FT_LOAD_TARGET x {
  . = (x and 15) shl 16
}

FT_LOAD_TARGET_NORMAL FT_LOAD_TARGET  FT_RENDER_MODE_NORMAL
FT_LOAD_TARGET_LIGHT  FT_LOAD_TARGET  FT_RENDER_MODE_LIGHT
FT_LOAD_TARGET_MONO   FT_LOAD_TARGET  FT_RENDER_MODE_MONO
FT_LOAD_TARGET_LCD    FT_LOAD_TARGET  FT_RENDER_MODE_LCD
FT_LOAD_TARGET_LCD_V  FT_LOAD_TARGET  FT_RENDER_MODE_LCD_V



FT_PIXEL_MODE_NONE  = 0
FT_PIXEL_MODE_MONO  = 1
FT_PIXEL_MODE_GRAY  = 2
FT_PIXEL_MODE_GRAY2 = 3
FT_PIXEL_MODE_GRAY4 = 4
FT_PIXEL_MODE_LCD   = 5
FT_PIXEL_MODE_LCD_V = 6
FT_PIXEL_MODE_BGRA  = 7


struct FT_Generic
  .data         dd ?
  .finalizer    dd ?    ; pointer to procedure with one argument.
ends

struct FT_BBox
  .xMin         dd ?
  .yMin         dd ?
  .xMax         dd ?
  .yMax         dd ?
ends

struct FT_Vector
  .x dd ?
  .y dd ?
ends

struct FT_Bitmap
  .rows         dd ?
  .width        dd ?
  .pitch        dd ?
  .buffer       dd ?    ; pointer to the buffer.
  .num_grays    dw ?
  .pixel_mode   db ?
  .palette_mode db ?
  .palette      dd ?    ; pointer to the palette.
ends




struct FT_Outline
  .n_contours  dw  ?
  .n_points    dw  ?
  .points      dd  ?    ; pointer to array of FT_Vector elements.
  .tags        dd  ?    ; pointer to byte array.
  .contours    dd  ?    ; pointer to word array.
  .flags       dd  ?
ends



struct  FT_Glyph_Metrics
  .width        dd ?
  .height       dd ?
  .horiBearingX dd ?
  .horiBearingY dd ?
  .horiAdvance  dd ?

  .vertBearingX dd ?
  .vertBearingY dd ?
  .vertAdvance  dd ?
ends



struct FT_GlyphSlot
  .library      dd ?
  .face         dd ?    ; parent FT_Face object
  .next         dd ?    ; pointer tp FT_GlyphSlot
  .reserved     dd ?
  .generic      FT_Generic

  .metrics      FT_Glyph_Metrics
  .linearHoriAdvance dd ?
  .linearVertAdvance dd ?

  .advance      FT_Vector

  .format       dd ?

  .bitmap       FT_Bitmap
  .bitmap_left  dd ?
  .bitmap_top   dd ?

  .outline      FT_Outline

  .num_subglyphs dd ?
  .subglyphs     dd ?   ; pointer to array of FT_SubGlyphRec elements.

  .control_data  dd ?
  .control_len   dd ?

  .lsb_delta     dd ?
  .rsb_delta     dd ?

  .other         dd ?
  .internal      dd ?   ; pointer to FT_Slot_InternalRec
ends


struct FT_FaceRec
  .num_faces    dd ?
  .face_index   dd ?
  .face_flags   dd ?
  .style_flags  dd ?
  .num_glyphs   dd ?
  .family_name  dd ?
  .style_name   dd ?

  .num_fixed_sizes dd ?
  .available_sizes dd ?

  .num_charmaps dd ?
  .charmaps     dd ?
  .generic      FT_Generic

; scalable fonts members down to .underline_thickness

  .bbpx                 FT_BBox

  .units_per_EM         dw ?
  .ascender             dw ?
  .descender            dw ?
  .height               dw ?

  .max_advance_width    dw ?
  .max_advance_height   dw ?

  .underline_position   dw ?
  .underline_thickness  dw ?


  .glyph        dd  ?   ; pointer to FT_GlyphSlot
  .size         dd  ?   ; pointer to FT_Size
  .charmap      dd  ?   ; pointer to FT_CharMap

; down is the private part.

ends


struct FT_GlyphRec
  .library      dd      ?
  .clazz        dd      ?
  .format       dd      ?
  .advance      FT_Vector
ends


struct FT_BitmapGlyphRec
  .root         FT_GlyphRec
  .left         dd ?
  .top          dd ?
  .bitmap       FT_Bitmap
ends


FT_SIZE_REQUEST_TYPE_NOMINAL    = 0
FT_SIZE_REQUEST_TYPE_REAL_DIM   = 1
FT_SIZE_REQUEST_TYPE_BBOX       = 2
FT_SIZE_REQUEST_TYPE_CELL       = 3
FT_SIZE_REQUEST_TYPE_SCALES     = 4


struct FT_Size_RequestRec
  .type            dd  ?
  .width           dd  ?
  .height          dd  ?
  .horiResolution  dd  ?
  .vertResolution  dd  ?
ends


struct FT_Size_Metrics
  .x_ppem       dw      ?       ; horizontal pixels per EM
  .y_ppem       dw      ?       ; vertical pixels per EM

  .x_scale      dd      ?       ; scaling values used to convert font
  .y_scale      dd      ?       ; units to 26.6 fractional pixels

  .ascender     dd      ?       ; ascender in 26.6 frac. pixels
  .descender    dd      ?       ; descender in 26.6 frac. pixels
  .height       dd      ?       ; text height in 26.6 frac. pixels
  .max_advance  dd      ?       ; max horizontal advance, in 26.6 pixels
ends


struct FT_SizeRec
  .face         dd  ?           ; parent face object
  .generic      FT_Generic      ; generic pointer for client uses
  .metrics      FT_Size_Metrics ; size metrics
  .internal:
ends


struct FTC_ScalerRec
  .face_id dd ?
  .width   dd ?
  .height  dd ?
  .pixel   dd ?
  .x_res   dd ?
  .y_res   dd ?
ends


struct FTC_ImageType
  .face_id  dd  ?
  .width    dd  ?
  .height   dd  ?
  .flags    dd  ?
ends




interface FT_Face_Requester, .face_id, .library, .request_data, .pFace

SO_KEEPALIVE            = 1 shl 4
SO_OOBINLINE            = 1 shl 5
SO_REUSEADDR            = 1 shl 6
SO_REUSEPORT            = 1 shl 7
SO_USELOOPBACK          = 1 shl 8
SO_BINDTODEVICE         = 1 shl 9
SO_BLOCK                = 1 shl 10

SO_RCVBUF = 0
SO_SNDBUF = 0
SO_RCVTIMEO = 0
SO_SNDTIMEO = 0
SO_LINGER = 0

; Socket level
SOL_SOCKET              = 0

; Socket States
SS_NOFDREF              = 0x001       ; no file table ref any more
SS_ISCONNECTED          = 0x002       ; socket connected to a peer

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license.           |
;|_______________________________________________________________________________________|
;
;  Description: KolibriOS system functions and related constants.
;
;  Target OS: KolibriOS
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


sys_drawwindow          =   0     ;  DrawWindow
syscall_setpixel        =   1     ;  SetPixel
sys_getkey              =   2     ;  GetKey
sys_clock               =   3     ;  GetTime
sys_writetext           =   4     ;  WriteText
sys_delay_hs            =   5     ;  DelayHs
sys_openramdiskfile     =   6     ;  OpenRamdiskFile

;  Notes:
;_________________________________________________________________________________________


include '_syscalls.inc'
include '_geometry.inc'
include '_network.inc'
include '_libFT.inc'

GCClipYOrigin   =       40000h
GCClipMask      =       80000h
GCDashOffset    =       100000h
GCDashList      =       200000h
GCArcMode       =       400000h

GCLastBit       =       22

struct XRectangle
  .x       dw  ?
  .y       dw  ?
  .width   dw  ?
  .height  dw  ?
ends


GCAll = (1 shl (GCLastBit+1)) -1

struct XGCValues
  .function    dd ?                     ;  logical operation
  .plane_mask  dd ?                     ;  plane mask
  .foreground  dd ?                     ;  foreground pixel

struct XEvent
  .xany XAnyEvent
  .pad  rb 24*4 - sizeof.XAnyEvent

  virtual at .xany
  . XAnyEvent
  end virtual


  virtual at .xany
  .xkey XKeyEvent
  end virtual

  virtual at .xany
  .xbutton XButtonEvent
  end virtual

  virtual at .xany
  .xmotion XMotionEvent
  end virtual

  virtual at .xany
  .xcrossing XCrossingEvent
  end virtual

  virtual at .xany
  .xfocus XFocusChangeEvent
  end virtual

  virtual at .xany
  .xexpose XExposeEvent
  end virtual

  virtual at .xany
  .xgraphicsexpose XGraphicsExposeEvent
  end virtual

  virtual at .xany
  .xnoexpose XNoExposeEvent
  end virtual

  virtual at .xany
  .xvisibility XVisibilityEvent
  end virtual

  virtual at .xany
  .xcreatewindow XCreateWindowEvent
  end virtual

  virtual at .xany
  .xdestroywindow XDestroyWindowEvent
  end virtual

  virtual at .xany
  .xunmap XUnmapEvent
  end virtual

  virtual at .xany
  .xmap XMapEvent
  end virtual

  virtual at .xany
  .xmaprequest XMapRequestEvent
  end virtual

  virtual at .xany
  .xreparent XReparentEvent
  end virtual

  virtual at .xany
  .xconfigure XConfigureEvent
  end virtual

  virtual at .xany
  .xgravity XGravityEvent
  end virtual

  virtual at .xany
  .xresizerequest XResizeEvent
  end virtual

  virtual at .xany
  .xconfigurerequest XConfigureRequestEvent
  end virtual

  virtual at .xany
  .xcirculate XCirculateEvent
  end virtual

  virtual at .xany
  .xcirculaterequest XCirculateRequestEvent
  end virtual

  virtual at .xany
  .xproperty XPropertyEvent
  end virtual

  virtual at .xany
  .xselectionclear XSelectionClearEvent
  end virtual

  virtual at .xany
  .xselectionrequest XSelectionRequestEvent
  end virtual

  virtual at .xany
  .xselection XSelectionEvent
  end virtual

  virtual at .xany
  .xcolormap XColormapEvent
  end virtual

  virtual at .xany
  .xclient XClientMessageEvent
  end virtual

  virtual at .xany
  .xmapping XMappingEvent
  end virtual

  virtual at .xany
  .xerror XErrorEvent
  end virtual

  virtual at .xany
  .xkeymap XKeymapEvent
  end virtual
;
;
;  virtual at .xany
;  .xkey XKeyEvent
;  end virtual
;
;  virtual at .xany
;  .xbutton XButtonEvent
;  end virtual
;
;  virtual at .xany
;  .xmotion XMotionEvent
;  end virtual
;
;  virtual at .xany
;  .xcrossing XCrossingEvent
;  end virtual
;
;  virtual at .xany
;  .xfocus XFocusChangeEvent
;  end virtual
;
;  virtual at .xany
;  .xexpose XExposeEvent
;  end virtual
;
;  virtual at .xany
;  .xgraphicsexpose XGraphicsExposeEvent
;  end virtual
;
;  virtual at .xany
;  .xnoexpose XNoExposeEvent
;  end virtual
;
;  virtual at .xany
;  .xvisibility XVisibilityEvent
;  end virtual
;
;  virtual at .xany
;  .xcreatewindow XCreateWindowEvent
;  end virtual
;
;  virtual at .xany
;  .xdestroywindow XDestroyWindowEvent
;  end virtual
;
;  virtual at .xany
;  .xunmap XUnmapEvent
;  end virtual
;
;  virtual at .xany
;  .xmap XMapEvent
;  end virtual
;
;  virtual at .xany
;  .xmaprequest XMapRequestEvent
;  end virtual
;
;  virtual at .xany
;  .xreparent XReparentEvent
;  end virtual
;
;  virtual at .xany
;  .xconfigure XConfigureEvent
;  end virtual
;
;  virtual at .xany
;  .xgravity XGravityEvent
;  end virtual
;
;  virtual at .xany
;  .xresizerequest XResizeEvent
;  end virtual
;
;  virtual at .xany
;  .xconfigurerequest XConfigureRequestEvent
;  end virtual
;
;  virtual at .xany
;  .xcirculate XCirculateEvent
;  end virtual
;
;  virtual at .xany
;  .xcirculaterequest XCirculateRequestEvent
;  end virtual
;
;  virtual at .xany
;  .xproperty XPropertyEvent
;  end virtual
;
;  virtual at .xany
;  .xselectionclear XSelectionClearEvent
;  end virtual
;
;  virtual at .xany
;  .xselectionrequest XSelectionRequestEvent
;  end virtual
;
;  virtual at .xany
;  .xselection XSelectionEvent
;  end virtual
;
;  virtual at .xany
;  .xcolormap XColormapEvent
;  end virtual
;
;  virtual at .xany
;  .xclient XClientMessageEvent
;  end virtual
;
;  virtual at .xany
;  .xmapping XMappingEvent
;  end virtual
;
;  virtual at .xany
;  .xerror XErrorEvent
;  end virtual
;
;  virtual at .xany
;  .xkeymap XKeymapEvent
;  end virtual
ends


;       Misc.           Structures

struct   XKeyboardControl
        .key_click_percent              rd    1

;  Target OS: Linux
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


struct TBounds
  .x      dd ?
  .y      dd ?
  .width  dd ?
  .height dd ?
ends



struct RECT
  .left   dd ?
  .top    dd ?
  .right  dd ?
  .bottom dd ?
ends

struct POINT
  .x  dd ?
  .y  dd ?
ends

struct XRectangle

  .x       dw  ?
  .y       dw  ?
  .width   dw  ?
  .height  dw  ?
ends

FT_LOAD_NO_RECURSE                      =  $400
FT_LOAD_IGNORE_TRANSFORM                =  $800
FT_LOAD_MONOCHROME                      =  $1000
FT_LOAD_LINEAR_DESIGN                   =  $2000
FT_LOAD_SBITS_ONLY                      =  $4000
FT_LOAD_NO_AUTOHINT                     =  $8000
FT_LOAD_COLOR                           =  $100000

FT_ADVANCE_FLAG_FAST_ONLY               =  $20000000


FT_RENDER_MODE_NORMAL = 0
FT_RENDER_MODE_LIGHT  = 1
FT_RENDER_MODE_MONO   = 2
FT_RENDER_MODE_LCD    = 3
FT_RENDER_MODE_LCD_V  = 4
FT_RENDER_MODE_MAX    = 5

struc FT_LOAD_TARGET x {
  . = (x and 15) shl 16
}

FT_LOAD_TARGET_NORMAL FT_LOAD_TARGET  FT_RENDER_MODE_NORMAL
FT_LOAD_TARGET_LIGHT  FT_LOAD_TARGET  FT_RENDER_MODE_LIGHT
FT_LOAD_TARGET_MONO   FT_LOAD_TARGET  FT_RENDER_MODE_MONO
FT_LOAD_TARGET_LCD    FT_LOAD_TARGET  FT_RENDER_MODE_LCD
FT_LOAD_TARGET_LCD_V  FT_LOAD_TARGET  FT_RENDER_MODE_LCD_V



FT_PIXEL_MODE_NONE  = 0
FT_PIXEL_MODE_MONO  = 1
FT_PIXEL_MODE_GRAY  = 2
FT_PIXEL_MODE_GRAY2 = 3
FT_PIXEL_MODE_GRAY4 = 4

  .size         dd  ?   ; pointer to FT_Size
  .charmap      dd  ?   ; pointer to FT_CharMap

; down is the private part.

ends


struct FTC_ImageType
  .face_id  dd  ?
  .width    dd  ?
  .height   dd  ?
  .flags    dd  ?
ends


struct FT_GlyphRec
  .library      dd      ?
  .clazz        dd      ?
  .format       dd      ?
  .advance      FT_Vector
ends

  .width   dd ?
  .height  dd ?
  .pixel   dd ?
  .x_res   dd ?
  .y_res   dd ?
ends


struct FTC_ImageType
  .face_id  dd  ?
  .width    dd  ?
  .height   dd  ?
  .flags    dd  ?
ends




interface FT_Face_Requester, .face_id, .library, .request_data, .pFace

; Signal values
; default action is: "Term" - terminate; "Core" - terminate with core dump; "Ign" - ignore; "Stop" - stop the process; "Cont" - continue the process.

macro signal name, value {
  name = value
  .mask = 1 shl value
  name#.mask = 1 shl value
}

signal SIGHUP   ,  1    ; Term    Hangup detected on controlling terminal or death of controlling process
signal SIGINT   ,  2    ; Term    Interrupt from keyboard
signal SIGQUIT  ,  3    ; Core    Quit from keyboard
signal SIGILL   ,  4    ; Core    Illegal Instruction
signal SIGTRAP  ,  5    ; Core    Trace/breakpoint trap

  .biCompression   dd ?
  .biSizeImage     dd ?
  .biXPelsPerMeter dd ?
  .biYPelsPerMeter dd ?
  .biClrUsed       dd ?
  .biClrImportant  dd ?
ends


struct CIEXYZ
  .ciexyzX      dd ?
  .ciexyzY      dd ?
  .ciexyzZ      dd ?
ends


struct CIEXYZTRIPLE
  .ciexyzRed   CIEXYZ
  .ciexyzGreen CIEXYZ
  .ciexyzBlue  CIEXYZ
ends


struct BITMAPV4HEADER
  .biSize          dd ?
  .biWidth         dd ?
  .biHeight        dd ?
  .biPlanes        dw ?
  .biBitCount      dw ?
  .biCompression   dd ?
  .biSizeImage     dd ?
  .biXPelsPerMeter dd ?
  .biYPelsPerMeter dd ?
  .biClrUsed       dd ?
  .biClrImportant  dd ?

  .RedMask         dd ?
  .GreenMask       dd ?
  .BlueMask        dd ?
  .AlphaMask       dd ?
  .CSType          dd ?
  .Endpoints       CIEXYZTRIPLE
  .GamaRed         dd ?
  .GammaGreen      dd ?
  .GammaBlue       dd ?
ends




struct BITMAPFILEHEADER
  .bfType      dw ?
  .bfSize      dd ?
  .bfReserved1 dw ?
  .bfReserved2 dw ?
  .bfOffBits   dd ?
ends


struct TEXTMETRIC
  .tmHeight           dd ?
  .tmAscent           dd ?
  .tmDescent          dd ?
  .tmInternalLeading  dd ?
  .tmExternalLeading  dd ?

  .tmItalic           db ?
  .tmUnderlined       db ?
  .tmStruckOut        db ?
  .tmPitchAndFamily   db ?
  .tmCharSet          db ?
  .__align            rb 7
ends



struct LOGBRUSH
  .lbStyle dd ?
  .lbColor dd ?
  .lbHatch dd ?
ends



struct LOGPEN
  .lopnStyle dd ?
  .lopnWidth POINT
  .lopnColor dd ?
ends

WS_TILEDWINDOW      = WS_OVERLAPPEDWINDOW
WS_TILED            = WS_OVERLAPPED
WS_ICONIC           = WS_MINIMIZE
WS_SIZEBOX          = WS_THICKFRAME

; Extended Window Styles

WS_EX_DLGMODALFRAME    = 00001h
WS_EX_DRAGOBJECT       = 00002h
WS_EX_NOPARENTNOTIFY   = 00004h
WS_EX_TOPMOST          = 00008h
WS_EX_ACCEPTFILES      = 00010h
WS_EX_TRANSPARENT      = 00020h
WS_EX_MDICHILD         = 00040h
WS_EX_TOOLWINDOW       = 00080h
WS_EX_WINDOWEDGE       = 00100h
WS_EX_CLIENTEDGE       = 00200h
WS_EX_CONTEXTHELP      = 00400h
WS_EX_RIGHT            = 01000h
WS_EX_LEFT             = 00000h
WS_EX_RTLREADING       = 02000h
WS_EX_LTRREADING       = 00000h
WS_EX_LEFTSCROLLBAR    = 04000h
WS_EX_RIGHTSCROLLBAR   = 00000h
WS_EX_CONTROLPARENT    = 10000h
WS_EX_STATICEDGE       = 20000h
WS_EX_APPWINDOW        = 40000h
WS_EX_LAYERED          = 80000h
WS_EX_DLGMODALFRAME    = 00000001h
WS_EX_DRAGOBJECT       = 00000002h
WS_EX_NOPARENTNOTIFY   = 00000004h
WS_EX_TOPMOST          = 00000008h
WS_EX_ACCEPTFILES      = 00000010h
WS_EX_TRANSPARENT      = 00000020h
WS_EX_MDICHILD         = 00000040h
WS_EX_TOOLWINDOW       = 00000080h
WS_EX_WINDOWEDGE       = 00000100h
WS_EX_CLIENTEDGE       = 00000200h
WS_EX_CONTEXTHELP      = 00000400h
WS_EX_RIGHT            = 00001000h
WS_EX_LEFT             = 00000000h
WS_EX_RTLREADING       = 00002000h
WS_EX_LTRREADING       = 00000000h
WS_EX_LEFTSCROLLBAR    = 00004000h
WS_EX_RIGHTSCROLLBAR   = 00000000h
WS_EX_CONTROLPARENT    = 00010000h
WS_EX_STATICEDGE       = 00020000h
WS_EX_APPWINDOW        = 00040000h
WS_EX_LAYERED          = 00080000h
WS_EX_NOACTIVATE       = 08000000h
WS_EX_OVERLAPPEDWINDOW = WS_EX_WINDOWEDGE or WS_EX_CLIENTEDGE
WS_EX_PALETTEWINDOW    = WS_EX_WINDOWEDGE or WS_EX_TOOLWINDOW or WS_EX_TOPMOST

; MDI client style bits

MDIS_ALLCHILDSTYLES = 1

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Different geometry structures.
;
;  Target OS: Windows
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


struct TBounds
  .x      dd ?
  .y      dd ?
  .width  dd ?
  .height dd ?
ends

;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________

CRLF equ 13, 10

include '_geometry.inc'
include '_kernel32.inc'
include '_user32.inc'
include '_gdi32.inc'
include '_comctl32.inc'
include '_comdlg32.inc'
include '_shell32.inc'
include '_wsock32.inc'

;  Target OS: Any
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________

; Very generic constants!

TRUE = 1
FALSE = 0

NULL = 0

regEDI = 0
regESI = 1
regEBP = 2
regESP = 3
regEBX = 4
regEDX = 5
regECX = 6
regEAX = 7



include '%TargetOS%/allequates.inc'

include '_sqlite3.inc'
include '_zlib1.inc'
include '_sdl.inc'

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Provides raster bitmap, to be used for double buffer painting.
;
;  Target OS: Dummy
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________



proc CreateBackBuffer, .hwin, .width, .height
begin
        stc
        return
endp



proc DestroyBackBuffer, .pBackBuffer
begin
        stc
        return
endp



proc DrawBackBuffer, .context, .pBackBuffer, .x, .y
begin
        stc
        return
endp

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Context is a object that represents drawing surface in FreshLib
;
;  Target OS: Dummy
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


cmClear       =    0
cmAnd         =    0
cmAndReverse  =    0
cmCopy        =    0
cmAndInverted =    0
cmNoOp        =    0
cmXor         =    0
cmOr          =    0
cmNor         =    0
cmEquiv       =    0
cmInvert      =    0
cmXorReverse  =    0
cmCopyInverted =   0
cmOrInverted   =   0
cmNand         =   0
cmSet          =   0


proc AllocateContext, .raster
begin
        stc
        return
endp




proc ReleaseContext, .context
begin
        return
endp



proc  SetDrawMode, .context, .mode
begin
        return
endp




proc SetLineStyle, .context, .pLineStyle
begin
        return
endp






proc SetClipRectangle, .context, .pBounds
begin
        return
endp

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Provides raster bitmap, to be used for double buffer painting.
;
;  Target OS: KolibriOS
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________



proc CreateBackBuffer, .hwin, .width, .height
begin
        stc
        return
endp



proc DestroyBackBuffer, .pBackBuffer
begin
        stc
        return
endp



proc DrawBackBuffer, .context, .pBackBuffer, .x, .y
begin
        stc
        return
endp

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Context is a object that represents drawing surface in FreshLib
;
;  Target OS: KolibriOS
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


cmCopy        =    0
cmInverted    =    1
cmXor         =    2
cmAnd         =    1 ; ????

struct TKolibriContext
  .CurrentColor   dd ?
  .CurentDrawMode dd ?
ends


proc AllocateContext, .raster
begin
        push    ebx

        stdcall GetMem, sizeof.TContext
        jc      .error
        mov     ebx, eax

        mov     eax, [.raster]
        mov     [ebx+TContext.raster], eax

        stdcall GetMem, sizeof.TKolibriContext
        mov     [ebx+TContext.handle], eax
        mov     [eax+TKolibriContext.CurrentColor], 0
        mov     [eax+TKolibriContext.CurentDrawMode], cmCopy

        mov     eax, ebx
.exit:
        pop     ebx
        clc
        return

.error:
        DebugMsg 'Error allocating context.'
        xor     eax, eax
        pop     ebx
        stc
        return
endp




proc ReleaseContext, .context
begin
        push    eax
        mov     eax, [.context]
        mov     eax, [eax+TContext.handle]
        stdcall FreeMem, eax
        stdcall FreeMem, [.context]
        pop     eax
        clc
        return
endp



proc  SetDrawMode, .context, .mode
begin
        push    eax

        mov     eax, [.context]
        mov     eax, [eax+TContext.handle]

        push    [.mode]
        pop     [eax+TKolibriContext.CurentDrawMode]

        pop     eax
        return
endp




proc SetLineStyle, .context, .pLineStyle
begin
        return
endp



proc SetClipRectangle, .context, .pBounds
begin
        return
endp

;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________



; needed for FreeType support.

proc FTCRequester as FT_Face_Requester
begin



        return
endp





proc FontCreate, .fontface, .size, .weight, .flags
body FontCreate
begin
        stc

        return
endp




body FontDestroy
begin

        return
endp


proc FontDestroy, .font



body GetFontMetrics
begin

        return
endp

;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


struct TImage
  .width   dd ?  ; width in pixels.
  .height  dd ?  ; height in pixels.
  .pPixels dd ?  ; pointer to the pixel memory.
ends
; only 16, 24 and 32 bpp are supported.
; It is stupid to support palleted modes and even 24bpp is not good...



body CreateImage
begin
        stc
        return
endp


body DestroyImage
begin
        return
endp



body DrawImage
body DrawImageRect
begin
        return
endp

;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


iglobal
  var flagFreeTypeLoadFlags = FT_LOAD_RENDER or FT_LOAD_TARGET_LCD or FT_LOAD_NO_AUTOHINT or FT_LOAD_COLOR
endg


uglobal
  var FTC_CMapCache_Lookup = 0
  var FTC_ImageCache_LookupScaler = 0

endg



body DrawDecomposedString      ;, .pImage, .pArray, .x, .y, .font, .color
.scaler  FTC_ScalerRec
.glyph   dd ?

.startX  dd ?
begin
        pushad

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1

        mov     eax, [.x]
        mov     [.startX], eax

        mov     esi, [.pArray]
        xor     edi, edi
        dec     edi

.char_loop:
        inc     edi
        cmp     edi, [esi+TArray.count]
        jae     .finish

        cmp     word [esi+TArray.array+8*edi+TTextChar.width], 0
        je      .char_ok

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, [esi+TArray.array+8*edi+TTextChar.code]

        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags], eax, edx, 0

        test    eax, eax
        jnz     .char_ok

        mov     ebx, [.glyph]
        mov     ecx, [.x]
        mov     edx, [.y]

        add     ecx, [ebx+FT_BitmapGlyphRec.left]
        sub     edx, [ebx+FT_BitmapGlyphRec.top]

        lea     eax, [ebx+FT_BitmapGlyphRec.bitmap]
        stdcall __DrawGlyph, [.pImage], eax, ecx, edx, [.color]

        movzx   eax, word [esi+TArray.array+8*edi+TTextChar.width]
        add     [.x], eax

.char_ok:
; check for new line.
        movzx   eax, word [esi+TArray.array+8*edi+TTextChar.height]
        test    eax, eax
        jz      .char_loop

        add     [.y], eax
        mov     eax, [.startX]
        mov     [.x], eax
        jmp     .char_loop


.finish:
        popad
        return
endp




; Draws the string on the image using the specified font and color.
; The string is drawn in one line. The control symbols are not
; processed. The tabs are not expanded or replaced with spaces.
;
; Arguments:
;    .pImage  - pointer to the image where to draw the text.
;    .pString - pointer to a UTF-8 string.
;    .len     - how many bytes from the string to be drawn. If -1, the whole string will be drawn.
;    .x       - X coordinate, where to start drawing.
;    .y       - Y coordinate of the baseline where to draw the string.
;    .font    - the font to be used.
;    .color   - ARGB color to draw the glyphs.
;
;;;;;;;; Returns:
;;;;;;;;    EAX - the width of the string in pixels.
;;;;;;;;    EBX - the ascender of the string. It is negative.
;;;;;;;;    EDX - the height of the string in pixels.


proc DrawString, .context, .ptrString, .len, .x, .y, .font, .color
body DrawString ;, .pImage, .pString, .len, .x, .y, .font, .color

.scaler  FTC_ScalerRec
.glyph   dd ?

.miny    dd ?
.maxy    dd ?
.startX  dd ?

begin
        pushad

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1

        ror     ecx, 1                  ; ecx = $80000000
        mov     [.maxy], ecx
        dec     ecx
        mov     [.miny], ecx            ; ecx = $7fffffff

        mov     eax, [.x]
        mov     [.startX], eax

        mov     esi, [.pString]

.char_loop:

        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx

        sub     [.len], edx
        jb      .finish

        test    eax, eax
        jz      .finish

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags], eax, edx, 0

        test    eax, eax
        jnz     .char_loop

        mov     ebx, [.glyph]

        mov     ecx, [.x]
        mov     edx, [.y]

        add     ecx, [ebx+FT_BitmapGlyphRec.left]
        sub     edx, [ebx+FT_BitmapGlyphRec.top]

        cmp     edx, [.miny]
        jge     @f
        mov     [.miny], edx
@@:
        mov     eax, edx
        add     eax, [ebx+FT_BitmapGlyphRec.bitmap.rows]
        cmp     eax, [.maxy]
        jle     @f
        mov     [.maxy], eax
@@:
        lea     eax, [ebx+FT_BitmapGlyphRec.bitmap]
        stdcall __DrawGlyph, [.pImage], eax, ecx, edx, [.color]

        mov     eax, [ebx+FT_BitmapGlyphRec.root.advance.x]
        sar     eax, 16        ; format 16.16 fixed decimal point.
        add     [.x], eax

        jmp     .char_loop


.finish:
;        mov     eax, [.x]
;        mov     edx, [.maxy]
;        mov     ebx, [.miny]
;        sub     eax, [.startX]
;        sub     edx, ebx
;        sub     ebx, [.y]

;        mov     [esp+4*regEAX], eax
;        mov     [esp+4*regEBX], ebx
;        mov     [esp+4*regEDX], edx

        popad
        return
endp



; returns:
;   EAX - array with decomposed string.
;   EDX - maximal bearing_Y of the string.
;   ECX - maximal descender of the string.

body TextDecompose      ;, .hString, .font

  .scaler  FTC_ScalerRec
  .glyph   dd ?

  .miny    dd ?
  .maxy    dd ?

begin
        pushad

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1

        ror     ecx, 1                  ; ecx = $80000000
        mov     [.maxy], ecx
        dec     ecx
        mov     [.miny], ecx            ; ecx = $7fffffff

        stdcall StrPtr, [.hString]
        mov     esi, eax

        stdcall CreateArray, sizeof.TTextChar
        mov     edi, eax

.char_loop:
        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx
        mov     ebx, eax

        test    eax, eax
        jz      .end

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags], eax, edx, 0

        xor     ecx, ecx

        test    eax, eax
        jnz     .glyph_size_ok  ; zero width glyph ????

        mov     ecx, [.glyph]

        mov     eax, [ecx+FT_BitmapGlyphRec.top]
        neg     eax

        cmp     eax, [.miny]
        jge     @f
        mov     [.miny], eax
@@:

        add     eax, [ecx+FT_BitmapGlyphRec.bitmap.rows]
        cmp     eax, [.maxy]
        jle     @f
        mov     [.maxy], eax
@@:
        mov     ecx, [ecx+FT_BitmapGlyphRec.root.advance.x]  ; format 16.16 fixed decimal point.
        sar     ecx, 16   ; format 16.16


.glyph_size_ok:

        stdcall AddArrayItems, edi, 1
        mov     edi, edx
        mov     dword [eax+TTextChar.width], ecx
        mov     [eax+TTextChar.code],  ebx
        jmp     .char_loop

.end:
        clc

.finish:
        mov     [esp+4*regEAX], edi

        mov     eax, [.miny]
        neg     eax
        mov     ecx, [.maxy]

        mov     [esp+4*regEDX], eax
        mov     [esp+4*regECX], ecx

        add     ecx, eax
        mov     [edi+TArray.lparam], ecx

        popad
        return
endp



; Returns an array with the widths from the begining of the text to the every character inside the string.
proc DrawStringOpaque, .context, .ptrString, .len, .x, .y, .font, .color, .background


proc GetTextWidthsArray, .hString, .font

  .scaler  FTC_ScalerRec
  .glyph   dd ?

  .x       dd ?

begin
        pushad

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1


        stdcall StrPtr, [.hString]
        mov     esi, eax

        stdcall CreateArray, 4
        mov     edi, eax

        xor     ebx, ebx

.char_loop:
        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx
        test    eax, eax
        jz      .end

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags], eax, edx, 0

        test    eax, eax
        jnz     .glyph_size_ok  ; zero width glyph ????


        mov     ecx, [.glyph]
        mov     ecx, [ecx+FT_BitmapGlyphRec.root.advance.x]  ; format 16.16 fixed decimal point.

        add     ebx, ecx


.glyph_size_ok:

        stdcall AddArrayItems, edi, 1
        mov     edi, edx

        mov     edx, ebx
        sar     edx, 16         ; format 16.16
        mov     [eax], edx
        jmp     .char_loop

.end:
        clc

.finish:
        mov     [esp+4*regEAX], edi
        popad
        return

.error:
        stc
        popad
        return
endp




proc DrawColoredString, .context, .ptrString, .pCharAttr, .str_len_bytes, .x, .y, .char_offs, .fontwidth, .fontheight







; Computes the width and height of the text.
;
; Arguments:
;    .pString - pointer to a UTF-8 string.
;    .len     - how many bytes from the string to be used. If -1 the whole string will be scanned.
;    .font    - the font to be used for the computations.
;
; Returns:
;    EAX - the width of the string in pixels.
;    EBX - the ascender of the string. It is negative.
;    EDX - the height of the string in pixels.


body GetTextBounds      ;, .pString, .len, .font

.scaler  FTC_ScalerRec
.glyph   dd ?

.x       dd ?

.miny    dd ?
.maxy    dd ?

.charlen dd ?

begin
        pushad
        return
endp

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     [.x], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1

        ror     ecx, 1                  ; ecx = $80000000
        mov     [.maxy], ecx
        dec     ecx
        mov     [.miny], ecx            ; ecx = $7fffffff

        mov     esi, [.pString]

.char_loop:
        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx
        mov     [.charlen], edx

        test    eax, eax
        jz      .finish

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags],  eax, edx, 0

        test    eax, eax
        jnz     .char_loop

        mov     ebx, [.glyph]

        sub     eax, [ebx+FT_BitmapGlyphRec.top]                ; eax = 0 here
        mov     edx, eax
        add     edx, [ebx+FT_BitmapGlyphRec.bitmap.rows]

        cmp     eax, [.miny]
        jge     @f
        mov     [.miny], eax
@@:
        cmp     edx, [.maxy]
        jle     @f
        mov     [.maxy], edx
@@:

        mov     eax, [ebx+FT_GlyphRec.advance.x]
        sar     eax, 16        ; format 16.16 fixed decimal point.
        add     [.x], eax

        mov     eax, [.charlen]
        sub     [.len], eax
        ja      .char_loop


.finish:
        mov     eax, [.x]
        mov     edx, [.maxy]
        mov     ebx, [.miny]
        sub     edx, ebx

        mov     [esp+4*regEAX], eax
        mov     [esp+4*regEBX], ebx
        mov     [esp+4*regEDX], edx

        popad
        return
endp







proc __DrawGlyph, .pImage, .pFTBitmap, .x, .y, .color
.spitch   dd ?
.dpitch   dd ?

.drect   RECT
.srect   RECT

.pixel_mode dd ?

.sstart dd ?
.dstart dd ?

.xsize  dd ?

.bpp    dd ?
.bit_ofs dd ?

begin
        pushad

        stdcall __fix_color, [.color], regEAX
        mov     [.color], eax

        mov     ebx, [.pImage]
        mov     edi, [.pFTBitmap]

; the glyph pixel mode handling.
        movzx   eax, [edi+FT_Bitmap.pixel_mode]
        cmp     eax, FT_PIXEL_MODE_BGRA
        ja      .finish

        mov     [.pixel_mode], eax
        movzx   eax, [.bpp_const+eax]
        mov     [.bpp], eax

; Clip the glyph to the image surface.

        mov     eax, [ebx+TImage.width]
        mov     ecx, [ebx+TImage.height]
        mov     [.drect.right], eax
        mov     [.drect.bottom], ecx
        xor     eax, eax
        mov     [.drect.left], eax
        mov     [.drect.top], eax

        mov     eax, [.x]
        mov     ecx, [.y]
        mov     [.srect.left], eax
        mov     [.srect.top], ecx

        mov     eax, [edi+FT_Bitmap.width]
        cmp     [.pixel_mode], FT_PIXEL_MODE_LCD
        jne     @f

        cdq
        mov     ecx, 3
        div     ecx

@@:
        add     eax, [.srect.left]
        mov     [.srect.right], eax

        mov     eax, [.srect.top]
        add     eax, [edi+FT_Bitmap.rows]
        mov     [.srect.bottom], eax
proc GetTextBounds, .context, .ptrString, .len, .font
begin
        return
endp

        lea     eax, [.srect]
        lea     ecx, [.drect]
        stdcall RectIntersect, ecx, eax, ecx
        jc      .finish                         ; the rectangles does not intersect!

        mov     eax, [.drect.left]
        mov     ecx, [.drect.top]
        sub     eax, [.x]
        sub     ecx, [.y]
        mov     [.srect.left], eax
        mov     [.srect.top], ecx

        mov     eax, [.drect.right]
        mov     ecx, [.drect.bottom]
        sub     eax, [.drect.left]
        sub     ecx, [.drect.top]
        mov     [.srect.right], eax     ; width!
        mov     [.srect.bottom], ecx    ; height!

; End of clipping code - [.srect] contains the rectangle of the glyph that have to be drawn (left, top, width, height).
; [.drect] contains the destination rectangle. Both have the same size.

        mov     ecx, [edi+FT_Bitmap.pitch]
        mov     [.spitch], ecx

; glyph pixel pointer

        mov     esi, [edi+FT_Bitmap.buffer]
        test    esi, esi
        jz      .finish

        mov     eax, [.srect.top]
        mov     ecx, [.srect.left]

        imul    eax, [.spitch]
        imul    ecx, [.bpp]
        mov     [.bit_ofs], ecx
        shr     ecx, 3          ; byte offs
        and     [.bit_ofs], 7          ; bit offs

        add     esi, ecx
        add     esi, eax

; TImage destination pixel pointer

        mov     edi, [ebx+TImage.pPixels]

        mov     ecx, [ebx+TImage.width]
        mov     eax, [.drect.top]
        imul    eax, ecx
        add     eax, [.drect.left]
        lea     edi, [edi+4*eax]    ; in bytes.

        shl     ecx, 2
        mov     [.dpitch], ecx


; prepare MMX constants

        pxor    mm0, mm0        ; mm0 = 0000 0000 0000 0000
        pcmpeqw mm1, mm1                                        ; mm1 = ffff ffff ffff ffff
        psrlw   mm1, 15                                         ; mm1 = 0001 0001 0001 0001
        psllw   mm1, 8          ; mm1 = 0100 0100 0100 0100

        movq    mm2, mm1                                        ; mm2 = 0001 0001 0001 0001
        psllq   mm2, 48         ; mm2 = 0100 0000 0000 0000


.loopy:

        mov     [.sstart], esi
        mov     [.dstart], edi

        mov     eax, [.srect.right]     ; width!
        mov     [.xsize], eax

        cmp     [.pixel_mode], FT_PIXEL_MODE_BGRA
        je      .loopx32

        cmp     [.pixel_mode], FT_PIXEL_MODE_LCD
        je      .loopx24

        cmp     [.pixel_mode], FT_PIXEL_MODE_GRAY
        je      .loopx8

        cmp     [.pixel_mode], FT_PIXEL_MODE_MONO
        jne     .finish

        lodsd
        bswap   eax
        mov     ch, 32
        mov     cl, byte [.bit_ofs]
        shl     eax, cl
        sub     ch, cl

.loopx1:
        shl     eax, 1
        dec     ch
        jnz     @f

        lodsd
        bswap   eax
        mov     ch, 32

@@:
        jnc     .next_x

        movd    mm7, [.color]        ; source pixel.
        movd    mm6, [edi]           ; destination pixel.

        movq    mm5, mm7
        psrlq   mm5, 24                 ; alpha source

        punpckldq mm5, mm5              ;
        punpcklbw mm6, mm0              ; byte to word destination pixel
        packssdw  mm5, mm5              ; mm5 = As, As, As, As
        punpcklbw mm7, mm0              ; byte to word source pixel

        movq    mm4, mm1
        psubw   mm4, mm5                ; mm4 = Bs Bs Bs Bs     (Bs = $100 - As)
; returns:
;       eax - x offset of the baseline of the string.
;       edx - y offset of the baseline of the string.

        psrlq   mm5, 16                 ; mm5 = 0  As As As
        por     mm5, mm2                ; mm5 = $100 As As As

        pmullw  mm6, mm4                ; mm6 = Cd = Cd * (256-As) = Cd * Bs   (For alpha Ad = Ad*Bs)
        pmullw  mm7, mm5                ; Cs = Cs * As                   (For alpha As = $100*As )

        paddusw mm6, mm7                ; Cd = Cs + Cd                   (For alpha Ad = $100*As + Ad*Bs)
        psrlw   mm6, 8                  ; Cd = Cd/256                    (For alpha Ad = As + Ad*Bs/$100)

        packuswb mm6, mm0               ; pack words to bytes 0A 0R 0G 0B -> 0000ARGB
        movd     [edi], mm6

.next_x:
        add     edi, 4
        dec     [.xsize]
        jnz     .loopx1
        jmp     .nexty



.loopx8:
        movzx     eax, byte [esi]         ; intensity
        add       esi, 1

        movd      mm6, [.color]
        movd      mm7, eax

        punpcklbw mm6, mm0              ; byte to word color.
        punpckldq mm7, mm7              ;
        packssdw  mm7, mm7              ; mm7 = I, I, I, I

        pmullw    mm7, mm6              ; mm7 is the color to blend = Cs*256

        movd      mm6, [edi]            ; Destination color
        punpcklbw mm6, mm0              ; byte to word destination pixel

        movq      mm5, mm7
        psrlq     mm5, 56               ; alpha source
        punpckldq mm5, mm5
        packssdw  mm5, mm5              ; mm5 = As, As, As, As

        movq    mm4, mm1
        psubw   mm4, mm5                ; mm4 = Bs Bs Bs Bs     (Bs = $100 - As)

        pmullw  mm6, mm4                ; mm6 = Cd = Cd * (256-As) = Cd * Bs
        paddusw mm6, mm7                ; Cd = 256*Cs + Cd*(256-As)
        psrlw   mm6, 8                  ; Cd = Cd/256

        packuswb mm6, mm0               ; pack words to bytes 0A 0R 0G 0B -> 0000ARGB
        movd     [edi], mm6

        add     edi, 4

        dec     [.xsize]
        jnz     .loopx8
        jmp     .nexty


.loopx24:

        movzx   eax, byte [esi]
        movzx   edx, byte [esi+1]

        lea     eax, [eax+2*edx]
        movzx   edx, byte [esi+2]

        add     eax, edx
        shr     eax, 2          ; grayscale.

        movd      mm6, [.color]
        movd      mm7, eax

        punpcklbw mm6, mm0              ; byte to word color.
        punpckldq mm7, mm7              ;
        packssdw  mm7, mm7              ; mm7 = I, I, I, I

        pmullw    mm7, mm6              ; mm7 is the color to blend = Cs*256

        movd      mm6, [edi]            ; Destination color
        punpcklbw mm6, mm0              ; byte to word destination pixel

        movq      mm5, mm7
        psrlq     mm5, 56               ; alpha source
        punpckldq mm5, mm5
        packssdw  mm5, mm5              ; mm5 = As, As, As, As

        movq    mm4, mm1
        psubw   mm4, mm5                ; mm4 = Bs Bs Bs Bs     (Bs = $100 - As)

        pmullw  mm6, mm4                ; mm6 = Cd = Cd * (256-As) = Cd * Bs
        paddusw mm6, mm7                ; Cd = 256*Cs + Cd*(256-As)
        psrlw   mm6, 8                  ; Cd = Cd/256

        packuswb mm6, mm0               ; pack words to bytes 0A 0R 0G 0B -> 0000ARGB
        movd     [edi], mm6


        add     esi, 3
        add     edi, 4

        dec     [.xsize]
        jnz     .loopx24
        jmp     .nexty


.loopx32:
        movd    mm7, [esi]              ; source pixel.
        movd    mm6, [edi]              ; destination pixel.

        movq    mm5, mm7
        psrlq   mm5, 24                 ; alpha source
proc GetTextOffset, .context, .ptrString, .len, .font

        punpckldq mm5, mm5              ;
        punpcklbw mm6, mm0              ; byte to word destination pixel
        packssdw  mm5, mm5              ; mm5 = As, As, As, As
        punpcklbw mm7, mm0              ; byte to word source pixel

        movq    mm4, mm1
        psubw   mm4, mm5                ; mm4 = Bs Bs Bs Bs     (Bs = $100 - As)

        psrlq   mm5, 16                 ; mm5 = 0  As As As
        por     mm5, mm2                ; mm5 = $100 As As As

        pmullw  mm6, mm4                ; mm6 = Cd = Cd * (256-As) = Cd * Bs   (For alpha Ad = Ad*Bs)
        pmullw  mm7, mm5                ; Cs = Cs * As                   (For alpha As = $100*As )

        paddusw mm6, mm7                ; Cd = Cs + Cd                   (For alpha Ad = $100*As + Ad*Bs)
        psrlw   mm6, 8                  ; Cd = Cd/256                    (For alpha Ad = As + Ad*Bs/$100)

        packuswb mm6, mm0               ; pack words to bytes 0A 0R 0G 0B -> 0000ARGB
        movd     [edi], mm6

        add     edi, 4
        add     esi, 4

        dec     [.xsize]
        jnz     .loopx32
        jmp     .nexty


.nexty:
        mov     esi, [.sstart]
        add     esi, [.spitch]

        mov     edi, [.dstart]
        add     edi, [.dpitch]

        dec     [.srect.bottom]         ; height
        jnz     .loopy


.finish:
        emms
        popad
        return

.bpp_const db 0, 1, 8, 2, 4, 24, 8, 32

endp



; the colors must be pre-multiplied ARGB.

proc _BlendPixel, .dstColor, .srcColor
begin
        pushad

        movzx   ecx, byte [.srcColor+3]      ; As
        mov     ebx, $ff
        mov     esi, ebx

        sub     ebx, ecx                     ; 1 - As

        movzx   eax, byte [.dstColor+3]      ; Ad
        imul    ecx, esi
        mul     ebx
        add     eax, ecx
        adc     edx, 0
        div     esi

        mov     byte [esp+4*regEAX+3], al


        movzx   eax, byte [.dstColor]       ; Bd
        movzx   ecx, byte [.srcColor]       ; Bs

        imul    ecx, esi
        mul     ebx
        add     eax, ecx
        adc     edx, 0
        div     esi

        mov     byte [esp+4*regEAX], al



        movzx   eax, byte [.dstColor+1]       ; Gd
        movzx   ecx, byte [.srcColor+1]       ; Gs

        imul    ecx, esi
        mul     ebx
        add     eax, ecx
        adc     edx, 0
        div     esi

        mov     byte [esp+4*regEAX+1], al



        movzx   eax, byte [.dstColor+2]       ; Rd
        movzx   ecx, byte [.srcColor+2]       ; Rs

        imul    ecx, esi
        mul     ebx
        add     eax, ecx
        adc     edx, 0
        div     esi

        mov     byte [esp+4*regEAX+2], al


        popad
        return
endp

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Provides raster bitmap, to be used for double buffer painting.
;
;  Target OS: Linux
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________



proc CreateBackBuffer, .hwin, .width, .height
begin
        push    ebx ecx edx

        stdcall GetMem, sizeof.TBackBuffer
        mov     ebx, eax

        mov     ecx, [.width]
        mov     edx, [.height]

        xor     eax, eax
        inc     eax

        cmp     ecx, eax
        jge     @f
        mov     ecx, eax
@@:
        cmp     edx, eax
        jge     @f
        mov     edx, eax
@@:
        mov     [ebx+TBackBuffer.width], ecx
        mov     [ebx+TBackBuffer.height], edx

        cinvoke XCreatePixmap, [hApplicationDisplay], [.hwin], [ebx+TBackBuffer.width], [ebx+TBackBuffer.height], $20
        test    eax, eax
        js      .error

        mov     [ebx+TBackBuffer.raster], eax
        mov     eax, ebx
        clc
        pop     edx ecx ebx
        return

.error:
        stdcall FreeMem, ebx
        xor     eax, eax
        stc
        pop     edx ecx ebx
        return
endp




proc DestroyBackBuffer, .pBackBuffer
begin
        push    eax ecx edx
        mov     eax, [.pBackBuffer]
        push    eax
        cinvoke XFreePixmap, [hApplicationDisplay], [eax+TBackBuffer.raster]
        stdcall FreeMem ; from the stack
        pop     edx ecx eax
        return
endp






proc DrawBackBuffer, .context, .pBackBuffer, .x, .y
begin
        push    eax ecx edx
        mov     eax, [.pBackBuffer]
        mov     ecx, [.context]

        cinvoke XCopyArea, [hApplicationDisplay], [eax+TBackBuffer.raster], [ecx+TContext.raster], [ecx+TContext.handle], 0, 0, [eax+TBackBuffer.width], [eax+TBackBuffer.height], [.x], [.y]

        pop     edx ecx eax
        return
endp

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Context is a object that represents drawing surface in FreshLib
;
;  Target OS: Linux
;
;  Dependencies: memory.asm
;
;  Notes:
;_________________________________________________________________________________________

uses libX11

cmClear       =       GXclear
cmAnd         =       GXand
cmAndReverse  =       GXandReverse
cmCopy        =       GXcopy
cmAndInverted =       GXandInverted
cmNoOp        =       GXnoop
cmXor         =       GXxor
cmOr          =       GXor
cmNor         =       GXnor
cmEquiv       =       GXequiv
cmInvert      =       GXinvert
cmOrReverse  =       GXorReverse
cmCopyInverted =      GXcopyInverted
cmOrInverted   =      GXorInverted
cmNand         =      GXnand
cmSet          =      GXset


image_pointer_context = 2

proc AllocateContext, .raster
begin
        push    ebx ecx edx

        stdcall GetMem, sizeof.TContext
        jc      .error
        mov     ebx, eax

        mov     eax, [.raster]
        mov     [ebx+TContext.raster], eax

        cinvoke XCreateGC, [hApplicationDisplay], [ebx+TContext.raster], 0, 0
        mov     [ebx+TContext.handle], eax
        mov     eax, ebx

.exit:
        pop     edx ecx ebx
        clc
        return

.error:
        DebugMsg 'Error allocating context.'
        xor     eax, eax
        pop     edx ecx ebx
        stc
        return
endp




proc ReleaseContext, .context
begin
        push    eax ebx ecx edx
        mov     ebx, [.context]
        cinvoke XFlush, [hApplicationDisplay]
        cinvoke XFreeGC, [hApplicationDisplay], [ebx+TContext.handle]
        cmp     [ebx+TContext.clipregion], 0
        je      @f
        cinvoke XDestroyRegion, [ebx+TContext.clipregion]
@@:
        stdcall FreeMem, ebx

        clc
        pop     edx ecx ebx eax
        return
endp



proc SetLineStyle, .context, .pLineStyle
.color dd ?
begin
        push    eax ebx ecx edx esi

        mov     ebx, [.context]
        mov     esi, [.pLineStyle]

        mov     eax, [esi+TLineStyle.flags]
        mov     ecx, eax
        shr     ecx, 8
        and     eax, $ff        ; cap_style
        and     ecx, $ff        ; join_style

        mov     edx, LineSolid
        cmp     [esi+TLineStyle.DashCount], 0
        je      @f
        mov     edx, LineDoubleDash
@@:
        cinvoke XSetLineAttributes, [hApplicationDisplay], [ebx+TContext.handle], [esi+TLineStyle.width], edx, eax, ecx
        cinvoke XSetForeground,     [hApplicationDisplay], [ebx+TContext.handle], [esi+TLineStyle.color]

        cmp     [esi+TLineStyle.DashCount], 0
        je      .exit

        lea     ecx, [esi+TLineStyle.DashItems]
        cinvoke XSetDashes, [hApplicationDisplay], [ebx+TContext.handle], 0, ecx, [esi+TLineStyle.DashCount]
        cinvoke XSetBackground, [hApplicationDisplay], [ebx+TContext.handle], [esi+TLineStyle.clSpace]

.exit:
        pop     esi edx ecx ebx eax
        return
endp


proc  SetDrawMode, .context, .mode
begin
        push    eax ecx edx
        mov     eax, [.context]
        cinvoke XSetFunction, [hApplicationDisplay], [eax+TContext.handle], [.mode]
        pop     edx ecx eax
        return
endp





proc SetClipRectangle, .context, .pBounds
.rect XRectangle
begin
        push    eax ecx edx esi

        mov     esi, [.context]

        cmp     [esi+TContext.clipregion], 0
        je      @f
        cinvoke XDestroyRegion, [esi+TContext.clipregion]
@@:
        cinvoke XCreateRegion
        mov     [esi+TContext.clipregion], eax

        mov     edx, [.pBounds]
        test    edx, edx
        jz      .remove

        mov     eax, [edx+TBounds.x]
        mov     [.rect.x], ax

        mov     eax, [edx+TBounds.y]
        mov     [.rect.y], ax

        mov     eax, [edx+TBounds.width]
        mov     [.rect.width], ax

        mov     eax, [edx+TBounds.height]
        mov     [.rect.height], ax

        lea     edx, [.rect]
        cinvoke XUnionRectWithRegion, edx, [esi+TContext.clipregion], [esi+TContext.clipregion]
        cinvoke XSetRegion, [hApplicationDisplay], [esi+TContext.handle], [esi+TContext.clipregion]

.exit:
        pop     esi edx ecx eax
        return

.remove:
        cinvoke XSetClipMask, [hApplicationDisplay], [esi+TContext.handle], None
        jmp     .exit
endp




proc IsDrawable, .raster
begin

;       cinvoke  XSetErrorHandler,





endp

        mov     ebx, [.context]
        cinvoke XDrawLine, [hApplicationDisplay], [ebx+TContext.raster], [ebx+TContext.handle], [.x1], [.y1], [.x2], [.y2]
        pop     edx ecx ebx eax
        return
endp


proc DrawFillRect, .context, .x, .y, .width, .height, .color
begin
        push    eax ebx ecx edx
        mov     ebx, [.context]
        cinvoke XSetForeground, [hApplicationDisplay], [ebx+TContext.handle], [.color]
        cinvoke XFillRectangle, [hApplicationDisplay], [ebx+TContext.raster], [ebx+TContext.handle], [.x], [.y], [.width], [.height]
        pop     edx ecx ebx eax
        return
endp



macro Outline [type, x, y] {
  common
local ..types, ..points, ..count
     dd  ..count
     dd  ..types

;  Target OS: Linux
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


proc FontCreate, .fontname, .size, .weight, .flags
begin
        push    ebx ecx edx
        stdcall StrDup, [.fontname]
        mov     ebx, eax

        test    [.flags], ffMonospaced
        jz      @f
        stdcall StrCat, ebx, FontAttr.mono
@@:
        sub     [.size], 2
        cmp     [.size], 0
        jle     @f

        stdcall StrCat, ebx, FontAttr.size
        stdcall NumToStr, [.size], ntsDec or ntsUnsigned
        push    eax
        stdcall StrCat, ebx, eax
        stdcall StrDel ; from the stack
@@:
        cmp     [.weight], 0
        je      @f
        shr     [.weight], 2
        stdcall StrCat, ebx, FontAttr.weight
        stdcall NumToStr, [.weight], ntsDec or ntsUnsigned
        push    eax
        stdcall StrCat, ebx, eax
        stdcall StrDel ; from the stack

@@:
        test    [.flags], ffItalic
        jz      @f
        stdcall StrCat, ebx, FontAttr.italic
@@:

        stdcall StrPtr, ebx
        cinvoke XftFontOpenName, [hApplicationDisplay], 0, eax

        stdcall StrDel, ebx
        pop     edx ecx ebx
        return
endp


iglobal
  if used FontAttr.mono | used FontAttr.size | used FontAttr.weight | used FontAttr.italic
    label FontAttr byte
    .mono db ',Mono', 0
    .size db ':pixelsize=', 0
    .weight db ':weight=', 0
    .italic db ':slant=italic', 0
    .regular db ':slant=roman', 0


;fwLight     = 0
;fwDemilight = 1
;fwNormal    = 2
;fwMedium    = 3
;fwDemibold  = 4
;fwBold      = 5
;fwExtraBold = 6
;fwBlack     = 7

    .font_weights db 0, 55, 80, 100, 180, 200, 205, 210
  end if
endg







;initialize InitFonts
;begin
;        cinvoke FcInit
;        return
;endp
;
;
;finalize FinalizeFonts
;begin
;        cinvoke FcFini
;        return
;endp



macro XftPushArg field, type, value {
      push value
      push type
      push field
proc FTCRequester as FT_Face_Requester
.res dd ?
.idx dd ?
.face dd ?
begin
        pushad
      add  ebx, 12
}

        mov     esi, [.face_id]

macro XftStartArguments {
      push 0
      mov  ebx, 4
}
        stdcall StrDup, [esi+__TFont.hFontFace]
        mov     ebx, eax

        test    [esi+__TFont.flags], ffMonospaced
        jz      @f
        stdcall StrCat, ebx, FontAttr.mono
@@:
        mov     eax, [esi+__TFont.weight]
        and     eax, 7
        movzx   eax, byte [FontAttr.font_weights+eax]

XftFamily  text 'family'
XftStyle   text 'style'
XftSpacing text 'spacing'
XftSlant   text 'slant'
XftWeight  text 'weight'
XftWidth   text 'width'
XftPixelSize text 'pixelsize'
XftAntialias text 'antialias'
XftAutohint  text 'autohint'
        stdcall StrCat, ebx, FontAttr.weight
        stdcall NumToStr, eax, ntsDec or ntsUnsigned
        push    eax
        stdcall StrCat, ebx, eax
        stdcall StrDel ; from the stack

        mov     eax, FontAttr.regular
        test    [esi+__TFont.flags], ffItalic
        jz      @f
        mov     eax, FontAttr.italic
@@:
        stdcall StrCat, ebx, eax
        stdcall StrPtr, ebx

;        OutputLn eax

        cinvoke FcNameParse, eax
        stdcall StrDel, ebx

XftHintStyle text 'hintstyle'
XftHinting   text 'hinting'
XftRGBA      text 'rgba'
        test    eax, eax
        jnz     @f

        cinvoke FcNameParse, txt "Helvetica"
        DebugMsg "Error: Bad pattern fallback."

@@:
        mov     ebx, eax
proc FontCreate3, .fontname, .size, .weight, .flags
begin
        push    ebx ecx edx

        cinvoke FcDefaultSubstitute, ebx
        cinvoke FcConfigSubstitute, 0, ebx, 0

        lea     eax, [.res]
        cinvoke FcFontMatch, 0, ebx, eax
        push    eax

        XftStartArguments
        cinvoke FcPatternDestroy, ebx
        pop     ebx

        if defined options.DebugMode & options.DebugMode
          cinvoke FcPatternPrint, ebx
        end if
        cmp     [.fontname], 0
        je      @f

        lea     eax, [.res]
        stdcall StrPtr, [.fontname]
        XftPushArg XftFamily, XftTypeString, eax
@@:
        cinvoke FcPatternGetString, ebx, FC_FILE, 0, eax

        OutputLn [.res]

        lea     eax, [.idx]
        cinvoke FcPatternGetInteger, ebx, FC_INDEX, 0, eax
        cmp     [.size], 2
        jle     @f
        sub     [.size], 2
        XftPushArg XftPixelSize, XftTypeInteger, [.size]
@@:

        mov     edi, [.pFace]
        mov     eax, [.res]
        cinvoke FT_New_Face, [FTLibrary], eax, [.idx], edi

.finish:
        mov     [esp+4*regEAX], eax
        cinvoke FcPatternDestroy, ebx
        popad
        cret
endp


        cmp     [.weight], 0
        jle     @f
        shr     [.weight], 1
        XftPushArg XftWeight,    XftTypeInteger, [.weight]

FC_FILE text 'file'
FC_INDEX text 'index'
FC_PIXEL_SIZE  text 'pixelsize'


@@:

body FontCreate
begin
        push    edx
        test    [.flags], ffItalic
        jz      @f
        XftPushArg XftSlant, XftTypeInteger, XFT_SLANT_ITALIC
@@:

        stdcall GetMem, sizeof.__TFont
        mov     edx, eax

        stdcall StrDupMem, [.font_name]
        mov     [edx+__TFont.hFontFace], eax

        mov     eax, [.size]
        mov     [edx+__TFont.height], eax
        mov     eax, [.weight]
        mov     [edx+__TFont.weight], eax
        mov     eax, [.flags]
        mov     [edx+__TFont.flags], eax

        test    [.flags], ffMonospaced
        jz      @f
        XftPushArg XftSpacing, XftTypeInteger, XFT_MONO
@@:
        XftPushArg XftAntialias, XftTypeBool, 0
        mov     eax, edx
        pop     edx
        return
endp



        XftPushArg XftHinting, XftTypeBool, 0
        XftPushArg XftHintStyle, XftTypeInteger, 0
        XftPushArg XftRGBA, XftTypeInteger, 5
        XftPushArg XftWidth, XftTypeInteger, 100
body FontDestroy
begin
        pushad
        mov     edi, [.pFont]

        invoke  XftFontOpen, [hApplicationDisplay], 0
        cinvoke FTC_Manager_RemoveFaceID, [FTCManager], edi
        add     ebx, 8
        add     esp, ebx
        stdcall StrDel, [edi+__TFont.hFontFace]
        stdcall FreeMem, edi

        pop     edx ecx ebx
        popad
        return
endp


; returns some font metrics

;
; Arguments:
;    .font - the font
; Returns:
;    EAX - the line height of the font.
;    EBX - the ascender of the font.
;    EDX - the descender of the font.

proc FontDestroy, .font
body GetFontMetrics
.scaler  FTC_ScalerRec
.size    dd ?
begin
        push    ecx
        cinvoke XftFontClose, [hApplicationDisplay], [.font]

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1

        lea     eax, [.scaler]
        lea     edx, [.size]
        cinvoke FTC_Manager_LookupSize, [FTCManager], eax, edx
        test    eax, eax
        jnz     .error

        mov     edx, [.size]

        mov     eax, [edx+FT_SizeRec.metrics.height]
        mov     ebx, [edx+FT_SizeRec.metrics.ascender]
        mov     edx, [edx+FT_SizeRec.metrics.descender]

        sar     eax, 6
        sar     ebx, 6
        sar     edx, 6

        clc
        pop     ecx
        return

.error:
        stc
        pop     ecx
        return
endp

        xor     eax, eax
        inc     eax

        mov     ecx, [.width]
        mov     edx, [.height]

        test    ecx, ecx
        cmovz   ecx, eax
        cmp     ecx, 0
        cmovle  ecx, eax

        test    edx, edx
        cmovz   edx, eax
        cmp     edx, 0
        cmovle  edx, eax

        mov     [esi+TImage.width], ecx
        mov     [esi+TImage.height], edx

        lea     eax, [4*ecx]
        imul    eax, edx

        cinvoke shmget, IPC_PRIVATE, eax, IPC_CREAT or 777o
        test    eax, eax
        js      .error

        mov     [esi+TImage.shminfo.ShmID], eax

        cinvoke shmat, eax, 0, 0
        cmp     eax, -1
        je      .error_free

        mov     [esi+TImage.shminfo.Addr], eax
        mov     [esi+TImage.pPixels], eax
        mov     [esi+TImage.shminfo.fReadOnly], 0
        mov     [esi+TImage.shminfo.fReadOnly], 1

        lea     ebx, [esi+TImage.shminfo]
        cinvoke XShmCreateImage, [hApplicationDisplay], 0, $20, ZPixmap, eax, ebx, [esi+TImage.width], [esi+TImage.height]
        mov     [esi+TImage.ximage], eax

        cinvoke XShmAttach, [hApplicationDisplay], ebx

body DestroyImage
begin
        pushad

        mov     esi, [.ptrImage]
        test    esi, esi
        jz      @f
        jz      .finish

        lea     eax, [esi+TImage.shminfo]
        cinvoke XShmDetach, [hApplicationDisplay], eax

        cinvoke XDestroyImage, [esi+TImage.ximage]

        cinvoke shmdt, [esi+TImage.shminfo.Addr]
        cinvoke shmctl, [esi+TImage.shminfo.ShmID], IPC_RMID, 0
        stdcall FreeMem, esi
@@:

.finish:
        popad
        return
endp


if used ___CheckCompletionEvent
___CheckCompletionEvent:
        mov     eax, [esp+8]      ;.pEvent
        mov     eax, [eax+XEvent.type]
        cmp     eax, [ShmCompletionEvent]
        sete    al
        movzx   eax, al
        retn
end if
;if used ___CheckCompletionEvent
;___CheckCompletionEvent:
;
;virtual at esp+4
;  .display dd ?
;  .pEvent  dd ?
;  .user    dd ?
;end virtual
;
;; timeout
;        stdcall GetTimestamp
;        cmp     eax, [.user]
;        jbe     @f
;
;        DebugMsg "Timeout!"
;
;        mov     eax, 1
;        retn
;
;@@:
;        mov     eax, [.pEvent]      ;.pEvent
;        mov     eax, [eax+XEvent.type]
;
;        cmp     eax, [ShmCompletionEvent]
;        sete    al
;        movzx   eax, al
;        retn
;end if



body DrawImage
body DrawImageRect
.event XEvent
       rb 256
begin
        pushad

        mov     esi, [.pImage]
        test    esi, esi
        jz      .exit

        mov     ebx, [esi+TImage.ximage]

        cinvoke XCreateGC, [hApplicationDisplay], [.where], 0, 0
        mov     ecx, [.context]
        cinvoke XShmPutImage, [hApplicationDisplay], [ecx+TContext.raster], [ecx+TContext.handle], [esi+TImage.ximage], 0, 0, [.x], [.y], [esi+TImage.width], [esi+TImage.height], 1
        mov     edi, eax


        cinvoke XShmPutImage, [hApplicationDisplay], [.where], edi, [esi+TImage.ximage], [.xSrc], [.ySrc], [.xDst], [.yDst], [.width], [.height], TRUE


; THIS CODE SOMETIMES CAUSES HANGS!

        stdcall GetTimestamp
        lea     esi, [eax+20]

.loop:
        lea     eax, [.event]
        cinvoke XCheckTypedEvent, [hApplicationDisplay], [ShmCompletionEvent], eax
        test    eax, eax
        jnz     .finish

        stdcall GetTimestamp
        cmp     eax, esi
        jb      .loop


.finish:
        cinvoke XIfEvent, [hApplicationDisplay], eax, ___CheckCompletionEvent, 0
        cinvoke XFreeGC, [hApplicationDisplay], edi

.exit:
        popad
        return

endp




body DrawText
  .cltxt   _XftColor
  .vis     XVisualInfo
begin
        push    eax ebx ecx edx esi edi

        cmp     [.font], 0
        jne     @f

        mov     eax, [_SystemFont]
        mov     [.font], eax

@@:
        cinvoke XDefaultScreen, [hApplicationDisplay]
        mov     edx, eax
        lea     eax, [.vis]
        cinvoke XMatchVisualInfo, [hApplicationDisplay], edx, $20, TrueColor, eax

        mov     ecx, [.pImage]
        cinvoke XftDrawCreate, [hApplicationDisplay], [ecx+TImage.ximage], [.vis.Visual], 0
        mov     ebx, eax

;        mov     ecx, [.context]
;        cinvoke XftDrawSetClip, ebx, [ecx+TContext.clipregion]

        lea     eax, [.cltxt]
        stdcall __ColorToRender, [.color], eax

        cinvoke XftDrawStringUtf8, ebx, eax, [.font], [.x], [.y], [.text], [.len]
        cinvoke XftDrawDestroy, ebx

        pop     edi esi edx ecx ebx eax
        return
endp

;  Target OS: Linux
;
;  Dependencies:
;
;  Notes: Uses XFT library to renter the text.
;_________________________________________________________________________________________

uses libFT, libFC, libXft
uses libFT, libFC

struct __TFont
  .hFontFace      dd ?    ; The name of the font face.
  .height         dd ?    ; The character height in pixels.

iglobal
  var flagFreeTypeLoadFlags = FT_LOAD_RENDER or FT_LOAD_TARGET_NORMAL or FT_LOAD_COLOR
  .weight         dd ?    ; The weight of the characters.
  .flags          dd ?    ; ffItalic, ffMonospaced, etc.
ends
endg



body DrawDecomposedString      ;, .pImage, .pArray, .x, .y, .font, .color
proc FTCRequester as FT_Face_Requester
.res dd ?
.idx dd ?
.face dd ?
.scaler  FTC_ScalerRec
.glyph   dd ?

.startX  dd ?
begin
        pushad

        mov     esi, [.face_id]
        mov     edx, [.font]
        xor     ecx, ecx

        stdcall StrDup, [esi+__TFont.hFontFace]
        mov     ebx, eax
        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        test    [esi+__TFont.flags], ffMonospaced
        jz      @f
        stdcall StrCat, ebx, FontAttr.mono
@@:
        mov     eax, [esi+__TFont.weight]
        mov     eax, [edx+__TFont.height]
        test    eax, eax
        jz      @f
        inc     ecx

        shr     eax, 2
        mov     [.scaler.height], eax
        stdcall StrCat, ebx, FontAttr.weight
        stdcall NumToStr, eax, ntsDec or ntsUnsigned
        push    eax
        mov     [.scaler.pixel], ecx    ; ecx = 1
        stdcall StrCat, ebx, eax
        stdcall StrDel ; from the stack

@@:
        test    [esi+__TFont.flags], ffItalic
        jz      @f
        mov     eax, [.x]
        stdcall StrCat, ebx, FontAttr.italic
@@:

        mov     [.startX], eax
        stdcall StrPtr, ebx

        cinvoke FcNameParse, eax
        stdcall StrDel, ebx
        mov     ebx, eax

        mov     esi, [.pArray]
        xor     edi, edi
        cinvoke FcConfigSubstitute, 0, ebx, 0
        cinvoke FcDefaultSubstitute, ebx
        dec     edi

.char_loop:
        lea     eax, [.res]
        inc     edi
        cinvoke FcFontMatch, 0, ebx, eax
        push    eax
        cmp     edi, [esi+TArray.count]
        cinvoke FcPatternDestroy, ebx
        pop     ebx
        jae     .finish

        cmp     word [esi+TArray.array+8*edi+TTextChar.width], 0
        lea     eax, [.res]
        je      .char_ok
        cinvoke FcPatternGetString, ebx, FC_FILE, 0, eax

        lea     eax, [.idx]
        cinvoke FcPatternGetInteger, ebx, FC_INDEX, 0, eax
        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, [esi+TArray.array+8*edi+TTextChar.code]

        mov     edi, [.pFace]
        mov     eax, [.res]
        cinvoke FT_New_Face, [FTLibrary], eax, [.idx], edi
        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags], eax, edx, 0

.finish:
        mov     [esp+4*regEAX], eax
        cinvoke FcPatternDestroy, ebx
        popad
        cret
endp


        test    eax, eax
        jnz     .char_ok

FC_FILE text 'file'
FC_INDEX text 'index'
FC_PIXEL_SIZE  text 'pixelsize'


        mov     ebx, [.glyph]
        mov     ecx, [.x]
proc FontCreate4, .font_name, .size, .weight, .flags
begin
        push    edx
        mov     edx, [.y]

        add     ecx, [ebx+FT_BitmapGlyphRec.left]
        sub     edx, [ebx+FT_BitmapGlyphRec.top]
        stdcall GetMem, sizeof.__TFont
        mov     edx, eax

        lea     eax, [ebx+FT_BitmapGlyphRec.bitmap]
        stdcall StrDupMem, [.font_name]
        stdcall __DrawGlyph, [.pImage], eax, ecx, edx, [.color]
        mov     [edx+__TFont.hFontFace], eax

        mov     eax, [.size]
        movzx   eax, word [esi+TArray.array+8*edi+TTextChar.width]
        mov     [edx+__TFont.height], eax
        mov     eax, [.weight]
        add     [.x], eax
        mov     [edx+__TFont.weight], eax
        mov     eax, [.flags]
        mov     [edx+__TFont.flags], eax

.char_ok:
; check for new line.
        movzx   eax, word [esi+TArray.array+8*edi+TTextChar.height]
        mov     eax, edx
        pop     edx
        test    eax, eax
        jz      .char_loop
        return
endp



        add     [.y], eax
        mov     eax, [.startX]
proc FontDestroy2, .pFont
begin
        pushad
        mov     edi, [.pFont]
        mov     [.x], eax
        jmp     .char_loop

        cinvoke FTC_Manager_RemoveFaceID, [FTCManager], edi
        stdcall StrDel, [edi+__TFont.hFontFace]
        stdcall FreeMem, edi

.finish:
        popad
        return
endp



proc DrawString2, .pImage, .hString, .x, .y, .font, .color
.type    FTC_ImageType
.scaler  FTC_ScalerRec
.size    dd ?

; Draws the string on the image using the specified font and color.
; The string is drawn in one line. The control symbols are not
; processed. The tabs are not expanded or replaced with spaces.
.face    dd ?

.glyph   dd ?
.prev    dd ?
.kerning FT_Vector

begin
;
; Arguments:
;    .pImage  - pointer to the image where to draw the text.
;    .pString - pointer to a UTF-8 string.
;    .len     - how many bytes from the string to be drawn. If -1, the whole string will be drawn.
;    .x       - X coordinate, where to start drawing.
;    .y       - Y coordinate of the baseline where to draw the string.
;    .font    - the font to be used.
;    .color   - ARGB color to draw the glyphs.
;
;;;;;;;; Returns:
;;;;;;;;    EAX - the width of the string in pixels.
;;;;;;;;    EBX - the ascender of the string. It is negative.
;;;;;;;;    EDX - the height of the string in pixels.

        pushad

        shl     [.x], 6
body DrawString ;, .pImage, .pString, .len, .x, .y, .font, .color

        mov     edx, [.font]
        xor     ecx, ecx
.scaler  FTC_ScalerRec
.glyph   dd ?

        mov     [.prev], ecx
.miny    dd ?
.maxy    dd ?
.startX  dd ?

        mov     [.scaler.face_id], edx
        mov     [.type.face_id], edx
begin
        pushad

        mov     eax, [edx+__TFont.height]
        mov     [.scaler.height], eax
        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.type.height], eax
        mov     [.scaler.width], ecx
        mov     [.type.width], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.pixel], 1
        mov     [.type.flags], FT_LOAD_RENDER or FT_LOAD_TARGET_LCD or FT_LOAD_COLOR
        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1

        ror     ecx, 1                  ; ecx = $80000000
        lea     eax, [.scaler]
        lea     edx, [.size]
        mov     [.maxy], ecx
        dec     ecx
        cinvoke FTC_Manager_LookupSize, [FTCManager], eax, edx
        mov     [.miny], ecx            ; ecx = $7fffffff

        mov     eax, [.size]
        mov     eax, [.x]
        mov     ecx, [eax+FT_SizeRec.face]
        mov     eax, [eax+FT_SizeRec.metrics.ascender]
        mov     [.face], ecx
        mov     [.startX], eax
        sar     eax, 6
        add     [.y], eax

        stdcall StrPtr, [.hString]
        mov     esi, eax
        mov     esi, [.pString]

.char_loop:

        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx

        sub     [.len], edx
        jb      .finish

        test    eax, eax
        jz      .finish

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        mov     ebx, eax

; process the kerning;

        cmp     [.prev], 0
        je      .kerning_ok

        lea     eax, [.kerning]
        cinvoke FT_Get_Kerning, [.face], [.prev], ebx, 0, eax
        test    eax, eax
        jnz     .kerning_ok

        mov     eax, [.kerning.x]
;        sar     eax, 6

        add     [.x], eax

.kerning_ok:
        mov     [.prev], ebx

        lea     ecx, [.type]
        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_Lookup, [FTCImageCache], ecx, ebx, edx, 0
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags], eax, edx, 0

        test    eax, eax
        jnz     .char_loop

        mov     ebx, [.glyph]

        mov     ecx, [.x]
        mov     edx, [.y]

        sar     ecx, 6

        add     ecx, [ebx+FT_BitmapGlyphRec.left]
        sub     edx, [ebx+FT_BitmapGlyphRec.top]

        cmp     edx, [.miny]
        jge     @f
        mov     [.miny], edx
@@:
        mov     eax, edx
        add     eax, [ebx+FT_BitmapGlyphRec.bitmap.rows]
        cmp     eax, [.maxy]
        jle     @f
        mov     [.maxy], eax
@@:
        lea     eax, [ebx+FT_BitmapGlyphRec.bitmap]
        stdcall DrawGlyph, [.pImage], eax, ecx, edx, [.color]
        stdcall __DrawGlyph, [.pImage], eax, ecx, edx, [.color]

        mov     eax, [ebx+FT_BitmapGlyphRec.root.advance.x]
        sar     eax, 10        ; format 16.16 fixed decimal point.
        sar     eax, 16        ; format 16.16 fixed decimal point.
        add     [.x], eax

        jmp     .char_loop


.finish:
;        mov     eax, [.x]
;        mov     edx, [.maxy]
;        mov     ebx, [.miny]
;        sub     eax, [.startX]
;        sub     edx, ebx
;        sub     ebx, [.y]

;        mov     [esp+4*regEAX], eax
;        mov     [esp+4*regEBX], ebx
;        mov     [esp+4*regEDX], edx

        popad
        return
endp



; returns:
;   EAX - array with decomposed string.
;   EDX - maximal bearing_Y of the string.
;   ECX - maximal descender of the string.

body TextDecompose      ;, .hString, .font

  .scaler  FTC_ScalerRec
  .glyph   dd ?

  .miny    dd ?
  .maxy    dd ?

begin
        pushad

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1

        ror     ecx, 1                  ; ecx = $80000000
        mov     [.maxy], ecx
        dec     ecx
        mov     [.miny], ecx            ; ecx = $7fffffff

        stdcall StrPtr, [.hString]
        mov     esi, eax

        stdcall CreateArray, sizeof.TTextChar
        mov     edi, eax

.char_loop:
        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx
        mov     ebx, eax

        test    eax, eax
        jz      .end

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags], eax, edx, 0

        xor     ecx, ecx

        test    eax, eax
        jnz     .glyph_size_ok  ; zero width glyph ????

        mov     ecx, [.glyph]

        mov     eax, [ecx+FT_BitmapGlyphRec.top]
        neg     eax

        cmp     eax, [.miny]
        jge     @f
        mov     [.miny], eax
@@:

        add     eax, [ecx+FT_BitmapGlyphRec.bitmap.rows]
        cmp     eax, [.maxy]
        jle     @f
        mov     [.maxy], eax
@@:
        mov     ecx, [ecx+FT_BitmapGlyphRec.root.advance.x]  ; format 16.16 fixed decimal point.
        sar     ecx, 16   ; format 16.16


.glyph_size_ok:

        stdcall AddArrayItems, edi, 1
        mov     edi, edx
        mov     dword [eax+TTextChar.width], ecx
        mov     [eax+TTextChar.code],  ebx
        jmp     .char_loop

.end:
        clc

.finish:
        mov     [esp+4*regEAX], edi

        mov     eax, [.miny]
        neg     eax
        mov     ecx, [.maxy]

        mov     [esp+4*regEDX], eax
        mov     [esp+4*regECX], ecx

        add     ecx, eax
        mov     [edi+TArray.lparam], ecx

        popad
        return
endp



; Returns an array with the widths from the begining of the text to the every character inside the string.


proc GetTextWidthsArray, .hString, .font

  .scaler  FTC_ScalerRec
  .glyph   dd ?

  .x       dd ?

begin
        pushad

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1


        stdcall StrPtr, [.hString]
        mov     esi, eax

        stdcall CreateArray, 4
        mov     edi, eax

        xor     ebx, ebx

.char_loop:
        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx
        test    eax, eax
        jz      .end

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags], eax, edx, 0

        test    eax, eax
        jnz     .glyph_size_ok  ; zero width glyph ????


        mov     ecx, [.glyph]
        mov     ecx, [ecx+FT_BitmapGlyphRec.root.advance.x]  ; format 16.16 fixed decimal point.

        add     ebx, ecx


.glyph_size_ok:

        stdcall AddArrayItems, edi, 1
        mov     edi, edx

        mov     edx, ebx
        sar     edx, 16         ; format 16.16
        mov     [eax], edx
        jmp     .char_loop

.end:
        clc

.finish:
        mov     [esp+4*regEAX], edi
        popad
        return

.error:
        stc
        popad
        return
endp











; Computes the width and height of the text.
;
; Arguments:
;    .pString - pointer to a UTF-8 string.
;    .len     - how many bytes from the string to be used. If -1 the whole string will be scanned.
;    .font    - the font to be used for the computations.
;
; Returns:
;    EAX - the width of the string in pixels.
;    EBX - the ascender of the string. It is negative.
;    EDX - the height of the string in pixels.


body GetTextBounds      ;, .pString, .len, .font

.scaler  FTC_ScalerRec
.glyph   dd ?

.x       dd ?

.miny    dd ?
.maxy    dd ?

.charlen dd ?

begin
        pushad

        mov     edx, [.font]
        xor     ecx, ecx

        mov     [.scaler.face_id], edx
        mov     [.scaler.width], ecx

        mov     [.x], ecx

        mov     eax, [edx+__TFont.height]
        inc     ecx

        mov     [.scaler.height], eax
        mov     [.scaler.pixel], ecx    ; ecx = 1

        ror     ecx, 1                  ; ecx = $80000000
        mov     [.maxy], ecx
        dec     ecx
        mov     [.miny], ecx            ; ecx = $7fffffff

        mov     esi, [.pString]

.char_loop:
        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx
        mov     [.charlen], edx

        test    eax, eax
        jz      .finish

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        lea     ecx, [.scaler]
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_LookupScaler, [FTCImageCache], ecx, [flagFreeTypeLoadFlags],  eax, edx, 0

        test    eax, eax
        jnz     .char_loop

        mov     ebx, [.glyph]

        sub     eax, [ebx+FT_BitmapGlyphRec.top]                ; eax = 0 here
        mov     edx, eax
        add     edx, [ebx+FT_BitmapGlyphRec.bitmap.rows]

        cmp     eax, [.miny]
        jge     @f
        mov     [.miny], eax
@@:
        cmp     edx, [.maxy]
        jle     @f
        mov     [.maxy], edx
@@:

        mov     eax, [ebx+FT_GlyphRec.advance.x]
        sar     eax, 16        ; format 16.16 fixed decimal point.
        add     [.x], eax

        mov     eax, [.charlen]
        sub     [.len], eax
        jmp     .char_loop
        ja      .char_loop


.finish:
        mov     edx, [.size]
        mov     eax, [.x]
        mov     edx, [edx+FT_SizeRec.metrics.height]
        sar     eax, 6
        sar     edx, 6
        mov     edx, [.maxy]
        mov     ebx, [.miny]
        sub     edx, ebx

        mov     [esp+4*regEAX], eax
        mov     [esp+4*regEBX], ebx
        mov     [esp+4*regEDX], edx

        popad
        return
endp







proc DrawGlyph, .pImage, .pFTBitmap, .x, .y, .color
proc __DrawGlyph, .pImage, .pFTBitmap, .x, .y, .color
.spitch   dd ?
.dpitch   dd ?

.drect   RECT
.srect   RECT

.pixel_mode dd ?

.sstart dd ?
.dstart dd ?

.xsize  dd ?

.bpp    dd ?
.bit_ofs dd ?

begin
        pushad

        stdcall __fix_color, [.color], regEAX
        mov     [.color], eax

        mov     ebx, [.pImage]
        mov     edi, [.pFTBitmap]

; the glyph pixel mode handling.
        movzx   eax, [edi+FT_Bitmap.pixel_mode]
        cmp     eax, FT_PIXEL_MODE_BGRA

        dec     [.xsize]
        jnz     .loopx1
        jmp     .nexty



.loopx8:
        movzx   eax, byte [esi]         ; source alpha
        inc     esi
        movzx     eax, byte [esi]         ; intensity
        add       esi, 1
        movzx   ecx, byte [.color+3]    ; color alpha

        imul    eax, ecx
        shr     eax, 8
        movd      mm6, [.color]
        movd      mm7, eax

        mov     ecx, [.color]
        punpcklbw mm6, mm0              ; byte to word color.
        bswap   ecx
        mov     cl, al
        bswap   ecx
        punpckldq mm7, mm7              ;
        packssdw  mm7, mm7              ; mm7 = I, I, I, I

        pmullw    mm7, mm6              ; mm7 is the color to blend = Cs*256

        movd    mm7, ecx                ; source pixel.
        movd    mm6, [edi]              ; destination pixel.
        movd      mm6, [edi]            ; Destination color
        punpcklbw mm6, mm0              ; byte to word destination pixel
        movd    mm5, eax                ; alpha source

        movq      mm5, mm7
        psrlq     mm5, 56               ; alpha source
        punpckldq mm5, mm5              ;
        punpckldq mm5, mm5
        punpcklbw mm6, mm0              ; byte to word destination pixel
        packssdw  mm5, mm5              ; mm5 = As, As, As, As
        punpcklbw mm7, mm0              ; byte to word source pixel

        movq    mm4, mm1
        psubw   mm4, mm5                ; mm4 = Bs Bs Bs Bs     (Bs = $100 - As)

        psrlq   mm5, 16                 ; mm5 = 0  As As As
        por     mm5, mm2                ; mm5 = $100 As As As

        pmullw  mm6, mm4                ; mm6 = Cd = Cd * (256-As) = Cd * Bs   (For alpha Ad = Ad*Bs)
        pmullw  mm6, mm4                ; mm6 = Cd = Cd * (256-As) = Cd * Bs
        pmullw  mm7, mm5                ; Cs = Cs * As                   (For alpha As = $100*As )

        paddusw mm6, mm7                ; Cd = Cs + Cd                   (For alpha Ad = $100*As + Ad*Bs)
        psrlw   mm6, 8                  ; Cd = Cd/256                    (For alpha Ad = As + Ad*Bs/$100)
        paddusw mm6, mm7                ; Cd = 256*Cs + Cd*(256-As)
        psrlw   mm6, 8                  ; Cd = Cd/256

        packuswb mm6, mm0
        movd    [edi], mm6
        packuswb mm6, mm0               ; pack words to bytes 0A 0R 0G 0B -> 0000ARGB
        movd     [edi], mm6

        add     edi, 4

        dec     [.xsize]
        jnz     .loopx8
        jmp     .nexty


.loopx24:
        movzx   ecx, byte [.color+3]    ; color alpha.

        movzx   eax, byte [esi]
        movzx   edx, byte [esi+1]

        mov     eax, [esi]              ; source alpha As, As, As
        or      eax, $ff000000          ; eax = $ff Ar Ag Ab
        add     esi, 3
        lea     eax, [eax+2*edx]
        movzx   edx, byte [esi+2]

        add     eax, edx
        shr     eax, 2          ; grayscale.

        movd    mm5, ecx                ; mm5 = 00 00 00 00 00 00 00 Ac
        movd    mm6, eax                ; mm6 = 00 00 00 00 ff Ar Ag Ab
        movd      mm6, [.color]
        movd      mm7, eax

        punpckldq mm5, mm5              ;
        punpcklbw mm6, mm0              ; mm6 = ff Ar Ag Ab  ; byte to word source alpha.
        packssdw  mm5, mm5              ; mm5 = Ac Ac Ac Ac
        punpcklbw mm6, mm0              ; byte to word color.
        punpckldq mm7, mm7              ;
        packssdw  mm7, mm7              ; mm7 = I, I, I, I

        pmullw    mm5, mm6
        pmullw    mm7, mm6              ; mm7 is the color to blend = Cs*256
        psrlw     mm5, 8                ; mm5 = Ac, Ac*Ar, Ac*Ag, Ac*Ab  ; total alpha.

        movd    mm6, [edi]              ; destination pixel.
        movd      mm6, [edi]            ; Destination color
        movd    mm7, [.color]           ; source pixel.

        punpcklbw mm6, mm0              ; byte to word destination pixel
        punpcklbw mm7, mm0              ; byte to word source pixel

        movq      mm5, mm7
        psrlq     mm5, 56               ; alpha source
        punpckldq mm5, mm5
        packssdw  mm5, mm5              ; mm5 = As, As, As, As

        movq    mm4, mm1
        psubw   mm4, mm5                ; mm4 = Bs Bs Bs Bs     (Bs = $100 - As)

        psllq   mm5, 16                 ; mm5 = Ac*Ar Ac*Ag Ac*Ab 0
        psrlq   mm5, 16                 ; mm5 = 0  Ac*Ar Ac*Ag Ac*Ab
        por     mm5, mm2                ; mm5 = $100 Ac*Ar Ac*Ag Ac*Ab

        pmullw  mm6, mm4                ; mm6 = Cd = Cd * (256-As) = Cd * Bs   (For alpha Ad = Ad*Bs)
        pmullw  mm6, mm4                ; mm6 = Cd = Cd * (256-As) = Cd * Bs
        pmullw  mm7, mm5                ; Cs = Cs * As                   (For alpha As = $100*As )

        paddusw mm6, mm7                ; Cd = Cs + Cd                   (For alpha Ad = $100*As + Ad*Bs)
        psrlw   mm6, 8                  ; Cd = Cd/256                    (For alpha Ad = As + Ad*Bs/$100)
        paddusw mm6, mm7                ; Cd = 256*Cs + Cd*(256-As)
        psrlw   mm6, 8                  ; Cd = Cd/256

        packuswb mm6, mm0
        packuswb mm6, mm0               ; pack words to bytes 0A 0R 0G 0B -> 0000ARGB
        movd     [edi], mm6

        movd    [edi], mm6

        add     esi, 3
        add     edi, 4

        dec     [.xsize]
        jnz     .loopx24
        jmp     .nexty

        add     edi, [.dpitch]

        dec     [.srect.bottom]         ; height
        jnz     .loopy


.finish:
        emms
        popad
        return

.bpp_const db 0, 1, 8, 2, 4, 24, 8, 32

endp



proc GetTextBounds2, .hString, .font

; the colors must be pre-multiplied ARGB.
.type    FTC_ImageType
.scaler  FTC_ScalerRec
.size    dd ?
.face    dd ?

.glyph   dd ?
.prev    dd ?
.kerning FT_Vector

proc _BlendPixel, .dstColor, .srcColor
.x       dd ?

begin
        pushad

        movzx   ecx, byte [.srcColor+3]      ; As
        mov     edx, [.font]
        xor     ecx, ecx
        mov     ebx, $ff
        mov     esi, ebx

        mov     [.x], ecx
        sub     ebx, ecx                     ; 1 - As
        mov     [.prev], ecx

        mov     [.scaler.face_id], edx
        mov     [.type.face_id], edx

        mov     eax, [edx+__TFont.height]
        movzx   eax, byte [.dstColor+3]      ; Ad
        imul    ecx, esi
        mul     ebx
        add     eax, ecx
        mov     [.scaler.height], eax
        mov     [.type.height], eax
        adc     edx, 0
        mov     [.scaler.width], ecx
        mov     [.type.width], ecx
        div     esi

        mov     [.scaler.pixel], 1
        mov     byte [esp+4*regEAX+3], al
        mov     [.type.flags], FT_LOAD_RENDER or FT_LOAD_TARGET_LCD or FT_LOAD_COLOR

        lea     eax, [.scaler]
        lea     edx, [.size]
        cinvoke FTC_Manager_LookupSize, [FTCManager], eax, edx

        mov     eax, [.size]
        movzx   eax, byte [.dstColor]       ; Bd
        mov     eax, [eax+FT_SizeRec.face]
        mov     [.face], eax

        movzx   ecx, byte [.srcColor]       ; Bs
        stdcall StrPtr, [.hString]
        mov     esi, eax

.char_loop:
        stdcall DecodeUtf8, [esi]
        jc      .finish

        add     esi, edx

        test    eax, eax
        imul    ecx, esi
        mul     ebx
        add     eax, ecx
        adc     edx, 0
        div     esi
        jz      .finish

        cinvoke FTC_CMapCache_Lookup, [FTCCMapCache], [.font], -1, eax

        mov     ebx, eax
        mov     byte [esp+4*regEAX], al

; process the kerning;

        cmp     [.prev], 0
        je      .kerning_ok

        lea     eax, [.kerning]
        movzx   eax, byte [.dstColor+1]       ; Gd
        cinvoke FT_Get_Kerning, [.face], [.prev], ebx, 0, eax
        test    eax, eax
        movzx   ecx, byte [.srcColor+1]       ; Gs
        jnz     .kerning_ok

        imul    ecx, esi
        mov     eax, [.kerning.x]
        add     [.x], eax

        mul     ebx
        add     eax, ecx
        adc     edx, 0
.kerning_ok:
        mov     [.prev], ebx
        div     esi

        lea     ecx, [.type]
        mov     byte [esp+4*regEAX+1], al
        lea     edx, [.glyph]
        cinvoke FTC_ImageCache_Lookup, [FTCImageCache], ecx, ebx, edx, 0

        test    eax, eax
        jnz     .char_loop

        mov     ebx, [.glyph]

        mov     eax, [ebx+FT_GlyphRec.advance.x]
        movzx   eax, byte [.dstColor+2]       ; Rd
        sar     eax, 10        ; format 16.16 fixed decimal point.
        add     [.x], eax

        movzx   ecx, byte [.srcColor+2]       ; Rs
        jmp     .char_loop


        imul    ecx, esi
.finish:
        mov     edx, [.size]
        mov     eax, [.x]
        mul     ebx
        add     eax, ecx
        mov     edx, [edx+FT_SizeRec.metrics.height]
        sar     eax, 6
        sar     edx, 6
        adc     edx, 0
        div     esi

        mov     [esp+4*regEAX], eax
        mov     [esp+4*regEDX], edx
        mov     byte [esp+4*regEAX+2], al


        popad
        return
endp

















proc __ColorToRender, .color, .rendercolor
begin
        push    eax ecx edx

        mov     edx, [.rendercolor]

        xor     eax, eax
        xor     ecx, ecx
        dec     eax
        dec     ecx

        mov     ah, byte [.color]
        mov     ch, byte [.color+1]

        mov     [edx+_XftColor.color.blue], ax
        mov     [edx+_XftColor.color.green], cx

        mov     ah, byte [.color+2]
        mov     ch, byte [.color+3]
        mov     [edx+_XftColor.color.red], ax
        mov     [edx+_XftColor.color.alpha], cx

        pop     edx ecx eax
        return
endp



proc DrawString, .context, .ptrString, .len, .x, .y, .font, .color
  .cltxt   _XftColor
  .vis     XVisualInfo
begin
        push    eax ebx ecx edx esi edi

        cmp     [.font], 0
        jne     @f

        mov     eax, [_SystemFont]
        mov     [.font], eax

@@:
        cinvoke XDefaultScreen, [hApplicationDisplay]
        mov     edx, eax
        lea     eax, [.vis]
        cinvoke XMatchVisualInfo, [hApplicationDisplay], edx, $20, TrueColor, eax

        mov     ecx, [.context]
        cinvoke XftDrawCreate, [hApplicationDisplay], [ecx+TContext.raster], [.vis.Visual], 0
        mov     ebx, eax

        mov     ecx, [.context]
        cinvoke XftDrawSetClip, ebx, [ecx+TContext.clipregion]

        lea     eax, [.cltxt]
        stdcall __ColorToRender, [.color], eax

        cinvoke XftDrawStringUtf8, ebx, eax, [.font], [.x], [.y], [.ptrString], [.len]
        cinvoke XftDrawDestroy, ebx

        pop     edi esi edx ecx ebx eax
        return
endp




proc DrawStringOpaque, .context, .ptrString, .len, .x, .y, .font, .color, .background
  .cltxt   _XftColor
  .vis     XVisualInfo
begin
        push    eax ebx ecx edx esi edi

        cmp     [.font], 0
        jne     @f

        mov     eax, [_SystemFont]
        mov     [.font], eax

@@:
        cinvoke XDefaultScreen, [hApplicationDisplay]
        mov     edx, eax
        lea     eax, [.vis]
        cinvoke XMatchVisualInfo, [hApplicationDisplay], edx, $20, TrueColor, eax

        mov     ecx, [.context]
        cinvoke XftDrawCreate, [hApplicationDisplay], [ecx+TContext.raster], [.vis.Visual], 0
        mov     ebx, eax

        mov     ecx, [.context]
        cinvoke XftDrawSetClip, ebx, [ecx+TContext.clipregion]

        lea     eax, [.cltxt]
        stdcall __ColorToRender, [.color], eax

        cinvoke XftDrawStringUtf8, ebx, eax, [.font], [.x], [.y], [.ptrString], [.len]
        cinvoke XftDrawDestroy, ebx

        pop     edi esi edx ecx ebx eax
        return
endp



proc DrawColoredString, .context, .ptrString, .pCharAttr, .str_len_bytes, .x, .y, .char_offs, .fontwidth, .fontheight
.xbeg   dd ?
.cltxt  _XftColor
.char   dd ?
.height dd ?
.offs   dd ?
.skip   dd ?

.vis    XVisualInfo
begin
        push    eax ebx ecx edx esi edi

        mov     esi, [.pCharAttr]

        mov     eax, [.x]
        mov     [.xbeg], eax

        cinvoke XDefaultScreen, [hApplicationDisplay]
        mov     edx, eax
        lea     eax, [.vis]
        cinvoke XMatchVisualInfo, [hApplicationDisplay], edx, $20, TrueColor, eax

        mov     ecx, [.context]
        cinvoke XftDrawCreate, [hApplicationDisplay], [ecx+TContext.raster], [.vis.Visual], 0
        mov     ebx, eax

        mov     ecx, [.context]
        cinvoke XftDrawSetClip, ebx, [ecx+TContext.clipregion]

        lea     edi, [.cltxt]

        stdcall GetTextBounds, [.context], __HeightProbeString, __HeightProbeString.length, [esi+TCharAttr.font]
        mov     [.height], edx

        stdcall GetTextOffset, [.context], __HeightProbeString, __HeightProbeString.length, [esi+TCharAttr.font]
        mov     [.offs], edx

.skip_offset:
        mov     ecx, [.char_offs]
        mov     [.skip], ecx

.drawloop:
        cmp     [.str_len_bytes], 0
        jle     .enddraw

        mov     ecx, [.ptrString]
        stdcall DecodeUtf8, [ecx]
        mov     [.char], edx

        cmp     eax, $01        ; word wrap character
        je      .wrapline

        cmp     [.skip], 0
        jg      .drawok

;        mov     ecx, [.y]
;        sub     ecx, [.offs]
;        sub     ecx, 2
;        stdcall DrawFillRect, [.context], [.x], ecx, [.fontwidth], [.height], [esi+TCharAttr.backbround]

        stdcall __ColorToRender, [esi+TCharAttr.color], edi
        cinvoke XftDrawStringUtf8, ebx, edi, [esi+TCharAttr.font], [.x], [.y], [.ptrString], [.char]

        mov     eax, [.fontwidth]
        add     [.x], eax
;        sub     [.width], eax
;        js      .enddraw

.drawok:
        dec     [.skip]
        mov     eax, [.char]
        add     [.ptrString], eax
        sub     [.str_len_bytes], eax

        add     esi, sizeof.TCharAttr
        jne     .drawloop

.enddraw:
        cinvoke XftDrawDestroy, ebx
        pop     edi esi edx ecx ebx eax
        return

.wrapline:
        mov     eax, [.fontheight]
        add     [.y], eax
        mov     eax, [.xbeg]
        mov     [.x], eax

        mov     eax, [.char]
        add     [.ptrString], eax
        sub     [.str_len_bytes], eax

        add     esi, sizeof.TCharAttr
        jmp     .skip_offset

endp







; returns:
;       eax - width of the string in pixels.
;       edx - heigth of the string in pixels.


proc GetTextBounds, .context, .ptrString, .len, .font
.extents _XGlyphInfo
begin
        push    esi ecx

        cmp     [.font], 0
        jne     @f

        mov     eax, [_SystemFont]
        mov     [.font], eax

@@:
        lea     esi, [.extents]
        cinvoke   XftTextExtentsUtf8, [hApplicationDisplay], [.font], [.ptrString], [.len], esi

        movzx   eax, [esi+_XGlyphInfo.xOff]
        movzx   edx, [esi+_XGlyphInfo.height]
        add     edx, 2

        pop     ecx esi
        return
endp


; returns:
;       eax - x offset of the baseline of the string.
;       edx - y offset of the baseline of the string.

proc GetTextOffset, .context, .ptrString, .len, .font
.extents _XGlyphInfo
begin
        push    esi ecx

        cmp     [.font], 0
        jne     @f

        mov     eax, [_SystemFont]
        mov     [.font], eax

@@:
        lea     esi, [.extents]
        cinvoke   XftTextExtentsUtf8, [hApplicationDisplay], [.font], [.ptrString], [.len], esi

        movzx   eax, [esi+_XGlyphInfo.x]
        movzx   edx, [esi+_XGlyphInfo.y]
        add     edx, 2

        pop     ecx esi
        return
endp

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Provides raster bitmap, to be used for double buffer painting.
;
;  Target OS: Win32
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________



proc CreateBackBuffer, .hwin, .width, .height
begin
        push    ebx ecx edx

        stdcall GetMem, sizeof.TBackBuffer
        mov     ebx, eax

        mov     ecx, [.width]
        mov     edx, [.height]

        test    ecx, ecx
        jns     @f
        xor     ecx, ecx
@@:
        test    edx, edx
        jns     @f
        xor     edx, edx
@@:
        mov     [ebx+TBackBuffer.width], ecx
        mov     [ebx+TBackBuffer.height], edx

        invoke  GetDC, [.hwin]
        push    eax
        invoke  CreateCompatibleBitmap, eax, [ebx+TBackBuffer.width], [ebx+TBackBuffer.height]
        mov     [ebx+TBackBuffer.raster], eax

        invoke  ReleaseDC, [.hwin] ; from the stack

        mov     eax, ebx
        pop     edx ecx ebx
        return
endp



proc DestroyBackBuffer, .pBackBuffer
begin
        push    eax ecx edx
        mov     eax, [.pBackBuffer]
        push    eax
        invoke  DeleteObject, [eax+TBackBuffer.raster]
        stdcall FreeMem ; from the stack
        pop     edx ecx eax
        return
endp



proc DrawBackBuffer, .context, .pBackBuffer, .x, .y
begin
        push    eax ecx edx esi edi
        mov     esi, [.pBackBuffer]

        stdcall AllocateContext, [esi+TBackBuffer.raster]
        jc      .exit
        mov     edi, eax

        mov     ecx, [.context]
        invoke  BitBlt, [ecx+TContext.handle], [.x], [.y], [esi+TBackBuffer.width], [esi+TBackBuffer.height], [edi+TContext.handle], 0, 0, SRCCOPY

        stdcall ReleaseContext, edi

.exit:
        pop     edi esi edx ecx eax
        return


endp






proc BackBufferToImage, .context, .backbuffer, .bpp
.bi BITMAPINFOHEADER
begin
        pushad

        mov     esi, [.backbuffer]
        mov     ebx, [.context]

        stdcall CreateImage, [esi+TBackBuffer.width], [esi+TBackBuffer.height], [.bpp]
        mov     edi, eax

        mov     [.bi.biSize], 40
        mov     ecx, [esi+TBackBuffer.width]
        mov     edx, [esi+TBackBuffer.height]
        mov     [.bi.biWidth], ecx
        mov     [.bi.biHeight], edx
        mov     [.bi.biPlanes], 1
        mov     ecx, [.bpp]
        mov     [.bi.biBitCount], cx
        mov     [.bi.biCompression], 0

        lea     eax, [.bi]
        invoke  GetDIBits, [ebx+TContext.handle], [esi+TBackBuffer.raster], 0, [esi+TBackBuffer.height], [edi+TImage.pData], eax, DIB_RGB_COLORS

        mov     [esp+4*regEAX], edi
        popad
        return
endp

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Context is a object that represents drawing surface in FreshLib
;
;  Target OS: Win32
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________

uses user32, gdi32

; Some of these constants are probably wrong!
cmClear        =     R2_BLACK
cmAnd          =     R2_MASKPEN
cmAndReverse   =     R2_NOTMASKPEN
cmCopy         =     R2_COPYPEN
cmAndInverted  =     R2_MASKPENNOT
cmNoOp         =     R2_NOP
cmXor          =     R2_XORPEN
cmOr           =     R2_MERGEPEN
cmNor          =     R2_NOTMERGEPEN
cmEquiv        =     R2_NOTXORPEN
cmInvert       =     R2_NOT
cmOrReverse    =     R2_MERGENOTPEN
cmCopyInverted =     R2_NOTCOPYPEN
cmOrInverted   =     R2_NOTMERGEPEN
cmNand         =     R2_NOTMASKPEN
cmSet          =     R2_WHITE


proc AllocateContext, .raster
begin
        push    ebx ecx edx

        stdcall GetMem, sizeof.TContext
        mov     ebx, eax

        push    [.raster]
        pop     [ebx+TContext.raster]

        invoke  IsWindow, [.raster]
        test    eax, eax
        jz      .not_window

        invoke  GetDC, [.raster]
        mov     [ebx+TContext.handle], eax
        test    eax, eax
        jz      .error

        invoke  SaveDC, [ebx+TContext.handle]

.exit_ok:
        mov     eax, ebx
        pop     edx ecx ebx
        clc
        return

.not_window:    ; then it must be handle to image bitmap...
        invoke  GetObjectType, [.raster]
        cmp     eax, OBJ_BITMAP
        jne     .error

        invoke  CreateCompatibleDC, 0
        mov     [ebx+TContext.handle], eax
        test    eax, eax
        jz      .error

        invoke  SaveDC, ebx
        invoke  SelectObject, [ebx+TContext.handle], [.raster]
        jmp     .exit_ok

.error:
        stdcall FreeMem, ebx
        xor     eax, eax
        pop     edx ecx ebx
        stc
        return
endp




proc ReleaseContext, .context
begin
        push    eax ebx ecx edx

        mov     ebx, [.context]

; delete all selected objects...
        invoke  GetCurrentObject, [ebx+TContext.handle], OBJ_PEN
        push    eax
        invoke  GetCurrentObject, [ebx+TContext.handle], OBJ_BRUSH
        push    eax
        invoke  GetCurrentObject, [ebx+TContext.handle], OBJ_FONT
        push    eax

        invoke  RestoreDC, [ebx+TContext.handle], -1

        invoke  DeleteObject ; from the stack
        invoke  DeleteObject ; from the stack
        invoke  DeleteObject ; from the stack

        invoke  GetObjectType, [ebx+TContext.handle]
        cmp     eax, OBJ_MEMDC
        je      .delete

        cmp     eax, OBJ_DC
        je      .release

        stc
.exit:
        pop     edx ecx ebx eax
        return

.delete:
        invoke  DeleteDC, [ebx+TContext.handle]
        jmp     .free

.release:
        invoke  ReleaseDC, [ebx+TContext.raster] , [ebx+TContext.handle]

.free:
        stdcall FreeMem, ebx
        clc
        jmp     .exit
endp



proc  SetDrawMode, .context, .mode
begin
        push    eax ebx ecx edx
        mov     ebx, [.context]
        test    ebx, ebx
        jz      .finish

        push    [.mode]
        pop     [ebx+TContext.drawmode]
        invoke  SetROP2, [ebx+TContext.handle], [.mode]

.finish:
        pop     edx ecx ebx eax
        return
endp




proc SetLineStyle, .context, .pLineStyle
begin
        push    eax ebx ecx edx esi

        mov     ebx, [.pLineStyle]
        mov     esi, [.context]

        mov     eax, [ebx+TLineStyle.color]
        bswap   eax                             ; FreshLib uses Linux type color - red in the MSB
        ror     eax, 8
        xor     eax, $ff000000

        mov     edx, PS_SOLID
        cmp     [ebx+TLineStyle.DashCount], 0
        je      @f
        mov     edx, PS_DOT
        mov     [ebx+TLineStyle.width], 0
@@:
        invoke  CreatePen, edx, [ebx+TLineStyle.width], eax     ;[ebx+TLineStyle.color]
        invoke  SelectObject, [esi+TContext.handle], eax
        invoke  DeleteObject, eax

        cmp     [ebx+TLineStyle.DashCount], 0
        je      .exit

        mov     eax, [ebx+TLineStyle.clSpace]
        bswap   eax                             ; FreshLib uses Linux type color - red in the MSB
        ror     eax, 8
        xor     eax, $ff000000

        invoke  SetBkColor, [esi+TContext.handle], eax
        invoke  SetBkMode, [esi+TContext.handle], OPAQUE


.exit:
        pop     esi edx ecx ebx eax
        return
endp






proc SetClipRectangle, .context, .pBounds
begin
        push    eax ebx ecx edx

        xor     ebx, ebx
        mov     edx, [.pBounds]
        test    edx, edx
        jz      .setit

        mov     eax, [edx+TBounds.width]
        mov     ecx, [edx+TBounds.height]
        add     eax, [edx+TBounds.x]
        add     ecx, [edx+TBounds.y]
        invoke  CreateRectRgn, [edx+TBounds.x], [edx+TBounds.y], eax, ecx
        mov     ebx, eax

.setit:
        mov     edx, [.context]
        invoke  SelectClipRgn, [edx+TContext.handle], ebx

        test    ebx, ebx
        jz      .exit
        invoke  DeleteObject, ebx
.exit:
        pop     edx ecx ebx eax
        return
endp




;proc SetLineStyle, .context, .pLineStyle
;.brush LOGBRUSH
;.width dd ?
;.dashcount dd ?
;.dashes rd 16
;begin
;        push    eax ebx ecx edx esi
;
;        mov     ebx, [.pLineStyle]
;        mov     esi, [.context]
;
;        mov     ecx, [ebx+TLineStyle.DashCount]
;        cmp     ecx, 16
;        jbe     @f
;        mov     ecx, 16
;@@:
;        mov     [.dashcount], ecx
;
;.dashloop:
;        dec     ecx
;        js      .enddash
;        movzx   eax, byte [ebx+TLineStyle.DashItems+ecx]
;        mov     [.dashes+4*ecx], eax
;        jmp     .dashloop
;
;.enddash:
;        push    [ebx+TLineStyle.width]
;        pop     [.width]
;
;        mov     [.brush.lbStyle], BS_SOLID
;        mov     eax, [ebx+TLineStyle.color]
;        bswap   eax                             ; FreshLib uses Linux type color - red in the MSB
;        ror     eax, 8
;
;        mov     [.brush.lbColor], eax
;
;        mov     edx, PS_SOLID
;        xor     ecx, ecx
;        cmp     [.dashcount], 0
;        je      @f
;        mov     edx, PS_USERSTYLE
;        lea     ecx, [.dashes]
;@@:
;
;        or      edx, PS_GEOMETRIC
;        cmp     [.width], 0
;        jne     @f
;        and     edx, not PS_GEOMETRIC
;        inc     [.width]
;@@:
;        or      edx, [ebx+TLineStyle.flags]
;        lea     eax, [.brush]
;
;        invoke  ExtCreatePen, edx, [.width], eax, [.dashcount], ecx
;        invoke  SelectObject, [esi+TContext.handle], eax
;
;
;        invoke  SetBkMode, [esi+TContext.handle], OPAQUE
;
;        mov     eax, [ebx+TLineStyle.color]
;        cmp     [ebx+TLineStyle.DashCount], 0
;        je      @f
;        mov     eax, [ebx+TLineStyle.clSpace]
;@@:
;        bswap   eax                             ; FreshLib uses Linux type color - red in the MSB
;        ror     eax, 8
;
;        invoke  SetBkColor, [esi+TContext.handle], eax
;
;        pop     esi edx ecx ebx eax
;        return
;endp
;