dMartian/kolibrios
1
0 Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity
Files
main
kolibrios/programs/develop/libraries/vector/vectors.asm
T
ace-dent e05b57a95e develop/libraries: Post-SVN tidy (#436) 
- Move source code from `trunk` into root directory for each library.
- Update build files and ASM include paths. Add SPDX license header where appropriate.
- Note: Line endings standardised from `CRLF` > `LF`, so best to view diffs with whitespace changes hidden.

(Work towards #75, point 3)

Reviewed-on: KolibriOS/kolibrios#436
Reviewed-by: Burer <burer@kolibrios.org>
Reviewed-by: Ivan B <1+dunkaist@noreply.localhost>
Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com>
Co-authored-by: Andrew <dent.ace@gmail.com>
Co-committed-by: Andrew <dent.ace@gmail.com>
2026-04-25 09:20:05 +00:00

1252 lines
27 KiB
FASM
Raw Permalink Blame History

format MS COFF
public EXPORTS
section '.flat' code readable align 16
include 'vectors.inc' ;vectors functions constant
macro swap v1, v2 {
push v1
push v2
pop v1
pop v2
}
BUF_STRUCT_SIZE equ 17 ;ЁрчьхЁ ёЄЁєъЄєЁ√, юяшё√тр■∙хщ сєЇхЁ
BUF_MAX_COUNT equ 8 ;ьръёшьры№эюх ўшёыю сєЇхЁют
fun_draw_pixel dd drawpixel_scrn ;єърчрЄхы№ эр ЇєэъЎш■ Ёшёютрэш  Єюўъш
active_buffer: ;эрўрыю ёЄЁєъЄєЁ√ ръЄштэюую сєЇхЁр (сєЇхЁр т ъюЄюЁ√щ фхырхЄё  Ёшёютрэшх ЇшуєЁ шыш ЄхъёЄр)
dd 0 ;єърчрЄхы№ эр сєЇхЁ шчюсЁрцхэш 
dw 0 ; +4 left
dw 0 ; +6 top
dw 0 ; +8 w °шЁшэр сєЇхЁр
dw 0 ;+10 h т√ёюЄр сєЇхЁр
dd 0 ;+12 color ЎтхЄ Їюэр
db 24 ;+16 bit in pixel уыєсшэр ЎтхЄр (т фрээющ тхЁёшш х∙х эх шёяюы№чєхЄё )
rb BUF_STRUCT_SIZE * BUF_MAX_COUNT ;ЁхчхЁтшЁєхь ьхёЄю фы  ёЄЁєъЄєЁ, юяшё√тр■∙шї сєЇхЁр
;т ръЄштэюь сєЇхЁх сєфхЄ ёюфхЁцрЄ№ё  Єюўэр  ъюяш  юфэющ шч ¤Єшї ёЄЁєъЄєЁ
active_buffer_left equ active_buffer+ 4
active_buffer_top equ active_buffer+ 6
active_buffer_w equ active_buffer+ 8
active_buffer_h equ active_buffer+10
active_buffer_color equ active_buffer+12
;-----------------------------------------------------------------------------
;ЇєэъЎш  фы  т√фхыхэш  ярь Єш
;input:
; ecx = size data
;otput:
; eax = pointer to memory
mem_Alloc:
push ebx
mov eax,68
mov ebx,12
int 0x40
pop ebx
ret
;-----------------------------------------------------------------------------
;ЇєэъЎш  фы  юётюсюцфхэш  ярь Єш
;input:
; ecx = pointer to memory
mem_Free:
push eax ebx
cmp ecx,0
jz @f
mov eax,68
mov ebx,13
int 0x40
@@:
pop ebx eax
ret
;ЇєэъЎш  Ёшёє■∙р  Єюўъє ёЁрчє эр ¤ъЁрэ (схч єўрёЄш  сєЇхЁр)
align 4
drawpixel_scrn:
bt bx,15
jc @f
bt cx,15
jc @f
; cmp bx,300
; jge @f
; cmp cx,300
; jge @f
int 0x40
@@:
ret
;ЇєэъЎш  Ёшёє■∙р  Єюўъє т ръЄштэюь сєЇхЁх
align 4
drawpixel_buf:
bt bx,15 ;яЁютхЁ хь чэръ ўшёыр, хёыш ъююЁфшэрЄр ьхэ№°х 0
jc @f ;Єюуфр Єюўър т ¤ъЁрэ эх яюярыр, ъюэхЎ ЇєэъЎшш
bt cx,15
jc @f
cmp bx,word[active_buffer_w] ;яЁютхЁ хь ъююЁфшэрЄє Єюўъш, хёыш сюы№°х °шЁшэ√ сєЇхЁр
jge @f ;Єюуфр Єюўър т ¤ъЁрэ эх яюярыр, ъюэхЎ ЇєэъЎшш
cmp cx,word[active_buffer_h]
jge @f
push esi
xor esi,esi ;ЄєЄ сєфхЄ єърчрЄхы№ эр яшъёхы№ шч ръЄштэюую сєЇхЁр
mov si,word[active_buffer_w] ;°шЁшэр сєЇхЁр яю юёш x
imul esi,ecx ;size_x*y
add esi,ebx ;size_x*y+x
lea esi,[esi+esi*2] ;(size_x*y+x)*3
add esi,dword[active_buffer] ;ptr+(size_x*y+x)*3
mov word[esi],dx ;ъюяшЁєхь чхыхэ√щ ш ёшэшщ ёяхъЄЁ
ror edx,16 ;ъЁєЄшь ЎтхЄ эр 2 срщЄр
mov byte[esi+2],dl ;ъюяшЁєхь ъЁрёэ√щ ёяхъЄЁ
ror edx,16 ;ъЁєЄшь ЎтхЄ эрчрф
pop esi
@@:
ret
;ЇєэъЎш  ёючфр■∙р  эют√щ сєЇхЁ, яЁшэшьрхЄ ярЁрьхЄЁ√ эєцэ√х фы  ёЄЁєъЄєЁ√
;input:
; [esp+8] = bit on pixel, index created buffer
; [esp+10] = color
; [esp+14] = size: w,h
; [esp+18] = size: l,t
align 4
buf_create:
push ebp
mov ebp,esp
cmp byte[ebp+8],1 ;яЁютхЁър яЁртшы№эюёЄш шэфхъёр ёючфртрхьюую сєЇхЁр
jl .error_ind ;яюы№чютрЄхы№ єърчры шэфхъё ьхэ№°х 1-Ў√, ... error :(
cmp byte[ebp+8],BUF_MAX_COUNT ;яЁютхЁър яЁртшы№эюёЄш шэфхъёр ёючфртрхьюую сєЇхЁр
jg .error_ind ;яюы№чютрЄхы№ єърчры шэфхъё сюы№°х ьръёшьры№эю тючьюцэюую, ... error :(
push eax ecx edi esi
mov eax,dword[ebp+14] ;схЁхь °шЁшэє ш т√ёюЄє сєЇхЁр
ror eax,16 ;ьхэ хь ьхёЄрьш °шЁшэє ш т√ёюЄє, Єръ сєфхЄ єфюсэхх яЁш т√тюфх фы  ЇєэъЎшш 7
mov dword[active_buffer_w],eax ;яюьх∙рхь чэрўхэш  т ёЄЁєъЄєЁє ръЄштэюую сєЇхЁр
xor ecx,ecx ;ЄєЄ т√ўшёы хь ёъюы№ъю ярь Єш эєцэю фы  ¤Єюую сєЇхЁр
mov cx,ax ;схЁхь эшцэшщ ЁрчьхЁ сєЇхЁр
shr eax,16 ;чрЄшЁрхь эшцэшщ ЁрчьхЁ, т eax ЄхяхЁ№ Єюы№ъю тхЁїэшщ ЁрчьхЁ, эр ьхёЄх эшцэхую
imul ecx,eax ;єьэюцрхь т√ёюЄє эр °шЁшэє (ьюцхЄ ш эрюсюЁюЄ °шЁшэє эр т√ёюЄє)
imul ecx,3 ; 24 bit = 3, 32 bit = 4 ... work if only 24
call mem_Alloc ;яЁюёшь ярь Є№ шч ёшёЄхь√
mov dword[active_buffer],eax ;ъюяшЁєхь єърчрЄхы№ эр яюыєўхэє■ ярь Є№ т ёЄЁєъЄєЁє ръЄштэюую сєЇхЁр
mov eax,dword[ebp+18] ;схЁхь юЄёЄєя√ ёыхтр ш ёяЁртр
ror eax,16
mov dword[active_buffer_left],eax
mov eax,dword[ebp+10] ;get color - схЁхь ЎтхЄ фы  Їюэр
mov dword[active_buffer_color],eax
;ъюяшЁєхь тё■ ёЄЁєъЄєЁє ръЄштэюую сєЇхЁр, т ярь Є№ юЄтхфхээє■ фы  сєЇхЁют
;шэрўх хёыш яю тшЄё  эют√щ сєЇхЁ, Єю юэ чрЄЁхЄ ёюсющ ръЄштэє■ ёЄЁєъЄєЁє
;яюЄюьє эєцэю фєсышЁютрЄ№ ¤Єє шэЇюЁьрЎш■
mov di,word[ebp+8] ;copy buffer struct
and edi,0xff ;index <= 255
mov ecx,BUF_STRUCT_SIZE ;т ecx ЁрчьхЁ ъюяшЁєхь√ї фрээ√ї
imul edi,ecx
mov esi,active_buffer
add edi,esi
rep movsb ;яютЄюЁ хь ъюяшЁютрэшх яю срщЄє, яюър ecx ёЄрэхЄ эх Ёртэю 0
push word[ebp+8] ;яЁш ёючфрэшш сєЇхЁр, т эхь ьюцхЄ с√Є№ ьєёюЁ,
call buf_clear ;яюЄюьє ўшёЄшь хую Їюэют√ь ЎтхЄюь
pop esi edi ecx eax
.error_ind:
pop ebp
ret 14
;ЇєэъЎш  єёЄрэютъш ръЄштэюую сєЇхЁр, хёыш эр тїюфх 0 - Єю тъы■ўрхЄё  Ёхцшь Ёшёютрэш  эр ¤ъЁрэ схч сєЇхЁр
;input:
; [esp+8] = index buffer (0-screen)
align 4
set_active_buf:
push ebp
mov ebp,esp
cmp word[ebp+8],0
jne @f
.to_scrn:
mov dword[fun_draw_pixel],drawpixel_scrn ;Ёшёютрэшх т ¤ъЁрэ
jmp .end_fun
@@:
cmp byte[ebp+8],BUF_MAX_COUNT ;if buffer index out of range
jg .to_scrn
mov dword[fun_draw_pixel],drawpixel_buf ;Ёшёютрэшх т сєЇхЁ
push ecx esi edi
mov si,word[ebp+8] ;copy buffer struct
and esi,0xff ;index <= 255
mov ecx,BUF_STRUCT_SIZE
imul esi,ecx
mov edi,active_buffer
add esi,edi
rep movsb
pop edi esi ecx
cmp dword[active_buffer],0 ;if buffer is empty
je .to_scrn
.end_fun:
pop ebp
ret 2
;ЇєэъЎш  юўшёЄъш сєЇхЁр Їюэют√ь ЎтхЄюь
;input:
; [esp+8] = index buffer (0-screen)
align 4
buf_clear:
push ebp
mov ebp,esp
push eax ebx ecx edi
mov di,word[ebp+8] ;get pointer to buffer struct
and edi,0xff ;index <= 255
imul edi,BUF_STRUCT_SIZE
add edi,active_buffer ;edi = pointer to buffer struct
cmp dword[edi],0 ;яЁютхЁ хь яєёЄющ єърчрЄхы№ эр сєЇхЁ шыш эхЄ
je .no_draw ;хёыш яєёЄющ, Єю т√їюф
xor ecx,ecx ;ЄєЄ сєфхЄ ЁрчьхЁ сєЇхЁр т яшъёхы ї
mov cx,word[edi+8] ;active_buffer_w]
xor eax,eax
mov ax,word[edi+10] ;active_buffer_h]
imul ecx,eax ;ecx=x*y
mov ebx,dword[edi+12] ;active_buffer_color]
mov ax,bx
shr ebx,16
;imul ecx,3
;rep stosb
push dword[edi] ;save value in pointer
pop edi ;get value in pointer
@@:
mov word[edi],ax
add edi,2
mov byte[edi],bl
inc edi
loop @b
.no_draw:
pop edi ecx ebx eax
pop ebp
ret 2
;ЇєэъЎш  Ёшёє■∙р  ёюфхЁцшьюх сєЇхЁр эр ¤ъЁрэх, шёяюы№чєхЄ ╩╬╤ ЇєэъЎш■ эюьхЁ 7
;input:
; [esp+8] = index buffer (0-screen)
align 4
draw_buf:
push ebp
mov ebp,esp
mov di,word[ebp+8] ;get pointer to buffer struct
and edi,0xff ;index <= 255
imul edi,BUF_STRUCT_SIZE
add edi,active_buffer ;edi = pointer to buffer struct
mov eax,7
mov ebx,dword[edi] ;active_buffer]
mov ecx,dword[edi+8] ;active_buffer_w] ;ecx = w*0xffff+h
ror ecx,16
;push word[edi+4] ;active_buffer_left] ;чруЁєчър Єюўъш ыхтюую тхЁїэхую єуыр
;pop dx
mov dx,word[edi+4]
shl edx,16
;push word[edi+6] ;active_buffer_top] ;чруЁєчър Єюўъш ыхтюую тхЁїэхую єуыр
;pop dx
mov dx,word[edi+6]
int 0x40
pop ebp
ret 2
;ЇєэъЎш  юўш∙р■∙р  ярь Є№, чрэшьрхьє■ сєЇхЁюь
;input:
; [esp+8] = index buffer (0-screen)
align 4
buf_delete:
push ebp
mov ebp,esp
mov cx,word[ebp+8] ;get pointer to buffer struct
and ecx,0xff ;index <= 255
imul ecx,BUF_STRUCT_SIZE
add ecx,active_buffer ;edi = pointer to buffer struct
push dword[ecx] ;save value in pointer
pop ecx ;get value in pointer
call mem_Free
pop ebp
ret 2
;ЇєэъЎш  Ёшёє■∙р  ышэш■
;input:
; [esp+8] = p0
; [esp+12] = p1
; [esp+16] = color
loc_0 equ byte[ebp-4]
loc_1 equ word[ebp-6]
loc_2 equ word[ebp-8]
align 4
line_brs:
push ebp
mov ebp,esp
sub esp,6 ;=1+2*2
pushad ;eax ebx ecx edx si di
mov edx,dword[ebp+16]
;---
mov ax,word[ebp+14] ;y1
; cmp ax,0 ;if y1<0 return
; jl .coord_end
; cmp word[ebp+10],0 ;if y0<0 return
; jl .coord_end
sub ax,word[ebp+10] ;y1-y0
bt ax,15
jae @f
neg ax
inc ax
@@:
mov bx,word[ebp+12] ;x1
; cmp bx,0 ;if x1<0 return
; jl .coord_end
; cmp word[ebp+8],0 ;if x0<0 return
; jl .coord_end
sub bx,word[ebp+8] ;x1-x0
bt bx,15
jae @f
neg bx
inc bx
@@:
mov byte[ebp-4],byte 0 ;bool steep=false
cmp ax,bx
jle @f
mov byte[ebp-4],byte 1 ;bool steep=true
swap word[ebp+8],word[ebp+10] ;swap(x0, y0);
swap word[ebp+12],word[ebp+14] ;swap(x1, y1);
@@:
mov ax,word[ebp+8] ;x0
cmp ax,word[ebp+12] ;if(x0>x1)
jle @f
swap word[ebp+8],word[ebp+12] ;swap(x0, x1);
swap word[ebp+10],word[ebp+14] ;swap(y0, y1);
@@:
; int deltax si
; int deltay di
; int error ebp-6
; int ystep ebp-8
mov ax,word[ebp+8] ;x=x0
mov si,word[ebp+12] ;x1
sub si,ax ;deltax = x1-x0
mov bx,si
shr bx,1
mov loc_1,bx ;error = deltax/2
mov ax,word[ebp+10] ;y=y0
mov di,word[ebp+14] ;y1
mov loc_2,word -1 ;ystep = -1
cmp ax,di ;if (y0<y1) ystep = 1;
jge @f
mov loc_2,word 1 ;ystep = 1
@@:
sub di,ax ;y1-y0
bts di,15
jae @f
neg di
inc di
@@:
and di,0x7fff ;deltay = abs(y1-y0)
mov eax,1 ;function, draw point
xor ebx,ebx
xor ecx,ecx
cmp byte[ebp-4],0
jne .coord_yx
mov bx,word[ebp+10] ;y0
mov cx,word[ebp+8] ;x0
@@: ;for (x=x0 ; x<x1; x++) ;------------------------------------
cmp cx,word[ebp+12]
jg @f ;jge ???
call dword[fun_draw_pixel]
sub loc_1,di ;error -= deltay
cmp loc_1,0 ;if(error<0)
jge .if0
add bx,loc_2 ;y += ystep
add loc_1,si ;error += deltax
.if0:
inc cx
jmp @b
@@:
jmp .coord_end
.coord_yx:
mov bx,word[ebp+8] ;x0
mov cx,word[ebp+10] ;y0
@@: ;for (x=x0 ; x<x1; x++) ;------------------------------------
cmp bx,word[ebp+12]
jg @f ;jge ???
call dword[fun_draw_pixel]
sub loc_1,di ;error -= deltay
cmp loc_1,0 ;if(error<0)
jge .if1
add cx,loc_2 ;y += ystep
add loc_1,si ;error += deltax
.if1:
inc bx
jmp @b
@@:
.coord_end:
;---
popad
mov esp,ebp ; тюёёЄрэртыштрхь ёЄхъ
pop ebp
ret 12
;input:
; [esp+8] = p0
; [esp+12] = p1
; [esp+16] = p2
; [esp+20] = color
align 4
cruve_bezier:
push ebp
mov ebp,esp
pushad
;float t, xt,yt;
;for(t=.0;t<1.;t+=.005){
; xt=pow(1.-t,2)*x0+2*t*(1.-t)*x1+pow(t,2)*x2;
; yt=pow(1.-t,2)*y0+2*t*(1.-t)*y1+pow(t,2)*y2;
; dc.SetPixel(xt,yt,255L);
;}
.beg_fun: ;фы  тїюфр шч фЁєующ ЇєэъЎшш
mov edx,dword[ebp+20] ;set cruve color
xor ebx,ebx
xor ecx,ecx
finit
; calculate delta t - т√ўшёыхэшх °рур шчьхэхэш  ярЁрьхЄЁр t фы  Ёшёютрэш  ъЁштющ ┴хч№х
push dword[ebp+8]
push dword[ebp+12]
call line_len4i ;юяЁхфхы хь фышэє юЄЁхчър p0p1
fld dword[o_len]
push dword[ebp+12]
push dword[ebp+16]
call line_len4i ;юяЁхфхы хь фышэє юЄЁхчър p1p2
fadd dword[o_len] ;эрїюфшь ёєьрЁэє■ фышэє (p0p1 + p1p2)
fadd st0,st0 ; єьэюцрхь фышээє (p0p1 + p1p2) эр 2
ftst
fstsw ax
fld1
sahf
jle @f ;шчсхурхь фхыхэш  эр 0
fdiv st0,st1 ;эрїюфшь °ру фы  шчьхэхэш  ярЁрьхЄЁр t яю ЇюЁьєых 1 / (2 * (p0p1 + p1p2))
; Є.ъ. яЁ ьр  т эхъюЄюЁ√ї ёыєўр ї "ЁтхЄё ", Єю   фєьр■ ўЄю фрээр  ЇюЁьєыр эх юяЄшьры№эр,
; эю эшўхую ыєў°хую   яюър эх яЁшфєьры, ... :(
@@:
fstp dword[delt_t]
finit
;fild word[ebp+18] ;y2
fild word[ebp+14] ;y1
fild word[ebp+10] ;y0
fild word[ebp+16] ;x2
fild word[ebp+12] ;x1
fild word[ebp+8] ;x0
fld dword[delt_t]
fldz ;t=.0
@@:
fld1
fsub st0,st1 ;1.-t
fmul st0,st0 ;pow(1.-t,2)
fmul st0,st3 ;...*x0
fstp dword[opr_param]
fld1
fsub st0,st1 ;1.-t
fmul st0,st1 ;(1.-t)*t
fadd st0,st0
fmul st0,st4 ;...*x1
mov edi,dword[opr_param]
fstp dword[opr_param]
fldz
fadd st0,st1 ;0+t
fmul st0,st0 ;t*t
fmul st0,st5 ;...*x2
fadd dword[opr_param]
mov dword[opr_param],edi
fadd dword[opr_param]
fistp word[v_poi_0] ;x
fld1
fsub st0,st1 ;1.-t
fmul st0,st0 ;pow(1.-t,2)
fmul st0,st6 ;...*y0
fstp dword[opr_param]
fld1
fsub st0,st1 ;1.-t
fmul st0,st1 ;(1.-t)*t
fadd st0,st0
fmul st0,st7 ;...*y1
mov edi,dword[opr_param]
fstp dword[opr_param]
fldz
fadd st0,st1 ;0+t
fmul st0,st0 ;t*t
fimul word[ebp+18] ;...*y2
fadd dword[opr_param]
mov dword[opr_param],edi
fadd dword[opr_param]
fistp word[v_poi_0+2] ;y
mov eax,1
mov bx,word[v_poi_0+2]
mov cx,word[v_poi_0]
call dword[fun_draw_pixel]
fadd st0,st1 ;t+dt
fld1
fcomp
fstsw ax
sahf
jae @b
.end_draw:
; btr word[opt_bez],0 ;ёэшьрхь Їыру Ёшёютрэш  яЁ ьющ ышэшш ё ъЁштющ ┴хч№х
; btr word[opt_bez],1
;and word[opt_bez],0xfffc
popad
mov esp,ebp
pop ebp
ret 16
delt_t dd 0.05 ;°ру фы  ярЁрьхЄЁр t шч ъЁштющ ┴хч№х
;ЇєэъЎш  Ёшёє■∙р  ёхуьхэЄ ъЁштєщ ┴хч№х яю 3-ь Єюўърь, яЁш ¤Єюь ъююЁфшэрЄ√
; 1-щ ш 3-щ Єюўъш ёьх∙р■Єё  ъю 2-щ Єюўъх, яючтюы   ЁшёютрЄ№ фышээє■ ъЁштє■ шч эхёъюы№ъшї ъєёъют
;input:
; [esp+8] = p0
; [esp+12] = p1
; [esp+16] = p2
; [esp+20] = color
align 4
cruve_bezier_del2:
; btr word[opt_bez],1 ;test
; ret 16 ;test
push ebp
mov ebp,esp
pushad
;jmp cruve_bezier.end_draw
bt word[opt_bez],1 ;яЁютхЁ хь Їыру Ёшёютрэш  юЄЁхчър фы  3-щ Єюўъш (p2)
jae @f
push dword[ebp+20] ;line color
push dword[ebp+8]
@@:
;********* т√ёўшЄ√трэшх єёЁхфэхээ√ї ъююЁфшэрЄ *********
mov ax,word[ebp+8] ;x0
add ax,word[ebp+12]
shr ax,1
bt ax,14
jae @f
or ax,0x8000
@@:
mov word[ebp+8],ax
mov ax,word[ebp+10] ;y0
add ax,word[ebp+14]
shr ax,1
bt ax,14
jae @f
or ax,0x8000
@@:
mov word[ebp+10],ax
btr word[opt_bez],1 ;яЁютхЁ хь Їыру Ёшёютрэш  юЄЁхчър фы  3-щ Єюўъш (p2)
jae @f
push dword[ebp+8]
call line_brs ;Ёшёєхь яЁ ьющ юЄЁхчюъ
@@:
bt word[opt_bez],0 ;яЁютхЁ хь Їыру Ёшёютрэш  юЄЁхчър фы  1-щ Єюўъш (p0)
jae @f
push dword[ebp+20] ;line color
push dword[ebp+16]
@@:
mov ax,word[ebp+16] ;x2
add ax,word[ebp+12]
shr ax,1
bt ax,14
jae @f
or ax,0x8000
@@:
mov word[ebp+16],ax
mov ax,word[ebp+18] ;y2
add ax,word[ebp+14]
shr ax,1
bt ax,14
jae @f
or ax,0x8000
@@:
mov word[ebp+18],ax
btr word[opt_bez],0 ;яЁютхЁ хь Їыру Ёшёютрэш  юЄЁхчър фы  1-щ Єюўъш (p0)
jae @f
push dword[ebp+16]
call line_brs ;Ёшёєхь яЁ ьющ юЄЁхчюъ
@@:
;jmp cruve_bezier.end_draw
;********* яхЁхїюф эр юёэютэє■ ЇєэъЎш■ *********
jmp cruve_bezier.beg_fun
;ЇєэъЎш  Ёшёє■∙р  ЄхъёЄ
;input:
; dword[ebp+8] = pointer to vector font data
; dword[ebp+12] = pointer to text param struct (color, x,y, angle, scale, ...)
; dword[ebp+16] = text string (0 - end string)
align 4
draw_text:
push ebp
mov ebp,esp
pushad
mov eax,dword[ebp+8]
mov ebx,dword[ebp+12]
mov edx,dword[ebp+16]
mov esi,ebx
add esi,4 ;skeep color
mov edi,text_point
mov ecx,12 ;(x+y+a)*3
rep movsb ;copy base point
finit
fild word[ebx+12+4]
fdiv dword[eax+4] ;sumbol height
fstp dword[text_point.s]
mov edi,dword[ebx];get color
xor esi,esi ;line number
;------------------------
@@:
cmp byte[edx],0
je @f
xor ecx,ecx
mov cl,byte[edx]
shl cx,2 ;cx*=4
add cx,32
add ecx,eax
;mov ecx,eax
;add ecx,32+256*4+4
push edi ;color
push dword[ecx] ;copy sumbol pointer
pop ecx
add ecx,eax ;фюсрты хь ъ ёё√ыъх эр ёшьтюы ёьх∙хэшх эрўрыр ёрьюую °ЁшЇЄр
push dword ecx
push dword text_point ;output point
call draw_poly_line
cmp byte[edx],13
je .new_line
finit
fld dword[eax] ;sumbol width
fmul dword[text_point.s]
fld dword[text_point.a]
fcos
fmul st0,st1
fadd dword[text_point.x]
fstp dword[text_point.x]
fld dword[text_point.a]
fsin
fmul st0,st1
fadd dword[text_point.y]
fstp dword[text_point.y]
inc edx ;move next sumbol
jmp @b
.new_line:
push edi esi
mov esi,dword[ebp+12]
add esi,4 ;skeep color
mov edi,text_point
mov ecx,8 ;(x+y)*4
rep movsb ;restore base point
pop esi edi
inc esi
mov dword[opr_param],esi
finit
fld dword[eax+4] ;sumbol height
fmul dword[text_point.s]
fimul dword[opr_param]
fld1
fld1
fadd st0,st1
fldpi
fdiv st0,st1
fadd dword[text_point.a]
fcos
; fld dword[eax+4] ;sumbol height
; fmul dword[text_point.s]
fmul st0,st3
fadd dword[text_point.x]
fstp dword[text_point.x]
fld1
fld1
fadd st0,st1
fldpi
fdiv st0,st1
fadd dword[text_point.a]
fsin
; fld dword[eax+4] ;sumbol height
; fmul dword[text_point.s]
fmul st0,st5
fadd dword[text_point.y]
fstp dword[text_point.y]
inc edx ;move next sumbol
jmp @b
@@:
popad
pop ebp
ret 12
text_point: ;Єюўър фы  т√тюфр ЄхъёЄр
.x dd 0.0
.y dd 0.0
.a dd 0.0 ;angle
.s dd 1.0 ;scale
;ЇєэъЎш  фы  ъюэтхЁЄшЁютрэш  ъююЁфшэрЄ шч фхърЁЄютющ ёшёЄхь√ ъююЁфшэрЄ т яюы Ёэє■
;input:
; dword[ebp+8] = pointer to contur
align 4
convert_contur:
push ebp
mov ebp,esp
push eax ebx ecx
mov ebx,dword[ebp+8]
finit
.new_contur:
mov cx,word[ebx]
or word[ebx],VECT_POINTS_IS_POLAR
add ebx,2
btr cx,15 ;VECT_PARAM_COLOR
jae @f
add ebx,4
@@:
btr cx,14 ;VECT_PARAM_PROP_L
jae @f
add ebx,4
@@:
btr cx,12 ;яЁютхЁър ъюэтхЁЄшЁютрээ√ї
jae @f
and ecx,0xfff
cmp cx,0
je .end_contur
shl ecx,3
add ebx,ecx
jmp .new_contur
@@:
and cx,0xfff
cmp cx,0
je .end_contur
mov eax,opr_param
@@:
cmp cx,0
je .new_contur
dec cx
fld dword[ebx]
fistp word[eax]
fld dword[ebx+4]
fistp word[eax+2]
push dword[eax]
call opred2i
push dword[o_ang]
pop dword[ebx] ;x(n)
push dword[o_len]
pop dword[ebx+4] ;y(n)
add ebx,8 ;move next coord
jmp @b
.end_contur:
pop ecx ebx eax ebp
ret 4
;ЇєэъЎш  фы  Ёшёютрэш  ъюэЄєЁют, ёюёЄю ∙шї шч Ёрчэ√ї эрсюЁют Єюўхъ (яЁ ь√х, ┴хч№х)
;input:
; [esp+8] = x0,y0,a0,s0 - ярЁрьхЄЁ√ ЎхэЄЁры№эющ Єюўъш: ъююЁфшэрЄ√, єуюы яютюЁюЄр, ьрё°Єрс
; [esp+12] = contur - ъюэЄєЁ, чрфрээ√щ ъююЁфшэрЄрьш Єюўхъ
; [esp+16] = color - яхЁтюэрўры№э√щ ЎтхЄ
align 4
draw_poly_line:
push ebp
mov ebp,esp
pushad
mov eax,dword[ebp+8]
mov ebx,dword[ebp+12]
mov edx,dword[ebp+16]
bt word[ebx],12 ;VECT_POINTS_IS_POLAR
jc @f
push dword ebx
call convert_contur
@@:
mov word[opt_bez],0 ;clear draw options
finit
fld dword[eax] ;x0 (st4)
fld dword[eax+4];y0 (st3)
fld dword[eax+8];a0 (st2)
fld dword[eax+12];s0(st1)
mov si,0 ;ёяыю°эр  ышэш , схч яЁхЁ√трэшщ
.new_contur:
mov cx,word[ebx]
mov edi,ebx ;ЁхчхЁтэюх ёюїЁрэхэшх эрўрыр ъюэЄєЁр
add ebx,2
btr cx,15 ;VECT_PARAM_COLOR
jae @f
mov edx,dword[ebx]
add ebx,4
@@:
btr cx,14 ;VECT_PARAM_PROP_L
jae @f
mov esi,dword[ebx] ;яюыєўрхь эют√х ярЁрьхЄЁ√ ышэшш
add ebx,4
btr si,9 ;VECT_CONT_BEZIER = 0x200
jc .BezB ;фры№°х ъюэЄєЁ ┴хч№х, эх ышэхщэ√щ
and si,0xff
@@:
jmp .BezE
.BezB: ;яЁюяєёъ тёхї Єюўхъ ┴хч№х
bt word[opt_bez],2
jc .after_bez_draw
or word[opt_bez],4
push edx
push edi ;эрўрыю ъюэЄєЁр - ebx
push dword[ebp+8] ;eax
call draw_poly_bezier
.after_bez_draw:
and ecx,0xfff
cmp ecx,0
je .end_contur
shl ecx,3
add ebx,ecx
jmp .new_contur
.BezE:
and cx,0xfff
cmp cx,0
je .end_contur
mov di,cx
sub di,si
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fcos
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st4
fistp word[v_poi_1+2] ;x(n)
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fsin
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st3
fistp word[v_poi_1] ;y(n)
dec cx
add ebx,8 ;move next coord
@@: ;---------------------------------------------------------------
push dword[v_poi_1]
pop dword[v_poi_0]
; call draw_vect_point
cmp cx,0
je .new_contur ;тю шчсхцрэшх чрЎшъыштрэш 
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fcos
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st4
fistp word[v_poi_1+2] ;x(n)
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fsin
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st3
fistp word[v_poi_1] ;y(n)
add ebx,8 ;move next coord
cmp cx,di
je .end_draw_line
push dword edx ;line color
push dword[v_poi_0]
push dword[v_poi_1]
call line_brs
loop @b
jmp .new_contur
.end_draw_line: ;-------------------------------------------------------------
sub di,si
loop @b
jmp .new_contur
.end_contur:
popad
pop ebp
ret 12
;ЇєэъЎш  Ёшёє■∙р  яюышуюэ√ ёюёЄю ∙шх шч ъЁшт√ї ┴хч№х
;input:
; [esp+8] = x0,y0,a0,...
; [esp+12] = contur
; [esp+16] = color
align 4
draw_poly_bezier:
push ebp
mov ebp,esp
pushad
mov eax,dword[ebp+8]
mov ebx,dword[ebp+12]
mov edx,dword[ebp+16]
finit
fld dword[eax] ;x0 (st4)
fld dword[eax+4];y0 (st3)
fld dword[eax+8];a0 (st2)
fld dword[eax+12];s0(st1)
mov si,0 ;ёяыю°эр  ышэш , схч яЁхЁ√трэшщ
.new_contur:
mov cx,word[ebx]
add ebx,2
btr cx,15
jae @f
mov edx,dword[ebx]
add ebx,4
@@:
btr cx,14 ;VECT_PARAM_PROP_L
jae @f
mov esi,dword[ebx] ;яюыєўрхь эют√х ярЁрьхЄЁ√ ышэшш
btr si,8 ;VECT_CONT_LINE = 0x100
;jc .end_contur ;фры№°х ъюэЄєЁ ышэхщэ√щ, эх ┴хч№х
jae .skip
and ecx,0xfff
cmp ecx,0
je .end_contur
add ebx,4
shl ecx,3
add ebx,ecx
jmp .new_contur
.skip:
and si,0xff
add ebx,4
@@:
and ecx,0xfff
cmp ecx,0
je .end_contur
cmp si,1 ;яЁютхЁър ъюэЄєЁр эр 3 Єюўъш
je @f
cmp si,2
je @f
jmp .3pt
shl ecx,3
add ebx,ecx
jmp .new_contur
.3pt: ;ЄєЄ ъюэЄєЁ√ ьшэшьєь ё 3-ь  Єюўърьш
mov di,si
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fcos
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st4
fistp word[v_poi_1+2] ;x(n)
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fsin
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st3
fistp word[v_poi_1] ;y(n)
dec cx
add ebx,8 ;move next coord
cmp cx,0
je .new_contur ;тю шчсхцрэшх чрЎшъыштрэш 
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fcos
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st4
fistp word[v_poi_2+2] ;x(n)
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fsin
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st3
fistp word[v_poi_2] ;y(n)
dec cx
add ebx,8 ;move next coord
or word[opt_bez],1 ;begin line
.bez_cycl: ;---------------------------------------------------------
dec di
push dword[v_poi_1]
pop dword[v_poi_0]
push dword[v_poi_2]
pop dword[v_poi_1]
cmp cx,0
je .new_contur ;тю шчсхцрэшх чрЎшъыштрэш 
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fcos
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st4
fistp word[v_poi_2+2] ;x(n)
fld dword[ebx] ;st0=a(n)
fadd st0,st2
fsin
fmul dword[ebx+4] ;l(n)
fmul st0,st1 ;*=scale
fadd st0,st3
fistp word[v_poi_2] ;y(n)
add ebx,8 ;move next coord
cmp di,2
jne @f
or word[opt_bez],2 ;end line
@@:
cmp cx,1
jne @f
or word[opt_bez],2 ;end line
@@:
dec si
cmp di,si
jne @f
or word[opt_bez],1 ;begin line
@@:
inc si
cmp di,si
je @f
cmp di,1
je .end_draw_line
push dword edx ;line color
push dword[v_poi_0]
push dword[v_poi_1]
push dword[v_poi_2]
call cruve_bezier_del2
finit
fld dword[eax] ;x0 (st4)
fld dword[eax+4];y0 (st3)
fld dword[eax+8];a0 (st2)
fld dword[eax+12];s0(st1)
jmp @f
.end_draw_line: ;-------------------------------------------------------------
mov di,si
inc di
@@:
;loop .bez_cycl ;@b
dec cx
cmp cx,0
jg .bez_cycl
jmp .new_contur
.end_contur:
popad
pop ebp
ret 12
;ЇєэъЎш  яЁшэшьрхЄ ъююЁфшэрЄ√ Єюўъш x,y ш юяЁхфхы хЄ єуюы ш фышэє
;input:
; ebp+8 = adress int coord x
; ebp+10 = adress int coord y
align 4
opred2i:
push ebp
mov ebp,esp
finit
fild word [ebp+8]
fmul st0,st0 ;st0=x^2
fild word [ebp+10]
fmul st0,st0 ;st0=y^2
fadd st0,st1
fsqrt
fst dword [o_len]
cmp dword [o_len],0
jne @f
mov dword [o_ang],0
jmp .retf
@@:
fild word [ebp+8]
fdiv dword [o_len]
call acos
cmp word [ebp+10],0
jl @f
fst [o_ang] ;a=acos(x/l);
jmp .retf
@@:
fldpi
fadd st0,st0 ;st0=2*pi
fsub st0,st1 ;st0=2*pi-aac
fst [o_ang] ;a=st0;
.retf:
pop ebp
ret 4
;ЇєэъЎш  юяЁхфхы ■∙р  ЁрёёЄю эшх ьхцфє Єюўърьш, Ёхчєы№ЄрЄ яюярфрхЄ т o_len
;input:
; ebp+8 = p0
; ebp+12 = p1
align 4
line_len4i:
push ebp
mov ebp,esp
finit
fild word [ebp+8]
fisub word [ebp+12]
fmul st0,st0 ;st0=x^2
fild word [ebp+10]
fisub word [ebp+14]
fmul st0,st0 ;st0=y^2
fadd st0,st1
fsqrt
fstp dword [o_len]
pop ebp
ret 8
;ЇєэъЎш  фы  эрїюцфхэш  рЁъъюёшэєёр
;input:
; st0 = float value
align 4
acos:
fld1
fadd st, st1
fld1
fsub st, st2
fmulp st1, st
fsqrt
fxch st1
fpatan
ret
o_len dd ? ;фышэр
o_ang dd ? ;єуюы яюЁюЄр т Ёрфшрэрї
opr_param dd ?
v_poi_0 dd ?
v_poi_1 dd ?
v_poi_2 dd ?
opt_bez dw ? ;юяЎшш Ёшёютрэш  ъєёъют фы  ъЁштющ ┴хч№х
align 16
EXPORTS:
dd sz_buf_create, buf_create
dd sz_set_active_buf, set_active_buf
dd sz_buf_clear, buf_clear
dd sz_draw_buf, draw_buf
dd sz_buf_delete, buf_delete
dd sz_line, line_brs
dd sz_cruve_bezier, cruve_bezier
dd sz_conv, convert_contur
dd sz_draw, draw_poly_line
dd sz_opred2i, opred2i
dd sz_line_len4i, line_len4i
dd sz_draw_text, draw_text
dd sz_o_len, o_len
dd sz_o_ang, o_ang
dd 0,0
sz_buf_create db 'vect_buf_create',0
sz_set_active_buf db 'vect_buf_set_active',0
sz_buf_clear db 'vect_buf_clear',0
sz_draw_buf db 'vect_buf_draw',0
sz_buf_delete db 'vect_buf_delete',0
sz_line db 'vect_line',0
sz_cruve_bezier db 'vect_c_bezier',0
sz_conv db 'vect_conv_cont',0
sz_draw db 'vect_draw_cont',0
sz_opred2i db 'vect_opred2i',0
sz_line_len4i db 'vect_line_len4i',0
sz_draw_text db 'vect_draw_text',0
sz_o_len db 'vect_o_len',0
sz_o_ang db 'vect_o_ang',0
View Git Blame Copy Permalink