Subversion Repositories Kolibri OS

Rev

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

Rev 5278 Rev 5380
Line 165... Line 165...
165
align 4
165
align 4
166
SetLight:
166
SetLight:
167
    stdcall [glLightfv], GL_LIGHT0, GL_POSITION, light_position
167
    stdcall [glLightfv], GL_LIGHT0, GL_POSITION, light_position
168
    stdcall [glLightfv], GL_LIGHT0, GL_SPOT_DIRECTION, light_dir
168
    stdcall [glLightfv], GL_LIGHT0, GL_SPOT_DIRECTION, light_dir
Line 169... Line 169...
169
 
169
 
170
    stdcall [glLightfv], GL_LIGHT0, GL_DIFFUSE, white_light
170
;    stdcall [glLightfv], GL_LIGHT0, GL_DIFFUSE, white_light
Line 171... Line 171...
171
    stdcall [glLightfv], GL_LIGHT0, GL_SPECULAR, white_light
171
;    stdcall [glLightfv], GL_LIGHT0, GL_SPECULAR, white_light
172
 
172
 
173
	stdcall [glEnable], GL_COLOR_MATERIAL
173
	stdcall [glEnable], GL_COLOR_MATERIAL
174
	stdcall [glColorMaterial], GL_FRONT, GL_AMBIENT_AND_DIFFUSE
174
	stdcall [glColorMaterial], GL_FRONT, GL_AMBIENT_AND_DIFFUSE
175
	stdcall [glMaterialfv], GL_FRONT, GL_SPECULAR, mat_specular
175
	stdcall [glMaterialfv], GL_FRONT, GL_SPECULAR, mat_specular
Line 176... Line 176...
176
	stdcall [glMaterialf], GL_FRONT, GL_SHININESS, mat_shininess
176
	stdcall [glMaterialf], GL_FRONT, GL_SHININESS, mat_shininess
177
    stdcall [glLightModelfv], GL_LIGHT_MODEL_AMBIENT, lmodel_ambient
177
    stdcall [glLightModelfv], GL_LIGHT_MODEL_AMBIENT, lmodel_ambient
178
  
178
  
Line 179... Line 179...
179
	stdcall [glEnable],GL_LIGHTING
179
	stdcall [glEnable],GL_LIGHTING
Line 180... Line 180...
180
	stdcall [glEnable],GL_LIGHT0
180
;        stdcall [glEnable],GL_LIGHT0