WebSVN – Kolibri OS – Diff – /programs/games/life3/trunk/life3.asm

 include '../../../KOSfuncs.inc'
 include '../../../load_img.inc'
 include '../../../develop/libraries/box_lib/load_lib.mac'
 @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-hed db 'Life 31.10.18',0 ;¯®¤¯¨áì ®ª
+hed db 'Life 03.11.18',0 ;¯®¤¯¨áì ®ª
 run_file_70 FileInfoBlock
 		stosd ;for(i=0;i
 		inc eax
 		loop @b
 	ret
 endp
 align 4
 proc pole_cell_creat, x:dword, y:dword, li:dword
 	pushad ;eax ebx ecx edx edi
 	; *** ¥á«¨ ª«¥âª  ã¦¥ ¡ë«  á®§¤
 	stdcall pole_cell_find, [x],[y]
-	cmp eax,0
+	or eax,eax
-	je @f ;if(i){
+	jz @f ;if(i){
 		get_cell_offset ebx,eax
 		cmp dword[li],0
 		jne .else_if ;if(!li)
 			; ¥á«¨ á®§¤ ¥âáï ¯ãáâ ï ª«¥âª
-			inc byte[ebx+13] ;+13 = .so
+			inc byte[ebx+Cell.so]
 			jmp .fun_e
 		.else_if: ;else if(!(cell[i].liv&1) ){
-		bt word[ebx+12],0 ;+12 = .liv
+		bt word[ebx+Cell.liv],0
 			; ¥á«¨ á®§¤ ¥âáï ¦¨¢ ï ª«¥âª
 			; ¨ à ìè¥ ª«¥âª  ¡ë«  á®§¤   ® ®ª § « áì ¯ãáâ®©
 			jae .creat_border_cells
 		jmp .fun_e
 	get_cell_offset ebx,[eax]
 	mov ecx,[x]
 	mov dword[ebx],ecx ;+0 = .x
 	mov edx,[y]
-	mov dword[ebx+4],edx ;+4 = .y
+	mov dword[ebx+Cell.y],edx
 	mov eax,[tim]
-	mov dword[ebx+8],eax ;+8 = .tc
+	mov dword[ebx+Cell.tc],eax
-	mov byte[ebx+12],0 ;+12 = .liv
+	mov byte[ebx+Cell.liv],0
 	cmp dword[li],0
 	jne @f
-		mov byte[ebx+13],1 ;+13 = .so
+		mov byte[ebx+Cell.so],1
 		jmp .fun_e
 	@@:
-	mov byte[ebx+13],0 ;+13 = .so
+	mov byte[ebx+Cell.so],0
 	.creat_border_cells:
 		inc dword[osob]
-		or byte[ebx+12],1 ;+12 = .liv
+		or byte[ebx+Cell.liv],1
 		mov ecx,[x]
 		dec ecx
 		;ecx -> firstC
 		;edx -> &memCell[i]
 		;edi -> cell[memCell[i]]
 		mov ecx,[memCell]
 		mov ebx,[b_sort]
-		mov edx,ebx
+		lea edx,[ebx*4]
-		shl edx,2
 		add edx,ecx
 		mov ecx,[ecx]
 		.cycle_b: ;for(i=b_sort+1;i<=fristC;i++)
 			inc ebx
 			cmp ebx,ecx
 			get_cell_offset edi,[edx]
 			mov esi,[x]
 			cmp dword[edi],esi ;+0 = .x
 			jne .if_e
 			mov esi,[y]
-			cmp dword[edi+4],esi ;+4 = .y
+			cmp dword[edi+Cell.y],esi
 			jne .if_e
 				;if(cell[memCell[i]].x==x && cell[memCell[i]].y==y){
 				mov eax,[edx] ;fnd=memCell[i];
 				jmp .cycle_e ;break;
 			.if_e:
 	;ecx -> i
 	;edi -> mas[i]
 	.cycle_b: ;do{
 		shr ebx,1 ;por>>=1;
-		mov edi,ecx
-		shl edi,2
+		lea edi,[ecx*4]
 		add edi,[mas]
 		;if(compare_cells_mb(mas[i],fx,fy)){
 		stdcall pole_compare_cells_mb_coords, dword[edi],[fx],[fy]
 		cmp dl,0
 	pop edi edx ecx ebx
 	ret
+endp
-endp
+;description:
 ; ¢á¯®¬®£ â¥«ì ï äãªæ¨ï ¤«ï á®àâ¨à®¢ª¨ ïç¥¥ª¨ ¯® ª®®à¤¨ â ¬
 ;output:
 ; dl
 align 4
 	jle @f
 		mov dl,1
 		jmp .fun_e
 	@@:
 	mov ecx,[fy]
-	cmp dword[eax+4],ecx
+	cmp dword[eax+Cell.y],ecx
 	jle @f
 	cmp dword[eax],ebx
 	jne @f
 		mov dl,1
 		jmp .fun_e
 	.fun_e:
 	pop ecx ebx eax
 	ret
 endp
+;description:
 ; ¢á¯®¬®£ â¥«ì ï äãªæ¨ï ¤«ï á®àâ¨à®¢ª¨ ïç¥¥ª¨ ¯® ª®®à¤¨ â ¬
 ;output:
 ; dl
 align 4
 proc pole_compare_cells_mb_coords, i0:dword, fx:dword, fy:dword
 	jge @f
 		mov dl,1
 		jmp .fun_e
 	@@:
 	mov ecx,[fy]
-	cmp dword[eax+4],ecx
+	cmp dword[eax+Cell.y],ecx
 	jge @f
 	cmp dword[eax],ebx
 	jne @f
 		mov dl,1
 		jmp .fun_e
 	jle @f ;x0>x1
 		mov dl,1
 		jmp .fun_e
 	@@:
 	jne @f ;x0==x1
-	mov ecx,[ebx+4] ;+4 = .y
+	mov ecx,[ebx+Cell.y]
-	cmp dword[eax+4],ecx
+	cmp dword[eax+Cell.y],ecx
 	jle @f ;y0>y1
 		mov dl,1
 		jmp .fun_e
 	@@:
 	xor dl,dl
 ;---
 	@@: ;while(i
 		cmp ebx,[b_sort]
 		jge @f ;¯¥à¥å®¤¨¬    ç «® ¨¦¥£® æ¨ª«
-		mov ecx,ebx
-		shl ecx,2
+		lea ecx,[ebx*4]
 		add ecx,[memCell]
 		get_cell_offset ecx,[ecx]
 		mov edx,[ecx] ;+0 = .x
 		add edx,[Cor_x]
 	@@:
 	cmp byte[zoom],2
 	jge .zoom2
 	@@: ;for(;i<=fristC;i++){
-		mov ecx,ebx
-		shl ecx,2
+		lea ecx,[ebx*4]
 		add ecx,[memCell]
 		get_cell_offset ecx,[ecx]
 ;...
 		mov edi,[Cor_x]
 		add edi,[ecx] ;+0 = .x
 		mov esi,[Cor_y]
-		add esi,[ecx+4] ;+4 = .y
+		add esi,[ecx+Cell.y]
-		bt word[ecx+12],0 ;+12 = .liv
+		bt word[ecx+Cell.liv],0
 		jc .cell_1
 			;¥ ¦¨¢ ï ïç¥©ª
 			mov edx,[CellColors]
 			mov edx,[edx]
 			jmp .cell_0
 		.cell_1:
 			;¦¨¢ ï ïç¥©ª
 			mov edx,[tim]
 			inc edx
-			sub edx,[ecx+8] ;+8 = .tc
+			sub edx,[ecx+Cell.tc]
 			cmp edx,COL_MEM
 			jle .in_color
 				mov edx,COL_MEM
 			.in_color:
 	jmp .no_draw
 	.zoom2:
-	@@: ;for(;i<=fristC;i++){
-		mov ecx,ebx
+	@@: ;for(;i<=fristC;i++){
-		shl ecx,2
+		lea ecx,[ebx*4]
 		add ecx,[memCell]
 		get_cell_offset ecx,[ecx]
 		xor edx,edx
 		mov dl,byte[zoom] ;edx ¨á¯®«ì§ã¥âáï ¤«ï ¢¥á¥¨ï zoom ¢ 4 ¡ ©â®¥ ç¨á«®
 		mov edi,[ecx] ;+0 = .x
 		add edi,[Cor_x]
 		imul edi,edx
-		mov esi,[ecx+4] ;+4 = .y
+		mov esi,[ecx+Cell.y]
 		add esi,[Cor_y]
 		imul esi,edx
-		bt word[ecx+12],0 ;+12 = .liv
+		bt word[ecx+Cell.liv],0
 		jc .z2_cell_1
 			;¥ ¦¨¢ ï ïç¥©ª
 			mov edx,[CellColors]
 			mov edx,[edx]
 			jmp .z2_cell_0
 		.z2_cell_1:
 			;¦¨¢ ï ïç¥©ª
 			mov edx,[tim]
 			inc edx
-			sub edx,[ecx+8] ;+8 = .tc
+			sub edx,[ecx+Cell.tc]
 			cmp edx,COL_MEM
 			jle .z2_in_color
 	inc dword[tim]
 	mov ebx,1
 	@@: ;for(i=1;i<=firstC;i++)
 		add ecx,4
 		get_cell_offset edx,[ecx]
-		bt word[edx+12],0 ;+12 = .liv
+		bt word[edx+Cell.liv],0
 		jae .if_0_e
 			; á®åà ¥¨¥ ïç¥©ª¨ (á®á¥¤¥© 2 ¨«¨ 3)
-			cmp byte[edx+13],2 ;+13 = .so
+			cmp byte[edx+Cell.so],2
 			je .if_2_e
-			cmp byte[edx+13],3 ;+13 = .so
+			cmp byte[edx+Cell.so],3
 			je .if_2_e
 			jmp .change
 		.if_0_e:
 			; á®§¤ ¨¥ ïç¥©ª¨ (á®á¥¤¥© 3)
-			cmp byte[edx+13],3 ;+13 = .so
+			cmp byte[edx+Cell.so],3
 			jne .if_1_e
 			.change:
-				or byte[edx+12],2 ;+12 = .liv
+				or byte[edx+Cell.liv],2
 				jmp .if_2_e
 		.if_1_e:
 			; ã¤ «¥¨¥ ¯ãáâ®© ïç¥©ª¨ ¤«ï ®á¢®¡®¦¤¥¨ï ¯ ¬ïâ¨
-			cmp byte[edx+13],0 ;+13 = .so
+			cmp byte[edx+Cell.so],0
 			jne .if_2_e
-			mov edi,[edx+8] ;+8 = .tc
+			mov edi,[edx+Cell.tc]
 			add edi,5 ; 5 - ¢à¥¬ï á®åà ¥¨ï ¯ãáâ®© ïç¥©ª¨, ¤® ¥ñ ã¤ «¥¨ï
 			cmp edi,[tim]
 			jge .if_2_e
-				mov edi,eax
+				lea edi,[eax*4]
-				shl edi,2
 				add edi,[memCell] ;edi -> &memCell[fristC]
 				mov esi,[edi] ;swp=memCell[fristC];
 				mov edx,[ecx] ;edx - ã¦¥ ¥ ¨á¯®«ì§ã¥¬, ¯®â®¬ã ¬®¦¥¬ ¯®àâ¨âì
 				mov dword[edi],edx ;memCell[fristC]=memCell[i];
 				mov dword[ecx],esi ;memCell[i]=swp;
 	mov ecx,[memCell]
 	mov ebx,1
 	@@: ;for(i=1;i<=firstC;i++)
 		add ecx,4
 		get_cell_offset edx,[ecx]
-		bt word[edx+12],1 ;+12 = .liv
+		bt word[edx+Cell.liv],1
 		jae .no_change
-			xor byte[edx+12],3 ;+12 = .liv
+			xor byte[edx+Cell.liv],3
 			mov edi,[tim]
-			mov dword[edx+8],edi ;+8 = .tc
+			mov dword[edx+Cell.tc],edi
-			bt word[edx+12],0 ;+12 = .liv
+			bt word[edx+Cell.liv],0
 			jc .new_cell
 				push eax
 				mov edi,[edx]
 				dec edi
-				mov esi,[edx+4]
+				mov esi,[edx+Cell.y]
 				dec esi
 				dec dword[osob]
 				;¤ «ìè¥ § ç¥¨¥ edx ¯®àâ¨âáï
 				stdcall pole_cell_find,edi,esi
 				get_cell_offset edx,eax
-				dec byte[edx+13] ;+13 = .so
+				dec byte[edx+Cell.so]
 				inc esi
 				stdcall pole_cell_find,edi,esi
 				get_cell_offset edx,eax
-				dec byte[edx+13] ;+13 = .so
+				dec byte[edx+Cell.so]
 				inc esi
 				stdcall pole_cell_find,edi,esi
 				get_cell_offset edx,eax
-				dec byte[edx+13] ;+13 = .so
+				dec byte[edx+Cell.so]
 				inc edi
 				stdcall pole_cell_find,edi,esi
 				get_cell_offset edx,eax
-				dec byte[edx+13] ;+13 = .so
+				dec byte[edx+Cell.so]
 				sub esi,2
 				stdcall pole_cell_find,edi,esi
 				get_cell_offset edx,eax
-				dec byte[edx+13] ;+13 = .so
+				dec byte[edx+Cell.so]
 				inc edi
 				stdcall pole_cell_find,edi,esi
 				get_cell_offset edx,eax
-				dec byte[edx+13] ;+13 = .so
+				dec byte[edx+Cell.so]
 				inc esi
 				stdcall pole_cell_find,edi,esi
 				get_cell_offset edx,eax
-				dec byte[edx+13] ;+13 = .so
+				dec byte[edx+Cell.so]
 				inc esi
 				stdcall pole_cell_find,edi,esi
 				get_cell_offset edx,eax
-				dec byte[edx+13] ;+13 = .so
+				dec byte[edx+Cell.so]
 				pop eax
 				jmp .no_change
 			.new_cell: ; ¯®ï¢¨« áì ®¢ ï ïç¥©ª
 				inc dword[osob]
 				mov edi,[edx]
 				dec edi
-				mov esi,[edx+4]
+				mov esi,[edx+Cell.y]
 				dec esi
 				stdcall pole_cell_creat,edi,esi,0
 				inc esi
 				stdcall pole_cell_creat,edi,esi,0
 				inc esi
 	;ë¯®«¨âì ¯à®æ¥¤ãàã ¢á¯«ëâ¨ï «®©¤  ¤«ï ª ¦¤®£® ¯®¤¤¥à¥¢
 	mov eax,[n]
 	@@: ;for(i=n; i>=2; i--){
 		stdcall pole_fl_surface, ecx,1,eax ;(a,1,i)
 		;®¬¥áâ¨âì  ©¤¥ë© ¬ ªá¨¬ «ìë© í«¥¬¥â ¢ ª®¥æ á¯¨áª
-		mov edi,eax
+		lea edi,[eax*4]
-		shl edi,2
 		add edi,ecx ;edi -> &a[i]
 		mov esi,[edi] ;w=a[i];
 		mov edx,[ecx+4]
 		mov dword[edi],edx ;a[i]=a[1];
 		mov dword[ecx+4],esi ;a[1]=w;
 	;esi -> j
 	mov eax,[a]
 	mov ebx,[i]
 	mov ecx,[k]
-	mov edx,ebx
-	shl edx,2
+	lea edx,[ebx*4]
 	add edx,eax
 	mov edx,[edx]
 	mov dword[copy],edx ;copy=a[i];
 	mov edi,ebx
 		jg .cycle_e
 		jne @f ;if (m==k) j=m;
 			mov esi,edi
 			jmp .else_e
 		@@: ;else if (pole_compare_cells_bm(a[m],a[m+1])) j=m;
-		mov edx,edi
+		lea edx,[edi*4]
-		shl edx,2
 		add edx,eax
 		stdcall pole_compare_cells_bm, dword[edx],dword[edx+4]
 		cmp dl,0
 		je @f
 			mov esi,edi
 			mov esi,edi
 			inc esi
 		.else_e:
 		;if (pole_compare_cells_bm(a[j],copy)) {
-		mov edx,esi
-		shl edx,2
+		lea edx,[esi*4]
 		add edx,eax
 		stdcall pole_compare_cells_bm, dword[edx],dword[copy]
 		cmp dl,0
 		je .cycle_e ;} else break; //¢ëå®¤ ¨§ æ¨ª«
 		mov edx,esi
-		shl edx,2
+		lea edx,[esi*4]
 		add edx,eax
-		push dword[edx] ;push a[j];
-		mov edx,ebx
+		push dword[edx] ;push a[j];
-		shl edx,2
+		lea edx,[ebx*4]
 		add edx,eax
 		pop dword[edx] ;a[i]=a[j];
 		mov ebx,esi ;i=j;
 align 4
 start:
 	load_libraries l_libs_start,l_libs_end
 	;¯à®¢¥àª    áª®«ìª® ã¤ ç® § £ã§¨« áì  è  «¨¡
-	mov	ebp,lib_7
+	mov	ebp,lib2
 	cmp	dword [ebp+ll_struc_size-4],0
 	jz	@f
 		mcall SF_TERMINATE_PROCESS ;exit not correct
 	@@:
 	; áâà®©ª  æ¢¥â®¢ ïç¥¥ª
 	stdcall pole_init_colors, 0xffffd0,0xff0000,0x0000ff
 	call pole_clear
 	call pole_paint ;à¨á®¢ ¨¥ ¯®«ï ¢ ¡ãä¥à¥ (¥   íªà ¥)
-	;xor eax,eax
-	;mov edi,txt_zoom.zi
-	;mov al,byte[zoom]
-	;call tl_convert_to_str
 	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
 	mov [last_time],eax
 	jz red_win
 	cmp al,2
 	jz key
 	cmp al,3
 	jz button
+	cmp al,6
+	jne @f
+		mcall SF_THREAD_INFO,procinfo,-1
+		cmp ax,word[procinfo.window_stack_position]
+		jne @f ;®ª® ¥  ªâ¨¢®
+		call mouse
+	@@:
 	jmp still
+align 4
+mouse:
+	push eax ebx ecx
+	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
+	bt eax,8
+	jnc @f
+		;mouse l. but. press
+		;call mouse_left_d
+		;jmp .end_l
+	@@:
+	bt eax,16
+	jnc .end_l
+		;mouse l. but. up
+		;call mouse_left_u
+		;jmp .end_l
+	.end_l:
+	call buf_get_mouse_coord
+	cmp eax,-1
+	je .end0
+		shl eax,1
+		sub eax,[buf_0.w]
+		sar eax,1
+		;mov [mouse_prop_x],eax
+		shl ebx,1
+		sub ebx,[buf_0.h]
+		sar ebx,1
+		;mov [mouse_prop_y],ebx
+		mcall SF_MOUSE_GET,SSF_SCROLL_DATA
+		test ax,ax
+		jz .end0
+		test ax,0x8000
+		jnz .decr
+			;ã¢¥«¨ç¥¨¥ ¬ áèâ ¡
+			call but_zoom_p
+			jmp .end0
+		.decr:
+			;ã¬¥ìè¥¨¥ ¬ áèâ ¡
+			call but_zoom_m
+	.end0:
+	pop ecx ebx eax
+	ret
+;output:
+; eax - buffer coord X (¥á«¨ ªãàá®à §  ¡ãä¥à®¬ -1)
+; ebx - buffer coord Y (¥á«¨ ªãàá®à §  ¡ãä¥à®¬ -1)
+align 4
+proc buf_get_mouse_coord
+	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
+	cmp ax,word[buf_0.t]
+	jl .no_buf ;¥ ¯®¯ «¨ ¢ ®ª® ¡ãä¥à  ¯® ®á¨ y
+	mov ebx,eax
+	shr ebx,16
+	cmp bx,word[buf_0.l]
+	jl .no_buf ;¥ ¯®¯ «¨ ¢ ®ª® ¡ãä¥à  ¯® ®á¨ x
+	and eax,0xffff ;®áâ ¢«ï¥¬ ª®®à¤¨ âã y
+	sub ax,word[buf_0.t]
+	cmp eax,[buf_0.h]
+	jg .no_buf
+	sub bx,word[buf_0.l]
+	cmp ebx,[buf_0.w]
+	jg .no_buf
+	xchg eax,ebx
+	jmp .end_f
+	.no_buf:
+		xor eax,eax
+		not eax
+		xor ebx,ebx
+		not ebx
+	.end_f:
+	ret
+endp
 align 4
 timer_funct:
 	pushad
 	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
 	mov edx,[sc.work]
 	or  edx,0x33000000
 	mov edi,hed
 	mcall SF_CREATE_WINDOW,(20 shl 16)+485,(20 shl 16)+415
+	mcall SF_THREAD_INFO,procinfo,-1
+	mov eax,[procinfo.box.height]
+	cmp eax,120
+	jge @f
+		mov eax,120 ;min size
+	@@:
+	sub eax,63
+	mov ebx,[procinfo.box.width]
+	cmp ebx,270
+	jge @f
+		mov ebx,270
+	@@:
+	sub ebx,9
+	cmp eax,[buf_0.h] ;á¬®âà¨¬ à §¬¥à ¡ãä¥à
+	jne @f
+	cmp ebx,[buf_0.w]
+	jne @f
+		jmp .end0
+	@@:
+		stdcall [buf2d_resize], buf_0, ebx,eax,1
+		stdcall [buf2d_clear], buf_0, [buf_0.color]
+		call pole_paint
+	.end0:
 	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3, [sc.work_button]
 	mov ebx,(30 shl 16)+20
 	add bx,9
 	mov edx,txt_osob
 	int 0x40
-	mov eax,SF_DRAW_NUMBER
-	xor ecx,ecx
+	mov eax,SF_DRAW_NUMBER
-	mov cl,byte[zoom]
+	movzx ecx,byte[zoom]
 	mov ebx,(2 shl 16)
 	mov edx,(325+6*9)*65536+5
 	mov esi,[sc.work_button_text]
 	or  esi,(1 shl 30)
 	;edx - ª®¥æ ä ©«
 	mov edi,[open_file_lif]
 	xor ebx,ebx
 	xor ecx,ecx
 	mov eax,ebx
-	mov edx,[open_file_lif]
+	mov edx,edi
 	add edx,[open_file_size]
 	@@:
 		cmp byte[edi],'*'
 		jne .no_cell
 			stdcall pole_cell_creat, ebx,ecx,1
 		div ecx
 		sub ebx,eax
 		sub dword[Cor_y],ebx ;á¤¢¨£ ¥¬ ¯®«¥ §à¥¨ï ¯® ®á¨ y
-		inc byte[zoom]
-		;xor eax,eax
-		;mov edi,txt_zoom.zi
-		;mov al,byte[zoom]
-		;call tl_convert_to_str
+		inc byte[zoom]
 		call draw_pok
 		popad
 		div ecx
 		sub ebx,eax
 		sub dword[Cor_y],ebx ;á¤¢¨£ ¥¬ ¯®«¥ §à¥¨ï ¯® ®á¨ y
-		dec byte[zoom]
-		;xor eax,eax
-		;mov edi,txt_zoom.zi
-		;mov al,byte[zoom]
-		;call tl_convert_to_str
+		dec byte[zoom]
 		call draw_pok
 		popad
 system_dir_1 db '/sys/lib/'
 lib_name_1 db 'libimg.obj',0
 err_message_found_lib_1 db '¥  ©¤¥  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
 err_message_import_1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
-system_dir_7 db '/sys/lib/'
+system_dir_2 db '/sys/lib/'
-lib_name_7 db 'buf2d.obj',0
+lib_name_2 db 'buf2d.obj',0
-err_msg_found_lib_7 db '¥  ©¤¥  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
+err_msg_found_lib_2 db '¥  ©¤¥  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
-err_msg_import_7 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
+err_msg_import_2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 l_libs_start:
 	lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
 		err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
 	lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
 		err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i
-	lib_7 l_libs lib_name_7, sys_path, library_path, system_dir_7,\
+	lib2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\
-		err_msg_found_lib_7,head_f_l,import_buf2d,err_msg_import_7,head_f_i
+		err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
 l_libs_end:
 align 4
 import_buf2d:
 	init dd sz_init
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
+	buf2d_create dd sz_buf2d_create
 	buf2d_clear dd sz_buf2d_clear
 	buf2d_draw dd sz_buf2d_draw
 	buf2d_delete dd sz_buf2d_delete
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
+	buf2d_resize dd sz_buf2d_resize
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
+	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
 	buf2d_set_pixel dd sz_buf2d_set_pixel
 	dd 0,0
 	sz_init db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
+	sz_buf2d_create db 'buf2d_create',0
 	sz_buf2d_clear db 'buf2d_clear',0
 	sz_buf2d_draw db 'buf2d_draw',0
 	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
+	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
+	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
 	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-mouse_dd dd 0x0
+mouse_dd dd 0
 sc system_colors
 last_time dd 0
 align 16
 procinfo process_information
 align 4
-buf_0: dd 0 ;a? § a?«i   ?aa?a ?§®?a ¦??i
+buf_0: dd 0
-	dw 5 ;+4 left
+.l: dw 0 ;+4 left
-	dw 35 ;+6 top
+.t: dw 35 ;+6 top
-.w: dd 460 ;+8 w
-.h: dd 340 ;+12 h
-.color: dd 0xffffd0 ;+16 color
-	db 24 ;+20 bit in pixel
-;íâ®â ª®¤ ¥ ¬®©, ® ¯à¥®¡à §ã¥â ç¨á«® ¢ áâà®ªã
-;input:
-; eax = value
-; edi = string buffer
-;output:
-align 4
-tl_convert_to_str:
-	pushad
-		mov dword[edi+1],0
-		call .str
-	popad
-	ret
-align 4
-.str:
-	mov ecx,0x0a ;§ ¤ ¥âáï á¨áâ¥¬  áç¨á«¥¨ï ¨§¬¥ïîâáï à¥£¨áâàë ebx,eax,ecx,edx ¢å®¤ë¥ ¯ à ¬¥âàë eax - ç¨á«®
-    ;¯à¥à¥¢®¤ ç¨á«  ¢ ASCII áâà®ªã ¢§®¤ë¥ ¤ ë¥ ecx=á¨áâ¥¬  áç¨á«¥ï edi  ¤à¥á ªã¤  § ¯¨áë¢ âì, ¡ã¤¥¬ áâà®ªã, ¯à¨ç¥¬ ª®¥æ ¯¥à¥¬¥®©
-	cmp eax,ecx  ;áà ¢¨âì ¥á«¨ ¢ eax ¬¥ìè¥ ç¥¬ ¢ ecx â® ¯¥à¥©â¨   @@-1 â.¥.   pop eax
-	jb @f
-		xor edx,edx  ;®ç¨áâ¨âì edx
-		div ecx      ;à §¤¥«¨âì - ®áâ â®ª ¢ edx
-		push edx     ;¯®«®¦¨âì ¢ áâ¥ª
-		;dec edi             ;á¬¥é¥¨¥ ¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®æ  áâà®ª¨
-		call .str ;¯¥à¥©â¨   á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥â  ¯®ª  ¢ eax ¥ áâ ¥â ¬¥ìè¥ ç¥¬ ¢ ecx
-		pop eax
-	@@: ;cmp al,10 ;¯à®¢¥à¨âì ¥ ¬¥ìè¥ «¨ § ç¥¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥ï 10 ¤  ï ª®¬ ¤  - «¨è ï))
+.w: dd 476 ;+8 w
-	or al,0x30  ;¤  ï ª®¬ ¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥
+.h: dd 352 ;+12 h
-	stosb	    ;§ ¯¨á âì í«¥¬¥â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
+.color: dd 0xffffd0 ;+16 color
-	ret	      ;¢¥àãâìáï ç¥ì ¨â¥à¥áë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
+	db 24 ;+20 bit in pixel

Subversion Repositories Kolibri OS

(root)/programs/games/life3/trunk/life3.asm – Rev 7514 → 7524