WebSVN – Kolibri OS – Blame – /kernel/trunk/video/cursors.inc

Rev	Author	Line No.	Line
2288	clevermous	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
5363	yogev_ezra	3	;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
2288	clevermous	4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		7
		8	$Revision: 7136 $
		9
		10
7136	dunkaist	11	LOAD_FROM_FILE = 0
		12	LOAD_FROM_MEM = 1
		13	LOAD_INDIRECT = 2
		14	LOAD_SYSTEM = 3
2288	clevermous	15
2384	hidnplayr	16	struct BITMAPINFOHEADER
		17	Size dd ?
		18	Width dd ?
		19	Height dd ?
		20	Planes dw ?
		21	BitCount dw ?
		22	Compression dd ?
		23	SizeImage dd ?
		24	XPelsPerMeter dd ?
		25	YPelsPerMeter dd ?
		26	ClrUsed dd ?
		27	ClrImportant dd ?
		28	ends
2430	mario79	29	;------------------------------------------------------------------------------
2288	clevermous	30	align 4
		31	proc init_cursor stdcall, dst:dword, src:dword
		32	locals
		33	rBase dd ?
		34	pQuad dd ?
		35	pBits dd ?
		36	pAnd dd ?
		37	width dd ?
		38	height dd ?
		39	counter dd ?
		40	endl
		41
		42	mov esi, [src]
		43	add esi, [esi+18]
		44	mov eax, esi
		45
2384	hidnplayr	46	cmp [esi+BITMAPINFOHEADER.BitCount], 24
2288	clevermous	47	je .img_24
2384	hidnplayr	48	cmp [esi+BITMAPINFOHEADER.BitCount], 8
2288	clevermous	49	je .img_8
2384	hidnplayr	50	cmp [esi+BITMAPINFOHEADER.BitCount], 4
2288	clevermous	51	je .img_4
2430	mario79	52	;--------------------------------------
		53	align 4
2288	clevermous	54	.img_2:
		55	add eax, [esi]
		56	mov [pQuad], eax
		57	add eax, 8
		58	mov [pBits], eax
		59	add eax, 128
		60	mov [pAnd], eax
		61	mov eax, [esi+4]
		62	mov [width], eax
		63	mov ebx, [esi+8]
		64	shr ebx, 1
		65	mov [height], ebx
		66
		67	mov edi, [dst]
		68	add edi, 32314
		69	mov [rBase], edi
		70
		71	mov esi, [pQuad]
2430	mario79	72	;--------------------------------------
		73	align 4
2288	clevermous	74	.l21:
		75	mov ebx, [pBits]
		76	mov ebx, [ebx]
		77	bswap ebx
		78	mov eax, [pAnd]
		79	mov eax, [eax]
		80	bswap eax
		81	mov [counter], 32
2430	mario79	82	;--------------------------------------
		83	align 4
2288	clevermous	84	@@:
		85	xor edx, edx
		86	shl eax, 1
		87	setc dl
		88	dec edx
		89
		90	xor ecx, ecx
		91	shl ebx, 1
		92	setc cl
		93	mov ecx, [esi+ecx*4]
		94	and ecx, edx
		95	and edx, 0xFF000000
		96	or edx, ecx
		97	mov [edi], edx
		98
		99	add edi, 4
		100	dec [counter]
		101	jnz @B
		102
		103	add [pBits], 4
		104	add [pAnd], 4
		105	mov edi, [rBase]
		106	sub edi, 128
		107	mov [rBase], edi
		108	sub [height], 1
		109	jnz .l21
		110	ret
2430	mario79	111	;--------------------------------------
		112	align 4
2288	clevermous	113	.img_4:
		114	add eax, [esi]
		115	mov [pQuad], eax
		116	add eax, 64
		117	mov [pBits], eax
		118	add eax, 0x200
		119	mov [pAnd], eax
		120	mov eax, [esi+4]
		121	mov [width], eax
		122	mov ebx, [esi+8]
		123	shr ebx, 1
		124	mov [height], ebx
		125
		126	mov edi, [dst]
		127	add edi, 32314
		128	mov [rBase], edi
		129
		130	mov esi, [pQuad]
		131	mov ebx, [pBits]
2430	mario79	132	;--------------------------------------
		133	align 4
2288	clevermous	134	.l4:
		135	mov eax, [pAnd]
		136	mov eax, [eax]
		137	bswap eax
		138	mov [counter], 16
2430	mario79	139	;--------------------------------------
		140	align 4
2288	clevermous	141	@@:
		142	xor edx, edx
		143	shl eax, 1
		144	setc dl
		145	dec edx
		146
		147	movzx ecx, byte [ebx]
		148	and cl, 0xF0
		149	shr ecx, 2
		150	mov ecx, [esi+ecx]
		151	and ecx, edx
		152	and edx, 0xFF000000
		153	or edx, ecx
		154	mov [edi], edx
		155
		156	xor edx, edx
		157	shl eax, 1
		158	setc dl
		159	dec edx
		160
		161	movzx ecx, byte [ebx]
		162	and cl, 0x0F
		163	mov ecx, [esi+ecx*4]
		164	and ecx, edx
		165	and edx, 0xFF000000
		166	or edx, ecx
		167	mov [edi+4], edx
		168
		169	inc ebx
		170	add edi, 8
		171	dec [counter]
		172	jnz @B
		173
		174	add [pAnd], 4
		175	mov edi, [rBase]
		176	sub edi, 128
		177	mov [rBase], edi
		178	sub [height], 1
		179	jnz .l4
		180	ret
