Subversion Repositories Kolibri OS

Rev

Rev 3352 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3352 Rev 3377
Line 1... Line 1...
1
;=============================================================================
1
;=============================================================================
2
; Kolibri Graphics Benchmark 0.5
2
; Kolibri Graphics Benchmark 0.6
3
;--------------------------------------
3
;--------------------------------------
4
; MGB - Menuet Graphics Benchmark 0.3
4
; MGB - Menuet Graphics Benchmark 0.3
5
; Compile with FASM
5
; Compile with FASM
6
;
6
;
7
;=============================================================================
7
;=============================================================================
-
 
8
; version:	0.6
-
 
9
; last update:  14/03/2013
-
 
10
; written by:   Marat Zakiyanov aka Mario79, aka Mario
-
 
11
; changes:      benchmark f36 - read screen area
-
 
12
;---------------------------------------------------------------------
8
; version:	0.5
13
; version:	0.5
9
; last update:  05/03/2013
14
; last update:  05/03/2013
10
; written by:   Marat Zakiyanov aka Mario79, aka Mario
15
; written by:   Marat Zakiyanov aka Mario79, aka Mario
11
; changes:      benchmark f73-blitter
16
; changes:      benchmark f73-blitter
12
;---------------------------------------------------------------------
17
;---------------------------------------------------------------------
Line 202... Line 207...
202
	jne	still
207
	jne	still
203
	call	locSaveFile
208
	call	locSaveFile
204
	jmp	ActionOpen.1
209
	jmp	ActionOpen.1
205
;---------------------------------------------------------------------
210
;---------------------------------------------------------------------
206
TestWndProc:
211
TestWndProc:
-
 
212
	mcall	68,12,90*123*3
-
 
213
	mov	[area_for_f36],eax
207
	or	dword [wFlags],1
214
	or	dword [wFlags],1
208
	mov	esi,results_table+8
215
	mov	esi,results_table+8
209
align 4
216
align 4
210
.next_test:
217
.next_test:
211
	xor	edi,edi
218
	xor	edi,edi
Line 232... Line 239...
232
 
239
 
233
	add	esi,TEST_REC_SIZE
240
	add	esi,TEST_REC_SIZE
234
	cmp	dword [esi],0
241
	cmp	dword [esi],0
235
	jnz	.next_test
242
	jnz	.next_test
-
 
243
	xor	dword [wFlags],1
236
	xor	dword [wFlags],1
244
	mcall	68,13,[area_for_f36]
237
	mcall	-1
245
	mcall	-1
238
;---------------------------------------------------------------------
246
;---------------------------------------------------------------------
239
draw_window:
247
draw_window:
240
	mcall	12,1
248
	mcall	12,1
Line 294... Line 302...
294
	mcall	13,0A0064h,1E00FAh,6A73D0h
302
	mcall	13,0A0064h,1E00FAh,6A73D0h
295
	ret
303
	ret
296
;---------------------------------------------------------------------
304
;---------------------------------------------------------------------
297
align 4
305
align 4
298
testDrawPicture:
306
testDrawPicture:
299
	xor	ebx,ebx
307
;	xor	ebx,ebx
300
	mcall	7,,<90,123>,<15,33>
308
	mcall	7,[area_for_f36],<90,123>,<15,33>
301
	ret
309
	ret
302
;---------------------------------------------------------------------
310
;---------------------------------------------------------------------
303
align 4
311
align 4
304
testDrawPicture_f73:
312
testDrawPicture_f73:
305
	xor	ebx,ebx
313
	xor	ebx,ebx
306
	mcall	73,,params_f73
314
	mcall	73,,params_f73
307
	ret
315
	ret
308
;---------------------------------------------------------------------
316
;---------------------------------------------------------------------
309
align 4
317
align 4
-
 
318
testGetScreen_f36:
-
 
319
	xor	ebx,ebx
-
 
320
	mcall	36,[area_for_f36],<90,123>,<15,33>
-
 
321
	ret
-
 
322
;---------------------------------------------------------------------
-
 
323
align 4
310
testDrawVertLine:
324
testDrawVertLine:
311
	mcall	38,<300,300>,<30,380>,1090207Fh
325
	mcall	38,<300,300>,<30,380>,1090207Fh
312
	ret
326
	ret
313
;---------------------------------------------------------------------
327
;---------------------------------------------------------------------
314
align 4
328
align 4
Line 545... Line 559...
545
;---------------------------------------------------------------------
559
;---------------------------------------------------------------------
546
align 4
560
align 4
547
results_table dd \
561
results_table dd \
548
	?,?,testDrawWindow,aDrawingWindow,\
