// File: matthewarcus[P]mmps/transform.cpp
// Function: Bonne::ProjectSimple(double, double, double&, double&) const
bool Bonne::ProjectSimple(double x, double y, 
			  double& phi, double& lambda) const
{
  bool result = false;
  double rho = sqrt(sqr(x) + sqr(cotp - y));
  if (p > 0) {
    phi = cotp + p - rho;
    lambda = rho * atan2(x, cotp - y)/cos(phi);
  } else if (p < 0) {
    phi = cotp + p + rho;
    lambda = rho * atan2(x, y - cotp)/cos(phi);
  } else {
    // Degenerate case - the sinusoidal projection
    phi = y;
    lambda = x/cos(phi);
  }
  if (phi >= -piovertwo && phi <= +piovertwo &&
      lambda >= -pi && lambda <= pi) {
    result = true;
  }
  return result;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x70, %rsp
movq %rdi, -0x8(%rbp)
movsd %xmm0, -0x10(%rbp)
movsd %xmm1, -0x18(%rbp)
movq %rsi, -0x20(%rbp)
movq %rdx, -0x28(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x40(%rbp)
movb $0x0, -0x29(%rbp)
movsd -0x10(%rbp), %xmm0
callq 0xddd0
movq -0x40(%rbp), %rax
movsd %xmm0, -0x48(%rbp)
movsd 0xc8(%rax), %xmm0
subsd -0x18(%rbp), %xmm0
callq 0xddd0
movaps %xmm0, %xmm1
movsd -0x48(%rbp), %xmm0
addsd %xmm1, %xmm0
callq 0x5200
movq -0x40(%rbp), %rax
movsd %xmm0, -0x38(%rbp)
movsd 0xc0(%rax), %xmm0
xorps %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jbe 0xb313
movq -0x40(%rbp), %rax
movsd 0xc8(%rax), %xmm0
addsd 0xc0(%rax), %xmm0
subsd -0x38(%rbp), %xmm0
movq -0x20(%rbp), %rcx
movsd %xmm0, (%rcx)
movsd -0x38(%rbp), %xmm0
movsd %xmm0, -0x58(%rbp)
movsd -0x10(%rbp), %xmm0
movsd 0xc8(%rax), %xmm1
subsd -0x18(%rbp), %xmm1
callq 0x5050
movaps %xmm0, %xmm1
movsd -0x58(%rbp), %xmm0
mulsd %xmm1, %xmm0
movsd %xmm0, -0x50(%rbp)
movq -0x20(%rbp), %rax
movsd (%rax), %xmm0
callq 0x5470
movaps %xmm0, %xmm1
movsd -0x50(%rbp), %xmm0
divsd %xmm1, %xmm0
movq -0x28(%rbp), %rax
movsd %xmm0, (%rax)
jmp 0xb3d4
movq -0x40(%rbp), %rax
xorps %xmm0, %xmm0
ucomisd 0xc0(%rax), %xmm0
jbe 0xb39a
movq -0x40(%rbp), %rax
movsd 0xc8(%rax), %xmm0
addsd 0xc0(%rax), %xmm0
addsd -0x38(%rbp), %xmm0
movq -0x20(%rbp), %rcx
movsd %xmm0, (%rcx)
movsd -0x38(%rbp), %xmm0
movsd %xmm0, -0x68(%rbp)
movsd -0x10(%rbp), %xmm0
movsd -0x18(%rbp), %xmm1
subsd 0xc8(%rax), %xmm1
callq 0x5050
movaps %xmm0, %xmm1
movsd -0x68(%rbp), %xmm0
mulsd %xmm1, %xmm0
movsd %xmm0, -0x60(%rbp)
movq -0x20(%rbp), %rax
movsd (%rax), %xmm0
callq 0x5470
movaps %xmm0, %xmm1
movsd -0x60(%rbp), %xmm0
divsd %xmm1, %xmm0
movq -0x28(%rbp), %rax
movsd %xmm0, (%rax)
jmp 0xb3d2
movsd -0x18(%rbp), %xmm0
movq -0x20(%rbp), %rax
movsd %xmm0, (%rax)
movsd -0x10(%rbp), %xmm0
movsd %xmm0, -0x70(%rbp)
movq -0x20(%rbp), %rax
movsd (%rax), %xmm0
callq 0x5470
movaps %xmm0, %xmm1
movsd -0x70(%rbp), %xmm0
divsd %xmm1, %xmm0
movq -0x28(%rbp), %rax
movsd %xmm0, (%rax)
jmp 0xb3d4
movq -0x20(%rbp), %rax
fldl (%rax)
fldl 0x9c48(%rip)            # 0x15028
fxch %st(1)
fucompi %st(1), %st
fstp %st(0)
jb 0xb42c
jmp 0xb3ea
movq -0x20(%rbp), %rax
fldl (%rax)
fldl 0x9c2a(%rip)            # 0x15020
fucompi %st(1), %st
fstp %st(0)
jb 0xb42c
jmp 0xb3fe
movq -0x28(%rbp), %rax
fldl (%rax)
fldl 0x9c26(%rip)            # 0x15030
fxch %st(1)
fucompi %st(1), %st
fstp %st(0)
jb 0xb42c
jmp 0xb414
movq -0x28(%rbp), %rax
fldl (%rax)
fldl 0x9be8(%rip)            # 0x15008
fucompi %st(1), %st
fstp %st(0)
jb 0xb42c
jmp 0xb428
movb $0x1, -0x29(%rbp)
movb -0x29(%rbp), %al
andb $0x1, %al
addq $0x70, %rsp
popq %rbp
retq
nopw (%rax,%rax)