Subversion Repositories Kolibri OS

use32

  org 0x0

  db 'MENUET01' ;èäåíòèô. èñïîëíÿåìîãî ôàéëà âñåãäà 8 áàéò

  dd 0x1

  dd start

  dd i_end ; ðàçìåð ïðèëîæåíèÿ

  dd mem

  dd stacktop

  dd 0x0

  dd cur_dir_path

include 'macros.inc'

include 'vectors.inc' ;vectors functions constant

include 'load_lib.mac'

@use_library

delt_angl dd 0.15708 ;óãîë ïîâîðîòà ïðè íàæàòèè êóðñîðîâ

delt_size dd 0.05 ;øàã èçìåíåíèÿ ìàñøòàáà

scale_min dd 0.05 ;ìèíèìàëüíûé ìàñøòàá

delt_x dd 10.0 ;ïåðåäâèæåíèå ïî îñè x

delt_y equ delt_x

arr0c:

  .x dd 200.0

  .y dd 150.0

  .a dd 0.0 ;angle

  .s dd 0.35 ;scale

arr1v:

  dw 12+VECT_PARAM_PROP_L+VECT_PARAM_COLOR ;òóëîâèùå

  dd 0xffd040

  dd VECT_CONT_BEZIER

  dd 6.0,128.0, 41.0,113.0, 175.0,94.0, 211.0,78.0

  dd 263.0,48.0, 300.0,29.0, 345.0,30.0, 383.0,52.0

  dd 415.0,85.0, 443.0,100.0, 476.0,112.0, 519.0,135.0

  dw 32+VECT_PARAM_PROP_L

  dd VECT_CONT_BEZIER

  dd 6.0,128.0, 48.0,127.0, 119.0,116.0, 202.0,114.0

  dd 233.0,127.0, 274.0,185.0, 300.0,211.0, 351.0,243.0

  dd 386.0,271.0, 398.0,292.0, 429.0,328.0, 507.0,384.0

  dd 517.0,401.0, 534.0,402.0, 545.0,388.0, 568.0,386.0

  dd 587.0,370.0, 612.0,393.0, 660.0,409.0, 712.0,447.0

  dd 711.0,422.0, 764.0,438.0, 837.0,481.0, 853.0,480.0

  dd 838.0,470.0, 860.0,466.0, 836.0,451.0, 851.0,447.0

  dd 796.0,412.0, 743.0,361.0, 719.0,335.0, 677.0,290.0

  dw 23+VECT_PARAM_PROP_L ;êðûëüÿ

  dd VECT_CONT_BEZIER

  dd 437.0,130.0, 519.0,135.0, 591.0,139.0, 616.0,150.0

  dd 697.0,163.0, 776.0,183.0, 849.0,230.0, 811.0,245.0

  dd 808.0,265.0, 771.0,258.0, 769.0,281.0, 729.0,277.0

  dd 718.0,296.0, 679.0,284.0, 665.0,294.0, 642.0,290.0

  dd 636.0,304.0, 609.0,296.0, 596.0,306.0, 574.0,301.0

  dd 541.0,299.0, 514.0,302.0, 495.0,299.0

  dw 16+VECT_PARAM_PROP_L

  dd VECT_CONT_BEZIER

  dd 484.0,116.0, 514.0,110.0, 564.0,82.0, 618.0,63.0

  dd 712.0,25.0, 774.0,25.0, 796.0,39.0, 778.0,51.0

  dd 779.0,64.0, 754.0,78.0, 745.0,97.0, 720.0,113.0

  dd 713.0,132.0, 688.0,146.0, 683.0,153.0, 668.0,158.0

  dw 7+VECT_PARAM_PROP_L+VECT_PARAM_COLOR ;ãëàç

  dd 0x0

  dd VECT_CONT_BEZIER

  dd 292.0,88.0, 278.0,78.0, 262.0,86.0, 261.0,101.0

  dd 274.0,110.0, 291.0,105.0, 292.0,88.0, 778.0,51.0

  dw 0

align 4

start:

  mov ecx,sc

  mov edx,sizeof.system_colors

  mcall 48,3

  mcall 40,0x27

  sys_load_library vectors_name, cur_dir_path, library_path, system_path, \

    err_message_found_lib, head_f_l, vectors_lib_import, err_message_import, head_f_i

  push 5*65536+40

  push 500*65536+350

  push 0xffffd0 ;öâåò ôîíà

  push word 24*256+1

  call [vect_buf_create]

  push word 1

  call [vect_buf_set_active] ;óñòàíàâëèâàåì ðåæèì ðèñîâàíèÿ â 1-é áóôåð

red_win:

  call draw_window

still:

  mcall 10

  cmp al,0x1 ;èçì. ïîëîæåíèå îêíà

  jz red_win

  cmp al,0x2

  jz key

  cmp al,0x3

  jz button

  jmp still

draw_window:

  mcall 12,1

  xor eax,eax

  mov ebx,10*65536+520

  mov ecx,10*65536+430

  mov edx,0xffffff;[sc.work]

  or  edx,0x33000000

  mov edi,hed

  mcall

  mov eax,4

  mov ebx,5*65536+5

  mov ecx,0x808000

  or  ecx,0x80000000

  mov edx,txtInfo1

  int 0x40

  mov ebx,5*65536+20

  mov edx,txtInfo2

  int 0x40

  call draw_vect_image

  mcall 12,2

  ret

