I don´t understand it. Where´s the Problem?
Also, even without real existing compositordata, PB creates an compositor --> IMA on End or FreeEffect()!
Code: Select all
EnableExplicit
Define.f KeyX, KeyY, MouseX, MouseY
Define nx.f, nz.f, Boost.f = 1.5, Yaw.f, Pitch.f
Define.i Quit, boden, effect
#kam_0 = 0
#window = 0
#plane = 0
#planent = 0
If InitEngine3D(#PB_Engine3D_DebugLog | #PB_Engine3D_EnableCG)
Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Scripts", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Models", #PB_3DArchive_FileSystem)
Add3DArchive("Bloom", #PB_3DArchive_FileSystem)
Add3DArchive("/", #PB_3DArchive_FileSystem)
Parse3DScripts()
InitSprite()
InitKeyboard()
InitMouse()
OpenWindow(#window, 0, 0, 1800, 1000, "Compositortest", #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(#window), 10, 10, 2000, 2000, 0, 10, 10, #PB_Screen_SmartSynchronization)
WorldShadows(#PB_Shadow_TextureAdditive, 200, RGB(255 * 0.2, 255 * 0.2, 255 * 0.2), 4096)
AmbientColor(RGB(255 * 0.2, 255 * 0.2, 255 * 0.2))
LightDirection(CreateLight(#PB_Any, RGB(250, 250, 250), 0, 0, 0, #PB_Light_Directional), -0.5, -0.4, -0.6)
WorldShadows(#PB_Shadow_Additive, 500, RGB(255 * 0.2, 255 * 0.2, 255 * 0.2), 4096)
ScaleEntity(CreateEntity(#PB_Any, MeshID(LoadMesh(#PB_Any, "tudorhouse.mesh")), #PB_Material_None, 0, 27.5, 0), 0.05, 0.05, 0.05, #PB_Relative)
ScaleEntity(CreateEntity(#PB_Any, MeshID(LoadMesh(#PB_Any, "ninja.mesh")), #PB_Material_None, 30, 0, 30), 0.05, 0.05, 0.05, #PB_Relative)
CreatePlane(#plane, 100, 100, 100, 100, 100, 100)
boden = GetScriptMaterial(#PB_Any, "Scene/GroundBlend")
CreateEntity(#planent, MeshID(#plane), MaterialID(boden), 0, 0, 0)
EntityRenderMode(#planent, 0)
;-Camera
CreateCamera(#kam_0, 0, 0, 100, 100)
MoveCamera(#kam_0, 20, 20, 20, #PB_Absolute)
CameraLookAt(#kam_0, 20, 20, 20)
CameraRange (#kam_0, 2, 5000)
CameraFOV (#kam_0, 90)
CameraBackColor(#kam_0, RGB(50, 40, 200))
;-Effect
effect = CreateCompositorEffect(#PB_Any, CameraID(#kam_0), "Bloom")
Debug effect
Repeat
Repeat
Until WindowEvent() = 0
If ExamineMouse()
Yaw = -MouseDeltaX() * 0.05
Pitch = -MouseDeltaY() * 0.05
EndIf
If ExamineKeyboard()
If KeyboardPushed(#PB_Key_Up)
MoveCamera(0, 0, 0, -1 * Boost)
ElseIf KeyboardPushed(#PB_Key_Down)
MoveCamera(0, 0, 0, 1 * Boost)
EndIf
If KeyboardPushed(#PB_Key_Left)
MoveCamera(0, -1 * Boost, 0, 0)
ElseIf KeyboardPushed(#PB_Key_Right)
MoveCamera(0, 1 * Boost, 0, 0)
EndIf
EndIf
RotateCamera(0, Pitch, Yaw, 0, #PB_Relative)
RenderWorld()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1
Else
MessageRequester("Error", "The 3D Engine can't be initialized", 0)
EndIf
FreeEffect(#PB_All)
End