Class TCylSphereDistribution

Unit

ModpathParticleUnit

Declaration

type TCylSphereDistribution = class(TGoPhastPersistent)

Description

Hierarchy

• TPersistent
• TGoPhastPersistent
• TCylSphereDistribution

Overview

Fields

	FRadius: double;
	FLayerCount: integer;
	FCircleParticleCount: integer;
	FOrientation: TParticleGroupOrientation;
	FParticles: TParticles;
	FDistributionChoice: TParticleDistribution;
	FMaxParticleSize: double;

Methods

	procedure SetCircleParticleCount(const Value: integer);
	procedure SetLayerCount(const Value: integer);
	procedure SetOrientation(const Value: TParticleGroupOrientation);
	procedure SetRadius(const Value: double);
	procedure SetDistributionChoice(const Value: TParticleDistribution);
	function GetParticles: TParticles;
	procedure CreateCylinderParticles;
	procedure UpdateMaxParticleSize(ParticleSize: Double);
	procedure CreateVerticalCylinderParticles;
	procedure CreateEastWestCylinderParticles;
	procedure CreateNorthSouthCylinderParticles;
	procedure CreateSphereParticles;
	procedure CreateVerticalSphereParticles;
	procedure CreateEastWestSphereParticles;
	procedure CreateNorthSouthSphereParticles;
	procedure InvalidateModel; override;
	procedure Assign(Source: TPersistent); override;
	Constructor Create(Model: TBaseModel);
	Destructor Destroy; override;

Properties

	property Particles: TParticles read GetParticles;
	property DistributionChoice: TParticleDistribution read FDistributionChoice write SetDistributionChoice;
	property Orientation: TParticleGroupOrientation read FOrientation write SetOrientation;
	property CircleParticleCount: integer read FCircleParticleCount write SetCircleParticleCount default 8;
	property LayerCount: integer read FLayerCount write SetLayerCount default 1;
	property Radius: double read FRadius write SetRadius stored True;

Description

Fields

	FRadius: double;

	FLayerCount: integer;

	FCircleParticleCount: integer;

	FOrientation: TParticleGroupOrientation;

	FParticles: TParticles;

	FDistributionChoice: TParticleDistribution;

	FMaxParticleSize: double;

Methods

	procedure SetCircleParticleCount(const Value: integer);

	procedure SetLayerCount(const Value: integer);

	procedure SetOrientation(const Value: TParticleGroupOrientation);

	procedure SetRadius(const Value: double);

	procedure SetDistributionChoice(const Value: TParticleDistribution);

	function GetParticles: TParticles;

	procedure CreateCylinderParticles;

	procedure UpdateMaxParticleSize(ParticleSize: Double);

	procedure CreateVerticalCylinderParticles;

	procedure CreateEastWestCylinderParticles;

	procedure CreateNorthSouthCylinderParticles;

	procedure CreateSphereParticles;

	procedure CreateVerticalSphereParticles;

	procedure CreateEastWestSphereParticles;

	procedure CreateNorthSouthSphereParticles;

	procedure InvalidateModel; override;

	procedure Assign(Source: TPersistent); override;

	Constructor Create(Model: TBaseModel);

	Destructor Destroy; override;

Properties

	property Particles: TParticles read GetParticles;

	property DistributionChoice: TParticleDistribution read FDistributionChoice write SetDistributionChoice;

	property Orientation: TParticleGroupOrientation read FOrientation write SetOrientation;

	property CircleParticleCount: integer read FCircleParticleCount write SetCircleParticleCount default 8;

	property LayerCount: integer read FLayerCount write SetLayerCount default 1;

	property Radius: double read FRadius write SetRadius stored True;