Realtime 2D Shadow problem - GameCreators Forum

Author

Message

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 14th Feb 2014 21:25 Edited at: 3rd Oct 2017 21:45

Link

Hello, I made a 2D shadow casting algorithm after i found the needed triangle drawing algorithm.

The shadows behave a bit strange and I can't find the problem, because all functions works great if I use them separately, but if i put them together.. this happens:

Working code:

rem
rem AGK Application
rem

rem A Wizard Did It!

global ResolutionWidth
global ResolutionHeight
ResolutionWidth=800
ResolutionHeight=600
setvirtualresolution(ResolutionWidth,ResolutionHeight)
setsyncrate(0,0)

//[1]LightImageID=loadimage("Light.png")

//LightSpriteID=createsprite(LightImageID)

//setspritescale(LightSpriteID,0.5,0.5)
//TempLightImageID=CreateRenderImage(ResolutionWidth,ResolutionHeight,0,0)
//TempLightSpriteID=createsprite(TempLightImageID)

global LightMemblock

type GridData
	Solid
	Visible
endtype

global MaxGridWidth
global MaxGridHeight
global GridSize
MaxGridWidth=50
MaxGridHeight=50
GridSize=10
LightRange=100
dim Grid[MaxGridWidth,MaxGridHeight] as GridData

for GridX=1 to MaxGridWidth
	for GridY=1 to MaxGridHeight
		if Random(1,10)=1 then Grid[GridX,GridY].Solid=1
	next GridY
next GridX

WallColor=makecolor(0,0,255)
do
	print(screenfps())
	LightPosX=getpointerx()
	LightPosY=getpointery()

//LightMemblock=creatememblockfromimage(LightImage)
	//setrendertoimage(TempLightImageID,0)
	//clearscreen()
	//drawsprite(LightSpriteID)

//*************Draw the Light or use [1]LightImageID=loadimage("Light.png") + [2]setspritepositionbyoffset(LightSpriteID,LightPosX,LightPosY)
	for i=1 to 255
		Color=makecolor(i,i,i)
		DrawEllipse(LightPosX,LightPosY,256-i,256-i,Color,Color,1)
	next i
	//*************

LineOfSight(LightPosX,LightPosY,LightRange)

//
	//drawline(0,0,ResolutionWidth,ResolutionHeight,makecolor(255,0,0),makecolor(0,0,255))
	//TempLightImage=createimagefrommemblock(LightMemblock)
	//deletememblock(LightMemblock)
	//setrendertoscreen()
	//clearscreen()
	//setspriteimage(TempLightSpriteID,TempLightImageID)
	//drawsprite(TempLightSpriteID)
	//[2]setspritepositionbyoffset(LightSpriteID,LightPosX,LightPosY)

for GridX=1 to MaxGridWidth
		for GridY=1 to MaxGridHeight
			if Grid[GridX,GridY].Solid=1 then drawbox(GridX*GridSize,GridY*GridSize,GridSize+GridX*GridSize,GridSize+GridY*GridSize,WallColor,WallColor,WallColor,WallColor,1)
		next GridY
	next GridX

sync()
loop

function LineOfSight(LightPosX,LightPosY,LightRange)
	GridRange=LightRange/GridSize
	LightX=LightPosX/GridSize
	LightY=LightPosY/GridSize

for GridX=LightX-GridRange to LightX+GridRange
		for GridY=LightY-GridRange to LightY+GridRange
			if GridX>=1 and GridX<=MaxGridWidth and GridY>=1 and GridY<=MaxGridHeight
				if Grid[GridX,GridY].Solid=1

GridPosX=0.5*GridSize+GridX*GridSize
					GridPosY=0.5*GridSize+GridY*GridSize
					DistX=GridPosX-LightPosX
					DistY=GridPosY-LightPosY
                    Box(GridPosX-0.5*GridSize,GridPosY-0.5*GridSize,GridPosX+0.5*GridSize,GridPosY+0.5*GridSize)

//Dist#=sqrt(DistX*DistX+DistY*DistY)
					Dist#=DistX*DistX+DistY*DistY
					if Dist#<=LightRange*LightRange

if GridPosX-0.5*GridSize>=LightPosX
							if GridPosY-0.5*GridSize>=LightPosY
								Corner1X=GridPosX-0.5*GridSize
								Corner1Y=GridPosY+0.5*GridSize
								Corner2X=GridPosX+0.5*GridSize
								Corner2Y=GridPosY-0.5*GridSize
							else
								if GridPosY+0.5*GridSize<=LightPosY
									Corner1X=GridPosX+0.5*GridSize
									Corner1Y=GridPosY+0.5*GridSize
									Corner2X=GridPosX-0.5*GridSize
									Corner2Y=GridPosY-0.5*GridSize
								else
									Corner1X=GridPosX-0.5*GridSize
									Corner1Y=GridPosY+0.5*GridSize
									Corner2X=GridPosX-0.5*GridSize
									Corner2Y=GridPosY-0.5*GridSize
								endif
							endif
						else
							if GridPosX+0.5*GridSize<=LightPosX
								if GridPosY-0.5*GridSize>=LightPosY
									Corner1X=GridPosX+0.5*GridSize
									Corner1Y=GridPosY+0.5*GridSize
									Corner2X=GridPosX-0.5*GridSize
									Corner2Y=GridPosY-0.5*GridSize
								else
									if GridPosY+0.5*GridSize<=LightPosY
										Corner1X=GridPosX-0.5*GridSize
										Corner1Y=GridPosY+0.5*GridSize
										Corner2X=GridPosX+0.5*GridSize
										Corner2Y=GridPosY-0.5*GridSize
									else
										Corner1X=GridPosX+0.5*GridSize
										Corner1Y=GridPosY+0.5*GridSize
										Corner2X=GridPosX+0.5*GridSize
										Corner2Y=GridPosY-0.5*GridSize
									endif
								endif
							else
								if GridPosY-0.5*GridSize<=LightPosY
									Corner1X=GridPosX-0.5*GridSize
									Corner1Y=GridPosY+0.5*GridSize
									Corner2X=GridPosX+0.5*GridSize
									Corner2Y=GridPosY+0.5*GridSize
								else
									Corner1X=GridPosX+0.5*GridSize
									Corner1Y=GridPosY-0.5*GridSize
									Corner2X=GridPosX-0.5*GridSize
									Corner2Y=GridPosY-0.5*GridSize
								endif
							endif
						endif

Dist1X=Corner1X-LightPosX
						Dist1Y=Corner1Y-LightPosY

Dist2X=Corner2X-LightPosX
						Dist2Y=Corner2Y-LightPosY

Dist1#=sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)
						//Dist2#=sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)

LightDir1X#=Dist1X/Dist1#
						LightDir1Y#=Dist1Y/Dist1#

LightDir2X#=Dist2X/Dist1#
						LightDir2Y#=Dist2Y/Dist1#

Corner3X=Corner1X+LightDir1X#*LightRange
						Corner3Y=Corner1Y+LightDir1Y#*LightRange
						Corner4X=Corner2X+LightDir2X#*LightRange
						Corner4Y=Corner2Y+LightDir2Y#*LightRange

