Code: Select all
Procedure mae_setambient( r.f, g.f, b.f )
Protected *t
mov *t, esp ;now *t point to 3 floats array :)
glLightModelfv_( #GL_LIGHT_MODEL_AMBIENT, *t );
EndProcedure
Code: Select all
Procedure mae_setambient( r.f, g.f, b.f )
Protected *t
mov *t, esp ;now *t point to 3 floats array :)
glLightModelfv_( #GL_LIGHT_MODEL_AMBIENT, *t );
EndProcedure
Code: Select all
structure color
r.f, g.f, b.f
end structure
procedure set_ambient( r.f,g.f,b.f )
c.color
c\r = r
c\g = g
c\b = b
glLightModelfv_( #GL_LIGHT_MODEL_AMBIENT, @c );
endprocedure
Code: Select all
!extrn _glLightModelfv@8
Procedure mae_setambient( r.f, g.f, b.f )
!PUSH esp
!PUSH 0x0B53
!CALL _glLightModelfv@8
EndProcedure