2430	mario79	181	;--------------------------------------
		182	align 4
2288	clevermous	183	.img_8:
		184	add eax, [esi]
		185	mov [pQuad], eax
		186	add eax, 1024
		187	mov [pBits], eax
		188	add eax, 1024
		189	mov [pAnd], eax
		190	mov eax, [esi+4]
		191	mov [width], eax
		192	mov ebx, [esi+8]
		193	shr ebx, 1
		194	mov [height], ebx
		195
		196	mov edi, [dst]
		197	add edi, 32314
		198	mov [rBase], edi
		199
		200	mov esi, [pQuad]
		201	mov ebx, [pBits]
2430	mario79	202	;--------------------------------------
		203	align 4
2288	clevermous	204	.l81:
		205	mov eax, [pAnd]
		206	mov eax, [eax]
		207	bswap eax
		208	mov [counter], 32
2430	mario79	209	;--------------------------------------
		210	align 4
2288	clevermous	211	@@:
		212	xor edx, edx
		213	shl eax, 1
		214	setc dl
		215	dec edx
		216
		217	movzx ecx, byte [ebx]
		218	mov ecx, [esi+ecx*4]
		219	and ecx, edx
		220	and edx, 0xFF000000
		221	or edx, ecx
		222	mov [edi], edx
		223
		224	inc ebx
		225	add edi, 4
		226	dec [counter]
		227	jnz @B
		228
		229	add [pAnd], 4
		230	mov edi, [rBase]
		231	sub edi, 128
		232	mov [rBase], edi
		233	sub [height], 1
		234	jnz .l81
		235	ret
2430	mario79	236	;--------------------------------------
		237	align 4
2288	clevermous	238	.img_24:
		239	add eax, [esi]
		240	mov [pQuad], eax
		241	add eax, 0xC00
		242	mov [pAnd], eax
2384	hidnplayr	243	mov eax, [esi+BITMAPINFOHEADER.Width]
2288	clevermous	244	mov [width], eax
2384	hidnplayr	245	mov ebx, [esi+BITMAPINFOHEADER.Height]
2288	clevermous	246	shr ebx, 1
		247	mov [height], ebx
		248
		249	mov edi, [dst]
		250	add edi, 32314
		251	mov [rBase], edi
		252
		253	mov esi, [pAnd]
		254	mov ebx, [pQuad]
2430	mario79	255	;--------------------------------------
		256	align 4
2288	clevermous	257	.row_24:
		258	mov eax, [esi]
		259	bswap eax
		260	mov [counter], 32
2430	mario79	261	;--------------------------------------
		262	align 4
2288	clevermous	263	@@:
		264	xor edx, edx
		265	shl eax, 1
		266	setc dl
		267	dec edx
		268
		269	mov ecx, [ebx]
		270	and ecx, 0x00FFFFFF
		271	and ecx, edx
		272	and edx, 0xFF000000
		273	or edx, ecx
		274	mov [edi], edx
		275	add ebx, 3
		276	add edi, 4
		277	dec [counter]
		278	jnz @B
		279
		280	add esi, 4
		281	mov edi, [rBase]
		282	sub edi, 128
		283	mov [rBase], edi
		284	sub [height], 1
		285	jnz .row_24
		286	ret
		287	endp
2430	mario79	288	;------------------------------------------------------------------------------
2288	clevermous	289	align 4
		290	proc set_cursor stdcall, hcursor:dword
		291	mov eax, [hcursor]
		292	cmp [eax+CURSOR.magic], 'CURS'
		293	jne .fail
		294	; cmp [eax+CURSOR.size], CURSOR_SIZE
		295	; jne .fail
		296	mov ebx, [current_slot]
		297	xchg eax, [ebx+APPDATA.cursor]
4507	lev	298	jmp .end
2430	mario79	299	;--------------------------------------
		300	align 4
2288	clevermous	301	.fail:
		302	mov eax, [def_cursor]
		303	mov ebx, [current_slot]
		304	xchg eax, [ebx+APPDATA.cursor]
4507	lev	305	align 4
		306	.end:
		307	mov [redrawmouse_unconditional], 1
5350	serge	308	call __sys_draw_pointer
2288	clevermous	309	ret
		310	endp
2430	mario79	311	;------------------------------------------------------------------------------
		312	align 4
2288	clevermous	313	; param
		314	; eax= pid
		315	; ebx= src
		316	; ecx= flags
		317
		318	create_cursor:
		319	.src equ esp
		320	.flags equ esp+4
		321	.hcursor equ esp+8
		322
		323	sub esp, 4 ;space for .hcursor
		324	push ecx
		325	push ebx
		326
		327	mov ebx, eax
