TGLVerletAssemblyCloth

type TGLVerletAssemblyCloth = class(TGLVerletAssemblyBase)

public

  VerHorSlack: Single;

  DiagonalSlack: Single;

  NodeRadius: Single;

  GLVCCloth: TGLVCCloth;

  Corners: TVerletNodeList;

  Stiffness: Boolean;

  test: Integer;

  constructor Create; override;

  destructor Destroy; override;

  function StickExists();

  procedure AddStick();

  function VertexIDForXY();

  procedure BuildNormals; virtual;

  procedure PrepareFaceGroups; virtual;

  procedure AddPoly(); virtual;

  procedure BuildCloth();

  function Progress(); override;

  function IdForOtherSide();

  property XRes: Integer; [r]

  property YRes: Integer; [r]

  property Cloth: TGLMorphableMeshObject; [r]

end;

TGLVerletAssemblyCloth

TGLVerletAssemblyBase

TVerletAssembly

TObject