Subversion Repositories Kolibri OS

Rev

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