Monkey Box2D Port

Class TestStack extends Test

    Method New()
	Super.New()
	'// Set Text field
	name = "Stacked Boxes"
	'// Add bodies
	Local fd :b2FixtureDef = New b2FixtureDef()
	Local sd :b2PolygonShape = New b2PolygonShape()
	Local bd :b2BodyDef = New b2BodyDef()
	bd.type = b2Body.b2_Body
	Local b :b2Body
	fd.density = 1.0
	fd.friction = 0.5
	fd.restitution = 0.1
	fd.shape = sd
	Local i :Int

	'// Create 3 stacks
	For Local i:Int = 0 Until 10 
            sd.SetAsBox((10) / m_physScale, (10) / m_physScale)
	    bd.position.Set((640/2+100) / m_physScale, (360-255+i*25) / m_physScale)
	    b = m_world.CreateBody(bd)
	    b.CreateFixture(fd)
	End 

	For Local i:Int = 0 Until 10 
            sd.SetAsBox((10) / m_physScale, (10) / m_physScale)
	    bd.position.Set((640/2-0+Rnd()*0.02 - 0.01) / m_physScale, (360-5-i*25) / m_physScale)
	    b = m_world.CreateBody(bd)
	    b.CreateFixture(fd)
	End 

	For Local i:Int = 0 Until 10 
            sd.SetAsBox((10) / m_physScale, (10) / m_physScale)
            bd.position.Set((640/2+200+Rnd()*0.02 - 0.01) / m_physScale, (360-5-i*25) / m_physScale)
            b = m_world.CreateBody(bd)
	    b.CreateFixture(fd)
        End 
	
        '// Create ball
	Local cd :b2CircleShape = New b2CircleShape()
	cd.m_radius = 40/m_physScale
	fd.density = 2
	fd.restitution = 0.2
        fd.friction = 0.5
        fd.shape = cd
        bd.type = b2Body.b2_Body
        bd.userData = New StringObject("ball")
        bd.position.Set(50/m_physScale, 100 / m_physScale)
        b = m_world.CreateBody(bd)
        b.CreateFixture(fd)
			
        '// Create ramp
        Local vxs := [New b2Vec2(0, 0),
                      New b2Vec2(0, -150 / m_physScale),
                      New b2Vec2(200 / m_physScale, 0)]
        sd.SetAsArray(vxs, vxs.Length)
        fd.density = 0
        fd.friction = 0.5
        fd.restitution = 0.1
        fd.shape = sd
        bd.type = b2Body.b2_staticBody
        bd.userData = New StringObject("ramp")
        bd.position.Set(0, 430 / m_physScale)
        b = m_world.CreateBody(bd)
        b.CreateFixture(fd)
    End
End 
	

b2PulleyJoint(m_world.CreateJoint(pulleyDef))

m_world.CreateJoint(pulleyDef)

compile:
    [javac] d:\software\android-sdk-windows\tools\ant\main_rules.xml:384: warning: 'includeantruntime' was not set, defaulting to build.sysclasspath=last; set to false for repeatable builds
    [javac] Compiling 2 source files to d:\software\Monkey\bananas\box2d\demo_start.build\android\bin\classes
    [javac] d:\software\Monkey\bananas\box2d\demo_start.build\android\src\com\monkey\MonkeyGame.java:8459: not a statement
    [javac] 		(bbt_8 instanceof bb_b2pulleyjoint_b2PulleyJoint ? (bb_b2pulleyjoint_b2PulleyJoint)bbt_8 : null);
    [javac] 		^
    [javac] 1 error

TRANS monkey compiler V1.14
Parsing...
Semanting...
terminate called after throwing an instance of 'char*'

Process Complete

    newArr.Resize(newLength)

    (Object[])bb_std_lang.resize(bbt_newArr,bbt_newLength);

float D2R=0.017453292519943295f;
float bb_flashtypes_Math::bb_Cos(float bbt_rads){
    return (float)cos((bbt_rads*57.2957764f)*D2R);
}

Function Main()
	New MainDemo
End

Class InnerRayCastToPointCallback Extends InnerRayCastCallback
    Field result:b2Vec2
    Method Callback : Float (fixture:b2Fixture, point:b2Vec2, normal:b2Vec2, fraction:Float)
        result = point
        Return fraction
    End
End

    Method RayCastToPoint : b2Vec2 (point1:b2Vec2, point2:b2Vec2)
        Local callback:InnerRayCastToPointCallback = New InnerRayCastToPointCallback()
        RayCast(callback, point1, point2)
        Return callback.result
    End

Field point:b2Vec2 = New b2Vec2()

			output.point.x = ( input.p2.x * output.fraction ) + (( 1 - output.fraction ) * input.p1.x )
			output.point.y = ( input.p2.y * output.fraction ) + (( 1 - output.fraction ) * input.p1.y )