Subversion Repositories Kolibri OS

Rev

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

Rev 5256 Rev 5269
Line 22... Line 22...
22 
	cmp eax,-1
 22 
	cmp eax,-1
23 
	jz button.exit
 23 
	jz button.exit
Line 24... Line 24...
24 
 
 24 
 
Line 25... Line 25...
25 
	mcall 40,0x27
 25 
	mcall 40,0x27
26 
 
 26 
 
- 
 
 27 
stdcall [kosglMakeCurrent], 10,10,400,325,ctx1
27 
stdcall [kosglMakeCurrent], 10,10,300,225,ctx1
 28 
stdcall [glEnable], GL_DEPTH_TEST
28 
stdcall [glEnable], GL_DEPTH_TEST
 29 
stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов
Line 29... Line 30...
29 
stdcall [gluNewQuadric]
 30 
stdcall [gluNewQuadric]
30 
mov [qObj],eax
 31 
mov [qObj],eax
Line 53... Line 54...
53 
draw_window:
 54 
draw_window:
54 
	pushad
 55 
	pushad
55 
	mcall 12,1
 56 
	mcall 12,1
Line 56... Line 57...
56 
 
 57 
 
57 
	mov edx,0x33ffffff ;0x73ffffff
 58 
	mov edx,0x33ffffff ;0x73ffffff
58 
	mcall 0,(50 shl 16)+330,(30 shl 16)+275,,,caption
 59 
	mcall 0,(50 shl 16)+430,(30 shl 16)+375,,,caption
Line 59... Line 60...
59 
	stdcall [kosglSwapBuffers]
 60 
	stdcall [kosglSwapBuffers]
60 
 
 61 
 
61 
	mcall 12,2
 62 
	mcall 12,2
Line 148... Line 149...
148 
	stdcall [glTranslatef], 0.0,0.0,0.5
 149 
	stdcall [glTranslatef], 0.0,0.0,0.5
149 
	stdcall [glScalef], [scale], [scale], [scale]
 150 
	stdcall [glScalef], [scale], [scale], [scale]
Line 150... Line 151...
150 
 
 151 
 
151 
	stdcall [glRotatef], [angle_z],0.0,0.0,1.0
 152 
	stdcall [glRotatef], [angle_z],0.0,0.0,1.0
152 
	stdcall [glRotatef], [angle_y],0.0,1.0,0.0
 153 
	stdcall [glRotatef], [angle_y],0.0,1.0,0.0
Line 153... Line 154...
153 
	stdcall [gluSphere], [qObj], 1.0, 16,16
 154 
	stdcall [gluSphere], [qObj], 1.0, 32,32
154 
 
 155 
 
155 
	stdcall [glColor3f], 1.0, 0.0, 0.0
 156 
	stdcall [glColor3f], 1.0, 0.0, 0.0
Line 156... Line 157...
156 
	stdcall [glTranslatef], -1.6,0.0,0.0
 157 
	stdcall [glTranslatef], -1.6,0.0,0.0
157 
	stdcall [gluSphere], [qObj], 0.55, 8,8
 158 
	stdcall [gluSphere], [qObj], 0.55, 16,16
158 
 
 159 
 
159 
	stdcall [glColor3f], 0.0, 0.0, 1.0
 160 
	stdcall [glColor3f], 0.0, 0.0, 1.0
160 
	stdcall [glTranslatef], 3.2,0.0,0.0
 161 
	stdcall [glTranslatef], 3.2,0.0,0.0
Line 161... Line 162...
161 
	stdcall [gluSphere], [qObj], 0.55, 8,8
 162 
	stdcall [gluSphere], [qObj], 0.55, 16,16
162 
stdcall [glPopMatrix]
 163 
stdcall [glPopMatrix]