Sorry your browser is not supported!

sync on
sync rate 60


world = b2createworld(0, 0, 1024, 768, 0, 0, 0)
btemplate = b2createpolygonshapetemplate(4, ?, 1, 1, 1)
`b2setpolygonshapetemplatevertex btemplate, 1, 0, 0
`b2setpolygonshapetemplatevertex btemplate, 2, 100, 0
`b2setpolygonshapetemplatevertex btemplate, 3, 100, 100
`b2setpolygonshapetemplatevertex btemplate, 4, 0, 100
`body = b2createdynamicbody(world, btemplate)


do

sync
cls 0
loop

      VertexData = Alloc(24)
      Poke Float VertexData,Side*SHIP_WIDTH/2 : Poke Float VertexData+4,SHIP_HEIGHT/2
      Poke Float VertexData+8+i*8,Side*SHIP_WIDTH/4 : Poke Float VertexData+12+i*8,SHIP_HEIGHT/2
      Poke Float VertexData+16-i*8,Side*SHIP_WIDTH/2 : Poke Float VertexData+20-i*8,SHIP_HEIGHT/2+STOPPER_HEIGHT
      ShapeTemplate = b2CreatePolygonShapeTemplate(3,VertexData,SHIP_DENSITY,SHIP_FRICTION,SHIP_RESTITUTION)

b2CreatePolygonShapeTemplate=commandsBox2DPluginb2CreatePolygonShapeTemplate.htm=[Return ? as Integer = (vertexcount as Integer, vertexdata as Integer, density as Float, restitution as Float, friction as Float)][Return ? as Integer = (vertexcount as Integer, vertexdata as Integer, density as Float)][Return ? as Integer = (vertexcount as Integer, vertexdata as Integer)][Return ? as Integer = (vertexcount as Integer, x1 as Float, y1 as Float, x2 as Float, y2 as Float, x3 as Float, y3 as Float, x4 as Float, y4 as Float, x5 as Float, y5 as Float, x6 as Float, y6 as Float, x7 as Float, y7 as Float, x8 as Float, y8 as Float)][Return ? as Integer = (x1 as Float, y1 as Float, x2 as Float, y2 as Float, x3 as Float, y3 as Float, x4 as Float, y4 as Float, x5 as Float, y5 as Float, x6 as Float, y6 as Float, x7 as Float, y7 as Float, x8 as Float, y8 as Float)][Return ? as Integer = (x1 as Float, y1 as Float, x2 as Float, y2 as Float, x3 as Float, y3 as Float, x4 as Float, y4 as Float, x5 as Float, y5 as Float, x6 as Float, y6 as Float, x7 as Float, y7 as Float)][Return ? as Integer = (x1 as Float, y1 as Float, x2 as Float, y2 as Float, x3 as Float, y3 as Float, x4 as Float, y4 as Float, x5 as Float, y5 as Float, x6 as Float, y6 as Float)][Return ? as Integer = (x1 as Float, y1 as Float, x2 as Float, y2 as Float, x3 as Float, y3 as Float, x4 as Float, y4 as Float, x5 as Float, y5 as Float)][Return ? as Integer = (x1 as Float, y1 as Float, x2 as Float, y2 as Float, x3 as Float, y3 as Float, x4 as Float, y4 as Float)][Return ? as Integer = (x1 as Float, y1 as Float, x2 as Float, y2 as Float, x3 as Float, y3 as Float)]

sync on
sync rate 60


`world = b2createworld(-1024, -1024, 10240, 1024, 0, 0, 0)
world = b2createworld(-2048, -4096, 20480, 4096, 0, 0, 0)

VertexData = alloc(24)
poke float VertexData, cos(240)*32.0 : poke float VertexData + 4, cos(240)*32.0
poke float VertexData + 8, cos(120)*64.0 : poke float VertexData + 12, sin(120)*64.0
poke float VertexData + 16, cos(0)*32.0 : poke float VertexData + 20, sin(0)*32.0
ShapeTemplate = b2CreatePolygonShapeTemplate(3,VertexData,0.1,10,0.1)

`btemplate = b2createpolygonshapetemplate(4, VertexData, 1, 1, 1)
`b2setpolygonshapetemplatevertex btemplate, 1, 0, 0
`b2setpolygonshapetemplatevertex btemplate, 2, 100, 0
`b2setpolygonshapetemplatevertex btemplate, 3, 100, 100
`b2setpolygonshapetemplatevertex btemplate, 4, 0, 100
dim body(30, 1) as double integer
dim star(150)
for n = 1 to 30
	`ShapeTemplate = b2createpolygonshapetemplate(rnd(50), rnd(50), rnd(50), rnd(50), rnd(50), rnd(50))
	body(n, 0) = b2createdynamicbody(world, 0, 0, 0, 1, 1, 0)
	if n > 1
		body(n, 1) = b2createboxshape(body(n, 0), 0, 0, (rnd(62831)*1.0) / 10000.0, rnd(256), rnd(256), 0.1, 10, 0.1)
	else
		body(n, 1) = b2createboxshape(body(n, 0), 0, 0, 0, 32, 32, 0.1, 10, 0.1)
	endif
	`b2setshapetemplatedensity ShapeTemplate, 0.1
	`b2setshapetemplatefriction ShapeTemplate, 10
	`b2setshapetemplaterestitution ShapeTemplate, 0.1
	`shape = b2createshape(body(n, 0), ShapeTemplate)
	b2CalculateBodyMass body(n, 0)
	if n > 1 then b2setbodyposition body(n, 0), 512 + rnd(9216), -352 + rnd(736)
next n
for n = 1 to 150
	star(n) = b2createdynamicbody(world, 0, 0, 0, 0, 0, 0)
	shape = b2createcircleshape(star(n), 0, 0, 2, 0.01, 2, 0)
	b2calculatebodymass star(n)
	b2setbodyposition star(n), 512 + rnd(9216), -352 + rnd(736)
next n

b2setworlddebug world, 1
offx = screen width()/2
offy = screen height()/2
b2SetDebugTransform offx, offy, 1, 1 `0.25, 0.25
`b2SetDebugFlags 1, 1, 1, 1, 1, 1, 1
b2SetDebugFlags 1, 0, 0, 0, 1, 0, 0
b2setcontactlistener get ptr to function("b2listen")

global score = 0

do

	dec offx, 3
	b2SetDebugTransform offx, offy, 1, 1 `0.25, 0.25
	b2setbodylinearvelocity body(1), b2getbodylinearvelocityx(body(1))/1.5, b2getbodylinearvelocityy(body(1))/1.5
	b2bodyapplyimpulse body(1), 0, 0, (mousex() - (offx + b2getbodypositionx(body(1))))*2.0, (mousey() - (offy + b2getbodypositiony(body(1))))*2.0
	line mousex(), mousey(), offx + b2getbodypositionx(body(1)), offy + b2getbodypositiony(body(1))
	
	b2worldstep world,2
	
	for n = 1 to 150
		if star(n) <> 0
			b2setbodylinearvelocity star(n), b2getbodylinearvelocityx(star(n))/1.05, b2getbodylinearvelocityy(star(n))/1.05
			if offx + b2getbodypositionx(star(n)) < 0
				`b2deletebody star(n)
				b2setbodyposition star(n), b2getbodypositionx(star(n)) + screen width() + 64, b2getbodypositiony(star(n))
				`star(n) = 0
			endif
			if offx + b2getbodypositionx(star(n)) > screen width() and b2getbodylinearvelocityx(star(n)) > 0.1 then b2setbodyposition star(n), b2getbodypositionx(star(n)) - screen width() - 64, b2getbodypositiony(star(n))
			if offy + b2getbodypositiony(star(n)) < 0 then b2setbodyposition star(n), b2getbodypositionx(star(n)), b2getbodypositiony(star(n)) + screen height() + 64
			if offy + b2getbodypositiony(star(n)) > screen height() then b2setbodyposition star(n), b2getbodypositionx(star(n)), b2getbodypositiony(star(n)) - screen height() - 64
		endif
	next n
	
	print score

sync
cls 0
loop


function b2listen(ContactPoint, Event)
	shapea as double integer : shapea = b2getcontactpointshapea(ContactPoint)
	shapeb as double integer : shapeb = b2getcontactpointshapeb(ContactPoint)
	if shapea = body(1, 1) or shapeb = body(1, 1) then inc score
endfunction

sync on
sync rate 60

//notes
//crashes with around 512 bodies
//problem with triangle not interacting with anything was that vertices were defined the wrong way round... :S
//squares not square unless added 45 degrees (0, 90, 180, 270 --> 45, 135, 225, 315)

//create world
world = b2createworld(-2048, -4096, 20480, 4096, 0, 0.00005, 0)

//creates first polygon shape, a triangle. Can't seem to get the thing to stand upright...
VertexData = alloc(24)
poke float VertexData, cos(0)*0.640 : poke float VertexData + 4, sin(0)*0.640
poke float VertexData + 8, cos(120)*0.640 : poke float VertexData + 12, sin(120)*0.640
poke float VertexData + 16, cos(240)*2.640 : poke float VertexData + 20, sin(240)*2.640
ShapeTemplate = b2CreatePolygonShapeTemplate(3,VertexData,0.1,10,0.1)
free VertexData

//creates second polygon shape, a square. Lines 21-24 create a square properly. Alternate
//with lines 26-29; although the angles have only been changed by a constant (thus a square
//should still be made), part of the bottom seems to get clipped off by the bounding box.
VertexData = alloc(32)
poke float VertexData, cos(45)*0.320 : poke float VertexData + 4, cos(45)*0.320
poke float VertexData + 8, cos(135)*0.320 : poke float VertexData + 12, sin(135)*0.320
poke float VertexData + 16, cos(225)*0.320 : poke float VertexData + 20, sin(225)*0.320
poke float VertexData + 24, cos(315)*0.320 : poke float VertexData + 28, sin(315)*0.320
`poke float VertexData, cos(0)*0.320 : poke float VertexData + 4, cos(0)*0.320
`poke float VertexData + 8, cos(90)*0.320 : poke float VertexData + 12, sin(90)*0.320
`poke float VertexData + 16, cos(180)*0.320 : poke float VertexData + 20, sin(180)*0.320
`poke float VertexData + 24, cos(270)*0.320 : poke float VertexData + 28, sin(270)*0.320
ShapeTemplateb = b2CreatePolygonShapeTemplate(4,VertexData,0.1,10,0.1)

//create big triangle body (also has a box inside it - reversing the angles of the triangle
//polygon cancels the polygon's collision, in which case the square bodies will collide only
//with the box)
body = b2createdynamicbody(world, 0, 0, 0, 0, 1, 0)
shape = b2createshape(body, ShapeTemplate)
shape = b2createboxshape(body, 0, 0, 0, 0.2, 0.2, 0.1, 10, 0.1)
b2calculatebodymass body

//set debug
b2setworlddebug world, 1
offx as float : offx = screen width()/2
offy as float : offy = screen height()/2
b2SetDebugTransform offx, offy, 100, 100 `0.25, 0.25
`b2SetDebugFlags 1, 1, 1, 1, 1, 1, 1
b2SetDebugFlags 1, 0, 0, 0, 1, 0, 0
`b2setcontactlistener get ptr to function("b2listen")

