"AddWallScenenode" is addeted in my irrlicht vb.net
goto in my site
http://www.geocities.com/vdbirrlicht/index.html
new fonction addeted
codes source ready to download
go on my site for the downloading
there is a exemple in vb.net modified from helloworld
there is a exemple in vb.net modified from helloworld
codes
Dim device As New IrrlichtDevice(Irrlicht.Video.DriverType.OPENGL, 100, 100, 400, 400, 16, False)
device.ResizeAble = True
device.WindowCaption = "Irrlicht.NET VisualBasic example 01 - Hello World"
' load some textures
Dim texSydney As ITexture = device.VideoDriver.GetTexture("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\sydney.bmp")
Dim texWall As ITexture = device.VideoDriver.GetTexture("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\wall.bmp")
Dim texLogo As ITexture = device.VideoDriver.GetTexture("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\irrlichtlogoaligned.jpg")
' load the animated mesh of sydney
Dim mesh As Irrlicht.Scene.IAnimatedMesh = device.SceneManager.GetMesh("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\sydney.md2")
' add a camera, a test scene node and the animated mesh to the scene
Dim cam As ICameraSceneNode = device.SceneManager.AddCameraSceneNodeFPS(Nothing, 100, 100, -1)
cam.Position = New Vector3D(20, 0, -50)
Dim textfloor As ITexture = device.VideoDriver.GetTexture("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\water.jpg")
Dim FlorMesh As Irrlicht.Scene.IAnimatedMesh = device.SceneManager.GetMesh("")
Dim Floor As ISceneNode = device.SceneManager.AddFloorSurfaceSceneNode(FlorMesh.GetMesh(0), 10, 10, 10, Nothing, -1)
Floor.SetMaterialTexture(0, textfloor)
Dim node As ISceneNode = device.SceneManager.AddWallSceneNode
(15, Nothing, -1, New Vector3D(30, -15, 0))
node.SetMaterialTexture(0, texWall)
node = device.SceneManager.AddAnimatedMeshSceneNode(mesh, Nothing, -1)
node.SetMaterialTexture(0, texSydney)
node.SetMaterialFlag(MaterialFlag.LIGHTING, False)
the pocedure AddFloorSurfaceSceneNode is dont ready
device.ResizeAble = True
device.WindowCaption = "Irrlicht.NET VisualBasic example 01 - Hello World"
' load some textures
Dim texSydney As ITexture = device.VideoDriver.GetTexture("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\sydney.bmp")
Dim texWall As ITexture = device.VideoDriver.GetTexture("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\wall.bmp")
Dim texLogo As ITexture = device.VideoDriver.GetTexture("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\irrlichtlogoaligned.jpg")
' load the animated mesh of sydney
Dim mesh As Irrlicht.Scene.IAnimatedMesh = device.SceneManager.GetMesh("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\sydney.md2")
' add a camera, a test scene node and the animated mesh to the scene
Dim cam As ICameraSceneNode = device.SceneManager.AddCameraSceneNodeFPS(Nothing, 100, 100, -1)
cam.Position = New Vector3D(20, 0, -50)
Dim textfloor As ITexture = device.VideoDriver.GetTexture("C:\zip\vb\irrlicht-0.7\irrlicht-0.7\media\water.jpg")
Dim FlorMesh As Irrlicht.Scene.IAnimatedMesh = device.SceneManager.GetMesh("")
Dim Floor As ISceneNode = device.SceneManager.AddFloorSurfaceSceneNode(FlorMesh.GetMesh(0), 10, 10, 10, Nothing, -1)
Floor.SetMaterialTexture(0, textfloor)
Dim node As ISceneNode = device.SceneManager.AddWallSceneNode
(15, Nothing, -1, New Vector3D(30, -15, 0))
node.SetMaterialTexture(0, texWall)
node = device.SceneManager.AddAnimatedMeshSceneNode(mesh, Nothing, -1)
node.SetMaterialTexture(0, texSydney)
node.SetMaterialFlag(MaterialFlag.LIGHTING, False)
the pocedure AddFloorSurfaceSceneNode is dont ready
rotation
the function of rotation is included in the procedure like the "AddTestSceneNode"
the procedure is
"AddWallSceneNode(float size, ISceneNode* parent, int id,
Core::Vector3D position, Core::Vector3D rotation, Core::Vector3D scale)"
another procedure for the floor is in preparation directly in the declaration
"IrrlichtDevice"
the procedure is
"AddWallSceneNode(float size, ISceneNode* parent, int id,
Core::Vector3D position, Core::Vector3D rotation, Core::Vector3D scale)"
another procedure for the floor is in preparation directly in the declaration
"IrrlichtDevice"