2384	hidnplayr	328	mov eax, sizeof.CURSOR
2288	clevermous	329	call create_kernel_object
		330	test eax, eax
		331	jz .fail
		332
		333	mov [.hcursor], eax
		334
		335	xor ebx, ebx
		336	mov [eax+CURSOR.magic], 'CURS'
		337	mov [eax+CURSOR.destroy], destroy_cursor
		338	mov [eax+CURSOR.hot_x], ebx
		339	mov [eax+CURSOR.hot_y], ebx
		340
		341	stdcall kernel_alloc, 0x1000
		342	test eax, eax
		343	jz .fail
		344
		345	mov edi, [.hcursor]
		346	mov [edi+CURSOR.base], eax
		347
		348	mov esi, [.src]
		349	mov ebx, [.flags]
		350	cmp bx, LOAD_INDIRECT
		351	je .indirect
		352
		353	movzx ecx, word [esi+10]
		354	movzx edx, word [esi+12]
		355	mov [edi+CURSOR.hot_x], ecx
		356	mov [edi+CURSOR.hot_y], edx
		357
		358	stdcall init_cursor, eax, esi
		359
2473	Serge	360	align 4
		361	.add_cursor:
2337	Serge	362	mov ecx, [.hcursor]
		363	lea ecx, [ecx+CURSOR.list_next]
2288	clevermous	364	lea edx, [_display.cr_list.next]
		365
		366	pushfd
		367	cli
2337	Serge	368	list_add ecx, edx ;list_add_tail(new, head)
2288	clevermous	369	popfd
		370
		371	mov eax, [.hcursor]
		372	cmp [_display.init_cursor], 0
		373	je .fail
		374
		375	push eax
		376	call [_display.init_cursor]
		377	add esp, 4
		378
		379	mov eax, [.hcursor]
2430	mario79	380	;--------------------------------------
		381	align 4
2288	clevermous	382	.fail:
		383	add esp, 12
		384	ret
2430	mario79	385	;--------------------------------------
		386	align 4
2288	clevermous	387	.indirect:
		388	shr ebx, 16
		389	movzx ecx, bh
		390	movzx edx, bl
2483	mario79	391	mov [edi+CURSOR.hot_x], ecx
		392	mov [edi+CURSOR.hot_y], edx
2288	clevermous	393
		394	xchg edi, eax
		395	mov ecx, 1024
		396	cld
		397	rep movsd
2473	Serge	398	jmp .add_cursor
2430	mario79	399	;------------------------------------------------------------------------------
2288	clevermous	400	align 4
		401	proc load_cursor stdcall, src:dword, flags:dword
		402	locals
		403	handle dd ?
		404	endl
		405
		406	xor eax, eax
		407	cmp [create_cursor], eax
		408	je .fail2
		409
		410	mov [handle], eax
		411	cmp word [flags], LOAD_FROM_FILE
		412	jne @F
		413
		414	stdcall load_file, [src]
		415	test eax, eax
		416	jz .fail
		417	mov [src], eax
2430	mario79	418	;--------------------------------------
		419	align 4
2288	clevermous	420	@@:
		421	push ebx
		422	push esi
		423	push edi
		424
		425	mov eax, [CURRENT_TASK]
		426	shl eax, 5
		427	mov eax, [CURRENT_TASK+eax+4]
		428	mov ebx, [src]
		429	mov ecx, [flags]
		430	call create_cursor ;eax, ebx, ecx
		431	mov [handle], eax
		432
		433	cmp word [flags], LOAD_FROM_FILE
		434	jne .exit
		435	stdcall kernel_free, [src]
2430	mario79	436	;--------------------------------------
		437	align 4
2288	clevermous	438	.exit:
		439	pop edi
		440	pop esi
		441	pop ebx
2430	mario79	442	;--------------------------------------
		443	align 4
2288	clevermous	444	.fail:
		445	mov eax, [handle]
2430	mario79	446	;--------------------------------------
		447	align 4
2288	clevermous	448	.fail2:
		449	ret
		450	endp
2430	mario79	451	;------------------------------------------------------------------------------
2288	clevermous	452	align 4
		453	proc delete_cursor stdcall, hcursor:dword
		454
3069	serge	455	; DEBUGF 1,'K : delete_cursor %x\n', [hcursor]
		456
2288	clevermous	457	mov esi, [hcursor]
3069	serge	458
2288	clevermous	459	cmp [esi+CURSOR.magic], 'CURS'
		460	jne .fail
		461
		462	mov ebx, [CURRENT_TASK]
		463	shl ebx, 5
		464	mov ebx, [CURRENT_TASK+ebx+4]
		465	cmp ebx, [esi+CURSOR.pid]
		466	jne .fail
		467
		468	mov ebx, [current_slot]
		469	cmp esi, [ebx+APPDATA.cursor]
		470	jne @F
		471	mov eax, [def_cursor]
		472	mov [ebx+APPDATA.cursor], eax
2430	mario79	473	;--------------------------------------
		474	align 4
2288	clevermous	475	@@:
		476	mov eax, [hcursor]
		477	call [eax+APPOBJ.destroy]
2430	mario79	478	;--------------------------------------
		479	align 4
2288	clevermous	480	.fail:
		481	ret
		482	endp
2430	mario79	483	;------------------------------------------------------------------------------
		484	align 4
2288	clevermous	485	; param
		486	; eax= cursor
		487	destroy_cursor:
		488
		489	push eax
		490	stdcall kernel_free, [eax+CURSOR.base]
2337	Serge	491
		492	mov eax, [esp]
		493	lea eax, [eax+CURSOR.list_next]
		494
		495	pushfd
		496	cli
		497	list_del eax
		498	popfd
		499
2288	clevermous	500	pop eax
		501	call destroy_kernel_object
		502	ret
2430	mario79	503	;------------------------------------------------------------------------------
2288	clevermous	504	align 4
		505	select_cursor:
		506	mov eax, [esp+4]
		507	mov [_display.cursor], eax
		508	ret 4
2430	mario79	509	;------------------------------------------------------------------------------
2288	clevermous	510	align 4
		511	proc restore_24 stdcall, x:dword, y:dword
		512
		513	push ebx
		514
		515	mov ebx, [cur_saved_base]
		516	mov edx, [cur.h]
		517	test edx, edx
		518	jz .ret
		519
		520	push esi
		521	push edi
		522
		523	mov esi, cur_saved_data
		524	mov ecx, [cur.w]
		525	lea ecx, [ecx+ecx*2]
		526	push ecx
2430	mario79	527	;--------------------------------------
		528	align 4
2288	clevermous	529	@@:
		530	mov edi, ebx
5351	serge	531	add ebx, [_display.lfb_pitch]
2288	clevermous	532
		533	mov ecx, [esp]
		534	rep movsb
		535	dec edx
		536	jnz @B
		537
		538	pop ecx
		539	pop edi
		540	pop esi
2430	mario79	541	;--------------------------------------
		542	align 4
2288	clevermous	543	.ret:
		544	pop ebx
		545	ret
		546	endp
2430	mario79	547	;------------------------------------------------------------------------------
2288	clevermous	548	align 4
		549	proc restore_32 stdcall, x:dword, y:dword
		550
		551	push ebx
		552
		553	mov ebx, [cur_saved_base]
		554	mov edx, [cur.h]
		555	test edx, edx
		556	jz .ret
		557
		558	push esi
		559	push edi
		560
		561	mov esi, cur_saved_data
2430	mario79	562	;--------------------------------------
		563	align 4
2288	clevermous	564	@@:
		565	mov edi, ebx
5351	serge	566	add ebx, [_display.lfb_pitch]
2288	clevermous	567
		568	mov ecx, [cur.w]
		569	rep movsd
		570	dec edx
		571	jnz @B
		572
		573	pop edi
6127	serge	574	pop esi
		575
2430	mario79	576	;--------------------------------------
		577	align 4
2288	clevermous	578	.ret:
		579	pop ebx
		580	ret
		581	endp
2430	mario79	582	;------------------------------------------------------------------------------
2288	clevermous	583	align 4
5154	hidnplayr	584	proc restore_16 stdcall, x:dword, y:dword
		585
		586	push ebx
		587
		588	mov ebx, [cur_saved_base]
		589	mov edx, [cur.h]
		590	test edx, edx
		591	jz .ret
		592
		593	push esi
		594	push edi
		595
		596	mov esi, cur_saved_data
		597	;--------------------------------------
		598	align 4
		599	@@:
		600	mov edi, ebx
5351	serge	601	add ebx, [_display.lfb_pitch]
5154	hidnplayr	602
		603	mov ecx, [cur.w]
		604	rep movsw
		605	dec edx
		606	jnz @B
		607
		608	pop edi
6127	serge	609	pop esi
		610
5154	hidnplayr	611	;--------------------------------------
		612	align 4
		613	.ret:
		614	pop ebx
		615	ret
		616	endp
		617	;------------------------------------------------------------------------------
		618	align 4
2288	clevermous	619	proc move_cursor_24 stdcall, hcursor:dword, x:dword, y:dword
		620	locals
		621	h dd ?
		622	_dx dd ?
		623	_dy dd ?
		624	endl
		625
		626	mov esi, [hcursor]
		627	mov ecx, [x]
		628	mov eax, [y]
2446	mario79	629	; mov ebx, [BytesPerScanLine]
2288	clevermous	630
		631	xor edx, edx
		632	sub ecx, [esi+CURSOR.hot_x]
		633	lea ebx, [ecx+32-1]
		634	mov [x], ecx
		635	sets dl
		636	dec edx
		637	and ecx, edx ;clip x to 0<=x
		638	mov [cur.left], ecx
		639	mov edi, ecx
		640	sub edi, [x]
		641	mov [_dx], edi
		642
		643	xor edx, edx
		644	sub eax, [esi+CURSOR.hot_y]
		645	lea edi, [eax+32-1]
		646	mov [y], eax
		647	sets dl
		648	dec edx
		649	and eax, edx ;clip y to 0<=y
		650	mov [cur.top], eax
		651	mov edx, eax
		652	sub edx, [y]
		653	mov [_dy], edx
		654
