WebSVN – Kolibri OS – Diff – /programs/other/rtfread/trunk/bgifont.inc


; BGIFONT.INC v1.0 beta
;
; Written in pure assembler by Ivushkin Andrey aka Willow
;
; Created: December 16, 2004
;
; Last changed: August 27, 2006
;
; Compile with FASM
 
; BGI constants
BGI_NODRAW   equ 0x10000
BGI_ITALIC   equ 0x20000
BGI_BOLD     equ 0x40000
BGI_HALEFT   equ 0x0
BGI_HARIGHT  equ 0x1000
BGI_HACENTER equ 0x2000
BGI_VABOTTOM equ 0x0
BGI_VATOP    equ 0x4000
BGI_VACENTER equ 0x8000
 
BGI_FREE     equ 0x80000000
BGI_HAMASK   equ 0x3000
BGI_VAMASK   equ 0xc000
 
; Freetext structure
struc BGIfree FontName,XY,Angle,ScaleX,ScaleY,StrPtr,StrLen,Color,Align
{
    dd FontName ;0
    dd XY	    ;4
    dd Angle	;8
    dd ScaleX	;12
    dd ScaleY	;16
    dd StrPtr	;20
    dd StrLen	;24
    dd Color	;28
    dd Align	;32
}
 
macro BGIfont_GetID
{
    call _BGIfont_GetID
}
 
macro BGIfont_Prepare
{
    call _BGIfont_Prepare
}
 
macro BGIfont_Freetext
{
    call _BGIfont_Freetext
}
 
macro BGIfont_Outtext
{
    call _BGIfont_Outtext
}
 
macro _FI name,_size
{
    db name
if BGI_LEVEL eq KERNEL
    dw _size
end if
}
 
BGIfont_get2head:
    shr  ecx,28 ; font #
    sub  ecx,4
    jb	 .exit2	; invalid #
    mov  edi,[BGIfont_Ptr]
    inc  edi
    cmp  cl,[edi-1]
    jae  .exit2 ; # too large
    jecxz .ex
  .fnext:
    mov  edi,[edi+16]
    loop .fnext
    jmp  .ex
  .exit2:
    xor  edi,edi
  .ex:
    ret
 
macro dps2 _str
{
	if LOAD_MSG eq 1
	dps _str
	end if
}
 
macro dph2 num,x,y
{
if  BGI_LEVEL eq KERNEL
    pusha
    mov  eax,0x00080100
    mov  ebx,num
    mov  ecx,x shl 16+y
    mov  edx,0xFF0000
    call display_number
    popa
end if
}
 
_BGIfont_GetID:
; in:  edx-font name;
; out: eax-fontID, edi->BGIrec
    push ecx edi
    mov  edi,[BGIfont_Ptr]
    movzx ecx,byte[edi] ; ecx-font count
    mov  eax,ecx
    inc  edi ; edi->FontName
    jecxz .ex
  .fnext:
    cmp  edx,[edi]
    jne  .floop
    sub  eax,ecx
    add  eax,4
    shl  eax,28
    jmp  .ex
  .floop:
    mov  edi,[edi+16]
    loop .fnext
  .num0:
    xor  eax,eax
  .ex:
    pop  edi ecx
    ret
 
_BGIfont_Prepare:
; in:  edx-font name, edi->pointer to load fonts (fonts_count)
; out: eax-ID of new font loaded; eax=0 error
    cmp  [BGIfont_Ptr],0
    jne  .already
    mov  [BGIfont_Ptr],edi
  .already:
    pusha
    mov  edi,[BGIfont_Ptr]
    movzx ecx,byte[edi] ; ecx-font count
    mov  eax,ecx
    inc  edi ; edi->FontName
    jecxz .fload
  .fnext:
    cmp  edx,[edi]
    jne  .loop
    sub  eax,ecx
    inc  eax
    jmp  .cr_id
  .loop:
    mov  edi,[edi+16]
    loop .fnext
  .fload:
    mov  dword[.font],edx ; filename
    mov  esi,edi     ; esi->FontName
    mov  [.dest],edi ; ptr to load font
    ;    mov     eax, 70
    ;    mov     ebx, .fontattr
    ;    mcall
    ;    test    eax, eax
    ;    ;jnz     .fail
    ;    dps2    '1'
    ;    mov     eax, [.fileattr+32]
    ;mov  [.fsize], litt_end-litt_file
    ;mov  ebx,.fontinfo
    ;mov  eax,70
    ;mcall	     ; ebx - file size
    mov ebx, litt_end-litt_file
    mov edi, litt_file
	mov  [.dest],litt_file ; ptr to load font
 
    cmp  dword[edi],0x08084b50 ; 'PK',8,8
    jne  .fail
    dps2 '2'
    inc  edi
    mov  eax,26 ; #EOF
    mov  ecx,253
    cld
    repne scasb  ; skip Copyright
    test ecx,ecx
    jz	 .fail
    dps2  '3'
    cmp  edx,[edi+2] ; FontName
    jne  .fail
    dps2  '4'
    movzx ecx,word[edi] ; HeaderSize
    sub  ebx,ecx  ; Filesize-Headersize
    movzx eax,word[edi+6] ; FontSize
    cmp  eax,ebx
    jb	 .fail	  ; file truncated
    add  ecx,[.dest]
    dps2  '5'
    cmp  byte[ecx],'+'	; ParPrefix
    jne  .fail
; font is valid, let's fill parameter table
    dps2  '>'
    mov  [esi],edx ; FontName
    mov  edx,eax
    add  eax,ecx
    mov  [esi+16],eax ; Font EOF
    movzx eax,word[ecx+5]
    add  eax,ecx
    mov  [esi+12],eax
    lea  edi,[esi+4]  ; edi->CharsCount
    lea  esi,[ecx+1] ; esi->ParPrefix+1
    xor  eax,eax
    lodsw
    stosb  ; CharsCount
    inc  esi
    movsb  ; FirstChar
    add  esi,3
    lodsw
    stosb  ; UpperMargin
    movsb  ; LowerMargin
    add  esi,5 ; esi->offsets
    mov  eax,[esi]
    push edi ; edi->Widths
; prepare moving data
    add  edi,12 ; edi->offsets
    lea  ecx,[edx-16]
    rep  movsb
    pop  edi ; edi->Widths
    mov  [edi+8],esi ; EOF
;    mov  eax,[edi]
    movzx ecx,byte[edi-4] ; CharsCount
    lea  eax,[edi+12+ecx*2] ; eax->widths
    stosd  ; edi->FirstData
    add  eax,ecx
    stosd  ; edi->EOF
    mov  eax,[esp] ; eax->fonts_count
    inc  byte[eax] ; increase font counter
    movzx eax,byte[eax]
  .cr_id:
    add  eax,0x3   ; create unique ID
    shl  eax,28    ; to easy use in color(ecx)
    jmp  .exit
  .fail:
    xor  eax,eax
  .exit:
    mov  [esp+28],eax
    popa
    ret
 
.fontinfo:
	dd 0
	dd 0
	dd 0
.fsize	dd 0
.dest	dd 0
.fontfullname:
	db BGIFONT_PATH
.font	db 'LITT.CHR',0
 
.fontattr:
        dd      5
        dd      0
        dd      0
        dd      0
        dd      .fileattr
        db      0
        dd      .fontfullname
.fileattr rd 40/4
 
 
BGIfont_Coo:
; y->word[txt.y1], x->word[txt.x1]
    fild [txt.y1] ;y
    fmul st0,st0; y*y
    fild [txt.x1] ;x
    fmul st0,st0; x*x
    faddp  ; x*x+y*y
    fsqrt  ; sqrt, angle
    fild [txt.y1];y
    fabs
    fild [txt.x1] ; x
    fabs
    fpatan ; arctg(y/x)
  .skip:
    cmp  [txt.x1],0
    jge  .xplus
    fchs
    fadd st0,st3
  .xplus:
    cmp  [txt.y1],0
    jge  .yplus
    fchs
  .yplus:
    fadd st0,st2
    fsincos
    fmul st0,st2
    fiadd [txt.x0]
    fistp [txt.x1] ; x=r*cos a
    fmulp ; y=r*sin a,angle
    fiadd [txt.y0]
    fistp [txt.y1]
    ret
 
_BGIfont_Freetext:
; in: ebx-BGIfree structure
; out: eax-new drawing coords
    mov  edx,[ebx]
    call _BGIfont_GetID
    test eax,eax
    jnz  .fexists
    ret
  .fexists:
    pusha
    fninit
    fldpi
    fld  [pi180]
    fimul dword[ebx+8]
    fst  [BGIangle]
    mov  esi,[ebx+28]
    and  esi,0xffffff
    add  esi,eax
    mov  eax,[ebx+32]
    and  [deform],0
    test eax,BGI_ITALIC
    jz	 .norm
    mov  [deform],dword 0.4
  .norm:
    mov  ebp,eax
    or	  ebp,BGI_FREE
    mov  eax,[ebx+12]
    mov  [Xscale],eax
    mov  eax,[ebx+16]
    mov  [Yscale],eax
    mov  ecx,[ebx+20]
    mov  edx,ebp
    and  edx,BGI_FREE+BGI_VAMASK+BGI_HAMASK
    add  edx,[ebx+24]
    mov  eax,[ebx+4]
    mov  ebx,esi
    add  ebx,0x6000000
    mov  [esp+4],edx
    mov  [esp+20],ecx
    jmp  txt
 
    pi180 dd 0.017453
 
_BGIfont_Outtext:
; in: ebx-[x][y], ecx-color, edx-string, esi-length
    pusha
    mov  ebp,esi
if ~ BGI_LEVEL eq KERNEL
    mov  eax,ebx
    mov  ebx,ecx
    mov  ecx,edx
    mov  edx,esi
end if
; in: eax-[x][y], ebx-color, ecx-string, edx-length
txt:
if  ~ BGI_LEVEL eq KERNEL
  if  BGI_WINDOW_CLIP eq 1
    pusha
    mov  eax,9
    mov  ebx,BGI_PRC_INFO
    mov  ecx,-1
    mcall
    popa
  end if
end if
    mov  [.y0],ax
    shr  eax,16
    mov  [.x0],ax
    mov  ecx,ebx ; color
    and  ebx,0xfffffff
    mov  [.color],ebx
    call BGIfont_get2head
    test edi,edi
    jz   .exit
    mov  ecx,[esp+4]; str length
    mov  esi,[esp+20]; str ptr
    movzx eax,byte[edi+5]
    push ecx
    and  ecx,0xff
    jnz  .lenok
    add  esp,4
    jmp  .ex2
  .lenok:
    pusha
    push dword[txt.y0]
    and  dword[txt.y0],0
    xor  edx,edx
    mov  ebx,[edi+8]
   .next:
    call txt.BGIfont_GetChar
    movzx eax,byte[ebx+eax]
    add  edx,eax
    loop .next
    mov  ecx,edx ; ecx - x size
    movzx dx,byte[edi+6]
    mov  [BGIheight],dx
    mov  ebx,[esp+36]
    and  ebx,BGI_HAMASK
    cmp  ebx,BGI_HARIGHT
    je   .nova
    ja   .subv
    xor  ecx,ecx
    jmp  .nova
  .subv:
    shr  cx,1
  .nova:
    mov  ebx,[esp+36]
    and  ebx,BGI_VAMASK
    cmp  ebx,BGI_VATOP
    je   .def
    ja   .subh
    xor  edx,edx
    jmp  .def
  .subh:
    shr  dx,1
  .def:
    call txt.BGIfont_Deform
    pop  dword[txt.y0]
    popa
    pop  ebx
    mov  ax,[txt.y1]
    sub  [txt.y0],ax
    mov  ax,[txt.x1]
    sub  [txt.x0],ax
    xor  eax,eax
    cld
