update 'gears' example

git-svn-id: svn://kolibrios.org@6120 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/libraries/TinyGL/asm_fork/examples/fps.inc

@@ -0,0 +1,60 @@
+;include '../../../../../KOSfuncs.inc'
+
+;x,y - êîîðäèíàòû âûâîäà FPS íà îêíî
+;âîçâðàùàåò âðåìß â ñîòûõ äîëßõ ñåêóíäû çàòðà÷èâàåìîå íà 1 öèêë
+
+time1 dd 0 ;int
+time2 dd 0 ;int
+fps1 dd 0 ;int
+timerend dd 0 ;int
+
+;ôóíêöèß îïðåäåëåíèß FPS
+proc Fps uses ebx ecx edx esi, x:dword, y:dword
+locals
+	tr dd ?
+endl
+
+	;îïðåäåëßåì âðåìß ïðîøåäøåå ñ ìîìåíòà çàïóñêà ñèñòåìû
+	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
+	mov [time1],eax
+
+	cmp dword[timerend],0
+	jne @f
+		mov eax,[time1]
+		mov [time2],eax
+		mov [timerend],eax
+	@@:
+	
+	mov eax,[time1]
+	sub eax,[timerend]
+	mov [tr],eax
+
+	mov eax,[time1]
+	sub eax,[time2]
+	cmp eax,100 ;åñëè ïðîøëî ìåíåå 1 ñåêóíäû 
+	jge .else
+		inc dword[fps1] ;óâåëè÷èâàåì ñ÷åò÷èê fps
+		jmp @f
+	.else:
+		;âûâîäèì ÷èñëî fps
+		mov ebx,[x]
+		shl ebx,16
+		add ebx,23
+		mov ecx,[y]
+		shl ecx,16
+		add ecx,7
+		mcall SF_DRAW_RECT,,,0x00555555
+		mov edx,[x]
+		shl edx,16
+		add edx,[y]
+		mcall SF_DRAW_NUMBER,4 shl 16,[fps1],,0xfafafa
+		mov dword[fps1],0
+		mov eax,[time1]
+		mov [time2],eax
+	@@:
+	
+	mov eax,[time1]
+	mov [timerend],eax
+	mov eax,[tr]
+	ret
+endp

programs/develop/libraries/TinyGL/asm_fork/examples/gears.asm

@@ -1,17 +1,15 @@
 use32
 	org 0x0
 	db 'MENUET01'
-	dd 0x1
+	dd 1,start,i_end,mem,stacktop,0,cur_dir_path
-	dd start
-	dd i_end
-	dd mem,stacktop
-	dd 0,cur_dir_path
 
 include '../../../../../proc32.inc'
 include '../../../../../macros.inc'
+include '../../../../../KOSfuncs.inc'
 include '../../../../../develop/libraries/box_lib/load_lib.mac'
 include '../../../../../dll.inc'
 include '../opengl_const.inc'
+include 'fps.inc'
 
 @use_library
 
@@ -27,10 +25,10 @@ start:
 	cmp eax,-1
 	jz button.exit
 
-	mcall 40,0x27
+	mcall SF_SET_EVENTS_MASK,0x27
 
-	stdcall [kosglMakeCurrent], 10,10,400,350,ctx1
+	stdcall [kosglMakeCurrent], 0,15,400,380,ctx1
-	stdcall reshape, 400,350
+	stdcall reshape, 400,380
 
 ; *** init ***
 	stdcall [glLightfv], GL_LIGHT0, GL_POSITION, pos
@@ -44,7 +42,6 @@ start:
 	mov [gear1],eax
 	stdcall [glNewList], eax, GL_COMPILE
 	stdcall [glMaterialfv], GL_FRONT, GL_AMBIENT_AND_DIFFUSE, red
-;;;stdcall [glColor4fv], red
 	stdcall gear, 1.0, 4.0, 1.0, 20, 0.7
 	call [glEndList]
 
@@ -52,7 +49,6 @@ start:
 	mov [gear2],eax
 	stdcall [glNewList], eax, GL_COMPILE
 	stdcall [glMaterialfv], GL_FRONT, GL_AMBIENT_AND_DIFFUSE, green
-;;;stdcall [glColor4fv], green
 	stdcall gear, 0.5, 2.0, 2.0, 10, 0.7
 	call [glEndList]
 
@@ -60,22 +56,29 @@ start:
 	mov [gear3],eax
 	stdcall [glNewList], eax, GL_COMPILE
 	stdcall [glMaterialfv], GL_FRONT, GL_AMBIENT_AND_DIFFUSE, blue
-;;;stdcall [glColor4fv], blue
 	stdcall gear, 1.3, 2.0, 0.5, 10, 0.7
 	call [glEndList]
 
 	stdcall [glEnable], GL_NORMALIZE
 ; *** end init ***
 
-	call draw_3d
-
 align 4
 red_win:
 	call draw_window
 
-align 4
+align 16
 still:
-	mcall 10
+	call draw_3d
+
+	stdcall Fps, 330,4
+	mov dword[esp-4],eax
+	fild dword[esp-4]
+	fmul dword[a2]
+	fadd dword[a1]
+	fadd dword[angle]
+	fstp dword[angle]
+
+	mcall SF_CHECK_EVENT
 	cmp al,1
 	jz red_win
 	cmp al,2
