【技术讨论】从弹弹堂说起，如何用2D物理引擎编写一个游戏<一>

呃，小儿科拿出来讨论一下。

巨注意：不是让大家去写外挂哦！纯属技术讨论。

先写一部分，测试是用GDI+写的，非常的简陋，而且整体只是一个雏形，抛砖引玉。

【一、物理引擎】

      所谓物理引擎，是通过为刚体赋予真实的物理属性的方式来计算它们的运动、旋转、碰撞等等的结果。也许你曾经编写过台球游戏，使用了大量的类似于碰撞检测，线相交和折返等等数学方法来解决问题，但那不是对真实世界的物理模拟，虽然可以使你的游戏看起来比较真实，但当游戏需要比较复杂的物体碰撞、滚动、滑动或者弹跳的时候（比如赛车类游戏或者保龄球游戏），通过编程的方法就比较困难了。而物理引擎则使用动量、扭矩等用高等数学手段来模拟真实物体，这将得到更真实的效果且使我们的编码更加容易。当然好的物理引擎允许有复杂的机械装置，像球形关节、轮子、气缸或者铰链。有些也支持非刚性体的物理属性，比如流体。

著名的物理引擎有：

Lagoa Multiphysics

Physx

Bullet

Havok

等等，它们多提供3D特性，用于在三维空间内来模拟物理运动——就像星际2、暗黑3使用的就是Havok。这些物理引擎当然可以应用到2D游戏当中，但它们的运算量将会大于2D引擎。很多物理引擎提供了图形界面功能，AI功能等诸多游戏要素，而且非常出色！但我们这里还是从比较简单的BOX2D入手，说它简单是它只负责计算物理运动（当然它也非常强大——除了不支持流体等）进而只提供了很少的一些接口，这有利于我们专注于物理引擎的使用。

出处：http://www.cnblogs.com/zcsor/

【二、BOX2D】

Box2D 是一个用于游戏的 2D 刚体仿真库。程序员可以在他们的游戏里使用它，它可以使物体的运动更加可信，让世界看起来更具交互性。从游戏的视角来看，物理引擎就是一个程序性动画(proceduralanimation)的系统，而不是由动画师去移动你的物体。你可以让牛顿来做导演。Box2D 是用可移植的 C++ 来写成的。引擎中定义的大部分类型都有 b2 前缀，希望这能消除它和游戏引擎之间的名字冲突。这就是BOX2D的概况。在学习如何使用时，我们先认识几个必要概念和它们存在的意义：

A、我想，质量，力，扭矩和冲量大家都非常清楚了，呃，如果不清楚那可以去百科恶补一下……

B、刚体：即说这个物体会在碰撞、挤压等力的作用后不变形。你应该注意我这个描述。（当然如果你愿意，可以告诉BOX2D改变它的任何属性）

C、形状：这决定了物体的外观以及碰撞等发生的位置，当然，还有摩擦的大小等

D、自由度：这个概念也许比较深奥，但在这里，我们只需要知道，2D物理引擎只模拟物体在一个平面上的运动——即你的游戏将是一个平面游戏，即使你用一些手段将地面和墙壁以及天空分开。。。其实不必在意，这种伎俩已经很少有游戏在用了，而且我相信当XNA向VB.NET微笑时，那些手段会被赶出你的脑袋。

E、世界：我们应该把所有物体限定在一个范围内——当物体跑出去了，引擎会抛出一个错误并停止对该物体进行演算，所以，我们的世界通常有足够大……

F、其他：当然指关节，齿轮等，这些与我们入门毫无关系。甚至在我的代码里也采用了一些卑劣的手段避开使用回调方式来处理物体的接触——这将使代码更“入门”，而且也足够应付这么简单的情况

【三、创建一个世界】

首先，确保你引用了BOX2D引擎。如果没有可以在其网站下载：http://www.box2d.org/

接下来我们创建一个世界，这是使用BOX2D引擎的第一步：

        '世界外边框
        Dim Wordaabb As Box2DX.Collision.AABB
        Wordaabb.LowerBound.Set(-10000.0F, -10000.0F)
        Wordaabb.UpperBound.Set(10000.0F, 10000.0F)
        '创建世界，第二个参数是重力，第三个是是否允许引擎休眠
        world = New Box2DX.Dynamics.World(Wordaabb, g, False)

这样，就创建完成了，非常简单吧！

【四、创建一个物体】

在BOX2D中，物体是这样创建的：

