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: 
          abstract member MakeBodyShape : Entity -> BodyShape
  
          member this.MakeCreateBodyMessage (entity : Entity, address : Address) =
              { EntityAddress = address
                PhysicsId = entity.PhysicsId
                Position = entity.Position + entity.Size * 0.5f
                Rotation = entity.Rotation
                BodyProperties =
                  { Shape = this.MakeBodyShape entity
                    BodyType = entity.BodyType
                    Density = entity.Density
                    Friction = entity.Friction
  
negative.code:     type ScreenDispatcher () =
  
          abstract member Register : Screen * Address * GroupDescriptor list * World -> World
          default dispatcher.Register (_, address, groupDescriptors, world) = World.addGroups address groupDescriptors world
  
          abstract member Unregister : Screen * Address * World -> World
          default dispatcher.Unregister (_, address, world) = World.removeGroups address world
  
      type GameDispatcher () =
          abstract member Register : Game * World -> World
          default dispatcher.Register (_, world) = world
  