Looking for help with point lighting for 3D

Author

Message

Rich Dersheimer

AGK Developer

15

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 6th Dec 2013 14:40

Link

I'm trying to get a point light working for a 3D level.

Here's my code:

SetVirtualResolution(1024, 768)
Sync()

for x = 1 to 49
    drawline(x,1,x,49,100,100,200)
next x

FloorImg = GetImage(0,0,50,50)
CeilingImg = GetImage(0,0,50,50)

dim FloorObj[10, 10] as integer
dim CeilingObj[10, 10] as integer
ClearLightDirectionals()
CreateLightPoint( 1, 50, 5, 50, 5, 100, 100, 100)

for x = 1 to 10
    for y = 1 to 10
        FloorObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(FloorObj[x, y], FloorImg, 0)
        RotateObjectLocalX(FloorObj[x, y], 90.0)
        SetObjectPosition(FloorObj[x, y], x * 10, 0, y * 10)
        SetObjectShader(FloorObj[x, y],0)
        SetObjectLightMode(FloorObj[x, y], 1)

CeilingObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(CeilingObj[x, y], CeilingImg, 0)
        RotateObjectLocalX(CeilingObj[x, y], 90.0)
        SetObjectPosition(CeilingObj[x, y], x * 10, 10, y * 10)
        SetObjectShader(CeilingObj[x, y],0)
        SetObjectLightMode(CeilingObj[x,y], 1)
    next y
next x

SetCameraPosition(1, 50, 5, 50)
SetCameraRotation( 1, 0, 0, 0)

do
    RotateCameraLocalY(1, 0.5)
    Sync()
loop

+ Code Snippet

SetVirtualResolution(1024, 768)
Sync()

for x = 1 to 49
    drawline(x,1,x,49,100,100,200)
next x

FloorImg = GetImage(0,0,50,50)
CeilingImg = GetImage(0,0,50,50)

dim FloorObj[10, 10] as integer
dim CeilingObj[10, 10] as integer
ClearLightDirectionals()
CreateLightPoint( 1, 50, 5, 50, 5, 100, 100, 100)

for x = 1 to 10
    for y = 1 to 10
        FloorObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(FloorObj[x, y], FloorImg, 0)
        RotateObjectLocalX(FloorObj[x, y], 90.0)
        SetObjectPosition(FloorObj[x, y], x * 10, 0, y * 10)
        SetObjectShader(FloorObj[x, y],0)
        SetObjectLightMode(FloorObj[x, y], 1)

        CeilingObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(CeilingObj[x, y], CeilingImg, 0)
        RotateObjectLocalX(CeilingObj[x, y], 90.0)
        SetObjectPosition(CeilingObj[x, y], x * 10, 10, y * 10)
        SetObjectShader(CeilingObj[x, y],0)
        SetObjectLightMode(CeilingObj[x,y], 1)
    next y
next x

SetCameraPosition(1, 50, 5, 50)
SetCameraRotation( 1, 0, 0, 0)

do
    RotateCameraLocalY(1, 0.5)
    Sync()
loop

Default shader, no directional light, one point light, all objects have lighting turned on.

How do I get to see the lighting?

dersheimer.com

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 6th Dec 2013 15:53

Link

i thinks its because the 3d part is not finished...
the point light don't work as expected yet.
but the beta update for v2 comes this year.

AGK 108 B19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 6th Dec 2013 16:19

Link

I can't get it to work. I have even set the light to pulse (change radius) but there is no effect. My attempt is below for reference

SetVirtualResolution(1024, 768)
Sync()

for x = 1 to 49
    drawline(x,1,x,49,255,255,128)
next x

FloorImg = GetImage(0,0,50,50)
CeilingImg = GetImage(0,0,50,50)

dim FloorObj[10, 10] as integer
dim CeilingObj[10, 10] as integer
ClearLightPoints()
CreateLightPoint( 1, 0, 1, 50, 5, 255, 255, 128)
rad# = 1

for x = 1 to 10
    for y = 1 to 10
        FloorObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(FloorObj[x, y], FloorImg, 0)
        RotateObjectLocalX(FloorObj[x, y], 90.0)
        SetObjectPosition(FloorObj[x, y], x * 10, 0, y * 10)
        `SetObjectShader(FloorObj[x, y],0)
        SetObjectLightMode(FloorObj[x, y], 0)

CeilingObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(CeilingObj[x, y], CeilingImg, 0)
        RotateObjectLocalX(CeilingObj[x, y], 90.0)
        SetObjectPosition(CeilingObj[x, y], x * 10, 10, y * 10)
        `SetObjectShader(CeilingObj[x, y],0)
        SetObjectLightMode(CeilingObj[x,y], 1)
    next y
next x

SetCameraPosition(1, 50, 5, 50)
SetCameraRotation( 1, 0, 0, 0)