//drawline(Corner1X-LightPosX+256,Corner1Y-LightPosY+256,Corner3X-LightPosX+256,Corner3Y-LightPosY+256,makecolor(0,255,0),makecolor(0,255,0))
						//drawline(Corner2X-LightPosX+256,Corner2Y-LightPosY+256,Corner4X-LightPosX+256,Corner4Y-LightPosY+256,makecolor(0,255,0),makecolor(0,255,0))
						//FilledTriangle(Corner1X-LightPosX+256,Corner1Y-LightPosY+256,Corner4X-LightPosX+256,Corner4Y-LightPosY+256,Corner3X-LightPosX+256,Corner3Y-LightPosY+256)
						//FilledTriangle(Corner2X-LightPosX+256,Corner2Y-LightPosY+256,Corner4X-LightPosX+256,Corner4Y-LightPosY+256,Corner1X-LightPosX+256,Corner1Y-LightPosY+256)
						FilledTriangle(Corner1X,Corner1Y,Corner4X,Corner4Y,Corner3X,Corner3Y)
						FilledTriangle(Corner2X,Corner2Y,Corner4X,Corner4Y,Corner1X,Corner1Y)
						drawline(Corner1X,Corner1Y,Corner3X,Corner3Y,makecolor(0,255,0),makecolor(0,255,0))
						drawline(Corner2X,Corner2Y,Corner4X,Corner4Y,makecolor(0,255,0),makecolor(0,255,0))
					endif
				endif
			endif
		next GridY
	next GridX
endfunction

function FilledTriangle(x0,y0,x1,y1,x2,y2)
	if (x0=x1 and x1=x2) or (y0=y1 and y1=y2) then exitfunction

// i think here is thomething wrong
	if y1<y0
		ty=y1
		tx=x1
		y1=y0
		x1=x0
		y0=ty
		x0=tx
	endif
	if y2<y0
		ty=y2
		tx=x2
		y2=y0
		x2=x0
		y0=ty
		x0=ty
	endif
	if y2<y1
		ty=y2
		tx=x2
		y2=y1
		x2=x1
		y1=ty
		x1=tx
	endif

if y0=y1
		FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	else
		if y1=y2
			FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
		else
			NewX=x0+((((y1+0.0)-y0)*((x2+0.0)-x0))/((y2+0.0)-y0))+0.5
			FlatBottomTriangle(x0,y0,x1,y1,NewX,y1)
			FlatTopTriangle(x1,y1,NewX,y1,x2,y2)
		endif
	endif
endfunction

function FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left as float
	dxy_right as float
	xs as float
	xe as float
	y as integer

if x2>x1
		tx=x1
		x1=x2
		x2=tx
	endif

dxy_left=((x2+0.0)-x0)/((y2+0.0)-y0)
	dxy_right=((x1+0.0)-x0)/((y1+0.0)-y0)

xs=x0+0.5
	xe=x0+1.0

for y=y0 to y1
		//Line(xs,xe,y)
		drawLine(xs,y,xe,y,0,0,0)
		xs=xs+dxy_left
		xe=xe+dxy_right
	next y
endfunction

function FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left as float
	dxy_right as float
	xs as float
	xe as float
	y as integer

if x1<x0
		tx=x0
		x0=x1
		x1=tx
	endif

dxy_left=((x2+0.0)-x0)/((y2+0.0)-y0)
	dxy_right=((x2+0.0)-x1)/((y2+0.0)-y1)

xs=x0+0.5
	xe=x1+1.0

for y=y0 to y2
		//Line(xs,xe,y)
		drawLine(xs,y,xe,y,0,0,0)
		xs=xs+dxy_left
		xe=xe+dxy_right
	next y
endfunction

function Line(x0,x1,y)
	for x=x0 to x1
		Offset=(4*((y*256)+x))+12
		if x>0 and x<256 and y>0 and y<256 then setMemblockInt(LightMemblock,Offset,0)
	next x
endfunction

function Box(x1,y1,x2,y2)
	for x=x1 to x2
		drawLine(x,y1,x,y2,0,0,0)
	next x
endfunction

+ Code Snippet

rem
rem AGK Application
rem

rem A Wizard Did It!

global ResolutionWidth
global ResolutionHeight
ResolutionWidth=800
ResolutionHeight=600
setvirtualresolution(ResolutionWidth,ResolutionHeight)
setsyncrate(0,0)

//[1]LightImageID=loadimage("Light.png")

//LightSpriteID=createsprite(LightImageID)

//setspritescale(LightSpriteID,0.5,0.5)
//TempLightImageID=CreateRenderImage(ResolutionWidth,ResolutionHeight,0,0)
//TempLightSpriteID=createsprite(TempLightImageID)

global LightMemblock

type GridData
	Solid
	Visible
endtype

global MaxGridWidth
global MaxGridHeight
global GridSize
MaxGridWidth=50
MaxGridHeight=50
GridSize=10
LightRange=100
dim Grid[MaxGridWidth,MaxGridHeight] as GridData


for GridX=1 to MaxGridWidth
	for GridY=1 to MaxGridHeight
		if Random(1,10)=1 then Grid[GridX,GridY].Solid=1
	next GridY
next GridX

WallColor=makecolor(0,0,255)
do
	print(screenfps())
	LightPosX=getpointerx()
	LightPosY=getpointery()

	//LightMemblock=creatememblockfromimage(LightImage)
	//setrendertoimage(TempLightImageID,0)
	//clearscreen()
	//drawsprite(LightSpriteID)

	//*************Draw the Light or use [1]LightImageID=loadimage("Light.png") + [2]setspritepositionbyoffset(LightSpriteID,LightPosX,LightPosY)
	for i=1 to 255
		Color=makecolor(i,i,i)
		DrawEllipse(LightPosX,LightPosY,256-i,256-i,Color,Color,1)
	next i
	//*************

	LineOfSight(LightPosX,LightPosY,LightRange)

	//
	//drawline(0,0,ResolutionWidth,ResolutionHeight,makecolor(255,0,0),makecolor(0,0,255))
	//TempLightImage=createimagefrommemblock(LightMemblock)
	//deletememblock(LightMemblock)
	//setrendertoscreen()
	//clearscreen()
	//setspriteimage(TempLightSpriteID,TempLightImageID)
	//drawsprite(TempLightSpriteID)
	//[2]setspritepositionbyoffset(LightSpriteID,LightPosX,LightPosY)

	for GridX=1 to MaxGridWidth
		for GridY=1 to MaxGridHeight
			if Grid[GridX,GridY].Solid=1 then drawbox(GridX*GridSize,GridY*GridSize,GridSize+GridX*GridSize,GridSize+GridY*GridSize,WallColor,WallColor,WallColor,WallColor,1)
		next GridY
	next GridX

	sync()
loop

