Subversion Repositories Kolibri OS

Rev

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

Rev 8062 Rev 8069
Line 60... Line 60...
60
red_win:
60
red_win:
61
	call draw_window
61
	call draw_window
Line 62... Line 62...
62
 
62
 
63
align 16
63
align 16
64
still:
64
still:
65
	mcall SF_CHECK_EVENT
65
	mcall SF_WAIT_EVENT
66
	cmp al,1
66
	cmp al,1
67
	jz red_win
67
	jz red_win
68
	cmp al,2
68
	cmp al,2
69
	jz key
69
	jz key
Line 98... Line 98...
98
		fld dword[angle_z]
98
		fld dword[angle_z]
99
		fadd dword[delt_size]
99
		fadd dword[delt_size]
100
		fstp dword[angle_z]
100
		fstp dword[angle_z]
101
		call draw_3d
101
		call draw_3d
102
		call [kosglSwapBuffers]
102
		call [kosglSwapBuffers]
-
 
103
		jmp still
103
	@@:
104
	@@:
104
	cmp ah,179 ;Right
105
	cmp ah,179 ;Right
105
	jne @f
106
	jne @f
106
		fld dword[angle_z]
107
		fld dword[angle_z]
107
		fsub dword[delt_size]
108
		fsub dword[delt_size]
108
		fstp dword[angle_z]
109
		fstp dword[angle_z]
109
		call draw_3d
110
		call draw_3d
110
		call [kosglSwapBuffers]
111
		call [kosglSwapBuffers]
-
 
112
		;jmp still
111
	@@:
113
	@@:
Line 112... Line 114...
112
 
114
 
Line 113... Line 115...
113
	jmp still
115
	jmp still
Line 132... Line 134...
132
	stdcall [glRotatef], [angle_z],0.0,0.0,1.0
134
	stdcall [glRotatef], [angle_z],0.0,0.0,1.0
133
	stdcall [glScalef], 0.3,0.3,0.3
135
	stdcall [glScalef], 0.3,0.3,0.3
Line 134... Line 136...
134
 
136
 
Line 135... Line 137...
135
	stdcall [glCallList],[obj1]
137
	stdcall [glCallList],[obj1]
136
 
138
 
Line 137... Line 139...
137
stdcall [glPopMatrix]
139
call [glPopMatrix]
138
ret
140
ret
139
 
141