Class TSFMatrix

Unit

VRMLFields

Declaration

type TSFMatrix = class(TVRMLSingleField)

Description

Base class for all VRML fields.

Common notes for all descendants: most of them expose field or property "Value", this is (surprise, surprise!) the value of the field. Many of them also expose DefaultValue and DefaultValueExists fields/properties, these should be the default VRML value for this field. You can even change DefaultValue after the object is created.

Most of descendants include constructor that initializes both DefaultValue and Value to the same thing, as this is what you usually want.

Some notes about Assign method (inherited from TPersistent and overridied appropriately in TVRMLField descendants):

1. There are some exceptions, but usually assignment is possible only when source and destination field classes are equal.

2. Assignment tries to copy everything: name, default value, IsClause*, Exposed, and of course current value.

   If you want to copy only the current value, use AssignValue (or AssignLerp, where available).

Hierarchy

• TPersistent
• TVRMLField
• TVRMLSingleField
• TSFMatrix

Overview

Fields

Matrix: TMatrix4Single;

Methods

	procedure SaveToStreamValue(SaveProperties: TVRMLSaveToStreamProperties); override;
	constructor Create(const AName: string; const AMatrix: TMatrix4Single);
	procedure Parse(Lexer: TVRMLLexer; IsClauseAllowed: boolean); override;
	function Equals(SecondValue: TVRMLField; const EqualityEpsilon: Single): boolean; override;
	procedure AssignLerp(const A: Single; Value1, Value2: TSFMatrix);
	procedure Assign(Source: TPersistent); override;
	procedure AssignValue(Source: TVRMLField); override;
	class function VRMLTypeName: string; override;

Description

Fields

	Matrix: TMatrix4Single;

Methods

	procedure SaveToStreamValue(SaveProperties: TVRMLSaveToStreamProperties); override;

	constructor Create(const AName: string; const AMatrix: TMatrix4Single);

	procedure Parse(Lexer: TVRMLLexer; IsClauseAllowed: boolean); override;

	function Equals(SecondValue: TVRMLField; const EqualityEpsilon: Single): boolean; override;

	procedure AssignLerp(const A: Single; Value1, Value2: TSFMatrix);

	procedure Assign(Source: TPersistent); override;

	procedure AssignValue(Source: TVRMLField); override;

	class function VRMLTypeName: string; override;