1、首先有一个“物体”（之所以这样叫，是因为到你附加形状并计算质量之前，它应该只是一个“抽象”的处于意识中的物体）被创建，但是他没有形态

2、指定物体的一些信息：位置，空气阻尼等

3、创建一个形态并设置由形态先关的信息：体积、密度、摩擦系数等

出处：http://www.cnblogs.com/zcsor/

4、为物体附加形态，让引擎计算其质量

可能这不是我们所习惯的，但你确实应该这样做：先设置形态，然后设置密度，因为决定物体运动状态的并不只是质量，形态将起到决定性作用！
        '创建动态物体，它的质量一定要大于0
        Dim bodyDef As New Box2DX.Dynamics.BodyDef

        '物体的位置
        bodyDef.Position.Set(X,Y)

        '空气的阻尼
        bodyDef.LinearDamping = Damping

        '实际物体
        Dim Body As Box2DX.Dynamics.Body

        '在世界中创建物体
        Body = world.CreateBody(bodyDef)
        '为物体附加一个多边形
        Dim shapeDef As New Box2DX.Collision.CircleDef
        shapeDef.IsSensor = IsSensor  '可否“休眠”即物体不动时引擎是否可以不计算它。（可能听起来有点别扭）
        shapeDef.Radius = R   '设置体积为1，以使得质量计算结果为1
        shapeDef.Density = Density    '密度
        'shapeDef.Friction = 1   '摩擦系数
        Dim shape = Body.CreateShape(shapeDef) '附加到物体
        Body.SetMassFromShapes()   '根据形状计算质量
至此，我们创建了一个动态物体。

 

 

【五、物体的运动】

好，我们先考虑一下，影响我们的“炮弹”运动轨迹的因素都有哪些：

1、重力

2、发射角度

3、发射力度

4、空气阻尼

5、风力

6、发射点（这在创建动态物体时已经被指定了，当然你可以告诉引擎来修改它的属性来使它停下并“瞬移”到你想要的位置重新开始运动。但我没有这样做——出于编码的原因当它无用时，我销毁它，下次计算时创建一个新物体，这样做效率并不很低）所以我们不关心它。

好，我们一个一个解决这些问题：

1、重力——这个属性是属于世界的，一般我们定义重力是向下的一个向量（BOX2D提供了用于内置计算的向量对象）

Dim g As New Box2DX.Common.Vec2(0.0F, 17.27F)               '重力

2、3、发射角度和力度——这将是瞬间完成的，不要指望去模拟一个在炮筒中的爆炸，那是得不偿失的——我们直接用一个向量作用于物体质心即可：

Body.ApplyImpulse(New Box2DX.Common.Vec2( Math.Cos(Angle) * Power , -Math.Sin(Angle) * Power), Body.GetPosition)

这个语句可能稍微复杂一些，实际上有两个参数，第一个就是冲量，第二个是物体当前位置。

第一个参数只是用了三角形的基本知识，将发射角度和力度进行换算，得到X,Y两个方向上的力——即得到一个向量^ ^。

4、空气阻尼——一个属于物体的性质：这也灰常的简单，只需要告诉BOX2D一个数值，它就会在迭代器模拟物理运动的计算过程中应用它。

bodyDef.LinearDamping = Damping

5、风力——这是一个BOX2D所没有提供的性质，换句话说，BOX2D的世界里没有风……果然是灰常的风和日丽……那怎么办呢？呃……

思考中……

思考中……

其实物理引擎无非是在一定的时刻（后面将提到步长）近似的求得物体的位置及速度（线速度和角速度），那么我们可以在每次计算时，都作用一个风力给物体。这是我的解决方案，当然，你也可以改变重力的大小和方向来达到目的（将风力和重力的合力作为重力），也许你还有更好的办法……

好了，这个风力代码我是这样写的：

 '添加位置到返回数组

        Dim ret(MaxStep) As Box2DX.Common.Vec2
        For i As Integer = 0 To MaxStep
            Body.ApplyForce(f, Body.GetPosition)    '应用风力
            world.Step(timeStep, MaxStep, 1)         '步进计算，第一个参数是步长（多久计算一次），第二个参数是计算的最多步数，第三个，呃是迭代数（每次计算时用迭代器的次数）
            ret(i) = New Box2DX.Common.Vec2(Body.GetPosition.X, Body.GetPosition.Y)               '当前步位置
            '检测进入
            'Dim s(0) As Box2DX.Collision.Shape

