Class TNodeFog

Unit

VRMLNodes

Declaration

type TNodeFog = class(TVRMLNode)

Description

VRML node.

Descendant implementors note: Each descendant should override constructor to create and add his fields and events. Like Fields.Add(TSFFloat.Create('width', 2, true)). Also, you should define FdXxx properties that allow fast, comfortable and type-secure way to retrieve and set these fields.

Hierarchy

• IInterface
• TNonRefCountedInterfacedObject
• TVRMLNode
• TNodeFog

Overview

Methods

	constructor Create(const ANodeName: string; const AWWWBasePath: string); override;
	class function ClassNodeTypeName: string; override;
	function SuggestedVRMLVersion( out VerMajor, VerMinor, SuggestionPriority: Integer): boolean; override;
	class function URNMatching(const URN: string): boolean; override;
	function Alternative: TNodeFog;

Properties

	property Fdcolor: TSFColor index 0 read GetFieldAsSFColor;
	property FdfogType: TSFString index 1 read GetFieldAsSFString;
	property FdvisibilityRange: TSFFloat index 2 read GetFieldAsSFFloat;
	property FdVolumetric: TSFBool index 3 read GetFieldAsSFBool;
	property FdVolumetricDirection: TSFVec3f index 4 read GetFieldAsSFVec3f;
	property FdVolumetricVisibilityStart: TSFFloat index 5 read GetFieldAsSFFloat;
	property FdAlternative: TSFNode index 6 read GetFieldAsSFNode;

Description

Methods

	constructor Create(const ANodeName: string; const AWWWBasePath: string); override;

	class function ClassNodeTypeName: string; override;

	function SuggestedVRMLVersion( out VerMajor, VerMinor, SuggestionPriority: Integer): boolean; override;

	class function URNMatching(const URN: string): boolean; override;

	function Alternative: TNodeFog;
Returns FdAlternative.Value already typecasted to TNodeFog. If FdAlternative.Value is not of TNodeFog class, returns nil (returns also nil when FdAlternative.Value is nil, obviously).

Properties

	property Fdcolor: TSFColor index 0 read GetFieldAsSFColor;

	property FdfogType: TSFString index 1 read GetFieldAsSFString;

	property FdvisibilityRange: TSFFloat index 2 read GetFieldAsSFFloat;

	property FdVolumetric: TSFBool index 3 read GetFieldAsSFBool;

	property FdVolumetricDirection: TSFVec3f index 4 read GetFieldAsSFVec3f;

	property FdVolumetricVisibilityStart: TSFFloat index 5 read GetFieldAsSFFloat;

	property FdAlternative: TSFNode index 6 read GetFieldAsSFNode;