.mloop:
    push [.y0]
    pop  [.y]
    push [.x0]
    pop  [.x]
    call .BGIfont_GetChar
    push esi
    lea  esi,[edi+20] ; offset
    movzx edx,word[esi+eax*2] ; ofs1
    add  edx,[edi+12]
    inc  eax
    cmp  al,[edi+4]
    je	 .eof
    movzx eax,word[esi+eax*2]; ofs2
    add   eax,[edi+12]
    jmp   .prc_vec
  .eof:
    mov  eax,[edi+16] ; ofs2=eof
  .prc_vec:  ; edx-vec cmd ifs, eax-cmd limit
    mov  [.vec_end],eax
    push ecx
  .vec_loop:
    mov  ax,word[edx]
    push edx
    mov  ecx,eax
    and  eax,0x8080 ; op
    and  ecx,0x7f ; xx
    mov  edx,[edx+1]
    and  edx,0x7f ; yy
    cmp  edx,63
    jbe  .positive
    sub  edx,128  ; yy-=128
  .positive:
    cmp  ecx,63
    jbe  .positive2
    sub  ecx,128  ; xx-=128
  .positive2:
    call .BGIfont_Deform
    cmp  eax,0x8080
    jne  .noline
    test ebp,BGI_NODRAW
    jnz  .noline
; draw vector
if ~ BGI_LEVEL eq KERNEL
    push eax
    mov  ebx,dword[.x1]
    mov  ecx,dword[.y1]
  if BGI_WINDOW_CLIP eq 1
    movzx eax,[.x]
    cmp  eax,dword[BGI_PRC_INFO+42]
    ja   .nobold
    movzx eax,[.y]
    cmp  eax,dword[BGI_PRC_INFO+46]
    ja  .nobold
    xor  eax,eax
    cmp  ax,bx
    jg   .nobold
    cmp  ax,cx
    jg   .nobold
  end if
    mov  edx,[.color]
; \begin{diamond}[18.08.2006]
; starting from K0530 kernel interprets flag 0x1000000 as
; negate existing pixels colors, disregarding passed color
; we do not want this
    and  edx, 0xFFFFFF
; \end{diamond}[18.08.2006]
    mov  eax,38
    mcall
    test ebp,BGI_BOLD
    jz	 .nobold
    test ebp,BGI_FREE
    jnz  .free5
  .free5:
    add  ebx,1 shl 16+1
    mcall
  .nobold:
    pop  eax
else
    pusha
    mov  eax,dword[.x1]
    mov  ebx,dword[.y1]
    mov  ecx,[.color]
;    call syscall_drawline
    test dword[esp+8],BGI_BOLD
    jz	 .nobold
    add  eax,1 shl 16+1
;    call syscall_drawline
  .nobold:
    popa
end if
  .noline:
    pop  edx
    test eax,eax
    je	 .eovecs  ; op=0
    push [.y1]
    pop  [.y]
    push [.x1]
    pop  [.x]
    add  edx,2
    cmp  edx,[.vec_end]
    jb	 .vec_loop
  .eovecs:
    pop  ecx esi
    push [.y]
    pop  [.y0]
    push [.x]
    pop  [.x0]
    loop .mloop1
    jmp  .exit
  .mloop1:
    jmp  .mloop
  .exit:
    mov  eax,dword[.y0]
    mov  [esp+28],eax
  .ex2:
    popa
    ret
 
.BGIfont_Deform:
    test ebp,BGI_FREE
    jnz  .free0
    movzx ebx,byte[.color+3] ;ebx=scale
    imul ecx,ebx
    add  ecx,2
    shr  ecx,2
    imul edx,ebx
    add  edx,2
    shr  edx,2
    neg  edx
    mov  [.x1],cx
    mov  [.y1],dx
    jmp  .add
  .free0:
    mov  [.x1],cx
    mov  [.y1],dx
    fild [.y1]
    fld  st0
    fmul [Yscale]
    fchs
    fistp [.y1]
    fmul [deform]
    fiadd [.x1]
    fmul [Xscale]
    fistp [.x1]
    cmp  [BGIangle],0
    je	 .add
    call BGIfont_Coo
    jmp  .eax
  .add:
    mov  cx,[.x0]
    add  [.x1],cx
    mov  cx,[.y0]
    add  [.y1],cx
  .eax:
    ret
 
.BGIfont_GetChar:
; in:  esi -> string; edi -> BGIrec
; out: esi -> next char; al - char obtained
    lodsb  ; al - char from str
    sub  al,[edi+5]
    jb	 .out
    cmp  al,[edi+4]
    jb	 .in
  .out:
    xor  al,al ; al - 1st symbol available
  .in:
    ret
 
.y0	 dw ?
.x0	 dw ?
 
.x1	 dw ?
.x	 dw ?
.y1	 dw ?
.y	 dw ?
 
.color	 dd ?
.vec_end dd ?
BGIfont_Ptr  dd 0
BGIheight dw ?
deform dd ?
BGIangle dd ?
Xscale  dd ?
Yscale  dd ?