‘出处：http://www.cnblogs.com/zcsor/
            'If RsEvnt = False AndAlso world.Query(mAABB, s, 1) = 1 Then
            '    RsX = Body.GetPosition.X * 10
             '   RsY = Body.GetPosition.Y * 10
             '   RsEvnt = True
            'End If
        Next

为了看起来更清晰，我仅保留了记录当前位置和应用风力的代码——注释掉的是检测是否击中目标的代码。

至此，我们已经可以得到一个物体的运动轨迹，也许——你应该在GDI+上绘制一下他们了。

 

【六、冲突检测】

BOX2D提供了AABB检测和其他的冲突检测方式。我们这里简要的提一下AABB，如果你感兴趣，完全可以使用“接触监听器”或者“传感器”来完成你的代码。

创建一个AABB检测和使用它将非常简单：只需要设置AABB的两个坐标点——像创建世界外边框那样，指定左上角和右下角。
        mAABB.LowerBound.Set(X1, Y1)
        mAABB.UpperBound.Set(X2, Y2)

而检测代码已经在上面的代码中了——还记得吗，我把他们注释掉了。

【后记】

上面讲到的类，代码如下：

 

代码

Public   Class  Box2DEngine
     Dim  world  As  Box2DX.Dynamics.World
     Dim  g  As   New  Box2DX.Common.Vec2( 0 .0F,  17 .27F)                ' 重力
     Dim  Damping  As   Single   =   0 .1F                                 ' 空气阻尼
     Dim  WapOffset  As  PointF  =   New  PointF( 2 .5F,  - 2 .5F)            ' 相对于人物中心的武器的偏移量
     Dim  RevisePower  As   Single   =   4 .0F                             ' 力度
     Dim  ReviseWind  As   Single   =   2 .474F                            ' 风速
     Dim  Density  As   Single   =   5.0929579415893746                    ' 密度
     Dim  timeStep  As   Single   =   1   /   25                               ' 时间步数——游戏每帧时间
     Dim  mAABB  As   New  Box2DX.Collision.AABB                       ' 范围检测，这里用的不是冲突而是范围内是否有物体
     Public   Event  InAABB( ByVal  power  As   Single ,  ByVal  x  As   Single ,  ByVal  y  As   Single ,  ByVal  vs()  As  Box2DX.Common.Vec2)
     Public   Event  NotInAABB( ByVal  power  As   Single ,  ByVal  x  As   Single ,  ByVal  y  As   Single ,  ByVal  vs()  As  Box2DX.Common.Vec2)

     Public   Enum  ForRight  As   Integer
        Yes  =   1
        No  =   - 1
     End Enum

     Sub   New ()
         ' 世界外边框
         Dim  Wordaabb  As  Box2DX.Collision.AABB
        Wordaabb.LowerBound.Set( - 10000 .0F,  - 10000 .0F)
        Wordaabb.UpperBound.Set( 10000 .0F,  10000 .0F)

