Subversion Repositories Kolibri OS

Rev

Rev 8236 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. use32
  2.         org 0
  3.         db 'MENUET01'
  4.         dd 1,start,i_end,mem,stacktop,0,cur_dir_path
  5.  
  6. include '../../../../../KOSfuncs.inc'
  7. include '../../../../../macros.inc'
  8. include '../../../../../proc32.inc'
  9. include '../../../../../load_lib.mac'
  10. include '../../../../../dll.inc'
  11.  
  12. @use_library mem.Alloc,mem.Free,mem.ReAlloc, 0 ;dll.Load
  13.  
  14. buf2d_l equ word[edi+4] ;®âáâ㯠᫥¢ 
  15. buf2d_t equ word[edi+6] ;®âáâ㯠ᢥàåã
  16. buf2d_w equ dword[edi+8]
  17. buf2d_h equ dword[edi+12]
  18. buf2d_color equ dword[edi+16] ;梥â ä®­  ¡ãä¥à 
  19.  
  20. align 4
  21. start:
  22.         load_library lib0_name, library_path, system_path, import_buf2d_lib
  23.         cmp eax,-1
  24.         jz button.exit
  25.  
  26.         mcall SF_SET_EVENTS_MASK,0xC0000027
  27.         stdcall [buf2d_create], buf_0 ;ᮧ¤ ¥¬ ¡ãä¥à
  28.         ;à¨á㥬 ¯¥à¢®­ ç «ì­ë© ª ¤à
  29.         stdcall [buf2d_filled_rect_by_size], buf_0, 100-50,70-25, 100,50, 0xffffff ;à¨á㥬 ¯àאַ㣮«ì­¨ª
  30.         stdcall [buf2d_line], buf_0, 10,10, 100,75, 0xff0000 ;à¨á㥬 ¯à®áâãî «¨­¨î
  31.         stdcall [buf2d_line_sm], buf_0, 100,75, 190,140, 0xff0000 ;à¨á㥬 ᣫ ¦¥­­ãî «¨­¨î
  32.  
  33. align 4
  34. red_win:
  35.         call draw_window
  36.  
  37. align 4
  38. still:
  39.         mcall SF_WAIT_EVENT
  40.         cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
  41.         jz red_win
  42.         cmp al,2
  43.         jz key
  44.         cmp al,3
  45.         jz button
  46.         cmp al,6
  47.         jz mouse
  48.         jmp still
  49.  
  50. align 4
  51. draw_window:
  52.         pushad
  53.         mcall SF_REDRAW,SSF_BEGIN_DRAW
  54.  
  55.         ;mov edx,0x32000000
  56.         mov edx,0x33000000
  57.         mcall SF_CREATE_WINDOW,(50 shl 16)+330,(30 shl 16)+275,,,caption
  58.  
  59.         stdcall [buf2d_draw], buf_0
  60.  
  61.         mcall SF_REDRAW,SSF_END_DRAW
  62.         popad
  63.         ret
  64.  
  65. align 4
  66. key:
  67.         mcall SF_GET_KEY
  68.  
  69.         cmp ah,27 ;Esc
  70.         je button.exit
  71.  
  72.         jmp still
  73.  
  74. align 4
  75. button:
  76.         mcall SF_GET_BUTTON
  77.         cmp ah,1
  78.         jne still
  79. .exit:
  80.         stdcall [buf2d_delete],buf_0 ;㤠«ï¥¬ ¡ãä¥à
  81.         mcall SF_TERMINATE_PROCESS
  82.  
  83. align 4
  84. mouse:
  85.         ;®¡à ¡ â뢠¥¬ ®ª­® । ªâ®à 
  86.         mcall SF_MOUSE_GET,SSF_BUTTON
  87.         cmp al,1
  88.         jne @f
  89.                 mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
  90.                 mov ebx,eax
  91.                 shr ebx,16 ;¢ eax ª®®à¤¨­ â  ¬¨è¨ ¯® ®á¨ 'x'
  92.                 and eax,0xffff ;¢ eax ª®®à¤¨­ â  ¬¨è¨ ¯® ®á¨ 'y'
  93.                 mov edi,buf_0
  94.                 sub ax,buf2d_t ;ᤢ¨£ ¥¬ ª®®à¤¨­ âë ãç¨â뢠ï ᬥ饭¨¥ ¡ãä¥à 
  95.                 cmp eax,buf2d_h
  96.                 jge @f
  97.                 sub bx,buf2d_l
  98.                 cmp ebx,buf2d_w
  99.                 jge @f
  100.  
  101.                 ;à¨á®¢ ­¨¥ ¯à¨ ­ ¦ â¨¨
  102.                 stdcall [buf2d_clear], edi, buf2d_color ;®ç¨é ¥¬ íªà ­ ®â ¯à¥¤ë¤ãé¨å à¨á®¢ ­¨©
  103.                 stdcall [buf2d_filled_rect_by_size], edi, 100-50,70-25, 100,50, 0xffffff ;à¨á㥬 ¯àאַ㣮«ì­¨ª
  104.  
  105.                 stdcall [buf2d_line], edi, 10,10, ebx,eax, 0xff0000 ;à¨á㥬 ¯à®áâãî «¨­¨î
  106.                 stdcall [buf2d_line_sm], edi, 190,140, ebx,eax, 0xff0000 ;à¨á㥬 ᣫ ¦¥­­ãî «¨­¨î
  107.                 stdcall [buf2d_draw], edi ;®¡­®¢«ï¥¬ íªà ­
  108.         @@:
  109.         jmp still
  110.  
  111. caption db 'Press left mouse button, [Esc] - exit',0
  112.  
  113. ;--------------------------------------------------
  114. align 4
  115. import_buf2d_lib:
  116.         dd sz_lib_init
  117.         buf2d_create dd sz_buf2d_create
  118.         buf2d_create_f_img dd sz_buf2d_create_f_img
  119.         buf2d_clear dd sz_buf2d_clear
  120.         buf2d_draw dd sz_buf2d_draw
  121.         buf2d_delete dd sz_buf2d_delete
  122.         buf2d_line dd sz_buf2d_line
  123.         buf2d_line_sm dd sz_buf2d_line_sm
  124.         buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
  125.         buf2d_circle dd sz_buf2d_circle
  126.         buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
  127.         buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
  128.         buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
  129.         buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
  130.         buf2d_bit_blt dd sz_buf2d_bit_blt
  131.         buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
  132.         buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
  133.         buf2d_curve_bezier dd sz_buf2d_curve_bezier
  134.         buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
  135.         buf2d_draw_text dd sz_buf2d_draw_text
  136.         dd 0,0
  137.         sz_lib_init db 'lib_init',0
  138.         sz_buf2d_create db 'buf2d_create',0
  139.         sz_buf2d_create_f_img db 'buf2d_create_f_img',0
  140.         sz_buf2d_clear db 'buf2d_clear',0
  141.         sz_buf2d_draw db 'buf2d_draw',0
  142.         sz_buf2d_delete db 'buf2d_delete',0
  143.         sz_buf2d_line db 'buf2d_line',0
  144.         sz_buf2d_line_sm db 'buf2d_line_sm',0
  145.         sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
  146.         sz_buf2d_circle db 'buf2d_circle',0 ;à¨á®¢ ­¨¥ ®ªà㦭®áâ¨
  147.         sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
  148.         sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
  149.         sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
  150.         sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
  151.         sz_buf2d_bit_blt db 'buf2d_bit_blt',0
  152.         sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
  153.         sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
  154.         sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
  155.         sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
  156.         sz_buf2d_draw_text db 'buf2d_draw_text',0
  157.  
  158. align 4
  159. buf_0:
  160.         dd 0 ;㪠§ â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
  161.         dw 20 ;+4 left
  162.         dw 10 ;+6 top
  163.         dd 200 ;+8 w
  164.         dd 150 ;+12 h
  165.         dd 0x80 ;+16 color
  166.         db 24 ;+20 bit in pixel
  167.  
  168. ;--------------------------------------------------
  169. system_path db '/sys/lib/'
  170. lib0_name db 'buf2d.obj',0
  171. ;--------------------------------------------------
  172.  
  173. align 16
  174. i_end: ;ª®­¥æ ª®¤ 
  175.         rb 1024
  176. stacktop:
  177. cur_dir_path:
  178.         rb 4096
  179. library_path:
  180.         rb 4096
  181. mem:
  182.  
  183.