Implemented the WeldJoint and added desktop demo.

Author: gkjpettet

Forge2D Port Progress.md

@@ -99,8 +99,8 @@
 	[x] revolute_joint_def
 	[] rope_joint  <--- not working when previously ported.
 	[] rope_joint_def
-	[] weld_joint
-	[] weld_joint_def
+	[x] weld_joint
+	[x] weld_joint_def
 	[] wheel_joint
 	[] wheel_joint_def
 [x] body

src/desktop/Demo Specific/Demo.xojo_code

@@ -282,6 +282,24 @@ Protected Module Demo
 		End Sub
 	#tag EndMethod
 
+	#tag Method, Flags = &h1, Description = 4372656174657320616E6420616464732074776F20626F6469657320286120626F7820616E64206120636972636C6529206C696E6B65642076696120612077656C64206A6F696E742E
+		Protected Sub CreateWeldedBodies(world As Physics.World, boxX As Double, boxY As Double, boxSize As Double, circleX As Double, circleY As Double, circleRadius As Double)
+		  /// Creates and adds two bodies (a box and a circle) linked via a weld joint.
+		  
+		  Var box As Physics.Body = _
+		  CreateBox(World, New VMaths.Vector2(boxX, boxY), boxSize, boxSize)
+		  
+		  Var circle As Physics.Body = CreateCircle(World, New VMaths.Vector2(circleX, circleY), circleRadius)
+		  
+		  Var jointDef As New Physics.WeldJointDef
+		  var anchor As New VMaths.Vector2(boxX - (boxSize/2), boxY - (boxSize/2))
+		  jointDef.Initialize(box, circle, anchor)
+		  
+		  world.CreateJoint(New Physics.WeldJoint(jointdef))
+		  
+		End Sub
+	#tag EndMethod
+
 	#tag Method, Flags = &h0
 		Function ToString(Extends type As Demo.Types) As String
 		  Select Case type
@@ -312,6 +330,9 @@ Protected Module Demo
 		  Case Demo.Types.VariousShapes
 		    Return "Various Shapes"
 
+		  Case Demo.Types.WeldJoint
+		    Return "Weld Joint"
+		    
 		  Else
 		    Raise New UnsupportedOperationException("Unknown demo type.")
 		  End Select
@@ -329,7 +350,8 @@ Protected Module Demo
 		  ClickToAddRandomBodies
 		  PrismaticJoint
 		  Particles
-		Raycasting
+		  Raycasting
+		WeldJoint
 	#tag EndEnum
 
 

src/desktop/Demo Specific/WinDemo.xojo_window

@@ -359,6 +359,9 @@ End
 		  Case Demo.Types.VariousShapes
 		    DemoVariousShapes
 
+		  Case Demo.Types.WeldJoint
+		    DemoWeldJoint
+		    
 		  Else
 		    Raise New UnsupportedOperationException("Unknown demo type.")
 		  End Select
@@ -753,6 +756,21 @@ End
 		End Sub
 	#tag EndMethod
 
+	#tag Method, Flags = &h0, Description = 436F6E666967757265207468652073696D756C6174696F6E20666F72207468652077656C64206A6F696E742064656D6F2E
+		Sub DemoWeldJoint()
+		  /// Configure the simulation for the weld joint demo.
+		  
+		  InitialiseWorldAndScene
+		  
+		  ResetGravity
+		  
+		  // Create the ground and two walls.
+		  Call Demo.CreateGroundAndOptionalWalls(world, Scene.Width, Scene.Height)
+		  
+		  Demo.CreateWeldedBodies(World, 0, 0, 7, 5, 5, 5)
+		End Sub
+	#tag EndMethod
+
 	#tag Method, Flags = &h0, Description = 436F6D707574657320616E6420647261772061207265666C65637461626C652072617920696E206120726563757273697665206D616E6E65722E
 		Sub DrawReflectedRay(p1 As VMaths.Vector2, p2 As VMaths.Vector2, g As Graphics)
 		  /// Computes and draw a reflectable ray in a recursive manner.
@@ -1089,6 +1107,9 @@ End
 		  Me.AddRow(Demo.Types.VariousShapes.ToString)
 		  Me.RowTagAt(Me.LastAddedRowIndex) = Demo.Types.VariousShapes
 
+		  Me.AddRow(Demo.Types.WeldJoint.ToString)
+		  Me.RowTagAt(Me.LastAddedRowIndex) = Demo.Types.WeldJoint
+		  
 		  Me.SelectRowWithTag(Demo.Types.RevoluteJoint)
 
 		End Sub

src/desktop/Physics Dev Harness.xojo_project

@@ -141,6 +141,8 @@ Module=Demo;Demo Specific/Demo.xojo_code;&h000000000574A7FF;&h0000000055998FFF;f
 Class=ConstantVolumeJoint;Physics/ConstantVolumeJoint.xojo_code;&h000000006AF61FFF;&h0000000058463FFF;false
 Class=PrismaticJointDef;Physics/PrismaticJointDef.xojo_code;&h000000004568C7FF;&h0000000058463FFF;false
 Class=PrismaticJoint;Physics/PrismaticJoint.xojo_code;&h00000000089957FF;&h0000000058463FFF;false
+Class=WeldJointDef;Physics/WeldJointDef.xojo_code;&h0000000003AAE7FF;&h0000000058463FFF;false
+Class=WeldJoint;Physics/WeldJoint.xojo_code;&h000000005BD727FF;&h0000000058463FFF;false
 DefaultWindow=WinDemo
 AppMenuBar=MainMenuBar
 MajorVersion=1