Unit 'oglLighting'	Package
[Overview][Classes][Index]	[#pl_opengladv]

TLighting

Declaration

Source position: ogllighting.pas line 17

`type TLighting = class(TObject)`
`public`
`position: TVector4f;`
`ambient: TVector4f;`
`diffuse: TVector4f;`
`specular: TVector4f;`
`constructor Create;`
`procedure Add();`
`procedure Delete();`
`procedure Clear;`
`procedure Setposition();`
`procedure Setambient();`
`procedure Setdiffuse();`
`procedure Setspecular();`
`procedure Update;`
`end;`