Sorry your browser is not supported!

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, August 11, 2010

Rem ***** Main Source File *****
type vec2
	x as float
	y as float
endtype

type lin
	P1 as vec2
	P2 as vec2
endtype
dim lines(-1) as lin
for n=0 to 20
	array insert at bottom lines()
	index=array count(lines())
	lines(index).P1.x=rnd(screen width())
	lines(index).P2.x=rnd(screen width())
	lines(index).P1.y=rnd(screen height())
	lines(index).P2.y=rnd(screen height())
next
circ as vec2
r as float
ang as float
r=10.0
do
	cls
	if mouseclick()
		circ.x=mousex()
		circ.y=mousey()	
	endif
	if upkey() 
		inc circ.x,cos(ang)
		inc circ.y,sin(ang)
	endif
	if leftkey() then dec ang,1
	if rightkey() then inc ang,1
	circle circ.x,circ.y,r
	circle circ.x+cos(ang)*r,circ.y+sin(ang)*r,2
	for n=0 to array count(lines())
		P1 as vec2
		P2 as vec2
		P1=lines(n).P1
		P2=lines(n).P2
		linColl(P1,P2,circ,r)
		line p1.x,p1.y,p2.x,p2.y
		circ=retvec
	next
	sync
loop

function linColl(P1 as vec2, P2 as vec2, C as vec2, r as float)
	global retvec as vec2
	retvec=C
	local v3 as vec2
	local v4 as vec2
	local v10 as vec2
	local delt as vec2
	local d as float
	v4.x=P2.x-C.x ```y4=P2-c : y3=P1-c
	v4.y=P2.y-C.y
	v3.x=P1.x-C.x
	v3.y=P1.y-C.y

	v10.x=v4.x-v3.x
	v10.y=v4.y-v3.y
	delt.x=v10.y*(v3.x*v10.y-v3.y*v10.x)/(v10.y*v10.y+v10.x*v10.x)
	if v10.y=0
		delt.y=P1.y-C.y
	else
		delt.y=-v10.x*delt.x/v10.y
	endif
	d=delt.x*delt.x+delt.y*delt.y
	if v10.x=0
		t#=(delt.y-v3.y)/v10.y
	else
		t#=(delt.x-v3.x)/v10.x
	endif
	if d<=r*r and t#>0 and t#<1
		d=sqrt(d)
		`circle circlex,circley,radius
		local x as vec2
		x.x=delt.x/d
		x.y=delt.y/d
		pointColl(C,x,r,d)
	else
		local x as vec2
		x.x=P1.x-C.x
		x.y=P1.y-C.y
		d=sqrt(x.x*x.x+x.y*x.y)
		x.x=x.x/d
		x.y=x.y/d
		if pointColl(C,x,r,d)
		else
			local x as vec2
			x.x=P1.x-C.x
			x.y=P1.y-C.y
			d=sqrt(x.x*x.x+x.y*x.y)
			x.x=x.x/d
			x.y=x.y/d
			pointColl(C,x,r,d)
		endif
	endif
endfunction 


function pointColl(C as vec2, x as vec2, r as float, d as float)
	global retvec as vec2
	retvec=C
	if d<r

		retvec.x=C.x-(r-d)*x.x
		retvec.y=C.y-(r-d)*x.y
		exitfunction 1
	endif
endfunction 0

type Points
	x as integer
	y as integer
endtype 

dim colPts(5) as Points

colPts(0).x = 1 : colPts(0).y = 10
colPts(1).x = 1   : colPts(1).y = 500
colPts(2).x = 300 : colPts(2).y = 500
colPts(3).x = 500 : colPts(3).y = 350
colPts(4).x = 798 : colPts(4).y = 350
colPts(5).x = 798 : colPts(5).y = 10

px# = 100
py# = 200
radius = 20
speed = 3
grav# = 0

sync on
sync rate 60

DO
	cls
	
	
	if mouseclick() = 1
		px# = mousex()
		py# = mousey()
		grav# = 0
	endif
	
	oldX# = px#
	oldY# = py#
	
	px# = px# + (rightkey()-leftkey())*speed
	py# = py# + (downkey()-upkey())*speed
	inc py#, grav#
	inc grav#, 3.5
	
	
	ink rgb(255,255,255),0
	drawMap()
	
	
	ac = array count(colPts())	
	for i = 0 to ac-1
		ax# = oldX#
		ay# = oldY#
		bx# = px#
		by# = py#
		cx = colPts(i).x
		cy = colPts(i).y
		dx = colPts(i+1).x
		dy = colPts(i+1).y
		ink rgb(255,0,0),0	

		n# = ((dx-cx)*(ay#-cy)) - ((dy-cy)*(ax#-cx))
		d# = ((dy-cy)*(bx#-ax#)) - ((dx-cx)*(by#-ay#))
		t# = n# / d#
		rem collision on infinite line
		if (t# > 0 and t# <= 1)
			ix# = ax# + (bx# - ax#)*t#
			iy# = ay# + (by# - ay#)*t#
			
			x = dx - cx
			y = dy - cy
			n = ((ix#-cx)*x) + ((iy#-cy)*y)
			d# = x^2 + y^2
			u# = n / d#
			
			rem collision on line segment
			if u# >= 0 and u# <= 1
				
				rem line normal
				nx = dy-cy
				ny = -(dx-cx)
				rem normalize line normal
				l# = sqrt(nx*nx + ny*ny)
				nx# = nx/l#
				ny# = ny/l#
				
				rem calculate signed distance between 
				rem destination point and line normal
				s# = (bx#*nx# + by#*ny#) - (ix#*nx# + iy#*ny#)
				
				rem new position
				rem multiple signed distance by the line normal
				rem and subtract it from destination point
				rem Finally, add the line's normal 
				rem (because its very small and in the proper direction)
				rem to correct a precision issue
				px# = bx# - s#*nx# + nx#
				py# = by# - s#*ny# + ny#
				
				rem we hit something, gravitational velocity resets
				`if abs(px#-oldX#)<0.2 then 
				
				grav# = 0
				exit

			endif
		endif
	next i
	
	
	rem player
	circle px#, py#, radius
	box px#-2, py#-2, px#+2, py#+2
	
	set cursor 0,0
	print "fps: ",screen fps()
	
	sync
LOOP



function drawMap()
	ac = array count(colPts())	
	for i = 0 to ac-1
		line colPts(i).x, colPts(i).y, colPts(i+1).x, colPts(i+1).y
	next i
endfunction