Rev 7433	Rev 7434
1	; BGIFONT.INC v1.0 beta	1	; BGIFONT.INC v1.0 beta
2	;	2	;
3	; Written in pure assembler by Ivushkin Andrey aka Willow	3	; Written in pure assembler by Ivushkin Andrey aka Willow
4	;	4	;
5	; Created: December 16, 2004	5	; Created: December 16, 2004
6	;	6	;
7	; Last changed: August 27, 2006	7	; Last changed: August 27, 2006
8	;	8	;
9	; Compile with FASM	9	; Compile with FASM
10		10
11	; BGI constants	11	; BGI constants
12	BGI_NODRAW equ 0x10000	12	BGI_NODRAW equ 0x10000
13	BGI_ITALIC equ 0x20000	13	BGI_ITALIC equ 0x20000
14	BGI_BOLD equ 0x40000	14	BGI_BOLD equ 0x40000
15	BGI_HALEFT equ 0x0	15	BGI_HALEFT equ 0x0
16	BGI_HARIGHT equ 0x1000	16	BGI_HARIGHT equ 0x1000
17	BGI_HACENTER equ 0x2000	17	BGI_HACENTER equ 0x2000
18	BGI_VABOTTOM equ 0x0	18	BGI_VABOTTOM equ 0x0
19	BGI_VATOP equ 0x4000	19	BGI_VATOP equ 0x4000
20	BGI_VACENTER equ 0x8000	20	BGI_VACENTER equ 0x8000
21		21
22	BGI_FREE equ 0x80000000	22	BGI_FREE equ 0x80000000
23	BGI_HAMASK equ 0x3000	23	BGI_HAMASK equ 0x3000
24	BGI_VAMASK equ 0xc000	24	BGI_VAMASK equ 0xc000
25		25
26	; Freetext structure	26	; Freetext structure
27	struc BGIfree FontName,XY,Angle,ScaleX,ScaleY,StrPtr,StrLen,Color,Align	27	struc BGIfree FontName,XY,Angle,ScaleX,ScaleY,StrPtr,StrLen,Color,Align
28	{	28	{
29	dd FontName ;0	29	dd FontName ;0
30	dd XY ;4	30	dd XY ;4
31	dd Angle ;8	31	dd Angle ;8
32	dd ScaleX ;12	32	dd ScaleX ;12
33	dd ScaleY ;16	33	dd ScaleY ;16
34	dd StrPtr ;20	34	dd StrPtr ;20
35	dd StrLen ;24	35	dd StrLen ;24
36	dd Color ;28	36	dd Color ;28
37	dd Align ;32	37	dd Align ;32
38	}	38	}
39		39
40	macro BGIfont_GetID	40	macro BGIfont_GetID
41	{	41	{
42	call _BGIfont_GetID	42	call _BGIfont_GetID
43	}	43	}
44		44
45	macro BGIfont_Prepare	45	macro BGIfont_Prepare
46	{	46	{
47	call _BGIfont_Prepare	47	call _BGIfont_Prepare
48	}	48	}
49		49
50	macro BGIfont_Freetext	50	macro BGIfont_Freetext
51	{	51	{
52	call _BGIfont_Freetext	52	call _BGIfont_Freetext
53	}	53	}
54		54
55	macro BGIfont_Outtext	55	macro BGIfont_Outtext
56	{	56	{
57	call _BGIfont_Outtext	57	call _BGIfont_Outtext
58	}	58	}
59		59
60	macro _FI name,_size	60	macro _FI name,_size
61	{	61	{
62	db name	62	db name
63	if BGI_LEVEL eq KERNEL	63	if BGI_LEVEL eq KERNEL
64	dw _size	64	dw _size
65	end if	65	end if
66	}	66	}
67		67
68	BGIfont_get2head:	68	BGIfont_get2head:
69	shr ecx,28 ; font #	69	shr ecx,28 ; font #
70	sub ecx,4	70	sub ecx,4
71	jb .exit2 ; invalid #	71	jb .exit2 ; invalid #
72	mov edi,[BGIfont_Ptr]	72	mov edi,[BGIfont_Ptr]
73	inc edi	73	inc edi
74	cmp cl,[edi-1]	74	cmp cl,[edi-1]
75	jae .exit2 ; # too large	75	jae .exit2 ; # too large
76	jecxz .ex	76	jecxz .ex
77	.fnext:	77	.fnext:
78	mov edi,[edi+16]	78	mov edi,[edi+16]
79	loop .fnext	79	loop .fnext
80	jmp .ex	80	jmp .ex
81	.exit2:	81	.exit2:
82	xor edi,edi	82	xor edi,edi
83	.ex:	83	.ex:
84	ret	84	ret
85		85
86	macro dps2 _str	86	macro dps2 _str
87	{	87	{
88	if LOAD_MSG eq 1	88	if LOAD_MSG eq 1
89	dps _str	89	dps _str
90	end if	90	end if
91	}	91	}
92		92
93	macro dph2 num,x,y	93	macro dph2 num,x,y
94	{	94	{
95	if BGI_LEVEL eq KERNEL	95	if BGI_LEVEL eq KERNEL
96	pusha	96	pusha
97	mov eax,0x00080100	97	mov eax,0x00080100
98	mov ebx,num	98	mov ebx,num
99	mov ecx,x shl 16+y	99	mov ecx,x shl 16+y
100	mov edx,0xFF0000	100	mov edx,0xFF0000
101	call display_number	101	call display_number
102	popa	102	popa
103	end if	103	end if
104	}	104	}
105		105
106	_BGIfont_GetID:	106	_BGIfont_GetID:
107	; in: edx-font name;	107	; in: edx-font name;
108	; out: eax-fontID, edi->BGIrec	108	; out: eax-fontID, edi->BGIrec
109	push ecx edi	109	push ecx edi
110	mov edi,[BGIfont_Ptr]	110	mov edi,[BGIfont_Ptr]
111	movzx ecx,byte[edi] ; ecx-font count	111	movzx ecx,byte[edi] ; ecx-font count
112	mov eax,ecx	112	mov eax,ecx
113	inc edi ; edi->FontName	113	inc edi ; edi->FontName
114	jecxz .ex	114	jecxz .ex
115	.fnext:	115	.fnext:
116	cmp edx,[edi]	116	cmp edx,[edi]
117	jne .floop	117	jne .floop
118	sub eax,ecx	118	sub eax,ecx
119	add eax,4	119	add eax,4
120	shl eax,28	120	shl eax,28
121	jmp .ex	121	jmp .ex
122	.floop:	122	.floop:
123	mov edi,[edi+16]	123	mov edi,[edi+16]
124	loop .fnext	124	loop .fnext
125	.num0:	125	.num0:
126	xor eax,eax	126	xor eax,eax
127	.ex:	127	.ex:
128	pop edi ecx	128	pop edi ecx
129	ret	129	ret
130		130
131	_BGIfont_Prepare:	131	_BGIfont_Prepare:
132	; in: edx-font name, edi->pointer to load fonts (fonts_count)	132	; in: edx-font name, edi->pointer to load fonts (fonts_count)
133	; out: eax-ID of new font loaded; eax=0 error	133	; out: eax-ID of new font loaded; eax=0 error
134	cmp [BGIfont_Ptr],0	134	cmp [BGIfont_Ptr],0
135	jne .already	135	jne .already
136	mov [BGIfont_Ptr],edi	136	mov [BGIfont_Ptr],edi
137	.already:	137	.already:
138	pusha	138	pusha
139	mov edi,[BGIfont_Ptr]	139	mov edi,[BGIfont_Ptr]
140	movzx ecx,byte[edi] ; ecx-font count	140	movzx ecx,byte[edi] ; ecx-font count
141	mov eax,ecx	141	mov eax,ecx
142	inc edi ; edi->FontName	142	inc edi ; edi->FontName
143	jecxz .fload	143	jecxz .fload
144	.fnext:	144	.fnext:
145	cmp edx,[edi]	145	cmp edx,[edi]
146	jne .loop	146	jne .loop
147	sub eax,ecx	147	sub eax,ecx
148	inc eax	148	inc eax
149	jmp .cr_id	149	jmp .cr_id
150	.loop:	150	.loop:
151	mov edi,[edi+16]	151	mov edi,[edi+16]
152	loop .fnext	152	loop .fnext
153	.fload:	153	.fload:
154	mov dword[.font],edx ; filename	154	mov dword[.font],edx ; filename
155	mov esi,edi ; esi->FontName	155	mov esi,edi ; esi->FontName
156	mov [.dest],edi ; ptr to load font	156	mov [.dest],edi ; ptr to load font
157	mov eax, 70	157	; mov eax, 70
158	mov ebx, .fontattr	158	; mov ebx, .fontattr
159	mcall	159	; mcall
160	test eax, eax	160	; test eax, eax
161	;jnz .fail	161	; ;jnz .fail
162	dps2 '1'	162	; dps2 '1'
163	mov eax, [.fileattr+32]	163	; mov eax, [.fileattr+32]
164	mov [.fsize], litt_end-litt_file	164	;mov [.fsize], litt_end-litt_file
165	mov ebx,.fontinfo	165	;mov ebx,.fontinfo
166	mov eax,70	166	;mov eax,70
167	mcall ; ebx - file size	167	;mcall ; ebx - file size
168	;mov ebx, litt_end-litt_file	168	mov ebx, litt_end-litt_file
169	;mov edi, litt_file	169	mov edi, litt_file
170	;mov [.dest],litt_file ; ptr to load font	170	mov [.dest],litt_file ; ptr to load font
171		171
172	cmp dword[edi],0x08084b50 ; 'PK',8,8	172	cmp dword[edi],0x08084b50 ; 'PK',8,8
173	jne .fail	173	jne .fail
174	dps2 '2'	174	dps2 '2'
175	inc edi	175	inc edi
176	mov eax,26 ; #EOF	176	mov eax,26 ; #EOF
177	mov ecx,253	177	mov ecx,253
178	cld	178	cld
179	repne scasb ; skip Copyright	179	repne scasb ; skip Copyright
180	test ecx,ecx	180	test ecx,ecx
181	jz .fail	181	jz .fail
182	dps2 '3'	182	dps2 '3'
183	cmp edx,[edi+2] ; FontName	183	cmp edx,[edi+2] ; FontName
184	jne .fail	184	jne .fail
185	dps2 '4'	185	dps2 '4'
186	movzx ecx,word[edi] ; HeaderSize	186	movzx ecx,word[edi] ; HeaderSize
187	sub ebx,ecx ; Filesize-Headersize	187	sub ebx,ecx ; Filesize-Headersize
188	movzx eax,word[edi+6] ; FontSize	188	movzx eax,word[edi+6] ; FontSize
189	cmp eax,ebx	189	cmp eax,ebx
190	jb .fail ; file truncated	190	jb .fail ; file truncated
191	add ecx,[.dest]	191	add ecx,[.dest]
192	dps2 '5'	192	dps2 '5'
193	cmp byte[ecx],'+' ; ParPrefix	193	cmp byte[ecx],'+' ; ParPrefix
194	jne .fail	194	jne .fail
195	; font is valid, let's fill parameter table	195	; font is valid, let's fill parameter table
196	dps2 '>'	196	dps2 '>'
197	mov [esi],edx ; FontName	197	mov [esi],edx ; FontName
198	mov edx,eax	198	mov edx,eax
199	add eax,ecx	199	add eax,ecx
200	mov [esi+16],eax ; Font EOF	200	mov [esi+16],eax ; Font EOF
201	movzx eax,word[ecx+5]	201	movzx eax,word[ecx+5]
202	add eax,ecx	202	add eax,ecx
203	mov [esi+12],eax	203	mov [esi+12],eax
204	lea edi,[esi+4] ; edi->CharsCount	204	lea edi,[esi+4] ; edi->CharsCount
205	lea esi,[ecx+1] ; esi->ParPrefix+1	205	lea esi,[ecx+1] ; esi->ParPrefix+1
206	xor eax,eax	206	xor eax,eax
207	lodsw	207	lodsw
208	stosb ; CharsCount	208	stosb ; CharsCount
209	inc esi	209	inc esi
210	movsb ; FirstChar	210	movsb ; FirstChar
211	add esi,3	211	add esi,3
212	lodsw	212	lodsw
213	stosb ; UpperMargin	213	stosb ; UpperMargin
214	movsb ; LowerMargin	214	movsb ; LowerMargin
215	add esi,5 ; esi->offsets	215	add esi,5 ; esi->offsets
216	mov eax,[esi]	216	mov eax,[esi]
217	push edi ; edi->Widths	217	push edi ; edi->Widths
218	; prepare moving data	218	; prepare moving data
219	add edi,12 ; edi->offsets	219	add edi,12 ; edi->offsets
220	lea ecx,[edx-16]	220	lea ecx,[edx-16]
221	rep movsb	221	rep movsb
222	pop edi ; edi->Widths	222	pop edi ; edi->Widths
223	mov [edi+8],esi ; EOF	223	mov [edi+8],esi ; EOF
224	; mov eax,[edi]	224	; mov eax,[edi]
225	movzx ecx,byte[edi-4] ; CharsCount	225	movzx ecx,byte[edi-4] ; CharsCount
226	lea eax,[edi+12+ecx*2] ; eax->widths	226	lea eax,[edi+12+ecx*2] ; eax->widths
227	stosd ; edi->FirstData	227	stosd ; edi->FirstData
228	add eax,ecx	228	add eax,ecx
229	stosd ; edi->EOF	229	stosd ; edi->EOF
230	mov eax,[esp] ; eax->fonts_count	230	mov eax,[esp] ; eax->fonts_count
231	inc byte[eax] ; increase font counter	231	inc byte[eax] ; increase font counter
232	movzx eax,byte[eax]	232	movzx eax,byte[eax]
233	.cr_id:	233	.cr_id:
234	add eax,0x3 ; create unique ID	234	add eax,0x3 ; create unique ID
235	shl eax,28 ; to easy use in color(ecx)	235	shl eax,28 ; to easy use in color(ecx)
236	jmp .exit	236	jmp .exit
237	.fail:	237	.fail:
238	xor eax,eax	238	xor eax,eax
239	.exit:	239	.exit:
240	mov [esp+28],eax	240	mov [esp+28],eax
241	popa	241	popa
242	ret	242	ret
243		243
244	.fontinfo:	244	.fontinfo:
245	dd 0	245	dd 0
246	dd 0	246	dd 0
247	dd 0	247	dd 0
248	.fsize dd 0	248	.fsize dd 0
249	.dest dd 0	249	.dest dd 0
250	.fontfullname:	250	.fontfullname:
251	db BGIFONT_PATH	251	db BGIFONT_PATH
252	.font db 'LITT.CHR',0	252	.font db 'LITT.CHR',0
253		253
254	.fontattr:	254	.fontattr:
255	dd 5	255	dd 5
256	dd 0	256	dd 0
257	dd 0	257	dd 0
258	dd 0	258	dd 0
259	dd .fileattr	259	dd .fileattr
260	db 0	260	db 0
261	dd .fontfullname	261	dd .fontfullname
262	.fileattr rd 40/4	262	.fileattr rd 40/4
263		263
264		264
265	BGIfont_Coo:	265	BGIfont_Coo:
266	; y->word[txt.y1], x->word[txt.x1]	266	; y->word[txt.y1], x->word[txt.x1]
267	fild [txt.y1] ;y	267	fild [txt.y1] ;y
268	fmul st0,st0; y*y	268	fmul st0,st0; y*y
269	fild [txt.x1] ;x	269	fild [txt.x1] ;x
270	fmul st0,st0; x*x	270	fmul st0,st0; x*x
271	faddp ; xx+yy	271	faddp ; xx+yy
272	fsqrt ; sqrt, angle	272	fsqrt ; sqrt, angle
273	fild [txt.y1];y	273	fild [txt.y1];y
274	fabs	274	fabs
275	fild [txt.x1] ; x	275	fild [txt.x1] ; x
276	fabs	276	fabs
277	fpatan ; arctg(y/x)	277	fpatan ; arctg(y/x)
278	.skip:	278	.skip:
279	cmp [txt.x1],0	279	cmp [txt.x1],0
280	jge .xplus	280	jge .xplus
281	fchs	281	fchs
282	fadd st0,st3	282	fadd st0,st3
283	.xplus:	283	.xplus:
284	cmp [txt.y1],0	284	cmp [txt.y1],0
285	jge .yplus	285	jge .yplus
286	fchs	286	fchs
287	.yplus:	287	.yplus:
288	fadd st0,st2	288	fadd st0,st2
289	fsincos	289	fsincos
290	fmul st0,st2	290	fmul st0,st2
291	fiadd [txt.x0]	291	fiadd [txt.x0]
292	fistp [txt.x1] ; x=r*cos a	292	fistp [txt.x1] ; x=r*cos a
293	fmulp ; y=r*sin a,angle	293	fmulp ; y=r*sin a,angle
294	fiadd [txt.y0]	294	fiadd [txt.y0]
295	fistp [txt.y1]	295	fistp [txt.y1]
296	ret	296	ret
297		297
298	_BGIfont_Freetext:	298	_BGIfont_Freetext:
299	; in: ebx-BGIfree structure	299	; in: ebx-BGIfree structure
300	; out: eax-new drawing coords	300	; out: eax-new drawing coords
301	mov edx,[ebx]	301	mov edx,[ebx]
302	call _BGIfont_GetID	302	call _BGIfont_GetID
303	test eax,eax	303	test eax,eax
304	jnz .fexists	304	jnz .fexists
305	ret	305	ret
306	.fexists:	306	.fexists:
307	pusha	307	pusha
308	fninit	308	fninit
309	fldpi	309	fldpi
310	fld [pi180]	310	fld [pi180]
311	fimul dword[ebx+8]	311	fimul dword[ebx+8]
312	fst [BGIangle]	312	fst [BGIangle]
313	mov esi,[ebx+28]	313	mov esi,[ebx+28]
314	and esi,0xffffff	314	and esi,0xffffff
315	add esi,eax	315	add esi,eax
316	mov eax,[ebx+32]	316	mov eax,[ebx+32]
317	and [deform],0	317	and [deform],0
318	test eax,BGI_ITALIC	318	test eax,BGI_ITALIC
319	jz .norm	319	jz .norm
320	mov [deform],dword 0.4	320	mov [deform],dword 0.4
321	.norm:	321	.norm:
322	mov ebp,eax	322	mov ebp,eax
323	or ebp,BGI_FREE	323	or ebp,BGI_FREE
324	mov eax,[ebx+12]	324	mov eax,[ebx+12]
325	mov [Xscale],eax	325	mov [Xscale],eax
326	mov eax,[ebx+16]	326	mov eax,[ebx+16]
327	mov [Yscale],eax	327	mov [Yscale],eax
328	mov ecx,[ebx+20]	328	mov ecx,[ebx+20]
329	mov edx,ebp	329	mov edx,ebp
330	and edx,BGI_FREE+BGI_VAMASK+BGI_HAMASK	330	and edx,BGI_FREE+BGI_VAMASK+BGI_HAMASK
331	add edx,[ebx+24]	331	add edx,[ebx+24]
332	mov eax,[ebx+4]	332	mov eax,[ebx+4]
333	mov ebx,esi	333	mov ebx,esi
334	add ebx,0x6000000	334	add ebx,0x6000000
335	mov [esp+4],edx	335	mov [esp+4],edx
336	mov [esp+20],ecx	336	mov [esp+20],ecx
337	jmp txt	337	jmp txt
338		338
339	pi180 dd 0.017453	339	pi180 dd 0.017453
340		340
341	_BGIfont_Outtext:	341	_BGIfont_Outtext:
342	; in: ebx-[x][y], ecx-color, edx-string, esi-length	342	; in: ebx-[x][y], ecx-color, edx-string, esi-length
343	pusha	343	pusha
344	mov ebp,esi	344	mov ebp,esi
345	if ~ BGI_LEVEL eq KERNEL	345	if ~ BGI_LEVEL eq KERNEL
346	mov eax,ebx	346	mov eax,ebx
347	mov ebx,ecx	347	mov ebx,ecx
348	mov ecx,edx	348	mov ecx,edx
349	mov edx,esi	349	mov edx,esi
350	end if	350	end if
351	; in: eax-[x][y], ebx-color, ecx-string, edx-length	351	; in: eax-[x][y], ebx-color, ecx-string, edx-length
352	txt:	352	txt:
353	if ~ BGI_LEVEL eq KERNEL	353	if ~ BGI_LEVEL eq KERNEL
354	if BGI_WINDOW_CLIP eq 1	354	if BGI_WINDOW_CLIP eq 1
355	pusha	355	pusha
356	mov eax,9	356	mov eax,9
357	mov ebx,BGI_PRC_INFO	357	mov ebx,BGI_PRC_INFO
358	mov ecx,-1	358	mov ecx,-1
359	mcall	359	mcall
360	popa	360	popa
361	end if	361	end if
362	end if	362	end if
363	mov [.y0],ax	363	mov [.y0],ax
364	shr eax,16	364	shr eax,16
365	mov [.x0],ax	365	mov [.x0],ax
366	mov ecx,ebx ; color	366	mov ecx,ebx ; color
367	and ebx,0xfffffff	367	and ebx,0xfffffff
368	mov [.color],ebx	368	mov [.color],ebx
369	call BGIfont_get2head	369	call BGIfont_get2head
370	test edi,edi	370	test edi,edi
371	jz .exit	371	jz .exit
372	mov ecx,[esp+4]; str length	372	mov ecx,[esp+4]; str length
373	mov esi,[esp+20]; str ptr	373	mov esi,[esp+20]; str ptr
374	movzx eax,byte[edi+5]	374	movzx eax,byte[edi+5]
375	push ecx	375	push ecx
376	and ecx,0xff	376	and ecx,0xff
377	jnz .lenok	377	jnz .lenok
378	add esp,4	378	add esp,4
379	jmp .ex2	379	jmp .ex2
380	.lenok:	380	.lenok:
381	pusha	381	pusha
382	push dword[txt.y0]	382	push dword[txt.y0]
383	and dword[txt.y0],0	383	and dword[txt.y0],0
384	xor edx,edx	384	xor edx,edx
385	mov ebx,[edi+8]	385	mov ebx,[edi+8]
386	.next:	386	.next:
387	call txt.BGIfont_GetChar	387	call txt.BGIfont_GetChar
388	movzx eax,byte[ebx+eax]	388	movzx eax,byte[ebx+eax]
389	add edx,eax	389	add edx,eax
390	loop .next	390	loop .next
391	mov ecx,edx ; ecx - x size	391	mov ecx,edx ; ecx - x size
392	movzx dx,byte[edi+6]	392	movzx dx,byte[edi+6]
393	mov [BGIheight],dx	393	mov [BGIheight],dx
394	mov ebx,[esp+36]	394	mov ebx,[esp+36]
395	and ebx,BGI_HAMASK	395	and ebx,BGI_HAMASK
396	cmp ebx,BGI_HARIGHT	396	cmp ebx,BGI_HARIGHT
397	je .nova	397	je .nova
398	ja .subv	398	ja .subv
399	xor ecx,ecx	399	xor ecx,ecx
400	jmp .nova	400	jmp .nova
401	.subv:	401	.subv:
402	shr cx,1	402	shr cx,1
403	.nova:	403	.nova:
404	mov ebx,[esp+36]	404	mov ebx,[esp+36]
405	and ebx,BGI_VAMASK	405	and ebx,BGI_VAMASK
406	cmp ebx,BGI_VATOP	406	cmp ebx,BGI_VATOP
407	je .def	407	je .def
408	ja .subh	408	ja .subh
409	xor edx,edx	409	xor edx,edx
410	jmp .def	410	jmp .def
411	.subh:	411	.subh:
412	shr dx,1	412	shr dx,1
413	.def:	413	.def:
414	call txt.BGIfont_Deform	414	call txt.BGIfont_Deform
415	pop dword[txt.y0]	415	pop dword[txt.y0]
416	popa	416	popa
417	pop ebx	417	pop ebx
418	mov ax,[txt.y1]	418	mov ax,[txt.y1]
419	sub [txt.y0],ax	419	sub [txt.y0],ax
420	mov ax,[txt.x1]	420	mov ax,[txt.x1]
421	sub [txt.x0],ax	421	sub [txt.x0],ax
422	xor eax,eax	422	xor eax,eax
423	cld	423	cld
424	.mloop:	424	.mloop:
425	push [.y0]	425	push [.y0]
426	pop [.y]	426	pop [.y]
427	push [.x0]	427	push [.x0]
428	pop [.x]	428	pop [.x]
429	call .BGIfont_GetChar	429	call .BGIfont_GetChar
430	push esi	430	push esi
431	lea esi,[edi+20] ; offset	431	lea esi,[edi+20] ; offset
432	movzx edx,word[esi+eax*2] ; ofs1	432	movzx edx,word[esi+eax*2] ; ofs1
433	add edx,[edi+12]	433	add edx,[edi+12]
434	inc eax	434	inc eax
435	cmp al,[edi+4]	435	cmp al,[edi+4]
436	je .eof	436	je .eof
437	movzx eax,word[esi+eax*2]; ofs2	437	movzx eax,word[esi+eax*2]; ofs2
438	add eax,[edi+12]	438	add eax,[edi+12]
439	jmp .prc_vec	439	jmp .prc_vec
440	.eof:	440	.eof:
441	mov eax,[edi+16] ; ofs2=eof	441	mov eax,[edi+16] ; ofs2=eof
442	.prc_vec: ; edx-vec cmd ifs, eax-cmd limit	442	.prc_vec: ; edx-vec cmd ifs, eax-cmd limit
443	mov [.vec_end],eax	443	mov [.vec_end],eax
444	push ecx	444	push ecx
445	.vec_loop:	445	.vec_loop:
446	mov ax,word[edx]	446	mov ax,word[edx]
447	push edx	447	push edx
448	mov ecx,eax	448	mov ecx,eax
449	and eax,0x8080 ; op	449	and eax,0x8080 ; op
450	and ecx,0x7f ; xx	450	and ecx,0x7f ; xx
451	mov edx,[edx+1]	451	mov edx,[edx+1]
452	and edx,0x7f ; yy	452	and edx,0x7f ; yy
453	cmp edx,63	453	cmp edx,63
454	jbe .positive	454	jbe .positive
455	sub edx,128 ; yy-=128	455	sub edx,128 ; yy-=128
456	.positive:	456	.positive:
457	cmp ecx,63	457	cmp ecx,63
458	jbe .positive2	458	jbe .positive2
459	sub ecx,128 ; xx-=128	459	sub ecx,128 ; xx-=128
460	.positive2:	460	.positive2:
461	call .BGIfont_Deform	461	call .BGIfont_Deform
462	cmp eax,0x8080	462	cmp eax,0x8080
463	jne .noline	463	jne .noline
464	test ebp,BGI_NODRAW	464	test ebp,BGI_NODRAW
465	jnz .noline	465	jnz .noline
466	; draw vector	466	; draw vector
467	if ~ BGI_LEVEL eq KERNEL	467	if ~ BGI_LEVEL eq KERNEL
468	push eax	468	push eax
469	mov ebx,dword[.x1]	469	mov ebx,dword[.x1]
470	mov ecx,dword[.y1]	470	mov ecx,dword[.y1]
471	if BGI_WINDOW_CLIP eq 1	471	if BGI_WINDOW_CLIP eq 1
472	movzx eax,[.x]	472	movzx eax,[.x]
473	cmp eax,dword[BGI_PRC_INFO+42]	473	cmp eax,dword[BGI_PRC_INFO+42]
474	ja .nobold	474	ja .nobold
475	movzx eax,[.y]	475	movzx eax,[.y]
476	cmp eax,dword[BGI_PRC_INFO+46]	476	cmp eax,dword[BGI_PRC_INFO+46]
477	ja .nobold	477	ja .nobold
478	xor eax,eax	478	xor eax,eax
479	cmp ax,bx	479	cmp ax,bx
480	jg .nobold	480	jg .nobold
481	cmp ax,cx	481	cmp ax,cx
482	jg .nobold	482	jg .nobold
483	end if	483	end if
484	mov edx,[.color]	484	mov edx,[.color]
485	; \begin{diamond}[18.08.2006]	485	; \begin{diamond}[18.08.2006]
486	; starting from K0530 kernel interprets flag 0x1000000 as	486	; starting from K0530 kernel interprets flag 0x1000000 as
487	; negate existing pixels colors, disregarding passed color	487	; negate existing pixels colors, disregarding passed color
488	; we do not want this	488	; we do not want this
489	and edx, 0xFFFFFF	489	and edx, 0xFFFFFF
490	; \end{diamond}[18.08.2006]	490	; \end{diamond}[18.08.2006]
491	mov eax,38	491	mov eax,38
492	mcall	492	mcall
493	test ebp,BGI_BOLD	493	test ebp,BGI_BOLD
494	jz .nobold	494	jz .nobold
495	test ebp,BGI_FREE	495	test ebp,BGI_FREE
496	jnz .free5	496	jnz .free5
497	.free5:	497	.free5:
498	add ebx,1 shl 16+1	498	add ebx,1 shl 16+1
499	mcall	499	mcall
500	.nobold:	500	.nobold:

Subversion Repositories Kolibri OS

(root)/programs/other/rtfread/trunk/bgifont.inc @ 7505 – Rev 7433 → 7434