CreateTube()

Syntax

Result = CreateTube(#Mesh, OuterRadius.f, InnerRadius.f, Height.f [, NbBaseSegments, NbHeightSegments)
Description
Create a new tube mesh.

Parameters

#Mesh The number to identify the new mesh. #PB_Any can be used to auto-generate this number.
OuterRadius Outer radius, in world unit, of the tube.
InnerRadius Inner radius, in world unit, of the tube.
Height Height, in world unit, of the tube.
NbBaseSegments (optional) Number of segments used for the base of the tube (default: 16).
NbHeightSegments (optional) Number of segments used for the height of the tube (default: 1).

Return value

Returns nonzero if the mesh was created successfully and zero if there was an error. If #PB_Any was used as the #Mesh parameter then the new generated number is returned on success.

Example

  InitEngine3D()
  InitSprite()

  OpenWindow(0, 0, 0, 640, 480, "Tube example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  OpenWindowedScreen(WindowID(0), 0, 0, 640, 480, 0, 0, 0)

  ; Light
  CreateLight(#PB_Any, RGB(25, 25, 180), -5, 10, 5, #PB_Light_Point)

  ; Camera
  CreateCamera(0, 0, 0, 100, 100)
  MoveCamera(0, 2, 4, 3, #PB_Absolute | #PB_Local)
  CameraLookAt(0, 0, 0, 0)

  ; Create the tube and attach it to the scene
  CreateTube(0, 0.5, 0.4, 2)
  CreateEntity(0, MeshID(0), #PB_Material_None)

  Repeat
    RenderWorld()
    FlipBuffers()
  Until WaitWindowEvent(1) = #PB_Event_CloseWindow

See Also

FreeMesh(), CreateCylinder(), CreateMesh(), CreateCube(), CreatePlane(), CreateLine3D()

Supported OS

All

<- CreateTorus() - Mesh Index - FinishMesh() ->