`global score = 0
t = 1

dim b(600)
b_next = 1

do

	//press space to create additional square bodies
	if spacekey() = 1
		b(b_next) = b2createdynamicbody(world, (-20 + rnd(40))/10.0, -6, 0, 0, 1, 0)
		`nulls = b2createboxshape(b(b_next), 0, 0, 0, 0.1, 0.1, 0.1, 10, 0.1)
		nulls = b2createshape(b(b_next), ShapeTemplateb)
		b2calculatebodymass b(b_next)
		b2setbodylinearvelocity b(b_next), 0, 0.005
		inc t
		inc b_next
		if b_next > 600
			b_next = 1
			while b(b_next) <> 0 and b_next <= 600
				inc b_next
			endwhile
		endif
	endif
	
	//delete bodies - comment out lines 77-85 and hold space to create bodies until t reaches
	//512 - the program should crash.
	for n = 1 to 600
		if b(n) <> 0
			if b2getbodypositiony(b(n)) > 10
				b2deletebody b(n)
				b(n) = 0
				dec t
			endif
		endif
	next n
		
	//update drawing offsets
	offx = (screen width()-mousex())
	offy = (screen height()-mousey())
	b2SetDebugTransform offx, offy, 100, 100 `0.25, 0.25
	
	//wrap triangle body back to top of screen and zero speed
	`b2setbodyangle body, b2getbodyangle(body) + 0.1
	if b2getbodypositiony(body) > 5
		b2setbodyposition body, 0, -5
		b2setbodylinearvelocity body, 0, 0
	endif
	
	//step world
	b2worldstep world, 2
	
	//show total bodies
	print t

sync
cls 0
loop


//degrees-to-radians function - might be needed for something
function degtorad(deg as float)
	local rad as float
	rad = deg * 0.0174532925
endfunction rad


`function b2listen(ContactPoint, Event)
`	shapea as double integer : shapea = b2getcontactpointshapea(ContactPoint)
`	shapeb as double integer : shapeb = b2getcontactpointshapeb(ContactPoint)
`endfunction

sync on
sync rate 60

world = b2createworld(-100, -100, 100, 100, 0, 0.0001, 0)
body1  = b2createdynamicbody(world, -0.5, -0.5, 0, 0, 0, 0)
body2  = b2createdynamicbody(world, 0.5, -0.5, 0, 0, 0, 0)
body3  = b2createdynamicbody(world, -0.5, 0.5, 0, 0, 0, 0)
body4  = b2createdynamicbody(world, 0.5, 0.5, 0, 0, 0, 0)
shapet1 = b2createboxshapetemplate(0.2, 0.2, 1, 1, 1)
shapet2 = b2createboxshapetemplate(0.2, 0.2, 1, 1, 1)
shape1 = b2createshape(body1, shapet1)
shape2 = b2createshape(body2, shapet1)
shape3 = b2createshape(body3, shapet1)
b2SetShapeTemplateCategoryBits shapet2, bin to decimal("1111111111111111")
b2SetShapeTemplateMaskBits shapet2, bin to decimal("1111111111111111")
shape4 = b2createshape(body4, shapet2)
b2calculatebodymass body1
b2calculatebodymass body2
b2calculatebodymass body3
b2calculatebodymass body4
b2setbodylinearvelocity body3, 0, -0.01
b2setbodylinearvelocity body4, 0, -0.01

b2setworlddebug world, 1
sw = screen width()
sh = screen height()
offx as float : offx = sw/2
offy as float : offy = sh/2
scalecurrx as float = 100.0
scalecurry as float = 100.0
scaledestx as float = 100.0
scaledesty as float = 100.0
b2setdebugtransform offx, offy, scalecurrx, scalecurry
b2setdebugflags 1, 1, 1, 1, 1, 1, 1

