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

Subversion Repositories Kolibri OS

(root)/programs/other/rtfread/trunk/bgifont.inc – Rev 6830 → 7433