2446	mario79	655	; mul dword [BytesPerScanLine]
2480	mario79	656	mov eax, [BPSLine_calc_area+eax*4]
2288	clevermous	657	lea edx, [LFB_BASE+ecx*3]
		658	add edx, eax
		659	mov [cur_saved_base], edx
		660
5350	serge	661	cmp ebx, [_display.width]
		662	jb @F
		663	mov ebx, [_display.width]
2430	mario79	664	;--------------------------------------
		665	align 4
2288	clevermous	666	@@:
5350	serge	667	cmp edi, [_display.height]
		668	jb @F
		669	mov edi, [_display.height]
2430	mario79	670	;--------------------------------------
		671	align 4
2288	clevermous	672	@@:
		673
		674	sub ebx, [x]
		675	sub edi, [y]
2576	mario79	676	sub ebx, [_dx]
		677	sub edi, [_dy]
2288	clevermous	678
		679	mov [cur.w], ebx
		680	mov [cur.h], edi
		681	mov [h], edi
		682
		683	mov eax, edi
		684	mov edi, cur_saved_data
2430	mario79	685	;--------------------------------------
		686	align 4
2288	clevermous	687	@@:
		688	mov esi, edx
5351	serge	689	add edx, [_display.lfb_pitch]
2288	clevermous	690	mov ecx, [cur.w]
		691	lea ecx, [ecx+ecx*2]
		692	rep movsb
		693	dec eax
		694	jnz @B
		695
		696	;draw cursor
		697	mov ebx, [cur_saved_base]
		698	mov eax, [_dy]
		699	shl eax, 5
		700	add eax, [_dx]
		701
		702	mov esi, [hcursor]
		703	mov esi, [esi+CURSOR.base]
		704	lea edx, [esi+eax*4]
2430	mario79	705	;--------------------------------------
		706	align 4
2288	clevermous	707	.row:
		708	mov ecx, [cur.w]
		709	mov esi, edx
		710	mov edi, ebx
		711	add edx, 32*4
5351	serge	712	add ebx, [_display.lfb_pitch]
2430	mario79	713	;--------------------------------------
		714	align 4
2288	clevermous	715	.pix:
		716	lodsd
		717	test eax, 0xFF000000
		718	jz @F
		719	mov [edi], ax
		720	shr eax, 16
		721	mov [edi+2], al
2430	mario79	722	;--------------------------------------
		723	align 4
2288	clevermous	724	@@:
		725	add edi, 3
		726	dec ecx
		727	jnz .pix
		728
		729	dec [h]
		730	jnz .row
		731	ret
		732	endp
2430	mario79	733	;------------------------------------------------------------------------------
2288	clevermous	734	align 4
		735	proc move_cursor_32 stdcall, hcursor:dword, x:dword, y:dword
		736	locals
		737	h dd ?
		738	_dx dd ?
		739	_dy dd ?
		740	endl
		741
		742	mov esi, [hcursor]
		743	mov ecx, [x]
		744	mov eax, [y]
		745
		746	xor edx, edx
		747	sub ecx, [esi+CURSOR.hot_x]
		748	lea ebx, [ecx+32-1]
		749	mov [x], ecx
		750	sets dl
		751	dec edx
		752	and ecx, edx ;clip x to 0<=x
		753	mov [cur.left], ecx
		754	mov edi, ecx
		755	sub edi, [x]
		756	mov [_dx], edi
		757
		758	xor edx, edx
		759	sub eax, [esi+CURSOR.hot_y]
		760	lea edi, [eax+32-1]
		761	mov [y], eax
		762	sets dl
		763	dec edx
		764	and eax, edx ;clip y to 0<=y
		765	mov [cur.top], eax
		766	mov edx, eax
		767	sub edx, [y]
		768	mov [_dy], edx
		769
2446	mario79	770	; mul dword [BytesPerScanLine]
2480	mario79	771	mov eax, [BPSLine_calc_area+eax*4]
2288	clevermous	772	lea edx, [LFB_BASE+eax+ecx*4]
		773	mov [cur_saved_base], edx
		774
5350	serge	775	cmp ebx, [_display.width]
		776	jb @F
		777	mov ebx, [_display.width]
2430	mario79	778	;--------------------------------------
		779	align 4
2288	clevermous	780	@@:
5350	serge	781	cmp edi, [_display.height]
		782	jb @F
		783	mov edi, [_display.height]
2430	mario79	784	;--------------------------------------
		785	align 4
2288	clevermous	786	@@:
		787	sub ebx, [x]
		788	sub edi, [y]
2576	mario79	789	sub ebx, [_dx]
		790	sub edi, [_dy]
2288	clevermous	791
		792	mov [cur.w], ebx
		793	mov [cur.h], edi
		794	mov [h], edi
		795
		796	mov eax, edi
		797	mov edi, cur_saved_data
2430	mario79	798	;--------------------------------------
		799	align 4
