anchor.diff:          /// Change the maximum number of allowable particles.
           abstract Resize : int -> Emitter
   
  -    /// Transforms a particle value.
  +    /// Transforms a constrained value.
       type 'a Transformer =
           single -> Constraint -> 'a -> struct ('a * Output)
   
  
positive.code:             (emitter :> Emitter).Resize particleMax :?> BasicEmitter
  
          /// Make a basic particle emitter.
          let make time body elevation absolute blend image lifeTimeOpt particleLifeTimeOpt particleRate particleMax particleSeed constrain initializer inPlaceBehavior behaviors =
              BasicEmitter.make time body elevation absolute blend image lifeTimeOpt particleLifeTimeOpt particleRate particleMax particleSeed constrain initializer inPlaceBehavior behaviors toParticlesDescriptor
  
          /// Make an empty basic particle emitter.
          let makeEmpty time lifeTimeOpt particleLifeTimeOpt particleRate particleMax =
              let image = asset Assets.Default.PackageName Assets.Default.ImageName
              let particleSeed = Unchecked.defaultof<BasicParticle>
              let initializer = fun _ _ (emitter : BasicEmitter) -> emitter.ParticleSeed
              let inPlaceBehavior = fun _ _ _ -> Output.empty
              let behaviors = Behaviors.empty
              make time Body.defaultBody 0.0f false Transparent image lifeTimeOpt particleLifeTimeOpt particleRate particleMax particleSeed Constraint.empty initializer inPlaceBehavior behaviors
  
          /// Make the default basic particle emitter.
          let makeDefault time lifeTimeOpt particleLifeTimeOpt particleRate particleMax =
  
negative.code:           ParticleBuffer : 'a array // operates as a ring-buffer
            ParticleSeed : 'a
            Constraint : Constraint
            ParticleInitializer : int64 -> Constraint -> 'a Emitter -> 'a
            ParticleBehavior : int64 -> Constraint -> 'a Emitter -> Output
            ParticleBehaviors : Behaviors
            EmitterBehavior : int64 -> Constraint -> 'a Emitter -> Output
            EmitterBehaviors : Behaviors
            ToParticlesDescriptor : 'a Emitter -> ParticlesDescriptor }
  
          static member private emit time constrain emitter =
  