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

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

Delphi/CppBuilder

开发平台：

Delphi

UContactCallback.pas：源码内容
  1. unit UContactCallback;
  3. interface
  4. {$I ......SourcePhysics2D.inc}
  6. uses
  7.    UMain,
  8.    UPhysics2DTypes,
  9.    UPhysics2D,
  10.    SysUtils,
  11.    Classes;
  13. type
  14.    TContactCallback = class(TTester)
  15.    public
  16.       m_ball, m_bullet: Tb2Body;
  17.       m_ball_shape: Tb2Shape;
  18.       m_strings: TStringList;
  20.       constructor Create; override;
  21.       destructor Destroy; override;
  23.       procedure Step(var settings: TSettings; timeStep: Float); override;
  24.    end;
  26. implementation
  28. { TContactCallback }
  30. constructor TContactCallback.Create;
  31. var
  32.    sd, cd: Tb2PolygonDef;
  33.    bd: Tb2BodyDef;
  34.    w, b, s: Float;
  35. begin
  36.    inherited;
  37.    m_strings := TStringList.Create;
  39.    sd := Tb2PolygonDef.Create;
  40.    sd.friction := 0;
  41.    sd.vertexCount := 3;
  43.    {$IFDEF OP_OVERLOAD}
  44.    sd.vertices[0].SetValue(10, 10);
  45.    sd.vertices[1].SetValue(9, 7);
  46.    sd.vertices[2].SetValue(10, 0);
  47.    {$ELSE}
  48.    SetValue(sd.vertices[0], 10, 10);
  49.    SetValue(sd.vertices[1], 9, 7);
  50.    SetValue(sd.vertices[2], 10, 0);
  51.    {$ENDIF}
  52.    m_world.GetGroundBody.CreateShape(sd, False);
  54.    {$IFDEF OP_OVERLOAD}
  55.    sd.vertices[0].SetValue(9, 7);
  56.    sd.vertices[1].SetValue(8, 0);
  57.    sd.vertices[2].SetValue(10, 0);
  58.    {$ELSE}
  59.    SetValue(sd.vertices[0], 9, 7);
  60.    SetValue(sd.vertices[1], 8, 0);
  61.    SetValue(sd.vertices[2], 10, 0);
  62.    {$ENDIF}
  63.    m_world.GetGroundBody.CreateShape(sd, False);
  65.    {$IFDEF OP_OVERLOAD}
  66.    sd.vertices[0].SetValue(9, 7);
  67.    sd.vertices[1].SetValue(8, 5);
  68.    sd.vertices[2].SetValue(8, 0);
  69.    {$ELSE}
  70.    SetValue( sd.vertices[0], 9, 7);
  71.    SetValue(sd.vertices[1], 8, 5);
  72.    SetValue(sd.vertices[2], 8, 0);
  73.    {$ENDIF}
  74.    m_world.GetGroundBody.CreateShape(sd, False);
  76.    {$IFDEF OP_OVERLOAD}
  77.    sd.vertices[0].SetValue(8, 5);
  78.    sd.vertices[1].SetValue(7, 4);
  79.    sd.vertices[2].SetValue(8, 0);
  80.    {$ELSE}
  81.    SetValue(sd.vertices[0], 8, 5);
  82.    SetValue(sd.vertices[1], 7, 4);
  83.    SetValue(sd.vertices[2], 8, 0);
  84.    {$ENDIF}
  85.    m_world.GetGroundBody.CreateShape(sd, False);
  87.    {$IFDEF OP_OVERLOAD}
  88.    sd.vertices[0].SetValue(7, 4);
  89.    sd.vertices[1].SetValue(5, 0);
  90.    sd.vertices[2].SetValue(8, 0);
  91.    {$ELSE}
  92.    SetValue(sd.vertices[0], 7, 4);
  93.    SetValue(sd.vertices[1], 5, 0);
  94.    SetValue(sd.vertices[2], 8, 0);
  95.    {$ENDIF}
  96.    m_world.GetGroundBody.CreateShape(sd, False);
  98.    {$IFDEF OP_OVERLOAD}
  99.    sd.vertices[0].SetValue(7, 4);
  100.    sd.vertices[1].SetValue(5, 3);
  101.    sd.vertices[2].SetValue(5, 0);
  102.    {$ELSE}
  103.    SetValue(sd.vertices[0], 7, 4);
  104.    SetValue(sd.vertices[1], 5, 3);
  105.    SetValue(sd.vertices[2], 5, 0);
  106.    {$ENDIF}
  107.    m_world.GetGroundBody.CreateShape(sd, False);
  109.    {$IFDEF OP_OVERLOAD}
  110.    sd.vertices[0].SetValue(5, 3);
  111.    sd.vertices[1].SetValue(2, 2);
  112.    sd.vertices[2].SetValue(5, 0);
  113.    {$ELSE}
  114.    SetValue(sd.vertices[0], 5, 3);
  115.    SetValue(sd.vertices[1], 2, 2);
  116.    SetValue(sd.vertices[2], 5, 0);
  117.    {$ENDIF}
  118.    m_world.GetGroundBody.CreateShape(sd, False);
  120.    {$IFDEF OP_OVERLOAD}
  121.    sd.vertices[0].SetValue(2, 2);
  122.    sd.vertices[1].SetValue(0, 0);
  123.    sd.vertices[2].SetValue(5, 0);
  124.    {$ELSE}
  125.    SetValue(sd.vertices[0], 2, 2);
  126.    SetValue(sd.vertices[1], 0, 0);
  127.    SetValue(sd.vertices[2], 5, 0);
  128.    {$ENDIF}
  129.    m_world.GetGroundBody.CreateShape(sd, False);
  131.    {$IFDEF OP_OVERLOAD}
  132.    sd.vertices[0].SetValue(2, 2);
  133.    sd.vertices[1].SetValue(-2, 2);
  134.    sd.vertices[2].SetValue(0, 0);
  135.    {$ELSE}
  136.    SetValue(sd.vertices[0], 2, 2);
  137.    SetValue(sd.vertices[1], -2, 2);
  138.    SetValue(sd.vertices[2], 0, 0);
  139.    {$ENDIF}
  140.    m_world.GetGroundBody.CreateShape(sd, False);
  142.    {$IFDEF OP_OVERLOAD}
  143.    sd.vertices[2].SetValue(-2, 2);
  144.    sd.vertices[1].SetValue(0, 0);
  145.    sd.vertices[0].SetValue(-5, 0);
  146.    {$ELSE}
  147.    SetValue(sd.vertices[2], -2, 2);
  148.    SetValue(sd.vertices[1], 0, 0);
  149.    SetValue(sd.vertices[0], -5, 0);
  150.    {$ENDIF}
  151.    m_world.GetGroundBody.CreateShape(sd, False);
  153.    {$IFDEF OP_OVERLOAD}
  154.    sd.vertices[2].SetValue(-5, 3);
  155.    sd.vertices[1].SetValue(-2, 2);
  156.    sd.vertices[0].SetValue(-5, 0);
  157.    {$ELSE}
  158.    SetValue(sd.vertices[2], -5, 3);
  159.    SetValue(sd.vertices[1], -2, 2);
  160.    SetValue(sd.vertices[0], -5, 0);
  161.    {$ENDIF}
  162.    m_world.GetGroundBody.CreateShape(sd, False);
  164.    {$IFDEF OP_OVERLOAD}
  165.    sd.vertices[2].SetValue(-7, 4);
  166.    sd.vertices[1].SetValue(-5, 3);
  167.    sd.vertices[0].SetValue(-5, 0);
  168.    {$ELSE}
  169.    SetValue(sd.vertices[2], -7, 4);
  170.    SetValue(sd.vertices[1], -5, 3);
  171.    SetValue(sd.vertices[0], -5, 0);
  172.    {$ENDIF}
  173.    m_world.GetGroundBody.CreateShape(sd, False);
  175.    {$IFDEF OP_OVERLOAD}
  176.    sd.vertices[2].SetValue(-7, 4);
  177.    sd.vertices[1].SetValue(-5, 0);
  178.    sd.vertices[0].SetValue(-8, 0);
  179.    {$ELSE}
  180.    SetValue(sd.vertices[2], -7, 4);
  181.    SetValue(sd.vertices[1], -5, 0);
  182.    SetValue(sd.vertices[0], -8, 0);
  183.    {$ENDIF}
  184.    m_world.GetGroundBody.CreateShape(sd, False);
  186.    {$IFDEF OP_OVERLOAD}
  187.    sd.vertices[2].SetValue(-8, 5);
  188.    sd.vertices[1].SetValue(-7, 4);
  189.    sd.vertices[0].SetValue(-8, 0);
  190.    {$ELSE}
  191.    SetValue(sd.vertices[2], -8, 5);
  192.    SetValue(sd.vertices[1], -7, 4);
  193.    SetValue(sd.vertices[0], -8, 0);
  194.    {$ENDIF}
  195.    m_world.GetGroundBody.CreateShape(sd, False);
  197.    {$IFDEF OP_OVERLOAD}
  198.    sd.vertices[2].SetValue(-9, 7);
  199.    sd.vertices[1].SetValue(-8, 5);
  200.    sd.vertices[0].SetValue(-8, 0);
  201.    {$ELSE}
  202.    SetValue(sd.vertices[2], -9, 7);
  203.    SetValue(sd.vertices[1], -8, 5);
  204.    SetValue(sd.vertices[0], -8, 0);
  205.    {$ENDIF}
  206.    m_world.GetGroundBody.CreateShape(sd, False);
  208.    {$IFDEF OP_OVERLOAD}
  209.    sd.vertices[2].SetValue(-9, 7);
  210.    sd.vertices[1].SetValue(-8, 0);
  211.    sd.vertices[0].SetValue(-10, 0);
  212.    {$ELSE}
  213.    SetValue(sd.vertices[2], -9, 7);
  214.    SetValue(sd.vertices[1], -8, 0);
  215.    SetValue(sd.vertices[0], -10, 0);
  216.    {$ENDIF}
  217.    m_world.GetGroundBody.CreateShape(sd, False);
  219.    {$IFDEF OP_OVERLOAD}
  220.    sd.vertices[2].SetValue(-10, 10);
  221.    sd.vertices[1].SetValue(-9, 7);
  222.    sd.vertices[0].SetValue(-10, 0);
  223.    {$ELSE}
  224.    SetValue(sd.vertices[2], -10, 10);
  225.    SetValue(sd.vertices[1], -9, 7);
  226.    SetValue(sd.vertices[0], -10, 0);
  227.    {$ENDIF}
  228.    m_world.GetGroundBody.CreateShape(sd, False);
  230.    sd.SetAsBox(0.5, 6, MakeVector(10.5, 6), 0);
  231.    m_world.GetGroundBody.CreateShape(sd, False);
  233.    sd.SetAsBox(0.5, 6, MakeVector(-10.5, 6), 0);
  234.    m_world.GetGroundBody.CreateShape(sd);
  236.    bd := Tb2BodyDef.Create;
  237.    {$IFDEF OP_OVERLOAD}
  238.    bd.position.SetValue(9.5, 60);
  239.    {$ELSE}
  240.    SetValue(bd.position, 9.5, 60);
  241.    {$ENDIF}
  242.    m_ball := m_world.CreateBody(bd);
  244.    cd := Tb2PolygonDef.Create;
  245.    cd.vertexCount := 8;
  246.    w := 1.0;
  247.    b := w / (2.0 + Sqrt(2.0));
  248.    s := Sqrt(2.0) * b;
  249.    {$IFDEF OP_OVERLOAD}
  250.    cd.vertices[0].SetValue(0.5 * s, 0.0);
  251.    cd.vertices[1].SetValue(0.5 * w, b);
  252.    cd.vertices[2].SetValue(0.5 * w, b + s);
  253.    cd.vertices[3].SetValue(0.5 * s, w);
  254.    cd.vertices[4].SetValue(-0.5 * s, w);
  255.    cd.vertices[5].SetValue(-0.5 * w, b + s);
  256.    cd.vertices[6].SetValue(-0.5 * w, b);
  257.    cd.vertices[7].SetValue(-0.5 * s, 0.0);
  258.    {$ELSE}
  259.    SetValue(cd.vertices[0], 0.5 * s, 0.0);
  260.    SetValue(cd.vertices[1], 0.5 * w, b);
  261.    SetValue(cd.vertices[2], 0.5 * w, b + s);
  262.    SetValue(cd.vertices[3], 0.5 * s, w);
  263.    SetValue(cd.vertices[4], -0.5 * s, w);
  264.    SetValue(cd.vertices[5], -0.5 * w, b + s);
  265.    SetValue(cd.vertices[6], -0.5 * w, b);
  266.    SetValue(cd.vertices[7], -0.5 * s, 0.0);
  267.    {$ENDIF}
  268.    cd.density := 1.0;
  270.    m_ball_shape := m_ball.CreateShape(cd);
  271.    m_ball.SetMassFromShapes;
  272. end;
  274. destructor TContactCallback.Destroy;
  275. begin
  276.    m_strings.Free;
  277.    inherited;
  278. end;
  280. procedure TContactCallback.Step(var settings: TSettings; timeStep: Float);
  281. var
  282.    i: Integer;
  283. begin
  284.    inherited;
  286.    for i := 0 to m_pointCount - 1 do
  287.       with m_points[i] do
  288.       begin
  289.          case state of
  290.             e_contactAdded: m_strings.Add(Format('added: %d -> %d : %d', [Integer(shape1), Integer(shape2), id.key]));
  291.             e_contactRemoved: m_strings.Add(Format('removed: %d -> %d : %d', [Integer(shape1), Integer(shape2), id.key]));
  292.          end;
  293.       end;
  295.    while (m_strings.Count > 15) do
  296.       m_strings.Delete(0);
  298.    for i := 0 to m_strings.Count - 1 do
  299.       DrawText(m_strings[i]);
  300. end;
  302. initialization
  303.    RegisterTestEntry('Contact Callback', TContactCallback);
  305. end.