2288	clevermous	800	@@:
		801	mov esi, edx
5351	serge	802	add edx, [_display.lfb_pitch]
2288	clevermous	803	mov ecx, [cur.w]
		804	rep movsd
		805	dec eax
		806	jnz @B
		807
		808	;draw cursor
		809	mov ebx, [cur_saved_base]
		810	mov eax, [_dy]
		811	shl eax, 5
		812	add eax, [_dx]
		813
		814	mov esi, [hcursor]
		815	mov esi, [esi+CURSOR.base]
		816	lea edx, [esi+eax*4]
2430	mario79	817	;--------------------------------------
		818	align 4
2288	clevermous	819	.row:
		820	mov ecx, [cur.w]
		821	mov esi, edx
		822	mov edi, ebx
		823	add edx, 32*4
5351	serge	824	add ebx, [_display.lfb_pitch]
2430	mario79	825	;--------------------------------------
		826	align 4
2288	clevermous	827	.pix:
		828	lodsd
		829	test eax, 0xFF000000
		830	jz @F
		831	mov [edi], eax
2430	mario79	832	;--------------------------------------
		833	align 4
2288	clevermous	834	@@:
		835	add edi, 4
		836	dec ecx
		837	jnz .pix
		838
		839	dec [h]
		840	jnz .row
		841	ret
		842	endp
2430	mario79	843	;------------------------------------------------------------------------------
		844	align 4
5154	hidnplayr	845	proc move_cursor_16 stdcall, hcursor:dword, x:dword, y:dword
		846	locals
		847	h dd ?
		848	_dx dd ?
		849	_dy dd ?
		850	endl
		851
		852	mov esi, [hcursor]
		853	mov ecx, [x]
		854	mov eax, [y]
		855
		856	xor edx, edx
		857	sub ecx, [esi+CURSOR.hot_x]
		858	lea ebx, [ecx+32-1]
		859	mov [x], ecx
		860	sets dl
		861	dec edx
		862	and ecx, edx ;clip x to 0<=x
		863	mov [cur.left], ecx
		864	mov edi, ecx
		865	sub edi, [x]
		866	mov [_dx], edi
		867
		868	xor edx, edx
		869	sub eax, [esi+CURSOR.hot_y]
		870	lea edi, [eax+32-1]
		871	mov [y], eax
		872	sets dl
		873	dec edx
		874	and eax, edx ;clip y to 0<=y
		875	mov [cur.top], eax
		876	mov edx, eax
		877	sub edx, [y]
		878	mov [_dy], edx
		879
		880	; mul dword [BytesPerScanLine]
		881	mov eax, [BPSLine_calc_area+eax*4]
		882	lea edx, [LFB_BASE+eax+ecx*2]
		883	mov [cur_saved_base], edx
		884
5350	serge	885	cmp ebx, [_display.width]
		886	jb @F
		887	mov ebx, [_display.width]
5154	hidnplayr	888	;--------------------------------------
		889	align 4
		890	@@:
5350	serge	891	cmp edi, [_display.height]
		892	jb @F
		893	mov edi, [_display.height]
5154	hidnplayr	894	;--------------------------------------
		895	align 4
		896	@@:
		897	sub ebx, [x]
		898	sub edi, [y]
		899	sub ebx, [_dx]
		900	sub edi, [_dy]
		901
		902	mov [cur.w], ebx
		903	mov [cur.h], edi
		904	mov [h], edi
		905
		906	mov eax, edi
		907	mov edi, cur_saved_data
		908	;--------------------------------------
		909	align 4
		910	@@:
		911	mov esi, edx
5351	serge	912	add edx, [_display.lfb_pitch]
5154	hidnplayr	913	mov ecx, [cur.w]
		914
		915	rep movsw
		916	dec eax
		917	jnz @B
		918
		919	;draw cursor
		920	mov ebx, [cur_saved_base]
		921	mov eax, [_dy]
		922	shl eax, 5
		923	add eax, [_dx]
		924
		925	mov esi, [hcursor]
		926	mov esi, [esi+CURSOR.base]
		927	lea edx, [esi+eax*4]
		928	;--------------------------------------
		929	align 4
		930	.row:
		931	mov ecx, [cur.w]
		932	mov esi, edx
		933	mov edi, ebx
		934	add edx, 32*4
5351	serge	935	add ebx, [_display.lfb_pitch]
5154	hidnplayr	936	;--------------------------------------
		937	align 4
		938	.pix:
		939	lodsd
		940	test eax, 0xFF000000
		941	jz @F
		942	; convert to 16 bpp and store to real LFB
		943	and eax, 00000000111110001111110011111000b
		944	shr ah, 2
		945	shr ax, 3
		946	ror eax, 8
		947	add al, ah
		948	rol eax, 8
		949	mov [edi], ax
		950	;--------------------------------------
		951	align 4
		952	@@:
		953	add edi, 2
		954	dec ecx
		955	jnz .pix
		956
		957	dec [h]
		958	jnz .row
		959	ret
		960	endp
		961	;------------------------------------------------------------------------------
		962	align 4