function LineOfSight(LightPosX,LightPosY,LightRange)
	GridRange=LightRange/GridSize
	LightX=LightPosX/GridSize
	LightY=LightPosY/GridSize

	for GridX=LightX-GridRange to LightX+GridRange
		for GridY=LightY-GridRange to LightY+GridRange
			if GridX>=1 and GridX<=MaxGridWidth and GridY>=1 and GridY<=MaxGridHeight
				if Grid[GridX,GridY].Solid=1

					GridPosX=0.5*GridSize+GridX*GridSize
					GridPosY=0.5*GridSize+GridY*GridSize
					DistX=GridPosX-LightPosX
					DistY=GridPosY-LightPosY
                    Box(GridPosX-0.5*GridSize,GridPosY-0.5*GridSize,GridPosX+0.5*GridSize,GridPosY+0.5*GridSize)

					//Dist#=sqrt(DistX*DistX+DistY*DistY)
					Dist#=DistX*DistX+DistY*DistY
					if Dist#<=LightRange*LightRange

						if GridPosX-0.5*GridSize>=LightPosX
							if GridPosY-0.5*GridSize>=LightPosY
								Corner1X=GridPosX-0.5*GridSize
								Corner1Y=GridPosY+0.5*GridSize
								Corner2X=GridPosX+0.5*GridSize
								Corner2Y=GridPosY-0.5*GridSize
							else
								if GridPosY+0.5*GridSize<=LightPosY
									Corner1X=GridPosX+0.5*GridSize
									Corner1Y=GridPosY+0.5*GridSize
									Corner2X=GridPosX-0.5*GridSize
									Corner2Y=GridPosY-0.5*GridSize
								else
									Corner1X=GridPosX-0.5*GridSize
									Corner1Y=GridPosY+0.5*GridSize
									Corner2X=GridPosX-0.5*GridSize
									Corner2Y=GridPosY-0.5*GridSize
								endif
							endif
						else
							if GridPosX+0.5*GridSize<=LightPosX
								if GridPosY-0.5*GridSize>=LightPosY
									Corner1X=GridPosX+0.5*GridSize
									Corner1Y=GridPosY+0.5*GridSize
									Corner2X=GridPosX-0.5*GridSize
									Corner2Y=GridPosY-0.5*GridSize
								else
									if GridPosY+0.5*GridSize<=LightPosY
										Corner1X=GridPosX-0.5*GridSize
										Corner1Y=GridPosY+0.5*GridSize
										Corner2X=GridPosX+0.5*GridSize
										Corner2Y=GridPosY-0.5*GridSize
									else
										Corner1X=GridPosX+0.5*GridSize
										Corner1Y=GridPosY+0.5*GridSize
										Corner2X=GridPosX+0.5*GridSize
										Corner2Y=GridPosY-0.5*GridSize
									endif
								endif
							else
								if GridPosY-0.5*GridSize<=LightPosY
									Corner1X=GridPosX-0.5*GridSize
									Corner1Y=GridPosY+0.5*GridSize
									Corner2X=GridPosX+0.5*GridSize
									Corner2Y=GridPosY+0.5*GridSize
								else
									Corner1X=GridPosX+0.5*GridSize
									Corner1Y=GridPosY-0.5*GridSize
									Corner2X=GridPosX-0.5*GridSize
									Corner2Y=GridPosY-0.5*GridSize
								endif
							endif
						endif


						Dist1X=Corner1X-LightPosX
						Dist1Y=Corner1Y-LightPosY

						Dist2X=Corner2X-LightPosX
						Dist2Y=Corner2Y-LightPosY

						Dist1#=sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)
						//Dist2#=sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)

						LightDir1X#=Dist1X/Dist1#
						LightDir1Y#=Dist1Y/Dist1#

						LightDir2X#=Dist2X/Dist1#
						LightDir2Y#=Dist2Y/Dist1#

						Corner3X=Corner1X+LightDir1X#*LightRange
						Corner3Y=Corner1Y+LightDir1Y#*LightRange
						Corner4X=Corner2X+LightDir2X#*LightRange
						Corner4Y=Corner2Y+LightDir2Y#*LightRange

						//drawline(Corner1X-LightPosX+256,Corner1Y-LightPosY+256,Corner3X-LightPosX+256,Corner3Y-LightPosY+256,makecolor(0,255,0),makecolor(0,255,0))
						//drawline(Corner2X-LightPosX+256,Corner2Y-LightPosY+256,Corner4X-LightPosX+256,Corner4Y-LightPosY+256,makecolor(0,255,0),makecolor(0,255,0))
						//FilledTriangle(Corner1X-LightPosX+256,Corner1Y-LightPosY+256,Corner4X-LightPosX+256,Corner4Y-LightPosY+256,Corner3X-LightPosX+256,Corner3Y-LightPosY+256)
						//FilledTriangle(Corner2X-LightPosX+256,Corner2Y-LightPosY+256,Corner4X-LightPosX+256,Corner4Y-LightPosY+256,Corner1X-LightPosX+256,Corner1Y-LightPosY+256)
						FilledTriangle(Corner1X,Corner1Y,Corner4X,Corner4Y,Corner3X,Corner3Y)
						FilledTriangle(Corner2X,Corner2Y,Corner4X,Corner4Y,Corner1X,Corner1Y)
						drawline(Corner1X,Corner1Y,Corner3X,Corner3Y,makecolor(0,255,0),makecolor(0,255,0))
						drawline(Corner2X,Corner2Y,Corner4X,Corner4Y,makecolor(0,255,0),makecolor(0,255,0))
					endif
				endif
			endif
		next GridY
	next GridX
endfunction


function FilledTriangle(x0,y0,x1,y1,x2,y2)
	if (x0=x1 and x1=x2) or (y0=y1 and y1=y2) then exitfunction

	// i think here is thomething wrong
	if y1<y0
		ty=y1
		tx=x1
		y1=y0
		x1=x0
		y0=ty
		x0=tx
	endif
	if y2<y0
		ty=y2
		tx=x2
		y2=y0
		x2=x0
		y0=ty
		x0=ty
	endif
	if y2<y1
		ty=y2
		tx=x2
		y2=y1
		x2=x1
		y1=ty
		x1=tx
	endif

	if y0=y1
		FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	else
		if y1=y2
			FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
		else
			NewX=x0+((((y1+0.0)-y0)*((x2+0.0)-x0))/((y2+0.0)-y0))+0.5
			FlatBottomTriangle(x0,y0,x1,y1,NewX,y1)
			FlatTopTriangle(x1,y1,NewX,y1,x2,y2)
		endif
	endif
endfunction


function FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left as float
	dxy_right as float
	xs as float
	xe as float
	y as integer

	if x2>x1
		tx=x1
		x1=x2
		x2=tx
	endif

	dxy_left=((x2+0.0)-x0)/((y2+0.0)-y0)
	dxy_right=((x1+0.0)-x0)/((y1+0.0)-y0)

	xs=x0+0.5
	xe=x0+1.0

	for y=y0 to y1
		//Line(xs,xe,y)
		drawLine(xs,y,xe,y,0,0,0)
		xs=xs+dxy_left
		xe=xe+dxy_right
	next y
endfunction

function FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left as float
	dxy_right as float
	xs as float
	xe as float
	y as integer

	if x1<x0
		tx=x0
		x0=x1
		x1=tx
	endif

	dxy_left=((x2+0.0)-x0)/((y2+0.0)-y0)
	dxy_right=((x2+0.0)-x1)/((y2+0.0)-y1)

	xs=x0+0.5
	xe=x1+1.0

	for y=y0 to y2
		//Line(xs,xe,y)
		drawLine(xs,y,xe,y,0,0,0)
		xs=xs+dxy_left
		xe=xe+dxy_right
	next y
endfunction

function Line(x0,x1,y)
	for x=x0 to x1
		Offset=(4*((y*256)+x))+12
		if x>0 and x<256 and y>0 and y<256 then setMemblockInt(LightMemblock,Offset,0)
	next x
endfunction

function Box(x1,y1,x2,y2)
	for x=x1 to x2
		drawLine(x,y1,x,y2,0,0,0)
	next x
endfunction

Thank you in advance.

Maybe you could help me render the shadows into an image and blend them with other lights too.

</div>

App Shader Kit (3D Shader Pack)

Attachments

Login to view attachments

Back to top

Profile PM Email Website

GIDustin

15

Years of Service

User Offline

Joined: 30th May 2008

Location:

Posted: 14th Feb 2014 22:38

Link

I was curious how you were doing this, so I copied the code and started manipulating it to work in DBP. I noticed you call drawLine(), but drawLine() doesn't exist. Line() does though...

Is drawLine an AppGameKit function? And what is Line() used for?

Klan Kamakazee.com

Back to top

Profile PM Email Website

GIDustin

15

Years of Service

User Offline

Joined: 30th May 2008

Location:

Posted: 14th Feb 2014 23:18 Edited at: 14th Feb 2014 23:37

Link

Switch this code:

