Grafikkarten (intel) unterstützt wird.
Aaaber
irgendwas ist da verdreht beim 3D-Sound
im ff Code schiebt man mit a den node (würfel nebst sound) nach links mit d nach rechts
Der Sound geht aber in die falsche Richtung.
oben und unten (w /S) ist wohl ok
Vorne und hinten (Up/down) wohl auch, immerhin wird es leiser
Ist das nur hier so (komische direct-3d treiberei auf dem ollen Laptopf) oder ist das allgemein so und eher 'ne Art Bug
(hier ist es egal ob "normal" oder "opengl")
Code: Alles auswählen
InitEngine3D()
InitSprite()
InitKeyboard()
InitMouse()
OpenWindow(0,0,0,1000,1000,"k",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0),0,0,1000,1000,1,0,0)
Add3DArchive("D:/PureBasic/510/Examples/3D/Data", #PB_3DArchive_FileSystem) ;change to appr. dir
Add3DArchive("D:\PureBasic\510\Examples\3D\Data/Packs/skybox.zip", #PB_3DArchive_Zip) ;change to appr. dir
Add3DArchive("D:\PureBasic\510\Examples\3D\Data/Textures", #PB_3DArchive_FileSystem) ;change to appr. dir
SkyBox("stevecube.jpg")
cam=CreateCamera(#PB_Any, 0, 0, 1000, 1000)
cube=CreateCube(#PB_Any,10)
tex_cloud=LoadTexture(#PB_Any, "clouds.jpg")
material=CreateMaterial(#PB_Any,TextureID(tex_cloud))
Debug material
cubee=CreateEntity(#PB_Any,MeshID(cube),MaterialID(material))
If IsMesh(cubee)
MoveEntity(cubee,0,0,0)
EndIf
sir= LoadSound3D(#PB_Any,"schwurbel.wav",#PB_Sound3D_Loop) ;change to a mono-sound-file
SoundVolume3D(sir, 100)
SoundRange3D(sir, 1, 100)
PlaySound3D(sir, #PB_Sound3D_Loop)
SoundListenerLocate(CameraX(cam),CameraY(cam),CameraZ(cam))
node=CreateNode(#PB_Any, 0, 0, -75)
AttachNodeObject(node, SoundID3D(sir))
AttachNodeObject(node, EntityID(cubee))
Repeat
ExamineKeyboard()
ExamineMouse()
If KeyboardPushed(#PB_Key_Escape)
quit+1
EndIf
RotateNode(node,0.3,0.4,0.5,#PB_Relative) ;aber nur weil 3*3+4*4=5*5 ist
If KeyboardPushed(#PB_Key_D)
MoveNode(node,0.5,0,0)
EndIf
If KeyboardPushed(#PB_Key_A)
MoveNode(node,-0.5,0,0)
EndIf
If KeyboardPushed(#PB_Key_W)
MoveNode(node,0,0.5,0)
EndIf
If KeyboardPushed(#PB_Key_S)
MoveNode(node,0,-0.5,0)
EndIf
If KeyboardPushed(#PB_Key_Up)
MoveNode(node,0,0,5)
EndIf
If KeyboardPushed(#PB_Key_Down)
MoveNode(node,0,0,-5)
EndIf
StartDrawing(WindowOutput(0))
DrawText(0,0,Str(NodeX(node))+" "+Str(NodeY(node))+" "+Str(NodeZ(node)))
StopDrawing()
RenderWorld()
FlipBuffers()
Until quit
End