do
    RotateCameraLocalY(1, 0.5)
    rad# = rad# + 0.2
    if rad#>15 then rad# = 1
    setlightPointRadius(1, rad#)
    print(str(rad#,0))
    Sync()
loop

+ Code Snippet

SetVirtualResolution(1024, 768)
Sync()

for x = 1 to 49
    drawline(x,1,x,49,255,255,128)
next x

FloorImg = GetImage(0,0,50,50)
CeilingImg = GetImage(0,0,50,50)

dim FloorObj[10, 10] as integer
dim CeilingObj[10, 10] as integer
ClearLightPoints()
CreateLightPoint( 1, 0, 1, 50, 5, 255, 255, 128)
rad# = 1

for x = 1 to 10
    for y = 1 to 10
        FloorObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(FloorObj[x, y], FloorImg, 0)
        RotateObjectLocalX(FloorObj[x, y], 90.0)
        SetObjectPosition(FloorObj[x, y], x * 10, 0, y * 10)
        `SetObjectShader(FloorObj[x, y],0)
        SetObjectLightMode(FloorObj[x, y], 0)

        CeilingObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(CeilingObj[x, y], CeilingImg, 0)
        RotateObjectLocalX(CeilingObj[x, y], 90.0)
        SetObjectPosition(CeilingObj[x, y], x * 10, 10, y * 10)
        `SetObjectShader(CeilingObj[x, y],0)
        SetObjectLightMode(CeilingObj[x,y], 1)
    next y
next x

SetCameraPosition(1, 50, 5, 50)
SetCameraRotation( 1, 0, 0, 0)

do
    RotateCameraLocalY(1, 0.5)
    rad# = rad# + 0.2
    if rad#>15 then rad# = 1
    setlightPointRadius(1, rad#)
    print(str(rad#,0))
    Sync()
loop

ten-net consulting limited

Back to top

Profile PM Email

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 6th Dec 2013 16:27

Link

For lighting in AppGameKit, really the only worthwhile thing to do is grab a shader and try and work with that. The lighting is terrible in AppGameKit, it's not even worth trying to get working - make your own lighting system with a shader I say. I'm sure there's help around the forum for this - I know that Cliff.M and Paul Johnston and others have posted a lot of shader stuff.

I am the one who knocks...

Back to top

Profile PM Email

lilpissywilly

AGK Developer

14

Years of Service

User Offline

Joined: 10th Sep 2010

Location: Office Chair

Posted: 6th Dec 2013 18:07 Edited at: 6th Dec 2013 18:08

Link

With the default shader, you have to add the directional light. Just set it to 0,0,0.

Edit:

Or download the file in the first post and snatch the point light shader I made.

http://forum.thegamecreators.com/?m=forum_view&t=205814&b=48

My hovercraft is full of eels

Back to top

Profile PM Email Website

29 games

19

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 6th Dec 2013 23:34

Link

To add to what lilpissywilly said, I managed to get Rich's original code to work:

SetVirtualResolution(1024, 768)
Sync()

for x = 1 to 49
    drawline(x,1,x,49,100,100,200)
next x

FloorImg = GetImage(0,0,50,50)
CeilingImg = GetImage(0,0,50,50)

dim FloorObj[10, 10] as integer
dim CeilingObj[10, 10] as integer

createLightDirectional(1,0,0,0,0,0,0)
CreateLightPoint( 1, 50, 5, 50, 2500, 255, 255, 255)

for x = 1 to 10
    for y = 1 to 10
        FloorObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(FloorObj[x, y], FloorImg, 0)
        RotateObjectLocalX(FloorObj[x, y], 90.0)
        SetObjectPosition(FloorObj[x, y], x * 10, 0, y * 10)
        SetObjectLightMode(FloorObj[x, y], 1)

CeilingObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(CeilingObj[x, y], CeilingImg, 0)
        RotateObjectLocalX(CeilingObj[x, y], 90.0)
        SetObjectPosition(CeilingObj[x, y], x * 10, 10, y * 10)
        SetObjectLightMode(CeilingObj[x,y], 1)
    next y
next x

SetCameraPosition(1, 50, 5, 50)
SetCameraRotation( 1, 0, 0, 0)

do
    RotateCameraLocalY(1, 0.5)
    Sync()
loop

+ Code Snippet

SetVirtualResolution(1024, 768)
Sync()

for x = 1 to 49
    drawline(x,1,x,49,100,100,200)
next x

FloorImg = GetImage(0,0,50,50)
CeilingImg = GetImage(0,0,50,50)

dim FloorObj[10, 10] as integer
dim CeilingObj[10, 10] as integer


createLightDirectional(1,0,0,0,0,0,0)
CreateLightPoint( 1, 50, 5, 50, 2500, 255, 255, 255)

for x = 1 to 10
    for y = 1 to 10
        FloorObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(FloorObj[x, y], FloorImg, 0)
        RotateObjectLocalX(FloorObj[x, y], 90.0)
        SetObjectPosition(FloorObj[x, y], x * 10, 0, y * 10)
        SetObjectLightMode(FloorObj[x, y], 1)

        CeilingObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(CeilingObj[x, y], CeilingImg, 0)
        RotateObjectLocalX(CeilingObj[x, y], 90.0)
        SetObjectPosition(CeilingObj[x, y], x * 10, 10, y * 10)
        SetObjectLightMode(CeilingObj[x,y], 1)
    next y
next x

SetCameraPosition(1, 50, 5, 50)
SetCameraRotation( 1, 0, 0, 0)

do
    RotateCameraLocalY(1, 0.5)
    Sync()
loop

I removed bits that I didn't think were needed and increased the range of the light. I also changed the colour to white so it would show better. The original range of 5 wasn't big enough to reach the plains. I think I read somewhere that the intensity of the light drops off fairly rapidly with distance so you need to use a large range to get it to show.

one of these days I'll come up with a better signature

Back to top

Profile PM Email

Rich Dersheimer

AGK Developer

15

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 7th Dec 2013 00:07

Link

Sweet. With the info from both of you, I've got it looking good now.

A combination of moving the point light above the ceiling and increasing the range to around 1200 looks pretty decent. I was hoping for a sharper edge to the falloff, but I'll take what I can get.

dersheimer.com

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 7th Dec 2013 02:13 Edited at: 7th Dec 2013 02:20

Link

i think ClearLightDirectionals did not work.
(odd, without lights its still grey,maybe ambient?)

the same as "29 games" found with a mix of both:

SetVirtualResolution(1024, 768)
Sync()

for x = 1 to 49
    drawline(x,1,x,49,255,255,255)
next x

FloorImg = GetImage(0,0,50,50)
CeilingImg = GetImage(0,0,50,50)

dim FloorObj[10, 10] as integer
dim CeilingObj[10, 10] as integer
//ClearLightDirectionals()
//ClearLightPoints()
createLightDirectional(1,0,-1,0,255,255,0)
CreateLightPoint(1, 50, 5, 50, 2500, 255, 0, 0)

for x = 0 to 9
    for y = 0 to 9
        FloorObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(FloorObj[x, y], FloorImg, 0)
        RotateObjectLocalX(FloorObj[x, y], 90.0)
        SetObjectPosition(FloorObj[x, y], x * 10, 0, y * 10)
        //SetObjectShader(FloorObj[x, y],0)
        SetObjectLightMode(FloorObj[x, y], 1)

CeilingObj[x, y] = CreateObjectPlane(10, 10)
        id=CeilingObj[x, y]
        SetObjectImage(id, CeilingImg, 0)
        RotateObjectLocalX(id, 90.0)
        SetObjectPosition(id, x * 10, 10, y * 10)
        //SetObjectShader(id,0)
        SetObjectLightMode(id, 1)
    next y
next x

SetCameraPosition(1, 50, 5, 50)
SetCameraRotation( 1, 0, 0, 0)

do
    RotateCameraLocalY(1, 45.0 / 60.0)
    Sync()
loop
end

+ Code Snippet

SetVirtualResolution(1024, 768)
Sync()

for x = 1 to 49
    drawline(x,1,x,49,255,255,255)
next x

FloorImg = GetImage(0,0,50,50)
CeilingImg = GetImage(0,0,50,50)

dim FloorObj[10, 10] as integer
dim CeilingObj[10, 10] as integer
//ClearLightDirectionals()
//ClearLightPoints()
createLightDirectional(1,0,-1,0,255,255,0)
CreateLightPoint(1, 50, 5, 50, 2500, 255, 0, 0)

for x = 0 to 9
    for y = 0 to 9
        FloorObj[x, y] = CreateObjectPlane(10, 10)
        SetObjectImage(FloorObj[x, y], FloorImg, 0)
        RotateObjectLocalX(FloorObj[x, y], 90.0)
        SetObjectPosition(FloorObj[x, y], x * 10, 0, y * 10)
        //SetObjectShader(FloorObj[x, y],0)
        SetObjectLightMode(FloorObj[x, y], 1)

        CeilingObj[x, y] = CreateObjectPlane(10, 10)
        id=CeilingObj[x, y]
        SetObjectImage(id, CeilingImg, 0)
        RotateObjectLocalX(id, 90.0)
        SetObjectPosition(id, x * 10, 10, y * 10)
        //SetObjectShader(id,0)
        SetObjectLightMode(id, 1)
    next y
next x

SetCameraPosition(1, 50, 5, 50)
SetCameraRotation( 1, 0, 0, 0)

do
    RotateCameraLocalY(1, 45.0 / 60.0)
    Sync()
loop
end

AGK 108 B19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Looking for help with point lighting for 3D