Class TNodeCylinder_1

Unit

VRMLNodes

Declaration

type TNodeCylinder_1 = class(TNodeGeneralShape_1)

Description

This is descendant of TNodeGeneralShape that is allowed only in VRML <= 1.0.

In VRML 1.0 shape nodes are allowed pretty everywhere, while VRML 2.0 has different idea of how shapes are handled (they must be inside Shape node), so no shape node is suitable at the same time for VRML 1.0 and VRML 2.0.

Hierarchy

• IInterface
• TNonRefCountedInterfacedObject
• TVRMLNode
• TNodeGeneralShape
• TNodeGeneralShape_1
• TNodeCylinder_1

Overview

Methods

	constructor Create(const ANodeName: string; const AWWWBasePath: string); override;
	class function ClassNodeTypeName: string; override;
	function LocalBoundingBox(State: TVRMLGraphTraverseState): TBox3d; override;
	function VerticesCount(State: TVRMLGraphTraverseState; OverTriangulate: boolean): Cardinal; override;
	function TrianglesCount(State: TVRMLGraphTraverseState; OverTriangulate: boolean): Cardinal; override;
	procedure LocalTriangulate(State: TVRMLGraphTraverseState; OverTriangulate: boolean; NewTriangleProc: TNewTriangleProc); override;

Properties

	property FdParts: TSFBitMask index 0 read GetFieldAsSFBitMask;
	property FdRadius: TSFFloat index 1 read GetFieldAsSFFloat;
	property FdHeight: TSFFloat index 2 read GetFieldAsSFFloat;

Description

Methods

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

	class function ClassNodeTypeName: string; override;

	function LocalBoundingBox(State: TVRMLGraphTraverseState): TBox3d; override;

	function VerticesCount(State: TVRMLGraphTraverseState; OverTriangulate: boolean): Cardinal; override;

	function TrianglesCount(State: TVRMLGraphTraverseState; OverTriangulate: boolean): Cardinal; override;

	procedure LocalTriangulate(State: TVRMLGraphTraverseState; OverTriangulate: boolean; NewTriangleProc: TNewTriangleProc); override;

Properties

	property FdParts: TSFBitMask index 0 read GetFieldAsSFBitMask;

	property FdRadius: TSFFloat index 1 read GetFieldAsSFFloat;

	property FdHeight: TSFFloat index 2 read GetFieldAsSFFloat;