562
	?,?,testDrawWindow,aDrawingWindow,\
549
	?,?,testDrawBar,aDrawingBar,\
563
	?,?,testDrawBar,aDrawingBar,\
-
 
564
	?,?,testGetScreen_f36,aGetScreenF36,\
550
	?,?,testDrawPicture,aDrawingPicture,\
565
	?,?,testDrawPicture,aDrawingPicture,\
551
	?,?,testDrawPicture_f73,aDrawingPictF73,\
566
	?,?,testDrawPicture_f73,aDrawingPictF73,\
552
	?,?,testDrawVertLine,aDrawingVLine,\
567
	?,?,testDrawVertLine,aDrawingVLine,\
553
	?,?,testDrawHorzLine,aDrawingHLine,\
568
	?,?,testDrawHorzLine,aDrawingHLine,\
554
	?,?,testDrawFreeLine,aDrawingFLine,\
569
	?,?,testDrawFreeLine,aDrawingFLine,\
Line 564... Line 579...
564
;---------------------------------------------------------------------
579
;---------------------------------------------------------------------
565
aDrawingWindow	db 'Window Of Type #3, 325x400 px',0
580
aDrawingWindow	db 'Window Of Type #3, 325x400 px',0
566
aDrawingBar	db 'Filled Rectangle, 100x250 px',0
581
aDrawingBar	db 'Filled Rectangle, 100x250 px',0
567
aDrawingPicture db 'Picture, 90x123, px',0
582
aDrawingPicture db 'Picture, 90x123, px',0
568
aDrawingPictF73	db 'Picture for Blitter, 90x123, px',0
583
aDrawingPictF73	db 'Picture for Blitter, 90x123, px',0
-
 
584
aGetScreenF36	db 'Get a piece of screen, 90x123, px',0
569
aDrawingVLine	db 'Vertical Line, 350 px',0
585
aDrawingVLine	db 'Vertical Line, 350 px',0
570
aDrawingHLine	db 'Horizontal Line, 270 px',0
586
aDrawingHLine	db 'Horizontal Line, 270 px',0
571
aDrawingFLine	db 'Free-angled Line, 350 px',0
587
aDrawingFLine	db 'Free-angled Line, 350 px',0
572
aDrawingText1	db 'Fixed-width Text, 34 chars',0
588
aDrawingText1	db 'Fixed-width Text, 34 chars',0
573
aDrawingText2	db 'Proportional Text, 34 chars',0
589
aDrawingText2	db 'Proportional Text, 34 chars',0
574
aDrawingNumber	db 'Decimal Number, 8 digits',0
590
aDrawingNumber	db 'Decimal Number, 8 digits',0
575
aDrawingPixel	db 'Single Pixel',0
591
aDrawingPixel	db 'Single Pixel',0
Line 576... Line 592...
576
 
592
 
577
aTestText	db 'This is a 34-charachters test text'
593
aTestText	db 'This is a 34-charachters test text'
578
aButtonsText	db 'Test      Comment+    Pattern+      Open        Save',0
594
aButtonsText	db 'Test      Comment+    Pattern+      Open        Save',0
Line 579... Line 595...
579
aCaption	db 'Kolibri Graphical Benchmark 0.5',0
595
aCaption	db 'Kolibri Graphical Benchmark 0.6',0
580
 
596
 
Line 581... Line 597...
581
aLeft	db 'Left    :',0
597
aLeft	db 'Left    :',0
Line 769... Line 785...
769
edit1 edit_box 200,10,30,0xffffff,0xbbddff,0,0,0,255,comment_string_1,mouse_dd,ed_focus+ed_always_focus,0
785
edit1 edit_box 200,10,30,0xffffff,0xbbddff,0,0,0,255,comment_string_1,mouse_dd,ed_focus+ed_always_focus,0
770
name_editboxes_end:
786
name_editboxes_end:
771
;---------------------------------------------------------------------
787
;---------------------------------------------------------------------
Line 772... Line 788...
772
 
788
 
773
IM_END:
-
 
774
mouse_dd	rd 1
789
IM_END:
-
 
790
align 4
-
 
791
mouse_dd	rd 1
775
align 4
792
area_for_f36	rd 1
776
dwTestEndTime	dd ?
793
dwTestEndTime	rd 1
777
dwMainPID	dd ?
794
dwMainPID	rd 1
778
;---------------------------------------------------------------------
795
;---------------------------------------------------------------------
779
textarea:
796
textarea:
780
	rb 8
797
	rb 8
781
;---------------------------------------------------------------------
798
;---------------------------------------------------------------------