do
	
	if (mousex() > (sw/2) - 30 and mousey() > (sh/2) - 30 and mousex() < (sw/2) + 30 and mousey() < (sh/2) + 30) = 0
		dec offx, (mousex()*1.0 - (sw/2.0)) * 0.05
		dec offy, (mousey()*1.0 - (sh/2.0)) * 0.05
	endif
	temp = mousemovez() * 0.1
	inc scaledestx, temp
	inc scaledesty, temp
	inc scalecurrx, (scaledestx - scalecurrx) * 0.1
	inc scalecurry, (scaledesty - scalecurry) * 0.1
	b2setdebugtransform offx * (scalecurrx/100.0), offy * (scalecurry/100.0), scalecurrx, scalecurry
	
	text offx + (b2getbodypositionx(body1) * scalecurrx), offy + (b2getbodypositiony(body1) * scalecurry), "1-1"
	text offx + (b2getbodypositionx(body2) * scalecurrx), offy + (b2getbodypositiony(body2) * scalecurry), "1-1"
	text offx + (b2getbodypositionx(body3) * scalecurrx), offy + (b2getbodypositiony(body3) * scalecurry), "1-1"
	text offx + (b2getbodypositionx(body4) * scalecurrx), offy + (b2getbodypositiony(body4) * scalecurry), "1-0"
	
	ink rgb(96, 96, 96), 0
	line sw/2 - 30, sh/2 - 30, sw/2 - 30, sh/2 + 30
	line sw/2 + 30, sh/2 - 30, sw/2 + 30, sh/2 + 30
	line sw/2 - 30, sh/2 - 30, sw/2 + 30, sh/2 - 30
	line sw/2 - 30, sh/2 + 30, sw/2 + 30, sh/2 + 30
	
	b2worldstep world, 1

sync
cls 0
loop

function ContactListener(ContactPoint,event) `The contact listener function
    `Put all the data about the contact point into a message
    msg$ = "Ptr: "+str$(ContactPoint) + chr$(13)+chr$(10)
    msg$ = msg$ + "ID: "+str$(b2GetContactPointID(ContactPoint)) + chr$(13)+chr$(10)
    msg$ = msg$ + "X: "+str$(b2GetContactPointPositionX(ContactPoint)) + chr$(13)+chr$(10)
    msg$ = msg$ + "Y: "+str$(b2GetContactPointPositionY(ContactPoint)) + chr$(13)+chr$(10)
    msg$ = msg$ + "Normal X: "+str$(b2GetContactPointNormalX(ContactPoint)) + chr$(13)+chr$(10)
    msg$ = msg$ + "Normal Y: "+str$(b2GetContactPointNormalY(ContactPoint)) + chr$(13)+chr$(10)
    msg$ = msg$ + "Separation: "+str$(b2GetContactPointSeparation(ContactPoint)) + chr$(13)+chr$(10)
    msg$ = msg$ + "Shape A Ptr: 0x"+hex$(b2GetContactPointShapeA(ContactPoint)) + chr$(13)+chr$(10)
    msg$ = msg$ + "Shape B Ptr: 0x"+hex$(b2GetContactPointShapeB(ContactPoint)) + chr$(13)+chr$(10)
    manifold=b2getcontactmanifold(b2GetContactPointID(ContactPoint),ContactPoint)
    msg$ = msg$ + "Manifold: "+str$(manifold)+chr$(13)+chr$(10)
    force#=b2getmanifoldpointnormalforce(manifold,ContactPoint)
    msg$ = msg$ + "force: "+str$(force#)+chr$(13)+chr$(10)
    select event
        case 1
            `If the contact point was created (event = 1)
            MessageBox("Contact point was created!"+chr$(13)+chr$(10)+msg$,"ContactListener")
        endcase
        case 0
            `If the contact point was maintained (event = 0)
            MessageBox("Contact point was maintained!"+chr$(13)+chr$(10)+msg$,"ContactListener")
        endcase
        case -1
            `If the contact point was destroyed (event = -1)
            MessageBox("Contact point was destroyed!"+chr$(13)+chr$(10)+msg$,"ContactListener")
        endcase
    endselect
endfunction

function MessageBox(msg$,title$) `Show a message box
    call dll 1,"MessageBoxA",0,msg$,title$,0
endfunction