Great stuff !!!! thanks to release this ! i love you !
Do you plan shader FX loading ?
Raaaah lovely :)
Do you plan shader FX loading ?
Raaaah lovely :)
Strict Framework gg.IrrB3D ib3d_Graphics3D(640,480,32,True) Local cam:CAMERA=ib3d_CreateCamera() ib3d_PositionEntity(cam,0,0,-1.2) ib3d_CameraClsColor(0,0,0) ib3d_ShadowColor(1,0,0,0) ib3d_CameraRange(Cam,0.1,3000) ib3d_CameraZoom(cam,1) Local LIGHT1:LIGHT=ib3d_CreateLight() ib3d_LightColor(LIGHT1,255,255,0) ib3d_LightRange(LIGHT1,60) ib3d_LightCastShadows(LIGHT1,True) ib3d_PositionEntity(LIGHT1,15,15,-15) ib3d_LightAmbientColor(LIGHT1,0,0,0) Local LIGHT2:LIGHT=ib3d_CreateLight() ib3d_LightColor(LIGHT2,0,255,255) ib3d_LightRange(LIGHT2,60) ib3d_LightCastShadows(LIGHT2,True) ib3d_PositionEntity(LIGHT2,-15,15,-15) ib3d_LightAmbientColor(LIGHT2,0,0,0) Local quake:MESH=ib3d_LoadMesh("../media/earth.x") ib3d_PositionEntity(quake,0,0,0) ib3d_EntityDebugDataVisible(quake,True) ib3d_EntityShininess(quake,100) ib3d_ScaleEntity(quake,1.1,1.1,1.1) Local texture:TEXTURE=ib3d_LoadTexture("../media/earth.bmp") ib3d_EntityTexture(quake, texture) While Not ib3d_KeyDown(EKEY_ESCAPE) 'If ib3d_KeyDown(EKEY_NUMPAD9) Then ib3d_MoveEntity(cam,0,0.001,0) 'If ib3d_KeyDown(EKEY_NUMPAD3) Then ib3d_MoveEntity(cam,0,-0.001,0) 'If ib3d_KeyDown(EKEY_NUMPAD6) Then ib3d_MoveEntity(cam,0.1,0,0) 'If ib3d_KeyDown(EKEY_NUMPAD4) Then ib3d_MoveEntity(cam,-0.001,0,0) If ib3d_KeyDown(EKEY_NUMPAD8) Then ib3d_MoveEntity(cam,0,0,0.0001) If ib3d_KeyDown(EKEY_NUMPAD2) Then ib3d_MoveEntity(cam,0,0,-0.0001) ib3d_TurnEntity(quake,0.001,0.001,0.001) ib3d_UpdateWorld() ib3d_RenderWorld() Wend ib3d_EndGraphics()
_g_ib3d_engine.Graphics3D(640,480,32,0,True,False,EDT_DIRECTX9)
Strict Framework gg.IrrB3D _g_ib3d_engine.Graphics3D(640,480,32,0,True,False,EDT_DIRECTX9) 'ib3d_Graphics3D(1024,768,32,False,EDT_DIRECTX8) 'ib3d_Graphics3D(1024,768,32,False,EDT_OPENGL) Local cam:CAMERA=ib3d_CreateCamera(0,CT_MAYA) ib3d_PositionEntity(cam,0,0,-20.0) ib3d_CameraClsColor(0,0,0) ib3d_ShadowColor(1,20,20,20) ib3d_CameraRange(Cam,0.1,5000) ib3d_CameraZoom(cam,10.0) Local plane:MESH=ib3d_CreatePlane(60, 60,1,1) ib3d_PositionEntity(plane,30,-10,30) Local LIGHT1:LIGHT=ib3d_CreateLight() 'ib3d_LightAmbientColor(LIGHT1, 50, 50, 50) ib3d_LightColor(LIGHT1,255,0,255) ib3d_LightRange(LIGHT1,15) ib3d_PositionEntity(LIGHT1,15,15,-15) 'ib3d_LightCastShadows(LIGHT1,True) Local quake:MESH=ib3d_LoadMesh("../media/knot.x") ib3d_PositionEntity(quake,0,0,0) 'ib3d_EntityDebugDataVisible(quake,True) 'ib3d_EntityShininess(quake,10) 'ib3d_EntityAmbientColor(quake, 10, 10, 110) 'ib3d_EntityDiffuseColor(quake, 10, 200, 10) 'ib3d_EntityEmissiveColor(quake, 210, 0, 0) 'ib3d_EntitySpecularColor(quake, 210, 0, 230) Local scale:Float=0.1 ib3d_ScaleEntity(quake,scale,scale,scale) While Not ib3d_KeyDown(EKEY_ESCAPE) If ib3d_KeyDown(EKEY_UP) Then ib3d_MoveEntity(cam,0,0,0.01) If ib3d_KeyDown(EKEY_DOWN) Then ib3d_MoveEntity(cam,0,0,-0.01) ' ib3d_TurnEntity(quake,0.001,0.01,0.1) ib3d_UpdateWorld() ib3d_RenderWorld() Wend ib3d_EndGraphics()
' --------------------- ' Irrlicht light classe ' --------------------- Type EAI_Light Field Entity:T_irrILightSceneNode Field Position_X:Float Field Position_Y:Float Field Position_Z:Float Field Entity_Red:Float Field Entity_Green:Float Field Entity_Blue:Float Field Entity_Radius:Float Method CreateLight(Scene:T_irrISceneManager,Red:Float,Green:Float,Blue:Float) Position_X=0 Position_Y=0 Position_Z=0 Entity_Red=Red Entity_Green=Green Entity_Blue=Blue Entity=Scene.addLightSceneNode(0, T_irrVector3df.createFromVals(Position_X,Position_Y,Position_Z), T_irrSColorf.createFromRGBA(Entity_Red, Entity_Green, Entity_Blue, 0.0),200.0) End Method Method SetPosition(Px:Float,Py:Float,Pz:Float) Position_X=Px Position_Y=Py Position_Z=Pz Entity.SetPosition(T_irrVector3df.CreateFromVals(Position_X,Position_Y,Position_Z)) End Method End Type