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

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

Delphi/CppBuilder

开发平台：

Delphi

UWeb.pas：源码内容
  1. unit UWeb;
  3. interface
  4. {$I ......SourcePhysics2D.inc}
  6. uses
  7.    UMain, UPhysics2DTypes, UPhysics2D, SysUtils;
  9. type
  10.    TWeb = class(TTester)
  11.    public
  12.       m_bodies: array[0..3] of Tb2Body;
  13.       m_joints: array[0..7] of Tb2Joint;
  15.       constructor Create; override;
  16.       procedure Step(var settings: TSettings; timeStep: Float); override;
  17.       procedure Keyboard(key: Byte); override;
  18.       procedure JointDestroyed(joint: Tb2Joint); override;
  19.    end;
  21. implementation
  23. { TWeb }
  25. constructor TWeb.Create;
  26. var
  27.    ground: Tb2Body;
  28.    sd: Tb2PolygonDef;
  29.    bd: Tb2BodyDef;
  30.    jd: Tb2DistanceJointDef;
  31.    p1, p2, d: TVector2;
  32. begin
  33.    inherited;
  34.    begin
  35.      sd := Tb2PolygonDef.Create;
  36.      sd.SetAsBox(50.0, 10.0);
  38.      bd := Tb2BodyDef.Create;
  39.      {$IFDEF OP_OVERLOAD}
  40.      bd.position.SetValue(0.0, -10.0);
  41.      {$ELSE}
  42.      SetValue(bd.position, 0.0, -10.0);
  43.      {$ENDIF}
  44.      ground := m_world.CreateBody(bd);
  45.      ground.CreateShape(sd);
  46.    end;
  48.    begin
  49.       sd := Tb2PolygonDef.Create;
  50.       sd.SetAsBox(0.5, 0.5);
  51.       sd.density := 5.0;
  52.       sd.friction := 0.2;
  54.       bd := Tb2BodyDef.Create;
  55.       {$IFDEF OP_OVERLOAD}
  56.       bd.position.SetValue(-5.0, 5.0);
  57.       {$ELSE}
  58.       SetValue(bd.position, -5.0, 5.0);
  59.       {$ENDIF}
  60.       m_bodies[0] := m_world.CreateBody(bd, False);
  61.       m_bodies[0].CreateShape(sd, False);
  62.       m_bodies[0].SetMassFromShapes;
  64.       {$IFDEF OP_OVERLOAD}
  65.       bd.position.SetValue(5.0, 5.0);
  66.       {$ELSE}
  67.       SetValue(bd.position, 5.0, 5.0);
  68.       {$ENDIF}
  69.       m_bodies[1] := m_world.CreateBody(bd, False);
  70.       m_bodies[1].CreateShape(sd, False);
  71.       m_bodies[1].SetMassFromShapes;
  73.       {$IFDEF OP_OVERLOAD}
  74.       bd.position.SetValue(5.0, 15.0);
  75.       {$ELSE}
  76.       SetValue(bd.position, 5.0, 15.0);
  77.       {$ENDIF}
  78.       m_bodies[2] := m_world.CreateBody(bd, False);
  79.       m_bodies[2].CreateShape(sd, False);
  80.       m_bodies[2].SetMassFromShapes;
  82.       {$IFDEF OP_OVERLOAD}
  83.       bd.position.SetValue(-5.0, 15.0);
  84.       {$ELSE}
  85.       SetValue(bd.position, -5.0, 15.0);
  86.       {$ENDIF}
  87.       m_bodies[3] := m_world.CreateBody(bd);
  88.       m_bodies[3].CreateShape(sd);
  89.       m_bodies[3].SetMassFromShapes;
  91.       jd := Tb2DistanceJointDef.Create;
  93.       jd.frequencyHz := 4.0;
  94.       jd.dampingRatio := 0.5;
  96.       jd.body1 := ground;
  97.       jd.body2 := m_bodies[0];
  98.       {$IFDEF OP_OVERLOAD}
  99.       jd.localAnchor1.SetValue(-10.0, 10.0);
  100.       jd.localAnchor2.SetValue(-0.5, -0.5);
  101.       {$ELSE}
  102.       SetValue(jd.localAnchor1, -10.0, 10.0);
  103.       SetValue(jd.localAnchor2, -0.5, -0.5);
  104.       {$ENDIF}
  105.       p1 := jd.body1.GetWorldPoint(jd.localAnchor1);
  106.       p2 := jd.body2.GetWorldPoint(jd.localAnchor2);
  107.       {$IFDEF OP_OVERLOAD}
  108.       d := p2 - p1;
  109.       jd.length := d.Length;
  110.       {$ELSE}
  111.       d := Subtract(p2, p1);
  112.       jd.length := Length(d);
  113.       {$ENDIF}
  114.       m_joints[0] := m_world.CreateJoint(jd, False);
  116.       jd.body1 := ground;
  117.       jd.body2 := m_bodies[1];
  118.       {$IFDEF OP_OVERLOAD}
  119.       jd.localAnchor1.SetValue(10.0, 10.0);
  120.       jd.localAnchor2.SetValue(0.5, -0.5);
  121.       {$ELSE}
  122.       SetValue(jd.localAnchor1, 10.0, 10.0);
  123.       SetValue(jd.localAnchor2, 0.5, -0.5);
  124.       {$ENDIF}
  125.       p1 := jd.body1.GetWorldPoint(jd.localAnchor1);
  126.       p2 := jd.body2.GetWorldPoint(jd.localAnchor2);
  127.       {$IFDEF OP_OVERLOAD}
  128.       d := p2 - p1;
  129.       jd.length := d.Length;
  130.       {$ELSE}
  131.       d := Subtract(p2, p1);
  132.       jd.length := Length(d);
  133.       {$ENDIF}
  134.       m_joints[1] := m_world.CreateJoint(jd, False);
  136.       jd.body1 := ground;
  137.       jd.body2 := m_bodies[2];
  138.       {$IFDEF OP_OVERLOAD}
  139.       jd.localAnchor1.SetValue(10.0, 30.0);
  140.       jd.localAnchor2.SetValue(0.5, 0.5);
  141.       {$ELSE}
  142.       SetValue(jd.localAnchor1, 10.0, 30.0);
  143.       SetValue(jd.localAnchor2, 0.5, 0.5);
  144.       {$ENDIF}
  145.       p1 := jd.body1.GetWorldPoint(jd.localAnchor1);
  146.       p2 := jd.body2.GetWorldPoint(jd.localAnchor2);
  147.       {$IFDEF OP_OVERLOAD}
  148.       d := p2 - p1;
  149.       jd.length := d.Length;
  150.       {$ELSE}
  151.       d := Subtract(p2, p1);
  152.       jd.length := Length(d);
  153.       {$ENDIF}
  154.       m_joints[2] := m_world.CreateJoint(jd, False);
  156.       jd.body1 := ground;
  157.       jd.body2 := m_bodies[3];
  158.       {$IFDEF OP_OVERLOAD}
  159.       jd.localAnchor1.SetValue(-10.0, 30.0);
  160.       jd.localAnchor2.SetValue(-0.5, 0.5);
  161.       {$ELSE}
  162.       SetValue(jd.localAnchor1, -10.0, 30.0);
  163.       SetValue(jd.localAnchor2, -0.5, 0.5);
  164.       {$ENDIF}
  165.       p1 := jd.body1.GetWorldPoint(jd.localAnchor1);
  166.       p2 := jd.body2.GetWorldPoint(jd.localAnchor2);
  167.       {$IFDEF OP_OVERLOAD}
  168.       d := p2 - p1;
  169.       jd.length := d.Length;
  170.       {$ELSE}
  171.       d := Subtract(p2, p1);
  172.       jd.length := Length(d);
  173.       {$ENDIF}
  174.       m_joints[3] := m_world.CreateJoint(jd, False);
  176.       jd.body1 := m_bodies[0];
  177.       jd.body2 := m_bodies[1];
  178.       {$IFDEF OP_OVERLOAD}
  179.       jd.localAnchor1.SetValue(0.5, 0.0);
  180.       jd.localAnchor2.SetValue(-0.5, 0.0);
  181.       {$ELSE}
  182.       SetValue(jd.localAnchor1, 0.5, 0.0);
  183.       SetValue(jd.localAnchor2, -0.5, 0.0);
  184.       {$ENDIF}
  185.       p1 := jd.body1.GetWorldPoint(jd.localAnchor1);
  186.       p2 := jd.body2.GetWorldPoint(jd.localAnchor2);
  187.       {$IFDEF OP_OVERLOAD}
  188.       d := p2 - p1;
  189.       jd.length := d.Length;
  190.       {$ELSE}
  191.       d := Subtract(p2, p1);
  192.       jd.length := Length(d);
  193.       {$ENDIF}
  194.       m_joints[4] := m_world.CreateJoint(jd, False);
  196.       jd.body1 := m_bodies[1];
  197.       jd.body2 := m_bodies[2];
  198.       {$IFDEF OP_OVERLOAD}
  199.       jd.localAnchor1.SetValue(0.0, 0.5);
  200.       jd.localAnchor2.SetValue(0.0, -0.5);
  201.       {$ELSE}
  202.       SetValue(jd.localAnchor1, 0.0, 0.5);
  203.       SetValue(jd.localAnchor2, 0.0, -0.5);
  204.       {$ENDIF}
  205.       p1 := jd.body1.GetWorldPoint(jd.localAnchor1);
  206.       p2 := jd.body2.GetWorldPoint(jd.localAnchor2);
  207.       {$IFDEF OP_OVERLOAD}
  208.       d := p2 - p1;
  209.       jd.length := d.Length;
  210.       {$ELSE}
  211.       d := Subtract(p2, p1);
  212.       jd.length := Length(d);
  213.       {$ENDIF}
  214.       m_joints[5] := m_world.CreateJoint(jd, False);
  216.       jd.body1 := m_bodies[2];
  217.       jd.body2 := m_bodies[3];
  218.       {$IFDEF OP_OVERLOAD}
  219.       jd.localAnchor1.SetValue(-0.5, 0.0);
  220.       jd.localAnchor2.SetValue(0.5, 0.0);
  221.       {$ELSE}
  222.       SetValue(jd.localAnchor1, -0.5, 0.0);
  223.       SetValue(jd.localAnchor2, 0.5, 0.0);
  224.       {$ENDIF}
  225.       p1 := jd.body1.GetWorldPoint(jd.localAnchor1);
  226.       p2 := jd.body2.GetWorldPoint(jd.localAnchor2);
  227.       {$IFDEF OP_OVERLOAD}
  228.       d := p2 - p1;
  229.       jd.length := d.Length;
  230.       {$ELSE}
  231.       d := Subtract(p2, p1);
  232.       jd.length := Length(d);
  233.       {$ENDIF}
  234.       m_joints[6] := m_world.CreateJoint(jd, False);
  236.       jd.body1 := m_bodies[3];
  237.       jd.body2 := m_bodies[0];
  238.       {$IFDEF OP_OVERLOAD}
  239.       jd.localAnchor1.SetValue(0.0, -0.5);
  240.       jd.localAnchor2.SetValue(0.0, 0.5);
  241.       {$ELSE}
  242.       SetValue(jd.localAnchor1, 0.0, -0.5);
  243.       SetValue(jd.localAnchor2, 0.0, 0.5);
  244.       {$ENDIF}
  245.       p1 := jd.body1.GetWorldPoint(jd.localAnchor1);
  246.       p2 := jd.body2.GetWorldPoint(jd.localAnchor2);
  247.       {$IFDEF OP_OVERLOAD}
  248.       d := p2 - p1;
  249.       jd.length := d.Length;
  250.       {$ELSE}
  251.       d := Subtract(p2, p1);
  252.       jd.length := Length(d);
  253.       {$ENDIF}
  254.       m_joints[7] := m_world.CreateJoint(jd);
  255.    end;
  256. end;
  258. procedure TWeb.Step(var settings: TSettings; timeStep: Float);
  259. begin
  260.    inherited;
  261.  DrawText('This demonstrates a soft distance joint.');
  262.  DrawText('Press: (b) to delete a body, (j) to delete a joint');
  263. end;
  265. procedure TWeb.Keyboard(key: Byte);
  266. var
  267.    i: Integer;
  268. begin
  269.    case key of
  270.       66{B}:
  271.          begin
  272.             for i := 0 to 3 do
  273.               if Assigned(m_bodies[i]) then
  274.               begin
  275.                  m_world.DestroyBody(m_bodies[i]);
  276.                  m_bodies[i] := nil;
  277.                  Break;
  278.               end;
  279.          end;
  280.       74{J}:
  281.          begin
  282.             for i := 0 to 7 do
  283.               if Assigned(m_joints[i]) then
  284.               begin
  285.                  m_world.DestroyJoint(m_joints[i]);
  286.                  m_joints[i] := nil;
  287.                  Break;
  288.               end;
  289.          end;
  290.    end;
  291. end;
  293. procedure TWeb.JointDestroyed(joint: Tb2Joint);
  294. var
  295.    i: Integer;
  296. begin
  297.    for i := 0 to 7 do
  298.      if m_joints[i] = joint then
  299.      begin
  300.         m_joints[i] := nil;
  301.         Break;
  302.      end;
  303. end;
  305. initialization
  306.    RegisterTestEntry('Web', TWeb);
  308. end.