It seems to me you guys are talking a 2D physics game engine.
Polygons are probably the best way to go with such complexity. A rotated image can always overlay a polygon.
Below is a point that moves about in straight lines bouncing off obstacles and a boundary if they come too close.
An important consideration is that if an agent moves more than one pixel per cycle you may overlap or overshoot an obstacle and that requires extra computations to undo or adjust the move.
Code: Select all
'written by BasicCoder2 23rd Aug 2016
'some useful defines
Const Pi = 4 * Atn(1)
Dim Shared As Double TwoPi = 8 * Atn(1)
Dim Shared As Double RtoD = 180 / Pi ' radians * RtoD = degrees
Dim Shared As Double DtoR = Pi / 180 ' degrees * DtoR = radians
Dim Shared As Double rAngle ' angle of ray
Screenres 640,480,32
color rgb(0,0,0),rgb(255,255,255):cls
'========= create a background ==================
dim shared as any ptr background
background = imagecreate(640,480,rgb(255,0,255))
'sub drawPolygons()
dim as integer x1,y1,x2,y2,total,xc,yc,polygonCount
polygonCount = 5
for j as integer = 1 to polygonCount 'for each polygon
read xc,yc
read total,x1,y1
for i as integer = 0 to total-1
read x2,y2
line background,(x1+xc,y1+yc)-(x2+xc,y2+yc),rgb(0,0,0)
x1 = x2
y1 = y2
next i
paint background,(xc,yc),rgb(100,100,255),rgb(0,0,0)
next j
'end sub
'=======================================================
dim shared as integer WORLDX = 640
dim shared as integer WORLDY = 480
dim shared as any ptr rayPath
rayPath = imagecreate(WORLDX,WORLDY)
type AGENT
as integer ox
as integer oy
as integer dx
as integer dy
as double oAngle
as double mv
end type
dim shared as AGENT agent1
agent1.oAngle = 45 'direction angle
agent1.ox = 320
agent1.oy = 240
agent1.mv = 4
Dim Shared As Double dx,dy ' some working variables
Dim Shared As Double w
sub drawWorld()
screenlock
cls
put (0,0),background,trans 'show obstacles
put (0,0),rayPath,trans 'show ray path
circle (agent1.ox,agent1.oy),5,rgb(0,0,0) 'on screen not bitmap
screenunlock
end sub
''============================================================
'' This shoots ray from observer and returns type of pixel
'' of any target hit. It also draws a ray on the ground
''============================================================
function shootRay(x1 As Integer,y1 As Integer,angle As Double) as integer
dim as integer distance
distance = 0
Dim As Double dx,dy,change,aa,x,y
dx = Cos(angle)
dy = Sin(angle)
y = y1
x = x1
If Abs(dx)>abs(dy) Then
change = Abs(dy)/Abs(dx)
If dx<0 Then
aa = -1
Else
aa = 1
End If
If dy<0 Then
change = - change
End If
'flag = 0
While x>=0 And x<WORLDX And y>=0 And y<WORLDY and point(x,y,background)=rgb(255,0,255)
x = x + aa
y = y + change
pset rayPath,(x,y),rgb(255,0,0) 'draw ray
distance = distance + 1
Wend
Else
change = Abs(dx)/Abs(dy)
If dy<0 Then
aa = -1
Else
aa = 1
End If
If dx<0 Then
change = -change
End If
While x>=0 And x<WORLDX And y>=0 And y<WORLDY and point(x,y,background)=rgb(255,0,255)
y = y + aa
x = x + change
pset rayPath,(x,y),rgb(255,0,0) 'draw ray
distance = distance + 1
Wend
End If
return distance
End function
'========== MAIN LOOP =====================
dim as integer distance
dim as integer min,max 'min and max distances
dim as single rayAngle, MaxAngle , minAngle'angle of last longest distance
Do
distance = 0
drawWorld()
'move agent
'compute dx,dy
agent1.dx = cos(agent1.oAngle * DtoR) * agent1.mv
agent1.dy = sin(agent1.oAngle * DtoR) * agent1.mv
agent1.mv = 4 'back to normal
'add to position
agent1.ox = agent1.ox + agent1.dx
agent1.oy = agent1.oy + agent1.dy
if agent1.oAngle > 360 then agent1.oAngle = agent1.oAngle-360
if agent1.oAngle < 0 then agent1.oAngle = agent1.oAngle+360
'================ 360 degree scan ====================
line rayPath,(0,0)-(639,479),rgb(255,0,255),bf 'clear buffer
'shoot ray return distance
rayAngle = 0 'ray angle
max = 0
min = 100000
while rayAngle < 359
distance = shootRay(agent1.ox,agent1.oy,rayAngle*DtoR)
if distance > max then
max = distance
MaxAngle = rayAngle
end if
if distance < min then
min = distance
minAngle = rayAngle
end if
rayAngle = rayAngle + 5 'increment size depends on size of array
wend
'check for near collision
if min < 10 then
agent1.oAngle = agent1.oAngle - 180 + int(rnd(1)*45) 'maxAngle '+ int(rnd(1)*50)-25
if agent1.oAngle > 360 then agent1.oAngle = agent1.oAngle-360
if agent1.oAngle < 0 then agent1.oAngle = agent1.oAngle+360
agent1.mv = 10 'big get away
end if
'check for boundary
if agent1.ox < 20 or agent1.ox > 619 or agent1.oy <20 or agent1.oy>459 then
agent1.oAngle = agent1.oAngle + 180 + int(rnd(1)*45)
agent1.mv = 10 'big get away
end if
sleep 2
Loop until multikey(&h01)
DATA 138,108
DATA 4
DATA -60,-33,10,-56,61,-6,-51,56,-60,-33
DATA 463,342
DATA 6
DATA 36,-74,96,16,49,75,-61,71,-95,19,-60,-71,36,-74
DATA 383,109
DATA 10
DATA -30,-67,-57,-46,-86,1,-74,46,-31,71,26,78,77,45,86,-4,71,-58,36,-78,-30,-67
DATA 172,323
DATA 10
DATA -110,-81,124,-81,121,-25,105,17,67,51,24,76,-39,81,-86,70,-111,31,-123,-22,-110,-81
DATA 564,133
DATA 16
DATA -22,-83,-44,-75,-50,-57,-47,-30,-35,-21,-31,2,-41,32,-46,60,-15,81,20,84,50,57,49,17,36,-10,17,-36,19,-62,5,-84,-22,-83
