vector library by IgorA

git-svn-id: svn://kolibrios.org@3001 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/libraries/vector/trunk/example_logo.asm

@@ -0,0 +1,313 @@
+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:
+