anchor.diff:      type CharacterDispatcher () =
           inherit Entity2dWithSimplePhysicsAndRenderingDispatcher ()
           
  -        override this.MakeBodyShape (character : Entity) =
  +        override dispatcher.MakeBodyShape (character : Entity) =
               CapsuleShape { Height = character.Size.Y * 0.5f; Radius = character.Radius; Center = Vector2.Zero }
   
  -        override this.GetImageSpriteAssetName () =
  +        override dispatcher.GetImageSpriteAssetName () =
               "Image6"
   
           override dispatcher.Init (character, dispatcherContainer) =
  
positive.code:     type GroupDispatcher () =
  
          abstract member Init : Group * IXDispatcherContainer -> Group
          default this.Init (group, _) = group
          
          abstract member Register : Group * Address * Entity list * World -> World
          default this.Register (_, address, entities, world) = World.addEntities address entities world
  
          abstract member Unregister : Group * Address * World -> World
          default this.Unregister (_, address, world) = World.removeEntities address world
  
      type TransitionDispatcher () =
          class end
  
negative.code: 
          abstract member MakeBodyShape : Entity -> BodyShape
  
          member dispatcher.MakeCreateBodyMessage (entity : Entity, address : Address) =
              { EntityAddress = address
                PhysicsId = entity.PhysicsId
                Position = entity.Position + entity.Size * 0.5f
                Rotation = entity.Rotation
                BodyProperties =
                  { Shape = dispatcher.MakeBodyShape entity
                    BodyType = entity.BodyType
                    Density = entity.Density
                    Friction = entity.Friction
  