Subversion Repositories Kolibri OS

Rev

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

Rev 6737 Rev 7421
Line 147... Line 147...
147
	mcall SF_GET_KEY
147
	mcall SF_GET_KEY
Line 148... Line 148...
148
 
148
 
149
	cmp ah,27 ;Esc
149
	cmp ah,27 ;Esc
Line -... Line 150...
-
 
150
	je button.exit
-
 
151
 
-
 
152
	cmp ah,43 ;+
-
 
153
	jne @f
-
 
154
		fld dword[scale]
-
 
155
		fdiv dword[delt_sc]
-
 
156
		fstp dword[scale]
150
	je button.exit
157
		call draw_3d
151
 
158
	@@:
152
	cmp ah,61 ;+
159
	cmp ah,61 ;=
153
	jne @f
160
	jne @f
154
		fld dword[scale]
161
		fld dword[scale]
155
		fdiv dword[delt_sc]
162
		fdiv dword[delt_sc]
Line 206... Line 213...
206
align 4
213
align 4
207
title1: db 'TinyGL in KolibriOS'
214
title1: db 'TinyGL in KolibriOS'
208
.end: db 0
215
.end: db 0
209
title2: db 'F full screen'
216
title2: db 'F full screen'
210
.end: db 0
217
.end: db 0
211
title3: db 'ESC - exit'
218
title3: db 'ESC - exit   Arrow keys - rotate   +/- zoom'
212
.end: db 0
219
.end: db 0
213
fps:	db 'FPS:'
220
fps:	db 'FPS:'
214
.end: db 0
221
.end: db 0
Line 215... Line 222...
215
 
222
 
Line 220... Line 227...
220
align 16
227
align 16
221
draw_3d:
228
draw_3d:
222
	stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT
229
	stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT
Line 223... Line 230...
223
 
230
 
224
	stdcall [glPushMatrix]
231
	stdcall [glPushMatrix]
225
	;stdcall [glScalef], [scale], [scale], [scale]
232
	stdcall [glScalef],  [scale], [scale], [scale]
226
	stdcall [glRotatef], [view_rotx], 1.0, 0.0, 0.0
233
	stdcall [glRotatef], [view_rotx], 1.0, 0.0, 0.0
227
	stdcall [glRotatef], [view_roty], 0.0, 1.0, 0.0
234
	stdcall [glRotatef], [view_roty], 0.0, 1.0, 0.0
Line 228... Line 235...
228
	stdcall [glRotatef], [view_rotz], 0.0, 0.0, 1.0
235
	stdcall [glRotatef], [view_rotz], 0.0, 0.0, 1.0
Line 281... Line 288...
281
	ret
288
	ret
Line 282... Line 289...
282
 
289
 
283
align 4
290
align 4
284
an_9 dd 9.0
291
an_9 dd 9.0
285
an_25 dd 25.0
292
an_25 dd 25.0
286
scale dd 0.14 ;???
293
scale dd 1.0 ;???
287
delt_sc dd 0.85 ;???
294
delt_sc dd 0.85 ;???
Line 288... Line 295...
288
delt_size dd 5.0
295
delt_size dd 5.0
289
 
296