@@ -84,6 +87,10 @@ still:
 	jz button
 	jmp still
 
+align 4
+a1 dd 0.01
+a2 dd 0.3
+
 ; new window size or exposure
 align 4
 proc reshape uses ebx ecx, width:dword, height:dword
@@ -121,19 +128,23 @@ p6 dq 60.0
 align 4
 draw_window:
 	pushad
-	mcall 12,1
+	mcall SF_REDRAW,SSF_BEGIN_DRAW
 
-	mov edx,0x33ffffff ;0x73ffffff
+	mcall SF_CREATE_WINDOW,(50 shl 16)+410,(30 shl 16)+425,0x33ffffff,,title1
-	mcall 0,(50 shl 16)+430,(30 shl 16)+400,,,caption
 	stdcall [kosglSwapBuffers]
 
-	mcall 12,2
+	;Title
+	mcall SF_DRAW_TEXT,(300 shl 16)+4,0x808080,fps,   fps.end-fps
+	mcall SF_DRAW_TEXT,(8 shl 16)+4,0x808080,title3,title3.end-title3
+	;mcall SF_DRAW_TEXT,(180 shl 16)+4,0x808080,title2,title2.end-title2
+
+	mcall SF_REDRAW,SSF_END_DRAW
 	popad
 	ret
 
 align 4
 key:
-	mcall 2
+	mcall SF_GET_KEY
 
 	cmp ah,27 ;Esc
 	je button.exit
@@ -144,7 +155,6 @@ key:
 		fdiv dword[delt_sc]
 		fstp dword[scale]
 		call draw_3d
-		stdcall [kosglSwapBuffers]
 	@@:
 	cmp ah,45 ;-
 	jne @f
@@ -152,7 +162,6 @@ key:
 		fmul dword[delt_sc]
 		fstp dword[scale]
 		call draw_3d
-		stdcall [kosglSwapBuffers]
 	@@:
 	cmp ah,178 ;Up
 	jne @f
@@ -160,7 +169,6 @@ key:
 		fadd dword[delt_size]
 		fstp dword[view_rotx]
 		call draw_3d
-		stdcall [kosglSwapBuffers]
 	@@:
 	cmp ah,177 ;Down
 	jne @f
@@ -168,7 +176,6 @@ key:
 		fsub dword[delt_size]
 		fstp dword[view_rotx]
 		call draw_3d
-		stdcall [kosglSwapBuffers]
 	@@:
 	cmp ah,176 ;Left
 	jne @f
@@ -176,7 +183,6 @@ key:
 		fadd dword[delt_size]
 		fstp dword[view_roty]
 		call draw_3d
-		stdcall [kosglSwapBuffers]
 	@@:
 	cmp ah,179 ;Right
 	jne @f
@@ -184,32 +190,39 @@ key:
 		fsub dword[delt_size]
 		fstp dword[view_roty]
 		call draw_3d
-		stdcall [kosglSwapBuffers]
 	@@:
 
 	jmp still
 
 align 4
 button:
-	mcall 17
+	mcall SF_GET_BUTTON
 	cmp ah,1
 	jne still
 .exit:
-	mcall -1
+	mcall SF_TERMINATE_PROCESS
 
 
 align 4
-caption db 'Gears, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0
+title1: db 'TinyGL in KolibriOS'
+.end: db 0
+title2: db 'F full screen'
+.end: db 0
+title3: db 'ESC - exit'
+.end: db 0
+fps:    db 'FPS:'
+.end: db 0
+
 align 4
 ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
 ;sizeof.TinyGLContext = 28
 
-align 4
+align 16
 draw_3d:
 	stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT
 
 	stdcall [glPushMatrix]
-;;;stdcall [glScalef], [scale], [scale], [scale] ;???
+	;stdcall [glScalef], [scale], [scale], [scale]
 	stdcall [glRotatef], [view_rotx], 1.0, 0.0, 0.0
 	stdcall [glRotatef], [view_roty], 0.0, 1.0, 0.0
 	stdcall [glRotatef], [view_rotz], 0.0, 0.0, 1.0
@@ -260,17 +273,16 @@ draw_3d:
 
 	stdcall [glPopMatrix]
 
-;;;   tkSwapBuffers();
+	stdcall [kosglSwapBuffers]
 
 ;   count++;
 ;   if (count==limit) {
 ;       exit(0);
-ret
+	ret
 
 align 4
 an_9 dd 9.0
 an_25 dd 25.0
-qObj dd 0 ;???
 scale dd 0.14 ;???
 delt_sc dd 0.85 ;???
 delt_size dd 5.0
@@ -802,7 +814,7 @@ endl
 		faddp
 
 		fldpi
-		fmul st0,st1
+		fmulp
 		fimul dword[i]
 		fidiv dword[teeth]
 		fst dword[angle] ;angle = i * 2.0*M_PI / teeth
@@ -842,9 +854,6 @@ endl
 	@@:
 	call [glEnd]
 
-	;ffree st0 ;2.0
-	;fincstp
-
 	ret	 
 endp