anchor.diff:                  | Some t -> 
                       let pt = part.Ray.Ray.GetPointOnRay t
                       Some (RayHit(t, (p, pt)))
  -                | None -> None
  +                | None -> 
  +                    None
                   
           member x.Dispose() =
               bvh.Dispose()
  
positive.code:     [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
      module Pickable =
  
          let ofShape (shape : PickShape) =
              { trafo = Trafo3d.Identity; shape = shape }
  
  
negative.code:             { p with trafo = p.trafo * t }
  
          let bounds (p : Pickable) =
              PickShape.bounds(p.shape) |> transformBounds p.trafo
  
          let private intersectTriangle (part : RayPart) (tri : Triangle3d) =
              match RayPart.Intersects(part, tri) with
  