draw_vect_image:

  push word 1

  call [vect_buf_clear] ;÷èñòèì 1-é áóôåð

  push dword 0x808000

  push dword arr1v

  push dword arr0c

  call [vect_draw_cont]

  push word 1

  call [vect_buf_draw] ;âûâîäèì 1-é áóôåð íà ýêðàí

  ret

button:

;  mcall 17 ;ïîëó÷èòü êîä íàæàòîé êíîïêè

;  cmp ah,1

;  jne still

.exit:

  push word 1

  call [vect_buf_delete] ;óäàëÿåì 1-é áóôåð

  mcall -1 ;âûõîä èç ïðîãðàììû

key:

  mcall 2

  cmp ah,27 ;Esc

  je button.exit

  cmp ah,176 ;Left

  jne @f

    call Image_RotLeft

    call draw_vect_image

  @@:

  cmp ah,179 ;Right

  jne @f

    call Image_RotRight

    call draw_vect_image

  @@:

  cmp ah,178 ;Up

  jne @f

    fld dword[arr0c.s]

    fadd dword[delt_size]

    fstp dword[arr0c.s]

    call draw_vect_image

  @@:

  cmp ah,177 ;Down

  jne @f

    call ScaleDec

    call draw_vect_image

  @@:

  cmp ah,119 ;w

  jne @f

    call Image_MoveUp

    call draw_vect_image

  @@:

  cmp ah,115 ;s

  jne @f

    call Image_MoveDown

    call draw_vect_image

  @@:

  cmp ah,100 ;d

  jne @f

    call Image_MoveRight

    call draw_vect_image

  @@:

  cmp ah,97 ;a

  jne @f

    call Image_MoveLeft

    call draw_vect_image

  @@:

  jmp still

;d

Image_MoveRight:

  fld dword[arr0c.x]

  fadd dword[delt_x]

  fstp dword[arr0c.x]

  ret

;a

Image_MoveLeft:

  fld dword[arr0c.x]

  fsub dword[delt_x]

  fstp dword[arr0c.x]

  ret

;w

Image_MoveUp:

  fld dword[arr0c.y]

  fsub dword[delt_y]

  fstp dword[arr0c.y]

  ret

;s

Image_MoveDown:

  fld dword[arr0c.y]

  fadd dword[delt_y]

  fstp dword[arr0c.y]

  ret

Image_RotLeft:

  mov bl,1

  fld dword[arr0c.a]

  fsub dword[delt_angl]

  fstp dword[arr0c.a]

  ret

Image_RotRight:

  mov bl,1

  fld dword[arr0c.a]

  fadd dword[delt_angl]

  fstp dword[arr0c.a]

  ret

ScaleDec:

  push ax

    finit

    fld dword[arr0c.s]

    fsub dword[delt_size]

    fcom dword[scale_min]

    fstsw ax

    sahf

    jbe @f

      fstp dword[arr0c.s]

    @@:

  pop ax

ret

o_dan dd ?

hed db 'Drawing vector image',0

txtInfo1 db 'Šãàá®àë: [',27,'], [',26,'] - ¯®¢®à®â; [',24,'], [',25,'] - à §¬¥à',0

txtInfo2 db 'Š­®¯ª¨: [a], [d] - ¢«¥¢®, ¢¯à ¢®; [w], [s] - ¢¢¥àå, ¢­¨§',0

sc system_colors

;--------------------------------------------------

align 4

vectors_lib_import:

  vect_buf_create dd av_buf_create

  vect_buf_set_active dd av_buf_set_active

  vect_buf_clear dd av_buf_clear

  vect_buf_draw dd av_draw_buf

  vect_buf_delete dd av_buf_delete

  vect_line dd av_line

  vect_c_bezier dd av_c_bezier

  vect_conv_cont dd av_conv_cont

  vect_draw_cont dd av_draw_cont

  vect_opred2i dd av_opred2i

  vect_line_len4i dd av_line_len4i

  vect_o_len dd av_o_len

  vect_o_ang dd av_o_ang

  dd 0,0

  av_buf_create db 'vect_buf_create',0

  av_buf_set_active db 'vect_buf_set_active',0

  av_buf_clear db 'vect_buf_clear',0

  av_draw_buf db 'vect_buf_draw',0

  av_buf_delete db 'vect_buf_delete',0

  av_line db 'vect_line',0

  av_c_bezier db 'vect_c_bezier',0

  av_conv_cont db 'vect_conv_cont',0

  av_draw_cont db 'vect_draw_cont',0

  av_opred2i db 'vect_opred2i',0

  av_line_len4i db 'vect_line_len4i',0

  av_o_len db 'vect_o_len',0

  av_o_ang db 'vect_o_ang',0

;--------------------------------------------------

system_path db '/sys/lib/'

vectors_name db 'vectors.obj',0

err_message_found_lib db 'Sorry I cannot load library vectors.obj',0

head_f_i:

head_f_l db 'System error',0

err_message_import db 'Error on load import library vectors.obj',0

;--------------------------------------------------

i_end: ;êîíåö êîäà

  rb 1024

stacktop:

  cur_dir_path:

    rb 4096

  library_path:

    rb 4096

mem: