PureBasic Forums - English

Code: Select all

InitEngine3D(#PB_Engine3D_NoLog,#PB_Compiler_Home+"Compilers\Engine3d.dll")
InitSprite():InitKeyboard():InitMouse()
OpenWindow(0,0,0,800,600,"v",#PB_Window_BorderLess|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0,800,600,1,0,0,#PB_Screen_WaitSynchronization)
CreateCamera(0,0,0,100,100)
MoveCamera(0,0,0,2,#PB_Absolute)
CreateCylinder(0,0.05,1)
CreateEntity(0,MeshID(0),#PB_Material_None,-0.5,0,0)
CreateEntity(1,MeshID(0),#PB_Material_None,0.5,0,0)
ScaleEntity(1,1,1,1,#PB_Absolute); <- it should be the same height than width (1 world units for width, 1 world units for height, 1 world units for depth)   !!!!!!!!
Repeat
  Repeat:Eventodeventana.i=WindowEvent():Until Eventodeventana=0
  ExamineKeyboard()
  RenderWorld()
  FlipBuffers():Delay(16)
Until KeyboardPushed(#PB_Key_Escape)