+ Code Snippet

						if GridPosX>LightPosX
							if GridPosY>LightPosY
								Corner1X=GridPosX+0.5*GridSize
								Corner1Y=GridPosY-0.5*GridSize
								Corner2X=GridPosX-0.5*GridSize
								Corner2Y=GridPosY+0.5*GridSize
							endif
							if GridPosY<LightPosY
								Corner1X=GridPosX-0.5*GridSize
								Corner1Y=GridPosY-0.5*GridSize
								Corner2X=GridPosX+0.5*GridSize
								Corner2Y=GridPosY+0.5*GridSize
							endif
						endif
						if GridPosX<LightPosX
							if GridPosY>LightPosY
								Corner1X=GridPosX+0.5*GridSize
								Corner1Y=GridPosY+0.5*GridSize
								Corner2X=GridPosX-0.5*GridSize
								Corner2Y=GridPosY-0.5*GridSize
							endif
							if GridPosY<LightPosY
								Corner1X=GridPosX-0.5*GridSize
								Corner1Y=GridPosY+0.5*GridSize
								Corner2X=GridPosX+0.5*GridSize
								Corner2Y=GridPosY-0.5*GridSize
							endif
						endif

for this code:

+ Code Snippet

						if GridPosX>=LightPosX
							if GridPosY>=LightPosY
								Corner1X=GridPosX-0.5*GridSize
								Corner1Y=GridPosY+0.5*GridSize
								Corner2X=GridPosX+0.5*GridSize
								Corner2Y=GridPosY-0.5*GridSize
							endif
							if GridPosY<LightPosY
								Corner1X=GridPosX+0.5*GridSize
								Corner1Y=GridPosY+0.5*GridSize
								Corner2X=GridPosX-0.5*GridSize
								Corner2Y=GridPosY-0.5*GridSize
							endif
						endif
						if GridPosX<LightPosX
							if GridPosY>=LightPosY
								Corner1X=GridPosX+0.5*GridSize
								Corner1Y=GridPosY+0.5*GridSize
								Corner2X=GridPosX-0.5*GridSize
								Corner2Y=GridPosY-0.5*GridSize
							endif
							if GridPosY<LightPosY
								Corner1X=GridPosX-0.5*GridSize
								Corner1Y=GridPosY+0.5*GridSize
								Corner2X=GridPosX+0.5*GridSize
								Corner2Y=GridPosY-0.5*GridSize
							endif
						endif

It looks like the +/- signs in the first two blocks are backwards. In addition, you have checks for greater than or less than, but none of your conditions account for "equal to", so I added those

Edit: It also looks much better when you triple the LightRange variable. For me anyway, the shadow only goes so far before stopping, which can look weird at times. Put your mouse a little bit above the top left corner of a box, then slowly move right. At the half-way point the shape of the shadow shifts pretty dramatically.

Klan Kamakazee.com

Back to top

Profile PM Email Website

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 15th Feb 2014 14:27 Edited at: 3rd Oct 2017 21:45

Link

Hey thanks for the fast answer, i'm aware about the "equal to" problem I just didn't implemented it jet.
And even your code wouldn't look real because then we calculate only diagonal corners but never orthogonal corners so let me fix that later

I made the Line() function for playing with memblocks the code is present, but i commented it.
And the drawline() is from AppGameKit v2.. so i'm sorry.

[Edit]
Wow i did't believe that your code would work because i was sure i tried this before... now it works great thank you very much

Changed my Code but have no time for the horizontal shadow's jet.
[/Edit]

</div>

App Shader Kit (3D Shader Pack)

Attachments

Login to view attachments

Back to top

Profile PM Email Website

GIDustin

15

Years of Service

User Offline

Joined: 30th May 2008

Location:

Posted: 15th Feb 2014 17:41

Link

I am really big into 2D games just because I am no artist and 2d stuff is easier to piece together than 3d models. I am interested in any types of algorithms like these, so when you fix the "orthogonal" corners thing, I would be interested in the code once again.

Converting to DBPro was not that hard. I was surprised by how little I had to change.

Klan Kamakazee.com

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 15th Feb 2014 19:01 Edited at: 15th Feb 2014 19:04

Link

Quote: "And the drawline() is from AppGameKit v2"

It's in V1 too, but the parameters don't seem to match up with yours.
DrawLine( x, y, x2, y2, red, green, blue )

In some cases you specified two colors, so it must've changed. But CreateRenderImage() must be V2 only so I can't run the code.

I noticed you're not too big on using spaces in your code

Here's the code with GIDustin's changes, converted to DBP. I don't know what you're getting in AppGameKit, but DBP I only get 1 fps! And setting the light range to anything higher makes it unusable. I'm gonna see about speeding up the drawing routines.

global MaxGridWidth
global MaxGridHeight
global GridSize
global LightMemblock
global ResolutionWidth
global ResolutionHeight

type GridData
    Solid   as integer
    Visible as integer
endtype

ResolutionWidth = 800
ResolutionHeight = 600

set display mode ResolutionWidth, ResolutionHeight, 32

MaxGridWidth  = 50
MaxGridHeight = 50
GridSize      = 10
LightRange    = 100

dim Grid(MaxGridWidth,MaxGridHeight) as GridData

for GridX=1 to MaxGridWidth
    for GridY=1 to MaxGridHeight
        if rnd(9)+1 = 1 then Grid(GridX,GridY).Solid = 1
    next GridY
next GridX

WallColor = rgb(0,0,255)

do
    cls
    
	
	LightPosX = mousex()
	LightPosY = mousey()

//*************Draw the Light or use [1]LightImageID=loadimage("Light.png") + [2]setspritepositionbyoffset(LightSpriteID,LightPosX,LightPosY)
	for i = 1 to 255
		Color = rgb(i,i,i)
		ink rgb(color, color, 1), 0
		ellipse LightPosX, LightPosY, 256-i, 256-i
	next i
	//*************

LineOfSight(LightPosX,LightPosY,LightRange)

for GridX=1 to MaxGridWidth
		for GridY=1 to MaxGridHeight
            if Grid(GridX,GridY).Solid=1 then box GridX*GridSize,GridY*GridSize,GridSize+GridX*GridSize,GridSize+GridY*GridSize, WallColor, WallColor, WallColor, WallColor
        next GridY
	next GridX

print screen fps()
    
	sync
loop

function LineOfSight(LightPosX,LightPosY,LightRange)
	GridRange = LightRange / GridSize
	LightX    = LightPosX  / GridSize
	LightY    = LightPosY  / GridSize

for GridX = LightX-GridRange to LightX+GridRange
		for GridY = LightY-GridRange to LightY+GridRange
			if GridX >= 1 and GridX <= MaxGridWidth and GridY >= 1 and GridY <= MaxGridHeight
				if Grid(GridX,GridY).Solid=1

GridPosX = 0.5*GridSize + GridX*GridSize
					GridPosY = 0.5*GridSize + GridY*GridSize
					DistX = GridPosX-LightPosX
					DistY = GridPosY-LightPosY
					Dist# = sqrt(DistX*DistX + DistY*DistY)

if Dist# < LightRange

if GridPosX >= LightPosX + GridSize*0.5
							if GridPosY >= LightPosY + GridSize*0.5
								Corner1X = GridPosX - 0.5*GridSize
								Corner1Y = GridPosY + 0.5*GridSize
								Corner2X = GridPosX + 0.5*GridSize
								Corner2Y = GridPosY - 0.5*GridSize
							endif
							if GridPosY < LightPosY - GridSize*0.5
								Corner1X = GridPosX + 0.5*GridSize
								Corner1Y = GridPosY + 0.5*GridSize
								Corner2X = GridPosX - 0.5*GridSize
								Corner2Y = GridPosY - 0.5*GridSize
							endif
						else
							if GridPosX < LightPosX-GridSize*0.5
								if GridPosY >= LightPosY + GridSize*0.5
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
								if GridPosY < LightPosY - GridSize*0.5
									Corner1X = GridPosX - 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX + 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
							else
								if GridPosY => LightPosY
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY - 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
								if GridPosY < LightPosY
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY + 0.5*GridSize
								endif
							endif
						endif

Dist1X = Corner1X-LightPosX
						Dist1Y = Corner1Y-LightPosY

Dist2X = Corner2X-LightPosX
						Dist2Y = Corner2Y-LightPosY

Dist1# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)
						Dist2# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)

LightDir1X# = Dist1X / Dist1#
						LightDir1Y# = Dist1Y / Dist1#

LightDir2X# = Dist2X / Dist2#
						LightDir2Y# = Dist2Y / Dist2#

Corner3X = Corner1X + LightDir1X#*LightRange
						Corner3Y = Corner1Y + LightDir1Y#*LightRange
						Corner4X = Corner2X + LightDir2X#*LightRange
						Corner4Y = Corner2Y + LightDir2Y#*LightRange

FilledTriangle(Corner1X,Corner1Y,Corner4X,Corner4Y,Corner3X,Corner3Y)
						FilledTriangle(Corner2X,Corner2Y,Corner4X,Corner4Y,Corner1X,Corner1Y)
						ink rgb(0,255,0),0
                        line Corner1X,Corner1Y,Corner3X,Corner3Y
						line Corner2X,Corner2Y,Corner4X,Corner4Y
					endif
				endif
			endif
		next GridY
	next GridX
endfunction

function FilledTriangle(x0,y0,x1,y1,x2,y2)
	if (x0=x1 and x1=x2) or (y0=y1 and y1=y2) then exitfunction

// i think here is thomething wrong
	if y1 < y0
		ty = y1
		tx = x1
		y1 = y0
		x1 = x0
		y0 = ty
		x0 = tx
	endif
	if y2 < y0
		ty = y2
		tx = x2
		y2 = y0
		x2 = x0
		y0 = ty
		x0 = ty
	endif
	if y2 < y1
		ty = y2
		tx = x2
		y2 = y1
		x2 = x1
		y1 = ty
		x1 = tx
	endif

if y0 = y1
		FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	else
		if y1 = y2
			FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
		else
			NewX = x0 + ((((y1+0.0)-y0)*((x2+0.0)-x0)) / ((y2+0.0)-y0)) + 0.5
			FlatBottomTriangle(x0,y0,x1,y1,NewX,y1)
			FlatTopTriangle(x1,y1,NewX,y1,x2,y2)
		endif
	endif
endfunction

function FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left  as float
	dxy_right as float
	xs as float
	xe as float
	y  as integer

if x2 > x1
		tx = x1
		x1 = x2
		x2 = tx
	endif

dxy_left  = ((x2+0.0)-x0)/((y2+0.0)-y0)
	dxy_right = ((x1+0.0)-x0)/((y1+0.0)-y0)

xs = x0+0.5
	xe = x0+1.0

for y = y0 to y1
		ink rgb(Red,Green,Blue),0
		line xs,y,xe,y
		xs = xs + dxy_left
		xe = xe + dxy_right
	next y
endfunction

function FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left as float
	dxy_right as float
	xs as float
	xe as float
	y as integer

if x1 < x0
		tx = x0
		x0 = x1
		x1 = tx
	endif

dxy_left  = ((x2+0.0)-x0) / ((y2+0.0)-y0)
	dxy_right = ((x2+0.0)-x1) / ((y2+0.0)-y1)

xs = x0 + 0.5
	xe = x1 + 1.0

for y = y0 to y2
		ink rgb(red, green, blue), 0
		line xs,y,xe,y
		xs=xs+dxy_left
		xe=xe+dxy_right
	next y
endfunction

function Line2(x0,x1,y)
	for x = x0 to x1
		Offset = (4*((y*256)+x))+12
		if x>0 and x<256 and y>0 and y<256 then write memblock dword LightMemblock,Offset,0
	next x
endfunction

+ Code Snippet


global MaxGridWidth
global MaxGridHeight
global GridSize
global LightMemblock
global ResolutionWidth
global ResolutionHeight


type GridData
    Solid   as integer
    Visible as integer
endtype


ResolutionWidth = 800
ResolutionHeight = 600

set display mode ResolutionWidth, ResolutionHeight, 32


MaxGridWidth  = 50
MaxGridHeight = 50
GridSize      = 10
LightRange    = 100


dim Grid(MaxGridWidth,MaxGridHeight) as GridData



for GridX=1 to MaxGridWidth
    for GridY=1 to MaxGridHeight
        if rnd(9)+1 = 1 then Grid(GridX,GridY).Solid = 1
    next GridY
next GridX


WallColor = rgb(0,0,255)

do
    cls
    
	
	LightPosX = mousex()
	LightPosY = mousey()


	//*************Draw the Light or use [1]LightImageID=loadimage("Light.png") + [2]setspritepositionbyoffset(LightSpriteID,LightPosX,LightPosY)
	for i = 1 to 255
		Color = rgb(i,i,i)
		ink rgb(color, color, 1), 0
		ellipse LightPosX, LightPosY, 256-i, 256-i
	next i
	//*************

	LineOfSight(LightPosX,LightPosY,LightRange)


	for GridX=1 to MaxGridWidth
		for GridY=1 to MaxGridHeight
            if Grid(GridX,GridY).Solid=1 then box GridX*GridSize,GridY*GridSize,GridSize+GridX*GridSize,GridSize+GridY*GridSize, WallColor, WallColor, WallColor, WallColor
        next GridY
	next GridX


    print screen fps()
    
	sync
loop

function LineOfSight(LightPosX,LightPosY,LightRange)
	GridRange = LightRange / GridSize
	LightX    = LightPosX  / GridSize
	LightY    = LightPosY  / GridSize

	for GridX = LightX-GridRange to LightX+GridRange
		for GridY = LightY-GridRange to LightY+GridRange
			if GridX >= 1 and GridX <= MaxGridWidth and GridY >= 1 and GridY <= MaxGridHeight
				if Grid(GridX,GridY).Solid=1

					GridPosX = 0.5*GridSize + GridX*GridSize
					GridPosY = 0.5*GridSize + GridY*GridSize
					DistX = GridPosX-LightPosX
					DistY = GridPosY-LightPosY
					Dist# = sqrt(DistX*DistX + DistY*DistY)

					if Dist# < LightRange

						if GridPosX >= LightPosX + GridSize*0.5
							if GridPosY >= LightPosY + GridSize*0.5
								Corner1X = GridPosX - 0.5*GridSize
								Corner1Y = GridPosY + 0.5*GridSize
								Corner2X = GridPosX + 0.5*GridSize
								Corner2Y = GridPosY - 0.5*GridSize
							endif
							if GridPosY < LightPosY - GridSize*0.5
								Corner1X = GridPosX + 0.5*GridSize
								Corner1Y = GridPosY + 0.5*GridSize
								Corner2X = GridPosX - 0.5*GridSize
								Corner2Y = GridPosY - 0.5*GridSize
							endif
						else
							if GridPosX < LightPosX-GridSize*0.5
								if GridPosY >= LightPosY + GridSize*0.5
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
								if GridPosY < LightPosY - GridSize*0.5
									Corner1X = GridPosX - 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX + 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
							else
								if GridPosY => LightPosY
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY - 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
								if GridPosY < LightPosY
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY + 0.5*GridSize
								endif
							endif
						endif


						Dist1X = Corner1X-LightPosX
						Dist1Y = Corner1Y-LightPosY

						Dist2X = Corner2X-LightPosX
						Dist2Y = Corner2Y-LightPosY

						Dist1# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)
						Dist2# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)

						LightDir1X# = Dist1X / Dist1#
						LightDir1Y# = Dist1Y / Dist1#

						LightDir2X# = Dist2X / Dist2#
						LightDir2Y# = Dist2Y / Dist2#

						Corner3X = Corner1X + LightDir1X#*LightRange
						Corner3Y = Corner1Y + LightDir1Y#*LightRange
						Corner4X = Corner2X + LightDir2X#*LightRange
						Corner4Y = Corner2Y + LightDir2Y#*LightRange

			     		FilledTriangle(Corner1X,Corner1Y,Corner4X,Corner4Y,Corner3X,Corner3Y)
						FilledTriangle(Corner2X,Corner2Y,Corner4X,Corner4Y,Corner1X,Corner1Y)
						ink rgb(0,255,0),0
                        line Corner1X,Corner1Y,Corner3X,Corner3Y
						line Corner2X,Corner2Y,Corner4X,Corner4Y
					endif
				endif
			endif
		next GridY
	next GridX
endfunction



function FilledTriangle(x0,y0,x1,y1,x2,y2)
	if (x0=x1 and x1=x2) or (y0=y1 and y1=y2) then exitfunction

	// i think here is thomething wrong
	if y1 < y0
		ty = y1
		tx = x1
		y1 = y0
		x1 = x0
		y0 = ty
		x0 = tx
	endif
	if y2 < y0
		ty = y2
		tx = x2
		y2 = y0
		x2 = x0
		y0 = ty
		x0 = ty
	endif
	if y2 < y1
		ty = y2
		tx = x2
		y2 = y1
		x2 = x1
		y1 = ty
		x1 = tx
	endif

	if y0 = y1
		FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	else
		if y1 = y2
			FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
		else
			NewX = x0 + ((((y1+0.0)-y0)*((x2+0.0)-x0)) / ((y2+0.0)-y0)) + 0.5
			FlatBottomTriangle(x0,y0,x1,y1,NewX,y1)
			FlatTopTriangle(x1,y1,NewX,y1,x2,y2)
		endif
	endif
endfunction


function FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left  as float
	dxy_right as float
	xs as float
	xe as float
	y  as integer

	if x2 > x1
		tx = x1
		x1 = x2
		x2 = tx
	endif

	dxy_left  = ((x2+0.0)-x0)/((y2+0.0)-y0)
	dxy_right = ((x1+0.0)-x0)/((y1+0.0)-y0)

	xs = x0+0.5
	xe = x0+1.0

	for y = y0 to y1
		ink rgb(Red,Green,Blue),0
		line xs,y,xe,y
		xs = xs + dxy_left
		xe = xe + dxy_right
	next y
endfunction



function FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left as float
	dxy_right as float
	xs as float
	xe as float
	y as integer

	if x1 < x0
		tx = x0
		x0 = x1
		x1 = tx
	endif

	dxy_left  = ((x2+0.0)-x0) / ((y2+0.0)-y0)
	dxy_right = ((x2+0.0)-x1) / ((y2+0.0)-y1)

	xs = x0 + 0.5
	xe = x1 + 1.0

	for y = y0 to y2
		ink rgb(red, green, blue), 0
		line xs,y,xe,y
		xs=xs+dxy_left
		xe=xe+dxy_right
	next y
endfunction




function Line2(x0,x1,y)
	for x = x0 to x1
		Offset = (4*((y*256)+x))+12
		if x>0 and x<256 and y>0 and y<256 then write memblock dword LightMemblock,Offset,0
	next x
endfunction

http://zimnox.com

Back to top

Profile PM Email Website

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 15th Feb 2014 22:11 Edited at: 3rd Oct 2017 21:45

Link

@GIDustin
Thank you again for the fast fix, i coded it with dbpro in mind because I have similar light alogrithm in DBP.. I think it is far easier to convert it for more polygons/corners per object/sprite.

And I know the problem too good ..I have a Multilayer with cubes and Spheres because of the lack of artistic skill's and story.

@Phaelax
Yeah no spaces..

I think, I'm just too lazy for so much spaces, but consequently at least.

wow 1 Fps..

global MaxGridWidth
global MaxGridHeight
global GridSize
global LightMemblock
global ResolutionWidth
global ResolutionHeight

type GridData
    Solid   as integer
    Visible as integer
endtype

ResolutionWidth = 800
ResolutionHeight = 600

set display mode ResolutionWidth, ResolutionHeight, 32

MaxGridWidth  = 50
MaxGridHeight = 50
GridSize      = 10
LightRange    = 100

dim Grid(MaxGridWidth,MaxGridHeight) as GridData

//*************Draw the Light or use [1]LightImageID=loadimage("Light.png") + [2]setspritepositionbyoffset(LightSpriteID,LightPosX,LightPosY)
for i = 1 to 127
	Color = rgb(i,i,i)
	ink rgb(color, color, 1), 0
	ellipse 128, 128, 128-i, 128-i
next i
//*************
get image 1,0,0,256,256
sprite 1,0,0,1
set sprite 1,0,1

for GridX=1 to MaxGridWidth
    for GridY=1 to MaxGridHeight
        if rnd(9)+1 = 1 then Grid(GridX,GridY).Solid = 1
    next GridY
next GridX

WallColor = rgb(0,0,255)

do
    cls
    
        
	LightPosX = mousex()
	LightPosY = mousey()

make memblock from image 1,1
	LineOfSight(LightPosX,LightPosY,LightRange)
	make image from memblock 2,1
	sprite 1,LightPosX-128,LightPosY-128,2
	
	for GridX=1 to MaxGridWidth
		for GridY=1 to MaxGridHeight
            if Grid(GridX,GridY).Solid=1 then box GridX*GridSize,GridY*GridSize,GridSize+GridX*GridSize,GridSize+GridY*GridSize, WallColor, WallColor, WallColor, WallColor
        next GridY
	next GridX

print screen fps()
    
	sync
loop

function LineOfSight(LightPosX,LightPosY,LightRange)
	GridRange = LightRange / GridSize
	LightX    = LightPosX  / GridSize
	LightY    = LightPosY  / GridSize

for GridX = LightX-GridRange to LightX+GridRange
		for GridY = LightY-GridRange to LightY+GridRange
			if GridX >= 1 and GridX <= MaxGridWidth and GridY >= 1 and GridY <= MaxGridHeight
				if Grid(GridX,GridY).Solid=1

GridPosX = 0.5*GridSize + GridX*GridSize
					GridPosY = 0.5*GridSize + GridY*GridSize
					DistX = GridPosX-LightPosX
					DistY = GridPosY-LightPosY
					Dist# = sqrt(DistX*DistX + DistY*DistY)

if Dist# < LightRange

if GridPosX >= LightPosX + GridSize*0.5
							if GridPosY >= LightPosY + GridSize*0.5
								Corner1X = GridPosX - 0.5*GridSize
								Corner1Y = GridPosY + 0.5*GridSize
								Corner2X = GridPosX + 0.5*GridSize
								Corner2Y = GridPosY - 0.5*GridSize
							endif
							if GridPosY < LightPosY - GridSize*0.5
								Corner1X = GridPosX + 0.5*GridSize
								Corner1Y = GridPosY + 0.5*GridSize
								Corner2X = GridPosX - 0.5*GridSize
								Corner2Y = GridPosY - 0.5*GridSize
							endif
						else
							if GridPosX < LightPosX-GridSize*0.5
								if GridPosY >= LightPosY + GridSize*0.5
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
								if GridPosY < LightPosY - GridSize*0.5
									Corner1X = GridPosX - 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX + 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
							else
								if GridPosY => LightPosY
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY - 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
								if GridPosY < LightPosY
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY + 0.5*GridSize
								endif
							endif
						endif

Dist1X = Corner1X-LightPosX
						Dist1Y = Corner1Y-LightPosY

Dist2X = Corner2X-LightPosX
						Dist2Y = Corner2Y-LightPosY

Dist1# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)
						Dist2# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)

LightDir1X# = Dist1X / Dist1#
						LightDir1Y# = Dist1Y / Dist1#

LightDir2X# = Dist2X / Dist2#
						LightDir2Y# = Dist2Y / Dist2#
						
						Corner3X =Corner1X + LightDir1X#*LightRange
						Corner3Y =Corner1Y + LightDir1Y#*LightRange
						Corner4X =Corner2X + LightDir2X#*LightRange
						Corner4Y =Corner2Y + LightDir2Y#*LightRange

//****a fast fix to cut out the shadows with the memblock commands
						Box2(Corner2X-LightPosX+128,Corner2Y-LightPosY+128,Corner1X-LightPosX+128,Corner1Y-LightPosY+128)
						FilledTriangle(Corner1X-LightPosX+128,Corner1Y-LightPosY+128,Corner4X-LightPosX+128,Corner4Y-LightPosY+128,Corner3X-LightPosX+128,Corner3Y-LightPosY+128)
						FilledTriangle(Corner2X-LightPosX+128,Corner2Y-LightPosY+128,Corner4X-LightPosX+128,Corner4Y-LightPosY+128,Corner1X-LightPosX+128,Corner1Y-LightPosY+128)
						//****
						//ink rgb(0,255,0),0
						//line Corner1X,Corner1Y,Corner3X,Corner3Y
						//line Corner2X,Corner2Y,Corner4X,Corner4Y
					endif
				endif
			endif
		next GridY
	next GridX
endfunction

function FilledTriangle(x0,y0,x1,y1,x2,y2)
	if (x0=x1 and x1=x2) or (y0=y1 and y1=y2) then exitfunction

// i think here is thomething wrong
	if y1 < y0
		ty = y1
		tx = x1
		y1 = y0
		x1 = x0
		y0 = ty
		x0 = tx
	endif
	if y2 < y0
		ty = y2
		tx = x2
		y2 = y0
		x2 = x0
		y0 = ty
		x0 = ty
	endif
	if y2 < y1
		ty = y2
		tx = x2
		y2 = y1
		x2 = x1
		y1 = ty
		x1 = tx
	endif

if y0 = y1
		FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	else
		if y1 = y2
			FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
		else
			NewX = x0 + ((((y1+0.0)-y0)*((x2+0.0)-x0)) / ((y2+0.0)-y0)) + 0.5
			FlatBottomTriangle(x0,y0,x1,y1,NewX,y1)
			FlatTopTriangle(x1,y1,NewX,y1,x2,y2)
		endif
	endif
endfunction

function FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left  as float
	dxy_right as float
	xs as float
	xe as float
	y  as integer

if x2 > x1
		tx = x1
		x1 = x2
		x2 = tx
	endif

dxy_left  = ((x2+0.0)-x0)/((y2+0.0)-y0)
	dxy_right = ((x1+0.0)-x0)/((y1+0.0)-y0)

xs = x0+0.5
	xe = x0+1.0

for y = y0 to y1
		//ink rgb(Red,Green,Blue),0
		//line xs,y,xe,y
		line2(xs,xe,y)
		xs = xs + dxy_left
		xe = xe + dxy_right
	next y
endfunction

function FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left as float
	dxy_right as float
	xs as float
	xe as float
	y as integer

if x1 < x0
		tx = x0
		x0 = x1
		x1 = tx
	endif

dxy_left  = ((x2+0.0)-x0) / ((y2+0.0)-y0)
	dxy_right = ((x2+0.0)-x1) / ((y2+0.0)-y1)

xs = x0 + 0.5
	xe = x1 + 1.0

for y = y0 to y2
		//ink rgb(red, green, blue), 0
                //line xs,y,xe,y
		line2(xs,xe,y)
		xs=xs+dxy_left
		xe=xe+dxy_right
	next y
endfunction

function Line2(x0,x1,y)
	if y<1 then y=1
	if y>255 then y=255
	for x = x0 to x1
		Offset = (4*((y*256)+x))+12
		if x>0 and x<256 then write memblock dword 1,Offset,0
	next x
endfunction

function Box2(x0,y0,x1,y1)
	if x0>x1
		tx=x1
		x1=x0
		x0=tx
	endif
	if y0>y1
		ty=y1
		y1=y0
		y0=ty
	endif
	
	for x = x0 to x1
		for y = y0 to y1
			Offset = (4*((y*256)+x))+12
			if x>0 and x<256 and y>0 and y<256 then write memblock dword 1,Offset,0
		next y
	next x
endfunction

+ Code Snippet

global MaxGridWidth
global MaxGridHeight
global GridSize
global LightMemblock
global ResolutionWidth
global ResolutionHeight


type GridData
    Solid   as integer
    Visible as integer
endtype


ResolutionWidth = 800
ResolutionHeight = 600

set display mode ResolutionWidth, ResolutionHeight, 32


MaxGridWidth  = 50
MaxGridHeight = 50
GridSize      = 10
LightRange    = 100

dim Grid(MaxGridWidth,MaxGridHeight) as GridData


//*************Draw the Light or use [1]LightImageID=loadimage("Light.png") + [2]setspritepositionbyoffset(LightSpriteID,LightPosX,LightPosY)
for i = 1 to 127
	Color = rgb(i,i,i)
	ink rgb(color, color, 1), 0
	ellipse 128, 128, 128-i, 128-i
next i
//*************
get image 1,0,0,256,256
sprite 1,0,0,1
set sprite 1,0,1

for GridX=1 to MaxGridWidth
    for GridY=1 to MaxGridHeight
        if rnd(9)+1 = 1 then Grid(GridX,GridY).Solid = 1
    next GridY
next GridX

WallColor = rgb(0,0,255)

do
    cls
    
        
	LightPosX = mousex()
	LightPosY = mousey()

	make memblock from image 1,1
	LineOfSight(LightPosX,LightPosY,LightRange)
	make image from memblock 2,1
	sprite 1,LightPosX-128,LightPosY-128,2
	
	for GridX=1 to MaxGridWidth
		for GridY=1 to MaxGridHeight
            if Grid(GridX,GridY).Solid=1 then box GridX*GridSize,GridY*GridSize,GridSize+GridX*GridSize,GridSize+GridY*GridSize, WallColor, WallColor, WallColor, WallColor
        next GridY
	next GridX


    print screen fps()
    
	sync
loop

