anchor.diff:                              { Transform = spriteTransform
                                 InsetOpt = None
                                 Image = spriteImage
  -                              Color = if entity.GetEnabled world then Color.White else entity.GetDisabledColor world
  +                              Color = if transform.Enabled then Color.White else entity.GetDisabledColor world
                                 Blend = Transparent
                                 Glow = Color.Zero
                                 Flip = FlipNone }}
  
positive.code:             let data = evt.Data : MouseButtonData
              let wasPressed = entity.GetPressed world
              let world = if wasPressed then entity.SetPressed false world else world
              let mousePositionWorld = World.mouseToWorld (entity.GetAbsolute world) data.Position world
              if  entity.GetVisible world &&
                  Math.isPointInBounds mousePositionWorld (entity.GetBounds world) then
                  if entity.GetEnabled world && wasPressed then
                      let world = entity.SetToggled (not (entity.GetToggled world)) world
                      let toggled = entity.GetToggled world
                      let eventAddress = if toggled then Events.Toggled else Events.Untoggled
                      let eventTrace = EventTrace.debug "ToggleDispatcher" "handleMouseLeftUp" "" EventTrace.empty
                      let world = World.publishPlus () (eventAddress --> entity) eventTrace entity true false world
                      let eventTrace = EventTrace.debug "ToggleDispatcher" "handleMouseLeftUp" "Toggle" EventTrace.empty
                      let world = World.publishPlus toggled (Events.Toggle --> entity) eventTrace entity true false world
                      let world =
                          match entity.GetToggleSoundOpt world with
                          | Some toggleSound -> World.playSound (entity.GetToggleSoundVolume world) toggleSound world
                          | None -> world
                      (Resolve, world)
                  else (Cascade, world)
              else (Cascade, world)
  
  
negative.code:             let i = single (frame % 3L)
              let j = single (frame / 3L)
              let offset = v2 (i * celSize.X) (j * celSize.Y) 
              Box2 (offset, celSize)
  
          static member Facets =
              [typeof<RigidBody2dFacet>]
  