2430	mario79	963	check_mouse_area_for_getpixel_new:
		964	; in:
		965	; eax = x
		966	; ebx = y
		967	; out:
		968	; ecx = new color
		969	;--------------------------------------
		970	; check for Y
		971	cmp bx, [Y_UNDER_subtraction_CUR_hot_y]
		972	jb .no_mouse_area
2288	clevermous	973
2430	mario79	974	cmp bx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		975	jae .no_mouse_area
		976	;--------------------------------------
		977	; check for X
		978	cmp ax, [X_UNDER_subtraction_CUR_hot_x]
		979	jb .no_mouse_area
2288	clevermous	980
2430	mario79	981	cmp ax, [X_UNDER_sub_CUR_hot_x_add_curh]
		982	jae .no_mouse_area
		983	;--------------------------------------
		984	push eax ebx
		985	; offset X
2575	mario79	986	movzx ecx, word [X_UNDER_subtraction_CUR_hot_x]
2430	mario79	987	sub eax, ecx ; x1
		988	; offset Y
2575	mario79	989	movzx ecx, word [Y_UNDER_subtraction_CUR_hot_y]
2430	mario79	990	sub ebx, ecx ; y1
		991	;--------------------------------------
		992	; ebx = offset y
		993	; eax = offset x
		994	imul ebx, [cur.w] ;y
		995	add eax, ebx
		996	mov ebx, eax
		997	shl eax, 2
5154	hidnplayr	998	cmp byte [_display.bits_per_pixel], 32
2430	mario79	999	je @f
		1000	sub eax, ebx
5154	hidnplayr	1001	cmp byte [_display.bits_per_pixel], 24
		1002	je @f
		1003	sub eax, ebx
2430	mario79	1004	;--------------------------------------
2288	clevermous	1005	align 4
2430	mario79	1006	@@:
		1007	add eax, cur_saved_data
		1008	mov ecx, [eax]
		1009	and ecx, 0xffffff
		1010	add ecx, 0xff000000
		1011	pop ebx eax
		1012	ret
		1013	;--------------------------------------
		1014	align 4
		1015	.no_mouse_area:
		1016	xor ecx, ecx
		1017	ret
		1018	;-----------------------------------------------------------------------------
		1019	align 4
		1020	check_mouse_area_for_putpixel_new:
		1021	; in:
		1022	; ecx = x shl 16 + y
		1023	; eax = color
		1024	; out:
		1025	; eax = new color
		1026	;--------------------------------------
		1027	; check for Y
		1028	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1029	jae .no_mouse_area
		1030
2575	mario79	1031	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1032	jb .no_mouse_area
		1033
2430	mario79	1034	rol ecx, 16
		1035	;--------------------------------------
		1036	; check for X
2575	mario79	1037	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		1038	jae .no_mouse_area
		1039
		1040	sub cx, [X_UNDER_subtraction_CUR_hot_x]
2430	mario79	1041	jb .no_mouse_area
		1042
2575	mario79	1043	ror ecx, 16
2430	mario79	1044	;--------------------------------------
		1045	align 4
		1046	.1:
		1047	push eax
		1048	;--------------------------------------
		1049	; ecx = (offset x) shl 16 + (offset y)
		1050	push ebx
		1051	mov ebx, ecx
		1052	shr ebx, 16 ; x
		1053	and ecx, 0xffff ; y
2575	mario79	1054
		1055	cmp ecx, [cur.h]
		1056	jae @f
		1057
		1058	cmp ebx, [cur.w]
		1059	jb .ok
		1060	;--------------------------------------
		1061	align 4
		1062	@@:
		1063	; DEBUGF 1, "K : SHIT HAPPENS: %x %x \n", ecx,ebx
		1064	pop ebx
		1065	jmp .sh ; SORRY! SHIT HAPPENS!
		1066	;--------------------------------------
		1067	align 4
		1068	.ok:
2430	mario79	1069	; ecx = offset y
		1070	; ebx = offset x
		1071	push ebx ecx
		1072	imul ecx, [cur.w] ;y
		1073	add ecx, ebx
		1074	mov ebx, ecx
		1075	shl ecx, 2
5154	hidnplayr	1076	cmp byte [_display.bits_per_pixel], 16
		1077	je .16
		1078	cmp byte [_display.bits_per_pixel], 24
2430	mario79	1079	je .24
		1080	and eax, 0xFFFFFF
		1081	mov [ecx + cur_saved_data], eax ;store new color to
		1082	jmp @f
		1083	;--------------------------------------
		1084	align 4
5154	hidnplayr	1085	.16:
		1086	sub ecx, ebx
		1087	sub ecx, ebx
		1088	; convert to 16 bpp and store to real LFB
		1089	and eax, 00000000111110001111110011111000b
		1090	shr ah, 2
		1091	shr ax, 3
		1092	ror eax, 8
		1093	add al, ah
		1094	rol eax, 8
		1095	mov [ecx + cur_saved_data], ax ;store new color to
		1096	jmp @f
		1097	;--------------------------------------
		1098	align 4
