Change Light intensity, how?

Ground0 · Post by **Ground0** » Thu Jun 15, 2006 6:46 pm

Hello

I know i have post in the German Forum about that but there says some people that that dont be changable...

I want only know now is that so or gives a way to change the light intensity?

With Greetings Ground0

PS:PB V4.00 and the integrated Ogre 3D Engine

Trond · Post by **Trond** » Thu Jun 15, 2006 8:35 pm

What do you mean by light intensity? And what light? A light entity or the ambient light? You can make a light lighter by doing this setting a lighter colour for it with LightColor(). Or do you mean range?

DarkDragon · Post by **DarkDragon** » Fri Jun 16, 2006 6:31 am

He wants to set the light-range or light-attenuation.

Ground0 · Post by **Ground0** » Fri Jun 16, 2006 7:14 am

thx Darkdragon... i mean what you say

(Sorry he and you are not the same ^.^)

Trond · Post by **Trond** » Fri Jun 16, 2006 8:55 am

Then the German forum was right.

Ground0 · Post by **Ground0** » Wed Jun 21, 2006 9:30 am

Hello

So i have work on it again, i have found the Engine3D function "LightAttenuation" know's here anyone how to use it in the Source?

My Source in the German Forum:

Code: Select all

InitEngine3D()
InitSprite()
InitKeyboard()
LoadFont(0,"Courier New",22)
Add3DArchive("\3D",#PB_3DArchive_FileSystem)
Parse3DScripts()
OpenScreen(1024,768,32,"Test")
LoadMesh(22,"Test.mesh")
CreateEntity(23,MeshID(22),#PB_Material_None ,0,0,-900)
CreateEntity(43,MeshID(22),#PB_Material_None ,0,-200,-900)
AmbientColor(RGB(0,0,0))
CreateLight(3,RGB(255,255,200),0,100,-900)

OpenLibrary(54,"Engine3D.dll")
;  CallCFunction(54,"LightAttenuation",0,3)

CreateCamera(1,0,0,100,100)
CameraLocate(1,0,0,0)

If IsLight(3)
Else
  MessageRequester("Fehler","Keine Lichter")
  End
EndIf
Licht=-900
Repeat
 
  CallCFunction(54,"LightLocate",3,0,100,Licht)
  ;LightLocate(3,0,100,Licht)
  Licht=Licht--1
  Delay(0)
ExamineKeyboard()
RenderWorld()
StartDrawing(ScreenOutput())
BackColor(RGB(0,0,0))
DrawText(20,20,"Position Licht:"+Str(Licht),RGB(255,255,255))
StopDrawing()
FlipBuffers()

Until KeyboardPushed(#PB_Key_Escape)
CloseLibrary(54)

RenderWorld()
FlipBuffers()

CloseScreen()

I have test here the Light Locate Commando but that works not... i have the desktop screen after the command CallCFunction and also the CallFunction...

With Greetings Ground0