开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
UVaryingFriction.pas
资源名称：box2DDelphiPackage.zip　[点击查看]
上传用户：zkjn0718
上传日期：2021-01-01
资源大小：776k
文件大小：2k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

UVaryingFriction.pas：源码内容
  1. unit UVaryingFriction;
  3. interface
  4. {$I ......SourcePhysics2D.inc}
  6. uses
  7.    UMain, UPhysics2DTypes, UPhysics2D, SysUtils;
  9. type
  10.    TVaryingFriction = class(TTester)
  11.    public
  12.       constructor Create; override;
  13.    end;
  15. implementation
  17. { TVaryingFriction }
  19. constructor TVaryingFriction.Create;
  20. const
  21.    friction: array[0..4] of Single = (0.75, 0.5, 0.35, 0.1, 0.0);
  22. var
  23.    i: Integer;
  24.    sd: Tb2PolygonDef;
  25.    bd: Tb2BodyDef;
  26.    body: Tb2Body;
  27. begin
  28.    inherited;
  29.    sd := Tb2PolygonDef.Create;
  30.    sd.SetAsBox(50.0, 20.0);
  31.    bd := Tb2BodyDef.Create;
  32.    {$IFDEF OP_OVERLOAD}
  33.    bd.position.SetValue(0.0, -20.0);
  34.    {$ELSE}
  35.    SetValue(bd.position, 0.0, -20.0);
  36.    {$ENDIF}
  37.    m_world.CreateBody(bd, False).CreateShape(sd, False);
  39.    sd.SetAsBox(13.0, 0.25);
  40.    {$IFDEF OP_OVERLOAD}
  41.    bd.position.SetValue(-4.0, 22.0);
  42.    {$ELSE}
  43.    SetValue(bd.position, -4.0, 22.0);
  44.    {$ENDIF}
  45.    bd.angle := -0.25;
  46.    m_world.CreateBody(bd, False).CreateShape(sd, False);
  48.    sd.SetAsBox(0.25, 1.0);
  49.    {$IFDEF OP_OVERLOAD}
  50.    bd.position.SetValue(10.5, 19.0);
  51.    {$ELSE}
  52.    SetValue(bd.position, 10.5, 19.0);
  53.    {$ENDIF}
  54.    m_world.CreateBody(bd, False).CreateShape(sd, False);
  56.    sd.SetAsBox(13.0, 0.25);
  57.    {$IFDEF OP_OVERLOAD}
  58.    bd.position.SetValue(4.0, 14.0);
  59.    {$ELSE}
  60.    SetValue(bd.position, 4.0, 14.0);
  61.    {$ENDIF}
  62.    bd.angle := 0.25;
  63.    m_world.CreateBody(bd, False).CreateShape(sd, False);
  65.    sd.SetAsBox(0.25, 1.0);
  66.    {$IFDEF OP_OVERLOAD}
  67.    bd.position.SetValue(-10.5, 11.0);
  68.    {$ELSE}
  69.    SetValue(bd.position, -10.5, 11.0);
  70.    {$ENDIF}
  71.    m_world.CreateBody(bd, False).CreateShape(sd, False);
  73.    sd.SetAsBox(13.0, 0.25);
  74.    {$IFDEF OP_OVERLOAD}
  75.    bd.position.SetValue(-4.0, 6.0);
  76.    {$ELSE}
  77.    SetValue(bd.position, -4.0, 6.0);
  78.    {$ENDIF}
  79.    bd.angle := -0.25;
  80.    m_world.CreateBody(bd, False).CreateShape(sd, False);
  82.    sd.SetAsBox(0.5, 0.5);
  83.    sd.density := 25.0;
  84.    bd.angle := 0.0;
  85.    for i := 0 to 4 do
  86.    begin
  87.       {$IFDEF OP_OVERLOAD}
  88.       bd.position.SetValue(-15.0 + 4.0 * i, 28.0);
  89.       {$ELSE}
  90.       SetValue(bd.position, -15.0 + 4.0 * i, 28.0);
  91.       {$ENDIF}
  92.       body := m_world.CreateBody(bd, False);
  94.       sd.friction := friction[i];
  95.       body.CreateShape(sd, False);
  96.       body.SetMassFromShapes;
  97.    end;
  98.    bd.Free;
  99.    sd.Free;
  100. end;
  102. initialization
  103.    RegisterTestEntry('Varying Friction', TVaryingFriction);
  105. end.