Subversion Repositories Kolibri OS

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

      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

      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

      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