function LineOfSight(LightPosX,LightPosY,LightRange)
	GridRange = LightRange / GridSize
	LightX    = LightPosX  / GridSize
	LightY    = LightPosY  / GridSize

	for GridX = LightX-GridRange to LightX+GridRange
		for GridY = LightY-GridRange to LightY+GridRange
			if GridX >= 1 and GridX <= MaxGridWidth and GridY >= 1 and GridY <= MaxGridHeight
				if Grid(GridX,GridY).Solid=1

					GridPosX = 0.5*GridSize + GridX*GridSize
					GridPosY = 0.5*GridSize + GridY*GridSize
					DistX = GridPosX-LightPosX
					DistY = GridPosY-LightPosY
					Dist# = sqrt(DistX*DistX + DistY*DistY)

					if Dist# < LightRange

						if GridPosX >= LightPosX + GridSize*0.5
							if GridPosY >= LightPosY + GridSize*0.5
								Corner1X = GridPosX - 0.5*GridSize
								Corner1Y = GridPosY + 0.5*GridSize
								Corner2X = GridPosX + 0.5*GridSize
								Corner2Y = GridPosY - 0.5*GridSize
							endif
							if GridPosY < LightPosY - GridSize*0.5
								Corner1X = GridPosX + 0.5*GridSize
								Corner1Y = GridPosY + 0.5*GridSize
								Corner2X = GridPosX - 0.5*GridSize
								Corner2Y = GridPosY - 0.5*GridSize
							endif
						else
							if GridPosX < LightPosX-GridSize*0.5
								if GridPosY >= LightPosY + GridSize*0.5
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
								if GridPosY < LightPosY - GridSize*0.5
									Corner1X = GridPosX - 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX + 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
							else
								if GridPosY => LightPosY
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY - 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY - 0.5*GridSize
								endif
								if GridPosY < LightPosY
									Corner1X = GridPosX + 0.5*GridSize
									Corner1Y = GridPosY + 0.5*GridSize
									Corner2X = GridPosX - 0.5*GridSize
									Corner2Y = GridPosY + 0.5*GridSize
								endif
							endif
						endif

						Dist1X = Corner1X-LightPosX
						Dist1Y = Corner1Y-LightPosY

						Dist2X = Corner2X-LightPosX
						Dist2Y = Corner2Y-LightPosY

						Dist1# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)
						Dist2# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)

						LightDir1X# = Dist1X / Dist1#
						LightDir1Y# = Dist1Y / Dist1#

						LightDir2X# = Dist2X / Dist2#
						LightDir2Y# = Dist2Y / Dist2#
						
						Corner3X =Corner1X + LightDir1X#*LightRange
						Corner3Y =Corner1Y + LightDir1Y#*LightRange
						Corner4X =Corner2X + LightDir2X#*LightRange
						Corner4Y =Corner2Y + LightDir2Y#*LightRange

						//****a fast fix to cut out the shadows with the memblock commands
						Box2(Corner2X-LightPosX+128,Corner2Y-LightPosY+128,Corner1X-LightPosX+128,Corner1Y-LightPosY+128)
						FilledTriangle(Corner1X-LightPosX+128,Corner1Y-LightPosY+128,Corner4X-LightPosX+128,Corner4Y-LightPosY+128,Corner3X-LightPosX+128,Corner3Y-LightPosY+128)
						FilledTriangle(Corner2X-LightPosX+128,Corner2Y-LightPosY+128,Corner4X-LightPosX+128,Corner4Y-LightPosY+128,Corner1X-LightPosX+128,Corner1Y-LightPosY+128)
						//****
						//ink rgb(0,255,0),0
						//line Corner1X,Corner1Y,Corner3X,Corner3Y
						//line Corner2X,Corner2Y,Corner4X,Corner4Y
					endif
				endif
			endif
		next GridY
	next GridX
endfunction


function FilledTriangle(x0,y0,x1,y1,x2,y2)
	if (x0=x1 and x1=x2) or (y0=y1 and y1=y2) then exitfunction

        // i think here is thomething wrong
	if y1 < y0
		ty = y1
		tx = x1
		y1 = y0
		x1 = x0
		y0 = ty
		x0 = tx
	endif
	if y2 < y0
		ty = y2
		tx = x2
		y2 = y0
		x2 = x0
		y0 = ty
		x0 = ty
	endif
	if y2 < y1
		ty = y2
		tx = x2
		y2 = y1
		x2 = x1
		y1 = ty
		x1 = tx
	endif

	if y0 = y1
		FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	else
		if y1 = y2
			FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
		else
			NewX = x0 + ((((y1+0.0)-y0)*((x2+0.0)-x0)) / ((y2+0.0)-y0)) + 0.5
			FlatBottomTriangle(x0,y0,x1,y1,NewX,y1)
			FlatTopTriangle(x1,y1,NewX,y1,x2,y2)
		endif
	endif
endfunction


function FlatBottomTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left  as float
	dxy_right as float
	xs as float
	xe as float
	y  as integer

	if x2 > x1
		tx = x1
		x1 = x2
		x2 = tx
	endif

	dxy_left  = ((x2+0.0)-x0)/((y2+0.0)-y0)
	dxy_right = ((x1+0.0)-x0)/((y1+0.0)-y0)

	xs = x0+0.5
	xe = x0+1.0

	for y = y0 to y1
		//ink rgb(Red,Green,Blue),0
		//line xs,y,xe,y
		line2(xs,xe,y)
		xs = xs + dxy_left
		xe = xe + dxy_right
	next y
endfunction

function FlatTopTriangle(x0,y0,x1,y1,x2,y2)
	dxy_left as float
	dxy_right as float
	xs as float
	xe as float
	y as integer

	if x1 < x0
		tx = x0
		x0 = x1
		x1 = tx
	endif

	dxy_left  = ((x2+0.0)-x0) / ((y2+0.0)-y0)
	dxy_right = ((x2+0.0)-x1) / ((y2+0.0)-y1)

	xs = x0 + 0.5
	xe = x1 + 1.0

	for y = y0 to y2
		//ink rgb(red, green, blue), 0
                //line xs,y,xe,y
		line2(xs,xe,y)
		xs=xs+dxy_left
		xe=xe+dxy_right
	next y
endfunction

function Line2(x0,x1,y)
	if y<1 then y=1
	if y>255 then y=255
	for x = x0 to x1
		Offset = (4*((y*256)+x))+12
		if x>0 and x<256 then write memblock dword 1,Offset,0
	next x
endfunction

function Box2(x0,y0,x1,y1)
	if x0>x1
		tx=x1
		x1=x0
		x0=tx
	endif
	if y0>y1
		ty=y1
		y1=y0
		y0=ty
	endif
	
	for x = x0 to x1
		for y = y0 to y1
			Offset = (4*((y*256)+x))+12
			if x>0 and x<256 and y>0 and y<256 then write memblock dword 1,Offset,0
		next y
	next x
endfunction

Try this i got 47 times more frames

Not fast enough but i think you get a frame boost with the advanced2d plugin or/and render to image.
I got 100-200 frames in AGKv2.

Now I'll try the render to image command again and beautify it later.
I don't have any experience with render to image and blending, so i appreciate every kind of help.

</div>

App Shader Kit (3D Shader Pack)

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 15th Feb 2014 22:46 Edited at: 15th Feb 2014 22:47

Link

I get 44-48 fps with that. I boosted it up to about 50 by getting rid of two sqrt calls.

Changed this:
Dist# = sqrt(DistX*DistX + DistY*DistY)
if Dist# < LightRange

To this:
Dist# = DistX*DistX + DistY*DistY
if Dist# < LightRange*LightRange

And since you have both these variables calculating the same thing:
Dist1# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)
Dist2# = sqrt(Dist1X*Dist1X+Dist1Y*Dist1Y)

Just replace Dist2# with this: Dist2# = Dist1#

Seems a little buggy though, I noticed some boxes will disappear under the light rather than cast a shadow when it should.

http://zimnox.com

Back to top

Profile PM Email Website

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 15th Feb 2014 23:34 Edited at: 3rd Oct 2017 21:45

Link

Of course you are right multiplications are faster than sqrt.
But i need Dist1# and Dist2# to normalize the vector from the light source to the corners..it's the direction multiplied with the shadow length.
Somehow I can't tell you why it looks the same if you set Dist1# equal Dist2# rather than calculate both.
It should be Dist2# = sqrt(Dist2X*Dist2X+Dist2Y*Dist2Y))

This is the result of the AGKv2 line command rendered to an image:
610 Fps .. I can work with that.

[Edit]
And a second light using additive blending and render to image.
There are still some bugs

I hope we get a DrawTriangle() command in AGKv2.
[/Edit]

</div>

Sorry your browser is not supported!

AppGameKit Classic Chat / Realtime 2D Shadow problem

Attachments

Attachments

Attachments

Attachments