Subversion Repositories Kolibri OS

Rev

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

Rev 6143 Rev 6145
Line 147... Line 147...
147 
	pushad
 147 
	pushad
148 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
 148 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
149 
	mcall SF_CREATE_WINDOW,(50 shl 16)+420,(30 shl 16)+410,0x33ffffff,,caption
 149 
	mcall SF_CREATE_WINDOW,(50 shl 16)+420,(30 shl 16)+410,0x33ffffff,,caption
Line 150... Line 150...
150 
 
 150 
 
151 
	mov esi,[sc.work_button]
 151 
	mov esi,[sc.work_button]
152 
	mcall SF_DEFINE_BUTTON,(6 shl 16)+19,(6 shl 16)+19,3+0x40000000 ;земля 1
 152 
	mcall SF_DEFINE_BUTTON,(6 shl 16)+19,(6 shl 16)+19,3+0x40000000 ;земля с меридиан.
Line -... Line 153...
- 
 
 153 
	mcall ,(36 shl 16)+19,,4+0x40000000 ;земля
- 
 
 154 
 
153 
	mcall ,(36 shl 16)+19,,4+0x40000000 ;земля 2
 155 
	mov ebx,[image_data_toolbar]
154 
 
 156 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
155 
	mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+5 ;земля 1
 157 
	mcall SF_PUT_IMAGE,,(21 shl 16)+21,(5 shl 16)+5 ;земля с меридиан.
Line 156... Line 158...
156 
	;add ebx,2*IMAGE_TOOLBAR_ICON_SIZE
 158 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
157 
	mcall ,,,(35 shl 16)+5 ;земля 2
 159 
	mcall ,,,(35 shl 16)+5 ;земля
158 
 
 160 
 
159 
	stdcall [kosglSwapBuffers]
 161 
	stdcall [kosglSwapBuffers]
Line 300... Line 302...
300 
stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
 302 
stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
Line 301... Line 303...
301 
 
 303 
 
302 
stdcall [glPushMatrix]
 304 
stdcall [glPushMatrix]
303 
	stdcall [glTranslatef], 0.0,0.0,0.5
 305 
	stdcall [glTranslatef], 0.0,0.0,0.5
304 
	stdcall [glScalef], [scale], [scale], [scale]
 - 
 
305 
	;stdcall [glRotatef], [angle_z],0.0,0.0,1.0
 306 
	stdcall [glScalef], [scale], [scale], [scale]
306 
	stdcall [glRotatef], [angle_y],0.0,1.0,0.0
 307 
	stdcall [glRotatef], [angle_y],0.0,1.0,0.0
Line 307... Line 308...
307 
	stdcall [glRotatef], [angle_x],1.0,0.0,0.0
 308 
	stdcall [glRotatef], [angle_x],1.0,0.0,0.0
308 
 
 309 
 
309 
cmp dword[dr_figure],0
 310 
cmp dword[dr_figure],0
- 
 
 311 
jne @f
- 
 
 312 
	; рисование земли с меридианами
- 
 
 313 
	stdcall [glColor3f], 0.0, 0.0, 1.0
- 
 
 314 
	stdcall [gluQuadricDrawStyle], [qObj],GLU_LINE
310 
jne @f
 315 
	stdcall [gluSphere], [qObj], 1.0, 24,18 ;меридианы
311 
	; рисование земли
 316 
	stdcall [gluQuadricDrawStyle], [qObj],GLU_FILL
312 
	stdcall [gluSphere], [qObj], 1.0, 16,16
 317 
	stdcall [gluSphere], [qObj], 0.995, 24,18 ;земля
313 
@@:
 318 
@@:
314 
cmp dword[dr_figure],1
 319 
cmp dword[dr_figure],1
- 
 
 320 
jne @f
315 
jne @f
 321 
	; рисование земли
316 
	; рисование земли
 322 
	stdcall [gluQuadricDrawStyle], [qObj],GLU_FILL
317 
	stdcall [gluSphere], [qObj], 1.0, 64,64
 323 
	stdcall [gluSphere], [qObj], 1.0, 64,64
Line 318... Line 324...
318 
@@:
 324 
@@: