BuildAsCylinder

procedure BuildAsCylinder(

  FPoints: TAffineVectorList;

  obj: TGLBaseSceneObject;

  const TopRadius: Single;

  const BottomRadius: Single;

  const Height: Single;

  const Slices: Integer;

  const Stacks: Integer

);