Where is the origin !?
Its not in the center/edge of the plane...
Am i doing something wrong?
Code: Select all
#WINDOW_TITLE = ""
#WINDOW_WIDTH = 1000
#WINDOW_HEIGHT = 600
#WINDOW_ID = 400
#WINDOW_FLAGS = #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget
#SCREEN_X = 10
#SCREEN_Y = 10
#SCREEN_WIDTH = 800
#SCREEN_HEIGHT = 500
Procedure.i NewTexture(Color.i)
Protected Result.i = CreateTexture(#PB_Any,16,16)
If Result
If StartDrawing(TextureOutput(Result))
DrawingMode(#PB_2DDrawing_Default)
Box(0,0,16,16,Color)
StopDrawing()
ProcedureReturn Result
EndIf
FreeTexture(Result)
EndIf
EndProcedure
Procedure.i CreateScene()
TEXTURE_Red = NewTexture(#Red)
MATERIAL_Red = CreateMaterial(#PB_Any,TextureID(TEXTURE_Red))
TEXTURE_Green = NewTexture(#Green)
MATERIAL_Green = CreateMaterial(#PB_Any,TextureID(TEXTURE_Green))
TEXTURE_Cyan = NewTexture(#Cyan)
MATERIAL_Cyan = CreateMaterial(#PB_Any,TextureID(TEXTURE_Cyan))
CreateCone(11,3,6,4,1)
CreateEntity(22,MeshID(11),MaterialID(MATERIAL_red))
MoveEntity(22,50,0,0)
RotateEntity(22,0,0,-90)
CreateEntity(44,MeshID(11),MaterialID(MATERIAL_Green))
MoveEntity(44,0,50,0)
CreateEntity(66,MeshID(11),MaterialID(MATERIAL_Cyan))
MoveEntity(66,0,0,50)
RotateEntity(66,90,0,0)
CreateLine3D(#PB_Any,0,0,0,#White,50,0,0,#Red) ;X RIGHT
CreateLine3D(#PB_Any,0,0,0,#White,0,50,0,#Green) ;Y TOP
CreateLine3D(#PB_Any,0,0,0,#White,0,0,50,#Cyan) ;Z BACK
TEXTURE_Base = NewTexture($AAFAAA)
MATERIAL_Base = CreateMaterial(#PB_Any,TextureID(TEXTURE_Base))
TEXTURE_Base2 = NewTexture($FAFFAA)
MATERIAL_Base2 = CreateMaterial(#PB_Any,TextureID(TEXTURE_Base2))
MaterialBlendingMode(MATERIAL_Base,#PB_Material_Color)
MaterialCullingMode(MATERIAL_Base,#PB_Material_NoCulling)
MaterialBlendingMode(MATERIAL_Base2,#PB_Material_Color)
MaterialCullingMode(MATERIAL_Base2,#PB_Material_NoCulling)
CreatePlane(1, 20, 20, 1, 1, 0, 0)
CreateEntity(2,MeshID(1),MaterialID(MATERIAL_Base2),5,0,0)
RotateEntity(2,90,0,0)
CreatePlane(3, 10, 10, 1, 1, 0, 0)
CreateEntity(4,MeshID(3),MaterialID(MATERIAL_Base),5,0,0)
RotateEntity(4,90,0,0)
CreateCube(7,5)
CreateEntity(8,MeshID(7),0)
ProcedureReturn #True;Dummy
EndProcedure
Procedure.i InitRender()
OBJ_Light1 = CreateLight(#PB_Any,RGB(100,100,100), 2000, 10000, 10000)
OBJ_Light2 = CreateLight(#PB_Any,RGB(100,100,100), 2000, -10000, -1000)
OBJ_Camera = CreateCamera(#PB_Any,0,0,100,100)
CameraBackColor(OBJ_Camera,$666666)
MoveCamera(OBJ_Camera,0,0,200,#PB_Absolute)
OBJ_Node = CreateNode(#PB_Any,0,0,0)
AttachNodeObject(OBJ_Node,CameraID(OBJ_Camera))
RotateNode(OBJ_Node,-20,0,0,#PB_Relative);SET ROTATION
ProcedureReturn CreateScene()
EndProcedure
Procedure.i Screen()
Protected Exit.i, Event.i
If InitEngine3D() And InitSprite() And InitKeyboard()
If OpenWindow(#WINDOW_ID,#Null,#Null,#WINDOW_WIDTH,#WINDOW_HEIGHT,#WINDOW_TITLE,#WINDOW_FLAGS)
If OpenWindowedScreen(WindowID(#WINDOW_ID),#SCREEN_X,#SCREEN_Y,#SCREEN_WIDTH,#SCREEN_HEIGHT)
If InitRender()
SetFrameRate(60)
Repeat
Event = WindowEvent()
Select Event
Case #PB_Event_CloseWindow
Exit = #True
Default
SetWindowTitle(#WINDOW_ID,#WINDOW_TITLE + " " + Str(Engine3DStatus(#PB_Engine3D_NbRenderedTriangles)) + " Triangles - " + Str(Engine3DStatus(#PB_Engine3D_CurrentFPS)) + " FPS")
Sleep_(10)
EndSelect
RenderWorld()
FlipBuffers()
Until Exit = #True
EndIf
CloseScreen()
EndIf
CloseWindow(#WINDOW_ID)
EndIf
EndIf
EndProcedure
Screen()]