PureBasic Forums - English

Posted: **Sun Jun 15, 2003 8:19 pm**

Hi!
I got two questions about this source code.

First:
If you start the source code and you press cursor down you will see 21 balls. 12 of these balls are flying away the 9 will stay. Why arenÂ´t fly all away ?

Second:
If you un-remark the line with the RorateMaterial() function you will see the balls are no balls anymore. Why ?

Thank you & MFG
WolfgangS

Code: Select all

#CameraSpeed = 10
#AmountBB   = 20    ; 0-20 = 21 BillBoards

IncludeFile "Screen3DRequester.pb"
DefType.f KeyX, KeyY, MouseX, MouseY
If InitEngine3D()
  InitSprite()
  InitKeyboard()
  InitMouse()
  If Screen3DRequester()
  


  ; create a Texture
  CreateTexture(10,64,64)
  StartDrawing(TextureOutput(10))
    Circle(32,32,16,$9abcde)
  StopDrawing()

  ; create A Material + Rorate + BlendingMode
  CreateMaterial(10, TextureID(10))
  ;RotateMaterial(10,0.1,#PB_Material_Animated)
  MaterialBlendingMode(#10, #PB_Material_add) 
   
  ; create Billboard
  CreateBillboardGroup(0, MaterialID(10), 10, 10)
  
  ; Create the Billboards  
  For i=0 To #AmountBB         
    AddBillboard(i,0,Random(80),Random(80),Random(80))
  Next
          
  ; Creat the Camera
  CreateCamera(0, -200, -250, 100, 100)
  CameraLookAt(0,152,72,0)

  Repeat
      Screen3DEvents()
      ClearScreen(0, 0, 0)

      If ExamineKeyboard()
        If KeyboardPushed(#PB_Key_Left)
          KeyX = -#CameraSpeed 
        ElseIf KeyboardPushed(#PB_Key_Right)
          KeyX = #CameraSpeed 
        Else
          KeyX = 0
        EndIf
        If KeyboardPushed(#PB_Key_Up)
          KeyY = -#CameraSpeed 
        ElseIf KeyboardPushed(#PB_Key_Down)
          KeyY = #CameraSpeed 
        Else
          KeyY = 0
        EndIf
      EndIf
      
      ; Move the Billboards
      For i=0 To #AmountBB   
        MoveBillboard(i,0,0,1,0)
      Next
      
      
      If ExamineMouse()
        MouseX = -(MouseDeltaX()/10)*#CameraSpeed/2
        MouseY = -(MouseDeltaY()/10)*#CameraSpeed/2
      EndIf
      
      RotateCamera(0, MouseX, MouseY, RollZ)
      MoveCamera  (0, KeyX, 0, KeyY)
    
      RenderWorld()
      ;Screen3DStats()
      FlipBuffers()
    Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1
  EndIf
    
Else
  MessageRequester("Error", "The 3D Engine can't be initialized",0)
EndIf
  
End
; ExecutableFormat=Windows
; CursorPosition=12
; FirstLine=1
; EOF

Posted: **Mon Jun 16, 2003 5:34 am**

I keep getting the error "The 3D Engine can't be initialized". The InitEngine3D() command has some problems. See the Bugs message forum for more information on this. This may be a clue as to what is wrong with the command.

Posted: **Mon Jun 16, 2003 9:05 am**

Wolfgang: Seems like the rotating point is not the texture center.. I will investigate this.

LJ: this is not the problem, you don't need to post this to any 3D related post. Please join IRC or send me an email to solve this issue.

Posted: **Tue Jun 17, 2003 5:29 am**

Fred - Ok. Sent you an e-mail.

PureBasic Forums - English

Questions about a Billboard source code

Questions about a Billboard source code

Error 3D engine can't be inialized

OK