// File: /workspace/github_cpp_makefile_star2_O2/tomfunkhouser[P]gaps/pkgs/R2Shapes/R2Grid.cpp
// Function: gaps::R2Grid::MaskNonMaxima(double)
void R2Grid::
MaskNonMaxima(RNLength grid_radius)
{
  // Check everything
  if (!GridValues()) return;
  if (NEntries() == 0) return;

  // Determine ammount to add to grid value to mark as masked
  RNInterval range = Range();
  RNScalar mask_summand = -2.0 * range.Diameter();

  // Save copy of grid
  R2Grid copy(*this);
  R2Grid mask(*this);

  // Set all values in this grid to zero
  Clear(R2_GRID_UNKNOWN_VALUE);

  // Load mask grid value pointers into array
  int nptrs = 0;
  RNScalar **ptrs = new RNScalar * [ mask.NEntries() ];
  for (int i = 0; i < mask.NEntries(); i++) {
    if (mask.grid_values[i] == R2_GRID_UNKNOWN_VALUE) continue;
    ptrs[nptrs] = &mask.grid_values[i];
    nptrs++;
  }

  // Check number of non-unknown values
  if (nptrs == 0) { delete [] ptrs; return; }

  // Sort mask value pointers
  qsort(ptrs, nptrs, sizeof(RNScalar *), RNCompareScalarPtrs);

  // Select values in sorted order, masking neighborhoods
  for (int i = nptrs-1; i >= 0; i--){
    int ix, iy;
    RNScalar *ptr = ptrs[i];
    int grid_index = ptr - mask.grid_values;
    assert(grid_index < mask.NEntries());
    mask.IndexToIndices(grid_index, ix, iy);

    // Check if it has been masked
    if (*ptr >= range.Min()) {
      // Set this grid value if it is a local maximum
      if (IsLocalExtremum(copy, ix, iy, TRUE)) {
        SetGridValue(ix, iy, *ptr);
      }

      // Mask neighborhood
      mask.RasterizeGridCircle(R2Point(ix, iy), grid_radius, mask_summand);
    }
  }

  // Delete temporary data
  delete [] ptrs;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x1d8, %rsp            # imm = 0x1D8
movsd %xmm0, 0x8(%rsp)
cmpq $0x0, 0xb8(%rdi)
je 0x54f95
movq %rdi, %rbx
cmpl $0x0, 0xcc(%rdi)
je 0x54f95
leaq 0x18(%rsp), %r14
movq %r14, %rdi
movq %rbx, %rsi
callq 0x52194
movsd 0x8(%r14), %xmm0
subsd (%r14), %xmm0
movsd %xmm0, (%rsp)
leaq 0x108(%rsp), %rdi
movq %rbx, %rsi
callq 0x51fb4
leaq 0x38(%rsp), %rdi
movq %rbx, %rsi
callq 0x51fb4
movsd 0x3f134(%rip), %xmm0    # 0x93f68
movq %rbx, %rdi
callq 0x53578
movslq 0x104(%rsp), %r15
leaq (,%r15,8), %rax
testq %r15, %r15
pushq $-0x1
popq %rdi
cmovnsq %rax, %rdi
callq 0xe030
movq %rax, %r14
movsd (%rsp), %xmm0
mulsd 0x3e395(%rip), %xmm0    # 0x93200
movsd %xmm0, (%rsp)
movq 0xf0(%rsp), %rax
xorl %ebp, %ebp
testl %r15d, %r15d
cmovlel %ebp, %r15d
movsd 0x3f0df(%rip), %xmm1    # 0x93f68
movslq %ebp, %rsi
subq $0x1, %r15
jb 0x54eac
movsd (%rax), %xmm0
ucomisd %xmm1, %xmm0
jne 0x54e9e
jnp 0x54ea6
movq %rax, (%r14,%rsi,8)
incl %esi
movl %esi, %ebp
addq $0x8, %rax
jmp 0x54e89
testl %ebp, %ebp
je 0x54f76
leaq -0x393(%rip), %rcx      # 0x54b28
pushq $0x8
popq %rdx
movq %r14, %rdi
callq 0xe8b0
movl %ebp, %r13d
leaq 0x28(%rsp), %r12
testl %r13d, %r13d
jle 0x54f76
movq -0x8(%r14,%r13,8), %rcx
movq %rcx, %rax
subq 0xf0(%rsp), %rax
shrq $0x3, %rax
cltd
idivl 0x100(%rsp)
movsd (%rcx), %xmm0
ucomisd 0x18(%rsp), %xmm0
jb 0x54f6e
movl %eax, %r15d
movl %edx, %ebp
movsd %xmm0, 0x10(%rsp)
leaq 0x108(%rsp), %rdi
movl %edx, %esi
movl %eax, %edx
pushq $0x1
popq %rcx
callq 0x54b4a
testl %eax, %eax
je 0x54f43
movq 0xb8(%rbx), %rax
movl 0xc8(%rbx), %ecx
imull %r15d, %ecx
addl %ebp, %ecx
movslq %ecx, %rcx
movsd 0x10(%rsp), %xmm0
movsd %xmm0, (%rax,%rcx,8)
cvtsi2sd %ebp, %xmm0
cvtsi2sd %r15d, %xmm1
movq %r12, %rdi
callq 0x5f58c
leaq 0x38(%rsp), %rdi
movq %r12, %rsi
movsd 0x8(%rsp), %xmm0
movsd (%rsp), %xmm1
xorl %edx, %edx
callq 0x54c32
decq %r13
jmp 0x54ece
movq %r14, %rdi
callq 0xe5d0
leaq 0x38(%rsp), %rdi
callq 0x5216c
leaq 0x108(%rsp), %rdi
callq 0x5216c
addq $0x1d8, %rsp            # imm = 0x1D8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq %rax, %rbx
jmp 0x54fbb
jmp 0x54fae
movq %rax, %rbx
leaq 0x38(%rsp), %rdi
callq 0x5216c
leaq 0x108(%rsp), %rdi
callq 0x5216c
movq %rbx, %rdi
callq 0xe810