anchor.diff:                  []
                   (slice :: effector.History)
           | Bone ->
  -            [] // TODO: implement
  +            // TODO: implement
  +            []
   
       and private evalContents slice contents effector =
           List.fold
  
positive.code:         | Sin ->
              let progressScaled = float progress * Math.PI * 2.0
              let progressScaledSin = Math.Sin progressScaled
              let progressPolar = progressScaledSin / (Math.PI * 2.0)
              scale (value2 - value, single progressPolar)
          | Cos ->
              let progressScaled = float progress * Math.PI * 2.0
              let progressScaledCos = Math.Cos progressScaled
              let progressPolar = progressScaledCos / (Math.PI * 2.0)
              scale (value2 - value, single progressPolar)
  
      let private applyLogic value value2 applicator =
          match applicator with
  
negative.code:         | Const -> value2
          | Linear -> scale (value2 - value, progress)
          | Random ->
              let rand = Rand.makeFromInt ^ int ^ double progress * double Int32.MaxValue
              let randValue = fst ^ Rand.nextSingle rand
              scale (value2 - value, randValue)
          | Chaos ->
              let chaosValue = single ^ effector.Chaos.NextDouble ()
              scale (value2 - value, chaosValue)
          | Ease ->
  