Class TVRMLGLHeadLight

Unit

VRMLGLHeadLight

Declaration

type TVRMLGLHeadLight = class(TObject)

Description

This is a class that helps you render a headlight.

The most common use is to render a headlight conforming to VRML specification, and configurable by KambiHeadLight VRML node (see [http://vrmlengine.sourceforge.net/kambi_vrml_extensions.php#ext_headlight]).

• If you create this passing HeadLightNode = Nil to constructor then the default VRML headlight (as required by NavigationInfo.headlight specification in VRML 2.0) properties will be set up.

  Equivalently, you can say that the default KambiHeadLight node properties will be assumed — because default KambiHeadLight node are intentionally set such that they are identical with default headlight required by VRML 2.0 spec.

• Pass HeadLightNode <> Nil to constructor to use appropriate KambiHeadLight node properties.

Hierarchy

• TObject
• TVRMLGLHeadLight

Overview

Methods

	constructor Create(HeadLightNode: TNodeKambiHeadLight);
	destructor Destroy; override;
	procedure Render(GLLightNumber: Cardinal; CallEnabled: boolean);
	class procedure RenderOrDisable(Light: TVRMLGLHeadlight; GLLightNumber: Cardinal);

Properties

	property AmbientIntensity: Single read FAmbientIntensity write FAmbientIntensity;
	property Attenuation: TVector3Single read FAttenuation write FAttenuation;
	property Color: TVector3Single read FColor write FColor;
	property Intensity: Single read FIntensity write FIntensity;
	property Spot: boolean read FSpot write FSpot;
	property SpotCutOffAngle: Single read FSpotCutOffAngle write FSpotCutOffAngle;
	property SpotDropOffRate: Single read FSpotDropOffRate write FSpotDropOffRate;

Description

Methods

	constructor Create(HeadLightNode: TNodeKambiHeadLight);

	destructor Destroy; override;

	procedure Render(GLLightNumber: Cardinal; CallEnabled: boolean);
This sets properties of GL_LIGHT_GLLightNumber to render given light. Note that this requires that current matrix is modelview. Matrix may be reset to identity by this procedure. If CallEnabled then it will also call glEnable(GL_LIGHT_GLLightNumber).

	class procedure RenderOrDisable(Light: TVRMLGLHeadlight; GLLightNumber: Cardinal);
This is like Light.Render(GLLightNumber, true), but will call glDisable(GL_LIGHT_GLLightNumber) if Light is nil. In effect, you can call this procedure with nil or non-nil parameter, and you can be sure that enabled/disabled state of light GL_LIGHT_GLLightNumber will be set.

Properties

	property AmbientIntensity: Single read FAmbientIntensity write FAmbientIntensity;

	property Attenuation: TVector3Single read FAttenuation write FAttenuation;

	property Color: TVector3Single read FColor write FColor;

	property Intensity: Single read FIntensity write FIntensity;

	property Spot: boolean read FSpot write FSpot;

	property SpotCutOffAngle: Single read FSpotCutOffAngle write FSpotCutOffAngle;

	property SpotDropOffRate: Single read FSpotDropOffRate write FSpotDropOffRate;