’出处：http://www.cnblogs.com/zcsor/
         ' 允许引擎休眠
         Dim  dosleep  As   Boolean   =   False   '  True
         ' 创建世界
        world  =   New  Box2DX.Dynamics.World(Wordaabb, g, dosleep)
     End Sub

     Sub  SetAABB( ByVal  p  As  PointF,  ByVal  mSize  As  SizeF)
        mAABB.LowerBound.Set(p.X  /   10   -  mSize.Width, p.Y  /   10   -  mSize.Height)
        mAABB.UpperBound.Set(p.X  /   10   +  mSize.Width, p.Y  /   10   +  mSize.Height)
     End Sub

     '''   <summary>
     '''  获取指定状态下的关键点
     '''   </summary>
     '''   <param name="PlayerPoint"> 玩家位置（玩家中心位置的屏幕坐标） </param>
     '''   <param name="ForRight"> 玩家是否朝向右面 </param>
     '''   <param name="Power"> 射击力度 </param>
     '''   <param name="Angle"> 射击角度（无左右方向，有上下方向） </param>
     '''   <param name="Wind"> 风力及方向，向右为正，向左为负 </param>
     '''   <param name="MaxStep"> 最大计算步数，每一秒计算25次 </param>
     '''   <returns> 从当前位置开始模拟运动时，每一步的坐标 </returns>
     '''   <remarks></remarks>
     Public   Function  GetPath( ByVal  PlayerPoint  As  PointF,  ByVal  ForRight  As  ForRight,  ByVal  Power  As   Single ,  ByVal  Angle  As   Double ,  ByVal  Wind  As   Single ,  ByVal  MaxStep  As   Single )  As  Box2DX.Common.Vec2()
         Dim  RsEvnt  As   Boolean
         Dim  RsX, RsY  As   Single
         Dim  ret(MaxStep)  As  Box2DX.Common.Vec2
         ' 创建一个动态物体
         Dim  Body  As  Box2DX.Dynamics.Body  =  CreateBody(PlayerPoint, ForRight,  0 .5F,  False , Angle)
         ' 发射——对其质心应用一个冲力
        Body.ApplyImpulse( New  Box2DX.Common.Vec2( CInt (ForRight)  *  Math.Cos(Angle)  *  Power  *  RevisePower,  - Math.Sin(Angle)  *  Power  *  RevisePower), Body.GetPosition)
         ' 一个持久作用力——风力
         Dim  f  As  Box2DX.Common.Vec2  =   New  Box2DX.Common.Vec2(Wind  *  ReviseWind,  0 )
         ' 添加位置到返回数组
         For  i  As   Integer   =   0   To  MaxStep
            Body.ApplyForce(f, Body.GetPosition)     ' 应用风力
            world.Step(timeStep, MaxStep,  1 )         ' 步进计算
            ret(i)  =   New  Box2DX.Common.Vec2(Body.GetPosition.X, Body.GetPosition.Y)                ' 当前步位置
             ' 检测进入
             Dim  s( 0 )  As  Box2DX.Collision.Shape
             If  RsEvnt  =   False   AndAlso  world.Query(mAABB, s,  1 )  =   1   Then
                RsX  =  Body.GetPosition.X  *   10
                RsY  =  Body.GetPosition.Y  *   10
                RsEvnt  =   True
             End   If
         Next
         ' 销毁这次用的BODY，下次将重新创建
        world.DestroyBody(Body)
        Body.Dispose()
        Body  =   Nothing
         If  RsEvnt  Then
             RaiseEvent  InAABB(Power, RsX, RsY, ret)
         Else
             RaiseEvent  NotInAABB(Power, RsX, RsY, ret)
         End   If
         Return  ret
     End Function

     Private   Function  RotateV2( ByVal  p  As  PointF,  ByVal  a  As   Double )  As  PointF
         Dim  ret  As   New  PointF
         Dim  b  As   Double   =   - a
        ret.X  =  p.X  *  Math.Cos(b)  -  p.Y  *  Math.Sin(b)
        ret.Y  =  p.X  *  Math.Sin(b)  +  p.Y  *  Math.Cos(b)
        Debug.Print(b)
        Debug.Print(ret.ToString)
         Return  ret
     End Function

     '''   <summary>
     '''  根据玩家位置和是否向右，来创建一个炮弹，这个炮弹的具体位置和发射者位置及角度相关。
     '''   </summary>
     '''   <param name="PlayerPoint"> 玩家位置 </param>
     '''   <param name="ForRight"> 是否向右 </param>
     '''   <param name="R"> 半径 </param>
     '''   <param name="IsSensor"> 是否是感应器 </param>
     '''   <param name="Angle"> 发射角度 </param>
     '''   <returns></returns>
     '''   <remarks></remarks>
     Private   Function  CreateBody( ByVal  PlayerPoint  As  PointF,  ByVal  ForRight  As  ForRight,  ByVal  R  As   Single ,  ByVal  IsSensor  As   Boolean ,  ByVal  Angle  As   Double )  As  Box2DX.Dynamics.Body
         ' Debug.Print(CInt(ForRight))
         ' 创建动态物体，它的质量一定要大于0
         Dim  bodyDef  As   New  Box2DX.Dynamics.BodyDef
        WapOffset  =  RotateV2( New  PointF( 2.5 ,  0 ), Angle)
        bodyDef.Position.Set((PlayerPoint.X  /   10   +   CInt (ForRight)  *  WapOffset.X), (PlayerPoint.Y  /   10   +  WapOffset.Y))
        bodyDef.LinearDamping  =  Damping
         Dim  Body  As  Box2DX.Dynamics.Body
        Body  =  world.CreateBody(bodyDef)
         ' 为物体附加一个多边形
         Dim  shapeDef  As   New  Box2DX.Collision.CircleDef
        shapeDef.IsSensor  =  IsSensor
        shapeDef.Radius  =  R    ' 设置体积为1，以使得质量计算结果为1
        shapeDef.Density  =  Density     ' 密度
         ' shapeDef.Friction = 1   '摩擦系数
         Dim  shape  =  Body.CreateShape(shapeDef)  ' 附加到物体
        Body.SetMassFromShapes()    ' 根据形状计算质量
         Return  Body
     End Function

     Protected   Overrides   Sub  Finalize()
        world.Dispose()
         MyBase .Finalize()
     End Sub
End Class

 

而我所用的测试代码如下：

 

代码

Public   Class  Form1
     Dim  gr  As  Graphics       ' 窗体的画布
     Dim  CompassRect  As  Rectangle     ' 罗盘
     Dim  po  As  Point      ' 罗盘中心
     Dim  p1  As  Point      ' 指针终点
     Dim  powerRect  As  Rectangle   ' 力度框
     Dim  mb  As  Point  ' 目标位置
     Dim  wind  As   Single    ' 风力
     Dim  ang  As   Integer    ' 角度
     Dim  Userpower  As   Single   ' 力度*5
     Dim  mFont  As  Font    ' 字体
     Dim   WithEvents  eg  As   New  Box2DEngine     ' 封装引擎
     Dim  v2s()  As  Box2DX.Common.Vec2      ' 路径点
     Dim  img  As  Bitmap        ' 背景图
     Dim  grp  As  Graphics      ' 背景图或最终图的画布
     Dim  pnt  As  Bitmap        ' 最终图

     Private   Sub  Form1_KeyPress( ByVal  sender  As   Object ,  ByVal  e  As  System.Windows.Forms.KeyPressEventArgs)  Handles   Me .KeyPress
         Select   Case  e.KeyChar
             Case   "   "
                 If  My.Computer.Keyboard.ShiftKeyDown  Then
                     If  Userpower  >   0   Then  Userpower  -=   2.5
                 Else
                     If  Userpower  <   500   Then  Userpower  +=   2.5
                 End   If
             Case   " w " ,  " W "
                 If  ang  >   - 90   Then  ang  -=   1
             Case   " s " ,  " S "
                 If  ang  <   90   Then  ang  +=   1
             Case   " r " ,  " R "
                 Randomize ()
                wind  =   CInt ( Int (( 100   *   Rnd ())))  /   10   -   5
                mb  =   New  Point( 800   *   Rnd ()  +   180 ,  500   *   Rnd ())
                eg.SetAABB( New  PointF(mb.X, mb.Y),  New  Size( 20 ,  20 ))
                Userpower  =   0
         End   Select
        Form1_Paint( Me ,  New  PaintEventArgs(gr,  Me .ClientRectangle))
     End Sub

     Private   Sub  Form1_KeyUp( ByVal  sender  As   Object ,  ByVal  e  As  System.Windows.Forms.KeyEventArgs)  Handles   Me .KeyUp
         Select   Case  e.KeyData
             Case  Keys.Space, Keys.Shift  Or  Keys.Space, Keys.ShiftKey  Or  Keys.Space, Keys.W, Keys.S
                v2s  =  eg.GetPath( New  PointF(po.X, po.Y), Box2DEngine.ForRight.Yes, Userpower  /   5 ,  - ang  *  Math.PI  /   180 , wind,  300 )
         End   Select
     End Sub

     Private   Sub  Form1_Load( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles   MyBase .Load
        img  =   New  Bitmap( 1000 ,  600 )
        grp  =  Graphics.FromImage(img)
         Dim  alppen  As  Pen  =   New  Pen(Color.FromArgb( & H40FFFFFF))
        grp.DrawString( " 按W增加角度 "   &  vbCrLf  &   " 按S减少角度 "   &  vbCrLf  &   " 按空格增加力度 "   &  vbCrLf  &   " 按SHIFT+空格减少力度 "   &  vbCrLf  &   " 按R重置 " ,  New  Font( " 宋体 " ,  18 ), Brushes.DarkCyan,  0 ,  0 )
         For  x  As   Integer   =   0   To   1000   Step   100
            grp.DrawLine(Pens.White, x,  595 , x,  600 )
            grp.DrawLine(alppen, x,  0 , x,  595 )
            grp.DrawString(x  /   100 , Font, Brushes.White, x,  590 )
         Next
         For  y  As   Integer   =   0   To   600   Step   60
            grp.DrawLine(alppen,  0 , y,  1000 , y)
         Next
        pnt  =   New  Bitmap( 1000 ,  600 )
        grp.Dispose()
        grp  =  Graphics.FromImage(pnt)
        gr  =   Me .CreateGraphics
        CompassRect  =   New  Rectangle( 0 ,  300 ,  100 ,  100 )
        po  =   New  Point(CompassRect.X  +  CompassRect.Width  /   2 , CompassRect.Y  +  CompassRect.Height  /   2 )
        p1  =   New  Point(CompassRect.X  +  CompassRect.Width  /   2   +   35 , CompassRect.Y  +  CompassRect.Height  /   2 )
        powerRect  =   New  Rectangle( 150 ,  570 ,  502 ,  20 )
        mFont  =   New  Font( " 宋体 " ,  24 , FontStyle.Bold)
     End Sub

     Private   Sub  Form1_Paint( ByVal  sender  As   Object ,  ByVal  e  As  System.Windows.Forms.PaintEventArgs)  Handles   Me .Paint
        grp.Clear(Color.DarkGreen)
        grp.DrawImage(img, PointF.Empty)
         Dim  offset  As  Point  =  RotateV2(p1  -  po,  - ang)  +  po
        grp.DrawLine(Pens.Blue, po, offset)

        grp.DrawString( - ang, mFont, Brushes.Blue, po.X  -   15 , po.Y  +   10 )
        grp.FillPie(Brushes.White,  New  Rectangle(po.X  -   10 , po.Y  -   10 ,  20 ,  20 ),  0 ,  360 )
        grp.DrawRectangle(Pens.White, powerRect)
        grp.FillRectangle(Brushes.Wheat,  New  Rectangle(powerRect.X  +   1 , powerRect.Y  +   1 , Userpower,  19 ))
        grp.DrawString(Userpower  /   5 , mFont, Brushes.Blue, powerRect.X, powerRect.Y  -   35 )
        grp.DrawString(Math.Abs(wind), mFont, Brushes.Blue,  490 ,  10 )
        grp.DrawString( IIf (wind  <   0 ,  " ← " ,  " → " ), mFont, Brushes.Blue,  490 ,  30 )
         If  mb.X  >   0   AndAlso  mb.Y  >   0   Then  grp.FillPie(Brushes.Black,  New  Rectangle(mb.X  -   10 , mb.Y  -   10 ,  20 ,  20 ),  0 ,  360 )
         If  v2s  IsNot   Nothing   Then
             For   Each  v2  As  Box2DX.Common.Vec2  In  v2s
                grp.DrawArc(Pens.White,  CSng (v2.X  *   10 .0F  -   0.5 ),  CSng (v2.Y  *   10   -   0.5 ),  1 .0F,  1 .0F,  0 .0F,  360 .0F)
             Next
         End   If
        v2s  =   Nothing
        gr.DrawImage(pnt, PointF.Empty)
     End Sub

     Private   Function  RotateV2( ByVal  p  As  Point,  ByVal  a  As   Integer )  As  Point
         Dim  ret  As   New  Point
         Dim  b  As   Double   =   - a  *  Math.PI  /   180
        ret.X  =  p.X  *  Math.Cos(b)  -  p.Y  *  Math.Sin(b)
        ret.Y  =  p.X  *  Math.Sin(b)  +  p.Y  *  Math.Cos(b)
         Return  ret
     End Function

     Private   Sub  eg_InAABB( ByVal  power  As   Single ,  ByVal  x  As   Single ,  ByVal  y  As   Single ,  ByVal  vs()  As  Box2DX.Common.Vec2)  Handles  eg.InAABB
        v2s  =  vs
        Form1_Paint( Me ,  New  PaintEventArgs(gr,  Me .ClientRectangle))
     End Sub

     Private   Sub  eg_NotInAABB( ByVal  power  As   Single ,  ByVal  x  As   Single ,  ByVal  y  As   Single ,  ByVal  vs()  As  Box2DX.Common.Vec2)  Handles  eg.NotInAABB
        v2s  =  vs
        Form1_Paint( Me ,  New  PaintEventArgs(gr,  Me .ClientRectangle))
     End Sub
End Class

 

好了，只是抛砖引玉，希望大家能够开发出自己的游戏，毕竟别人的游戏只是一种借鉴，学会思考才是最重要的。

PS：代码中使用了坐标缩放，这是因为物理引擎模拟运动时，只在一定范围内（例如十米以内）有较高的准确度，超出这个范围将会降低准确度。

PS：BOX2D是使用单精度浮点数来进行计算的——这不会对准确度影响较大。因为它使用了一些通用的公差。

原文：http://www.cnblogs.com/zcsor/

贴了这么多出处我也没办法。因为有些同学脸皮太薄了——将将比城墙厚一点点！