2430	mario79	1099	.24:
		1100	sub ecx, ebx
		1101	mov [ecx + cur_saved_data], ax ;store new color to
		1102	shr eax, 16
		1103	mov [ecx + cur_saved_data + 2], al ;store new color to
		1104	;--------------------------------------
		1105	align 4
		1106	@@:
		1107	pop ecx ebx
		1108
		1109	shl ecx, 5
		1110	add ecx, ebx
		1111
		1112	mov eax, [current_cursor]
		1113	mov eax, [eax+CURSOR.base]
		1114	lea eax, [eax+ecx*4]
		1115	mov eax, [eax]
		1116
		1117	pop ebx
		1118
		1119	test eax, 0xFF000000
		1120	jz @f
		1121
2652	mario79	1122	add esp, 4
2430	mario79	1123	ret
		1124	;--------------------------------------
		1125	align 4
2575	mario79	1126	.sh:
		1127	mov ecx, -1
		1128	;--------------------------------------
		1129	align 4
2430	mario79	1130	@@:
		1131	pop eax
		1132	;--------------------------------------
		1133	align 4
		1134	.no_mouse_area:
		1135	ret
		1136	;------------------------------------------------------------------------------
		1137	align 4
2288	clevermous	1138	get_display:
		1139	mov eax, _display
		1140	ret
2430	mario79	1141	;------------------------------------------------------------------------------
2288	clevermous	1142	align 4
		1143	init_display:
		1144	xor eax, eax
		1145	mov edi, _display
		1146
		1147	mov [edi+display_t.init_cursor], eax
		1148	mov [edi+display_t.select_cursor], eax
		1149	mov [edi+display_t.show_cursor], eax
		1150	mov [edi+display_t.move_cursor], eax
		1151	mov [edi+display_t.restore_cursor], eax
		1152
		1153	lea ecx, [edi+display_t.cr_list.next]
		1154	mov [edi+display_t.cr_list.next], ecx
		1155	mov [edi+display_t.cr_list.prev], ecx
		1156
		1157	cmp [SCR_MODE], word 0x13
		1158	jbe .fail
		1159
		1160	test word [SCR_MODE], 0x4000
		1161	jz .fail
		1162
		1163	mov ebx, restore_32
		1164	mov ecx, move_cursor_32
3537	Serge	1165	mov edx, Vesa20_putpixel32_new
5154	hidnplayr	1166	mov eax, [_display.bits_per_pixel]
3537	Serge	1167	cmp al, 32
5154	hidnplayr	1168	jne .not_32bpp
2288	clevermous	1169
3537	Serge	1170	.set:
2288	clevermous	1171	mov [_display.select_cursor], select_cursor
		1172	mov [_display.move_cursor], ecx
		1173	mov [_display.restore_cursor], ebx
2430	mario79	1174	mov [_display.check_mouse], check_mouse_area_for_putpixel_new
		1175	mov [_display.check_m_pixel], check_mouse_area_for_getpixel_new
2288	clevermous	1176
2436	mario79	1177	cmp [PUTPIXEL], dword VGA_putpixel
		1178	je @f
3537	Serge	1179	mov [PUTPIXEL], edx
2436	mario79	1180	@@:
2497	mario79	1181	stdcall load_cursor, clock_arrow, dword LOAD_FROM_MEM
		1182	mov [def_cursor_clock], eax
2288	clevermous	1183	stdcall load_cursor, def_arrow, dword LOAD_FROM_MEM
		1184	mov [def_cursor], eax
		1185	ret
3537	Serge	1186
5154	hidnplayr	1187	.not_32bpp:
		1188	cmp al, 24
		1189	jne .not_24bpp
		1190
3537	Serge	1191	mov ebx, restore_24
		1192	mov ecx, move_cursor_24
		1193	mov edx, Vesa20_putpixel24_new
5154	hidnplayr	1194	jmp .set
3537	Serge	1195
5154	hidnplayr	1196	.not_24bpp:
		1197	cmp al, 16
		1198	jne .not_16bpp
		1199	mov ebx, restore_16
		1200	mov ecx, move_cursor_16
		1201	mov edx, Vesa20_putpixel16_new
		1202	jmp .set
		1203
		1204	.not_16bpp:
		1205	; cmp al, 15
		1206	; jne .fail
		1207	; mov ebx, restore_15
		1208	; mov ecx, move_cursor_15
		1209	; mov edx, Vesa20_putpixel15_new
		1210	; jmp .set
		1211
2288	clevermous	1212	.fail:
		1213	xor eax, eax
		1214	mov [_display.select_cursor], eax
		1215	mov [_display.move_cursor], eax
		1216	ret
2430	mario79	1217	;------------------------------------------------------------------------------
2288	clevermous	1218	align 4
		1219	def_arrow:
		1220	file 'arrow.cur'
2430	mario79	1221	;------------------------------------------------------------------------------
2497	mario79	1222	align 4
		1223	clock_arrow:
		1224	file 'arrow_clock.cur'
		1225	;------------------------------------------------------------------------------
2288	clevermous	1226

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/cursors.inc – Rev 7136